Question

vb webbrowser 模仿鼠标点击

就是用几条语句，写出链接的文字，就能模仿鼠标点击该链接，求代码
注：不用mouse_event

Answer 1

循环Document中的对象
Dim S As Boolean
Dim Word as String '文字
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
For Each a In WebBrowser1.Document.getelementsbytagname(Word)
a.Click
Next
End Sub

Answer 2

专家说的基本正确！

Private Sub Form_Load()
WebBrowser1.Navigate ("")
End Sub

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Cancel = True
WebBrowser1.Navigate WebBrowser1.Document.activeelement.href
End Sub