VB WebBrowser1中如何点击网页文字链接?

Question

VB WebBrowser1中如何点击网页文字链接?网页中的源码:
<li>直接访问<a href="http://www.xxxx.com" style="color:#0066CC ">返回首页</a>。</li>请帮忙哦.谢谢~

Answer 1

 '在WebBrowser1_DocumentComplete事件里调用下面的函数
Private Sub GetLinks()
  Dim Doc     As IHTMLDocument2
  Dim All     As IHTMLElementCollection
  Dim L     As Integer
  Dim i     As Integer
  Dim Varl     As Variant
    
  Set Doc = WebBrowser1.Document
  Set All = Doc.links
  L = All.length
  For i = 0 To L - 1
        Set Varl = All.Item(i, varempty)
        If Varl.href = "http://www.xxxx.com" Then WebBrowser1.Navigate "http://www.xxxx.com"
        
        Set Varl = Nothing
  Next i
  Set All = Nothing
  Set Doc = Nothing
  End Sub

Answer 2

Private Sub Command1_Click()
    Dim vTag As Variant, I As Integer, vCount As Integer
    If WebBrowser1.ReadyState = READYSTATE_COMPLETE Then
        Set vTag = WebBrowser1.Document.getElementsByTagName("a")
        vCount = vTag.length
        For I = 0 To vCount - 1
            '获得网页中指定链接名称的 URL 地址
            If vTag(I).innerText = "返回首页" Then WebBrowser1.Navigate vTag(I).href
        Next
    End If
End Sub

Answer 3

WebBrowser1.Document.All.Tags("a")(0).Click
a的索引自己数好了

Answer 4

5楼 牛人啊 厉害
If vTag(I).innerText = "返回首页" Then WebBrowser1.Document.All.Tags("a")(I).Click
4楼修改一下,成这样,最好!