Sección de códigos , trucos y ejemplos para visual basic

319 - Acceder a los eventos de una instancia del Internet Explorer

Ejemplo que utiliza la referencia a Microsoft Internet Controls , para poder abrir una instancia del navegador y poder capturar los eventos

El ejemplo utiliza una variable ( declarada con WithEvents ) de tipo SHDocVw.InternetExplorer , para poder capturar los eventos que ocurran en la ventana del navegador.

Hay varios eventos y propiedades que se pueden acceder, en este ejemplo se capturan el evento ProgressChange ( Progreso de carga de la página ), evento NewWindow2 ( cuando se abre una nueva instancia del navegador .. enlace popup ) , Evento OnQuit ( cuando se cierra el Internet explorer , es decir la instancia que abrimos ), StatusTextChange ( que muestra el estado ) , y el evento TitleChange que recupera el caption de la ventana del navegador

Controles y referencias

1 - Incluir la referencia a Microsoft internet Controles
2 - Agregar un control Progressbar
3 - Dos controles Label. el label1 es para ver el evento StatusChange y el Label2 para el evento TitleChange

vista del formulario con los controles para el ejemplo

Nota: la función Api SetwindowPos del código, es solo para poder poner el formulario AlwaysOnTop y poder ver los cambios y que quede siempre al frente

Código fuente en el form

Option Explicit 'Constantes para SetWindowPos Const SWP_NOMOVE = 2 Const SWP_NOSIZE = 1 Const HWND_TOPMOST = -1 Const HWND_NOTOPMOST = -2 ' ' Función SetWindowPos Private Declare Function SetWindowPos Lib "user32" ( _ ByVal hWnd As Long, _ ByVal hWndInsertAfter As Long, _ ByVal X As Long, _ ByVal Y As Long, _ ByVal cX As Long, _ ByVal cY As Long, _ ByVal wFlags As Long) As Long ' Variable para acceder al internet explorer y _ declarada con WithEvents para poder acceder a los eventos que ocurran _ en la instancia del navegador Public WithEvents Obj_Explorer As SHDocVw.InternetExplorer Private Sub Form_Load() Set Obj_Explorer = New SHDocVw.InternetExplorer Obj_Explorer.Visible = True Obj_Explorer.Navigate "www.google.com" ' Pone nuestro Formulario simepre visible para poder ver _ las opciones SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE ' Posiciona el formulario en la parte inferior de la pantalla Me.Width = Screen.Width * Screen.TwipsPerPixelX Me.Height = 2500 Me.Left = 0 Me.Top = Screen.Height - 2500 End Sub ' Evento que se ejecuta al abrir una nueva ventana ( Nueva instancia del Ie ) '***************************************************************** Private Sub Obj_Explorer_NewWindow2(ppDisp As Object, Cancel As Boolean) MsgBox " Se abrió otra ventana del internet explorer ", _ vbInformation, " Evento NewWindow2 " End Sub ' Evento que se dispara al cerrar la ventana '***************************************************************** Private Sub Obj_Explorer_OnQuit() MsgBox " Se cerró la ventana del internet explorer ", _ vbInformation, "Evento OnQuit" End Sub ' Evento para el progreso de carga de las páginas '***************************************************************** Private Sub Obj_Explorer_ProgressChange(ByVal Progress As Long, _ ByVal ProgressMax As Long) On Error Resume Next ProgressBar1.Max = ProgressMax ' Asigna el progreso ProgressBar1.Value = Progress If ProgressMax <= 0 Then ' si terminó lo oculta ProgressBar1.Visible = False Else ProgressBar1.Visible = True End If End Sub ' Evento que va mostrando el estado. Es el mismo texto que muestra el _ status bar del internet explorer '***************************************************************** Private Sub Obj_Explorer_StatusTextChange(ByVal Text As String) Label1.Caption = "1 - ) Evento StatusTextChange : " & Text End Sub ' Evento que se dispara al cambiar el texto del título de la ventana '***************************************************************** Private Sub Obj_Explorer_TitleChange(ByVal Text As String) Label2.Caption = "2 - ) Titulo de la página : " & Text End Sub Private Sub Form_Unload(Cancel As Integer) If Not Obj_Explorer Is Nothing Then Set Obj_Explorer = Nothing End If End Sub

Recursos vb6 - Enlaces relacionados

Buscar en Recursos vb