Question

VB 如何自动点击WebBrowser 里的超级连接

自动填表单
自动点击按钮我知道怎么弄。
但是如何让他点击a超级链接？
麻烦给出代码，谢谢。

Answer 1

以下为自动点击百度首页上的"新闻"链接:
(webrowser1预先加载:
WebBrowser1.Navigate "http://www.baidu.com")

For i = 0 To WebBrowser1.Document.All.length - 1
If UCase(WebBrowser1.Document.All(i).tagname) = "A" Then
If WebBrowser1.Document.All(i).href = "http://news.baidu.com/" Then
WebBrowser1.Document.All(i).Click
End If
End If
Next i