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
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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货