Problema Cerrando Ventanas

[z_ane_666]

Hice una aplicacion que cierra las ventanas que tienen de titulo "Google - Windows Internet Explorer" ,probé el programa en pcs con versiones anteriores de internet explorer,y si ,funciona correctamente( lo cierra sin chillar)  pero al probarlo en pcs con la version 8 ,el explorador arroja la sentencia: ¿desea cerrar todas las pestañas o la pestaña actual? y una suerte de opciones "cerrar todas las pestañas" y "cerrar la pestaña actual", lo que yo quisiera es que cerrase la ventana padre, no necesariamente las pestañas, sin necesidad de que el usuario interviniera haciendo click en "cerrar todas las pestañas"o "cerrar la pestaña actual"

Este es el codigo que pobré

Código [Seleccionar] Expandir

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const VM_CLOSE As Long = &H10

Private Sub Command1_Click()
Dim hwnd As Long
Dim jaja As Long
hwnd = FindWindow(vbNullString, "Google - Windows Internet Explorer")
If hwnd > 0 Then
PostMessage hwnd, VM_CLOSE, ByVal 0&, ByVal 0&
End If
End Sub



intente hacerlo obteniendo el PID de las ventanas, Pero ¡sorpresa! todas las intancias padre abiertas y por abrir de IE8 comparten el mismo PID y si mato uno, mato todos

Espero que me ayuden(creo que el problema esta en el parametro wMSG que se le pasa a postmessaje)

saludos

[Psyke1]

http://goo.gl/dKozT

DoEvents!

[z_ane_666]

ya habia probado esos ejemplos, pero sigue el problema de la aparicion de las pestañas

saludos