** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Cerrar video abierto con Shell
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoCerrar video abierto con Shell

 Responder Responder
Autor
Mensaje Invertir el orden de clasificación
VIMIPAS Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 06/Enero/2006
Localización: ESPAÑA
Estado: Sin conexión
Puntos: 5448
Enlace directo a este mensaje Tema: Cerrar video abierto con Shell
    Enviado: 06/Abril/2021 a las 23:01
Hola de nuevo.

Gracias Jesús de todas formas.

Juanmasp, me he quedado con la página esta:

https://computerhoy.com/listas/tecnologia/funciones-ocultas-reproductor-vlc-que-seguro-no-conoces-2018-293183


Muchas gracias a ambos.

Por mi se puede dar por cerrado este tema. Me he quedado con la respuesta que indiqué que yo había adaptado a esta pregunta.

Saludos.

Editado por VIMIPAS - 06/Abril/2021 a las 23:02
Gracias
Arriba
Juanmasp Ver desplegable
Habitual
Habitual


Unido: 21/Abril/2006
Estado: Sin conexión
Puntos: 64
Enlace directo a este mensaje Enviado: 06/Abril/2021 a las 16:08
Hola, mirando en internet, he encontrado dos opciones para que el VLC se cierre solo cuando acabe de reproducir


Se puede usar el modificador de ejecución (--play-and-exit)
VLC --play-and-exit Archivo.mp4

O se puede añadir al final el dummy file  (vlc://quit)
VLC Archivo.mp4 vlc://quit

Salu2

Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 12529
Enlace directo a este mensaje Enviado: 06/Abril/2021 a las 08:57
Gracias VIMIPAS, no me acordaba de haber visto esa rutina de cierre, la he probado y furula PM, además, ... si a Happy le gusta ... no hay nada más que decir LOL.

No tengo nada hecho con las pistas sobre el handle, pero básicamente es averiguar el nº de ejecución que tiene en windows y cerrar el proceso con ese número de ejecución, del mismo modo que lo hace la siguiente rutina que apuntas en ese hilo.


Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
VIMIPAS Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 06/Enero/2006
Localización: ESPAÑA
Estado: Sin conexión
Puntos: 5448
Enlace directo a este mensaje Enviado: 06/Abril/2021 a las 00:19
Parece que no funciona el enlace que acabo de poner. Lo pongo de nuevo aquí:

http://www.mvp-access.com/foro/cerrar-pdf_topic82652.html

Saludos

P.D.:Aquí si que funciona.

Editado por VIMIPAS - 06/Abril/2021 a las 00:20
Gracias
Arriba
VIMIPAS Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 06/Enero/2006
Localización: ESPAÑA
Estado: Sin conexión
Puntos: 5448
Enlace directo a este mensaje Enviado: 06/Abril/2021 a las 00:18
Hola buenas noches.

Bueno Jesús, gracias por la indicación, pero me he puesto a buscar de lo que me pones y no he conseguido dar con la pista.... sin embargo, buscando, buscando he encontrado esto que viene después para cerrar archivos PDF, y es respuesta de este mismo foro, pero de 2017. Lo pego a continuación:

'Sub cerrarPDF() 'adaptado por vimipas con VLC para pruebas, a continuaci
Sub cerrarVLC() 'Esta es la prueba de VIMIPAS
Dim strTerminateThis As String
    Dim objWMIcimv2 As Object
    Dim objProcess As Object
    Dim objList As Object
    Dim intError As Integer
     
    'Process to terminate
    'strTerminateThis = "AcroRd32.exe"
    'Pues nada, probaré ahora con VLC
    strTerminateThis = "VLC.exe"
     
    'Connect to CIMV2 Namespace
    Set objWMIcimv2 = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
     
    'Find the process to terminate
    Set objList = objWMIcimv2.ExecQuery("select * from win32_process where name='" & strTerminateThis & "'")
   
    'Terminates a process and all of its threads.
    For Each objProcess In objList
        intError = objProcess.Terminate
    Next
             
    Set objWMIcimv2 = Nothing
    Set objList = Nothing
    Set objProcess = Nothing
End Sub

Como mis archivos de música, sonidos, etc. los tengo para que se abran con VLC.EXE, he hecho la prueba que indico arriba y me ha funcionado.

Con lo cual, el tema lo tengo resuelto, pero.... ojo, no quiero cerrar el hilo sin ahondar en lo que me has propuesto del Handle..... (me gusta aprender), y por eso te pido el favor de que me pongas alguna pista mas, si puedes, por favor. Gracias de antemano.

Saludos.

P.D.: el hilo al que hago alusión arriba es este (hay otro método mas, que dicen que funciona, pero yo no lo he probado):


http://www.mvp-access.com/foro/cerrar-pdf_topic82652.html
Gracias
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 12529
Enlace directo a este mensaje Enviado: 05/Abril/2021 a las 08:18
Lo primero tendrás que 'localizar una ventana' por el nombre de la misma, una vez que la tengas, lo que conocerás es el handle de la misma podrás cerrarla.


Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
VIMIPAS Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 06/Enero/2006
Localización: ESPAÑA
Estado: Sin conexión
Puntos: 5448
Enlace directo a este mensaje Enviado: 04/Abril/2021 a las 21:11
Buenas noches.

Tal cual indico en el asunto.

He abierto el video así:

EJECUTABLE = CurrentProject.Path & "\APLAUSOS" & ".MP4"
Shell "EXPLORER.EXE " & EJECUTABLE

Concretamente es un pequeño ejemplo para mis nietos, en donde se abre un video grabado con mis aplausos al final del ejercicio de ordenar números del 1 al 9.

Pero no doy con la instrucción de VBA para cerrarlo una vez que se ha terminado.

Bueno, realmente no es que no sepa cerrarlo "después de que se haya terminado", sino que "no se cerrarlo" (sin mas, para que no haya lugar a dudas).

Estoy usando Windows 10 de 64 bits y Access 2007, pero que lo guardo, al principio de crear las bases mías, todo como Access 2003 (es una opción que existe dentro del Access 2007).

Saludos.


Gracias
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable