Dim WithEvents IE As InternetExplorer
Attribute IE.VB_VarHelpID = -1
Dim strEvents As String
Dim bIEIsRunning As Boolean
Private Sub btnExit_Click()
If bIEIsRunning = True Then
IE.Quit
End If
Unload Me
End Sub
Private Sub btnStartIE_Click()
If bIEIsRunning = False Then
Set IE = CreateObject("InternetExplorer.Application.1")
IE.Visible = True
IE.GoHome
btnStartIE.Enabled = False
bIEIsRunning = True
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set IE = Nothing
End Sub
Private Sub IE_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
strEvents = strEvents + "BeforeNavigate2: " + URL + vbNewLine
txtEvents.Text = strEvents
End Sub
Private Sub IE_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean)
strEvents = strEvents + "CommandStateChange: Command = " + CStr(Command) _
+ "; Enable = " + CStr(Enable) + vbNewLine
txtEvents.Text = strEvents
End Sub
Private Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
strEvents = strEvents + "DocumentComplete: " + URL + vbNewLine
txtEvents.Text = strEvents
End Sub
Private Sub IE_DownloadBegin()
strEvents = strEvents + "DownloadBegin" + vbNewLine
txtEvents.Text = strEvents
End Sub
Private Sub IE_DownloadComplete()
strEvents = strEvents + "DownloadComplete" + vbNewLine
txtEvents.Text = strEvents
End Sub
Private Sub IE_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
strEvents = strEvents + "NavigateComplete2: " + URL + vbNewLine
txtEvents.Text = strEvents
End Sub
Private Sub IE_NewWindow2(ppDisp As Object, Cancel As Boolean)
strEvents = strEvents + "NewWindow2" + vbNewLine
txtEvents.Text = strEvents
End Sub
Private Sub IE_OnQuit()
Unload Me
End Sub
Private Sub IE_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
strEvents = strEvents + "ProgressChange: Progress = " + CStr(Progress) _
+ "; ProgressMax = " + CStr(ProgressMax) + vbNewLine
txtEvents.Text = strEvents
End Sub
Private Sub IE_PropertyChange(ByVal szProperty As String)
strEvents = strEvents + "PropertyChange: Property = " _
+ szProperty + vbNewLine
txtEvents.Text = strEvents
End Sub
Private Sub IE_StatusTextChange(ByVal Text As String)
strEvents = strEvents + "StatusTextChange: " + Text + vbNewLine
txtEvents.Text = strEvents
End Sub
Private Sub IE_TitleChange(ByVal Text As String)
strEvents = strEvents + "TitleChange: " + Text + vbNewLine
txtEvents.Text = strEvents
End Sub