Autor
como ago para encontrar la clase "Internet Explorer_Server" (que es la que permite ver el contenido de las paginas web en internet explorer
use este codigo pero al parecer no funciona
Código:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_CLOSE = &H10
Const ClaseDeIE = "Internet Explorer_Server"
Const ClaseDeFF = "MozillaWindowClass"
Private Sub Form_Load()
Dim WinWnd As Long
'Como solo queremos la del IExolorer...
'se la ponemos directamente
WinWnd = FindWindow(ClaseDeIE, vbNullString) 'vbnullstring el segundo valor para que valga para cualquier ventana del IE
If WinWnd = 0 Then Exit Sub ' si no esta salimos sin hacer nada
' el show de window lo quite , me imagino que no quieres mostrarla si la encuentra
' el nombre de la clase tambien lo quito , ya lo tenemos
'Post a message to the window to close itself
PostMessage WinWnd, WM_CLOSE, 0&, 0& ' cerramos el IE y hasta otra
End Sub
alguien tiene la solucion??'
pd: el nombre de la clase lo sake con el WinID
gracias de antemano
En línea
