'如果IE是你自己程序中的webbrowser控件就好办. Private Sub Form_Load() WebBrowser1.Navigate2 "网页地址 " End Sub 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) MsgBox URL End Sub '如果是微软的IE浏览器的话,我不会了.
老马那个多此一举。正确的方法是: Private WithEvents IE As InternetExplorer然后就是把你要的那个IE窗体对象赋给这个IE变量 用set ie= ******* 怎么得到,自己找资料PS:上面三行所讲的东西你得自己搞定。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) '在这个事件里 '就如楼上那位所说 msgbox url End Sub
'如果IE是你自己程序中的webbrowser控件就好办.
Private Sub Form_Load()
WebBrowser1.Navigate2 "网页地址 "
End Sub
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)
MsgBox URL
End Sub '如果是微软的IE浏览器的话,我不会了.
[email protected]
Private WithEvents IE As InternetExplorer然后就是把你要的那个IE窗体对象赋给这个IE变量
用set ie= *******
怎么得到,自己找资料PS:上面三行所讲的东西你得自己搞定。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)
'在这个事件里
'就如楼上那位所说
msgbox url
End Sub