如何获取在WebBrowser打开网页的URL？

Question

假设WebBrowser中已经打开了一个网页，网页里面有一个超链接。
当点击这个超链接时，判断链接的URL，如果ULR=aaa.htm则打开链接，如果ULR<>aaa.htm则不作任何动作，WebBrowser保持原状态。

Answer 1

判断这个属性即可 WebBrowser1.LocationURL

Answer 2

Option ExplicitPrivate Sub Form_Load()
WebBrowser1.Navigate "http://www.baidu.com"
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
 If WebBrowser1.LocationURL = "http://mp3.baidu.com/" Then WebBrowser1.GoBack '后退
End Sub

Answer 3

这样写是在WebBrowser已经跳转结束后才能判断URL，有没有方法在跳转前就做出判断呢？

Answer 4

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)
    If URL = "http://www.baidu.com" Then WebBrowser1.Stop
End Sub我是这样写的，但是WebBrowser1.Stop好像不管用，页面还是会跳转。

Answer 5

OK了，自己解决了。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)
    If URL = "http://www.baidu.com" Then Cancel = True
End Sub