我也在找个问题,刚好搜到你的。。。下面的代码可以搞定, Dim vDoc As HtmlDocument = WebBrowser1.Document
Dim theElementCollection As HtmlElementCollection
theElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
Dim btnElement As HtmlElement
For Each curElement As HtmlElement In theElementCollection Dim controlId As String = curElement.InnerText 'GetAttribute("Value").ToString
If controlId <> "" Then
If controlId.IndexOf("下一页") >= 0 Then
curElement.InvokeMember("Click")
End If
End If
Next
linkLabel1.LinkVisited = true;System.Diagnostics.Process.Start(" http://www.163.com");