请教 VB 怎么实现点击以上源码中的每个链接

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

HTML code

<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中完全打开页面以后才会点击第二个链接呢？

VB code

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 IfEnd 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 = TrueSet ppDisp = WebBrowser2.ObjectEnd Sub

[解决办法]
WebBrowser1.Document.All.Tags("a")(i).Click

  
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) 

http://feiyun0112.cnblogs.com/

查看更多 下一篇