VB如何模拟鼠标点击网页按钮？

Posted 2023-05-09

程序上有三个按钮，程序开始第一个按钮定位坐标A，第二个按钮定位坐标B，第三个按钮启动TIMER，系统时间每日12：00整模拟点击坐标A，按回车键后点击坐标B，程序运行一次。麻烦高手指点！！

参考技术A 这个进程好像是不能改变的，程序不会第二次运行 参考技术B 点击坐标还是点击网页上的控件，控件是在固定位置？这些问题很重要 参考技术C 点击A以后为什么要回车 ---- 是要关闭消息框？追问

这个其实并不重要。只要有坐标的话，点哪里点什么都是一样的。

追答

我是问，【回车】起什么作用，是手动回车、还是...？
私信，给你源码

本回答被提问者采纳 参考技术D 是点击坐标还是点击网页上的控件，控件是在固定位置？这些问题很重要，有问题Hi。我做过一个Q对对碰的外。挂，也许可以帮上你。追问

是点击网页的控件（按钮），控件不可能在固定位置，分辨率一改位置不就变了吗？所以我才要两个按钮来获取坐标啊。

vb 中WebBrowser1打开网址点击

比例在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久前就想弄明白的一个问题，有答案了，麻烦楼主贴一下代码啊，谢过了