Question

VB WebBrowser如何查找定位 网页中标签

Private Sub Command1_Click()
WebBrowser1.Navigate Text1 '你的网址
WebBrowser1.Silent = True
End Sub

Private Sub Command2_Click()
Dim i As Integer
Do While WebBrowser1.ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
For i = 1 To WebBrowser1.Document.All.Length - 1
If InStr(1, WebBrowser1.Document.All(i).outerhtml, Text2) > 0 Then '查找关键字
If UCase(WebBrowser1.Document.All(i).tagName) = "A" Then '如果点击是超链接 把INPUT换成A

WebBrowser1.Document.All (i)'我知道这一句是直接点击找到的内容，但是我想要的是定位到它就行然后 通过 SendKeys "{TAB}" 后退选中后面的超链接 点击一下

Exit Sub
End If
End If
Next
End Sub

Answer 1

多用getelementbyid
getelementsbyname就行了吧

WebBrowser1.Document.All (i).getelementsbyname("a")(0)就这样吧

追问

不行啊 这句放上去 直接是红色的 ，求完整代码啊