请问 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/