请教:使用WebBrowser控件,如何让它不用新窗口打开一个连接?

Question

'如题,在NewWindow2事件中,可以屏蔽弹出新窗口:
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    Cancel = True
End Sub'可是一但屏蔽出新窗口,就不能获取弹出窗口的URL.
'请问如何又要屏蔽出新窗口,又要获取弹出窗口的URL!

Answer 1

笨办法，鼠标指向一个链接时会改变状态栏文字，状态栏文字显示的就是所指链接的URL，记录这个URL，发现要弹出新页面时，取消动作，并把WebBrowser重定位到刚才记录的URL存在的问题：对javascript链接无效Dim StatusText As StringPrivate Sub Form_Load()
    WebBrowser1.Navigate "http://community.csdn.net"
End SubPrivate Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    WebBrowser1.Navigate StatusText
    Cancel = True
End SubPrivate Sub WebBrowser1_StatusTextChange(ByVal Text As String)
    StatusText = Text
End Sub

Answer 2

'先添加一个WebBrowser2控件
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    Dim strURL As String
    Set ppDisp = WebBrowser2.Object
    strURL = WebBrowser2.LocationURL
    Debug.Print strURL
End Sub