请问 VB 如何实现点击以下源码中的每个链接

Question

<base target="_blank"><a href=http://www.baidu.com/>http://www.baidu.com</a><br><a href=http://www.163.com/>http://www.163.com</a><br><a href=http://www.google.com>http://www.google.com</a><br>
以上是网页源码
以下是我目前用的点击代码，可是只能点击第一个链接，反复三次！而且是连续点击，如何实现在WebBrowser2中完全打开页面以后才会点击第二个链接呢？
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 地址
             WebBrowser1.Document.All.Tags("a")(0).Click
        Next
    End If
End SubPrivate Sub Form_Load()
WebBrowser1.Navigate "http://127.0.0.1/test.htm"
End SubPrivate Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) '在webbrowser2中打开链接
WebBrowser2.RegisterAsBrowser = True
Set ppDisp = WebBrowser2.Object
End Sub

Answer 1

 WebBrowser1.Document.All.Tags("a")(i).Click  
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) http://feiyun0112.cnblogs.com/

Answer 2

楼上的谢谢你第一个回答WebBrowser1.Document.All.Tags("a")(i).Click 昨天下午抓包测试以后发现  这样点击的是最后一个链接 点击3次

Answer 3

Set vTag = WebBrowser1.Document.getElementsByTagName("a")
        vCount = vTag.length
        For I = 0 To vCount - 1
            '获得网页中指定链接名称的 URL 地址
             vTag(i).click  '照楼上说的直接改这行就行了.
        Next