webbrowser中如何捕获鼠标单击事件的URL
我要捕获的是单击事件的URL,判断自动单击URL是否不一致,如果一致就不采取任何措施,如果不一致才会触发,我使用的是BeforeNavigate2,但是我不知道如何获取自动单击的URL
Private Sub WebBrowser2_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
Dim a As Variant
'a = WebBrowser2.LocationURL
If 2InStr(1, UCase(URL), "www.sina.com.cn") Then
'If a"http://www.sina.com.cn" Then '只有在不等于的情况下执行下面操作
WebBrowser3.Navigate URL
Cancel = True
End If
End Sub
Private Sub WebBrowser3_NewWindow2(ppDisp As Object, Cancel As Boolean)
Set ppDisp = Form1.WebBrowser2.Object
End Sub
|
