Cerrar programa
Bonedragon
19 de Enero del 2006
Hola, he tratado de cerrar la ventana de Internet explorer utilizando la función findwindow, pero no logro conseguirlo, alguien me puede dar alguna pista de como hacerlo. gracias
epa
19 de Enero del 2006
Buenasss
Aqui tienes una forma, el unico inconveniente que tiene es q le falta una funcion (para cerrar las ventanas)
En el modulo:
Public Declare Function FindWindow Lib \"user32\" Alias \"FindWindowA\" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Lugo haces un Procedimiente en la ventana:
Private Sub IECerrar()
Dim Dhnd as Integer
Dhnd = 1
Do while Dhnd <> 0
Dhnd = FindWindow(\"IEFrame\", vbNullString)
FUNCIONCERRAR Dhnd
Loop
En donde aparece \"FUNCIONCERRAR\" pones la funcion para cerrar, con ese loop lo que haces es que valla cerrando las ventanas del IE y cuando ya no hay ventasnas se detiene. (Dhnd es el hWnd)
Espero te sirva, hasta la proxima :)
Aqui tienes una forma, el unico inconveniente que tiene es q le falta una funcion (para cerrar las ventanas)
En el modulo:
Public Declare Function FindWindow Lib \"user32\" Alias \"FindWindowA\" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Lugo haces un Procedimiente en la ventana:
Private Sub IECerrar()
Dim Dhnd as Integer
Dhnd = 1
Do while Dhnd <> 0
Dhnd = FindWindow(\"IEFrame\", vbNullString)
FUNCIONCERRAR Dhnd
Loop
En donde aparece \"FUNCIONCERRAR\" pones la funcion para cerrar, con ese loop lo que haces es que valla cerrando las ventanas del IE y cuando ya no hay ventasnas se detiene. (Dhnd es el hWnd)
Espero te sirva, hasta la proxima :)