WebBrowser 如何发送消息，模拟点击网页的超链接

Question

WebBrowser 如何发送消息，模拟点击网页的超链接

Answer 1

'模拟点超连接
Private Sub CommandAuto_Click()
Dim Doc As IHTMLDocument2
Set Doc = WebBrowser1.DocumentDim a As IHTMLElementCollection
Set a = Doc.All.tags("a")'获得第 14 个表的第二个项目（基于 0）
Dim Quote As IHTMLElement
Set Quote = a.Item(16, 16)'显示开始标记和结束标记之间的文本
'MsgBox Quote.innerTextQuote.ClickEnd Sub

Answer 2

可以不用这么麻烦
直接用WebBrowser1.Navigate跳到你要点的那个连接的地址效果也是一样的