Imprimir página | Cerrar ventana

Cerrar video abierto con Shell

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=85934
Fecha de impresión: 19/Abril/2021 a las 05:29


Tema: Cerrar video abierto con Shell
Publicado por: VIMIPAS
Asunto: Cerrar video abierto con Shell
Fecha de publicación: 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



Respuestas:
Publicado por: Mihura
Fecha de publicación: 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.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es


Publicado por: VIMIPAS
Fecha de publicación: 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):


%20" rel="nofollow - http://www.mvp-access.com/foro/cerrar-pdf_topic82652.html

-------------
Gracias


Publicado por: VIMIPAS
Fecha de publicación: 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.

-------------
Gracias


Publicado por: Mihura
Fecha de publicación: 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.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es


Publicado por: Juanmasp
Fecha de publicación: 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



Publicado por: VIMIPAS
Fecha de publicación: 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.

-------------
Gracias



Imprimir página | Cerrar ventana