请参考下列事件:
BeforeNavigate2 事件,当链接开始时的事件
NewWindow2事件,是当链接打开新窗口的事件
NavigateComplete2 当导航结束的事件
Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
End Sub
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
End Sub
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
End Sub