vb 中WebBrowser1打开网址点击

Posted 2023-03-19

比例在WebBrowser1打开百度后 点击 贴 吧 有点像鼠标模拟点击

可能只接抓文字点击更好。
<DIV align=center id="xxx">巡查</DIV>

没有ID 只有巡查 文字怎么只接打开巡查链接

参考技术A Set dc = WebBrowser1.Document
Set tt = dc.All("xxx")
tt.Click
xxx是要点击的网页控件id

如不是要点击的对象id，应像下面：
<DIV align=center id="xxx">巡查</DIV>

还有一种方法 获取网页中的链接集合，然后根据链接指向再进行点击
1.点击超连接
' Webbrowser控件一个
Private Sub Form_Load()
WebBrowser1.Silent = True
WebBrowser1.Navigate "http://hi.baidu.com/992558183"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

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://www.baidu.com/" Then '这是条件，如果链接指向百度就被点击，如链接不固定用查找链接中的域名HOST
WebBrowser1.Document.All(i).Click
End If
End If
Next i
End Sub追问

巡查

没有ID 只有巡查 文字怎么只接打开巡查链接

参考技术B 关注，N久前就想弄明白的一个问题，有答案了，麻烦楼主贴一下代码啊，谢过了