clases

[elmaro]

bueno hola,. pasaba a preguntar una cosilla simple nomas

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 [Seleccionar] Expandir


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

[elmaro]

kien sabe?
nadie sabe sobre eso?

[elmaro]

nadie  sabe como se puede solucionar?
por favor