WebBrowser 取来路问题 非伪造来路.

Question

现在程序有2个WebBrowser控件
一个WebBrowser1一个WebBrowser2WebBrowser1里所打开的网页中.连接都是以target=_blank这种方式.就是新建一个窗口..然后我使用这个代码
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    WebBrowser2.RegisterAsBrowser = True
    Set ppDisp = WebBrowser2.Object
End Sub
这样的话,就会把新建的窗口用WebBrowser2显示..但这样的话.
WebBrowser2根本取不到来路.就是WebBrowser1的URL..但如果不使用WebBrowser2.直接新建就会用IE打开.
这样就可以取到来路...请大家帮帮忙.

Answer 1

Private Sub Form_Load()
  WebBrowser1.Navigate "www.163.com"
End SubPrivate Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
  Set ppDisp = WebBrowser2.Object
End Sub

Answer 2

'增加二个WebBrowser 一个按扭.Command1Private Sub Command1_Click()
Dim vTag
Dim i As Integer
For i = 0 To WebBrowser1.Document.All.length - 1 '检测所有标签
    If UCase(WebBrowser1.Document.All(i).tagName) = "a" Or UCase(WebBrowser1.Document.All(i).tagName) = "A" Then       '找到input标签
        Set vTag = WebBrowser1.Document.All(i)
        ints = vTag.href
        bb = InStr(ints, "lady.163.com")
        Debug.Print vTag.href
         If bb > 0 Then      '找到发表按钮。
            'vTag.Select '也可以没有这个
            vTag.Click '点击提交了，一切都OK了
            
        End If
   End If
Next i
End SubPrivate Sub Form_Load()
   WebBrowser1.Navigate "www.163.com"
End SubPrivate Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
 Set ppDisp = WebBrowser2.Object
End Sub

Answer 3

如果:WebBrowser1 里必没有相应的链接应该如何写代码呢？比如：网址A，网址B，在网址A里没有网址B的链接，应该如何点击进去呢？