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  .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 |