BeforeNavigate2 是 WebBrowser 的一个事件,当你打开一个网页时,首先发生这个事件。
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)
    If URL = "http://www.sohu.com" Then
        Cancel = True
        ie.Navigate2 "c:\getid.htm"
    End If
End Sub