vb后台模拟鼠标点击网页

Posted 2023-05-12

我想用vb写一个刷流量的程序，有些代码不知道怎么写 。具体功能是每隔40秒刷网页和模拟点击网页里的按钮。可我不会写后台模拟点击的代码，程序总是在前台移动鼠标点击。后台模拟点击必须用postmessage,不能用mouse event。还有网页坐标是怎么样实现查找。就是这样的。请大家帮忙。

最近也在搜寻用postmessage模拟鼠标点击网页，只能激活浏览器，而不能点击某按钮。因为找不到该“按钮”的hwnd！！
如果仅仅是网页，而不是Flash，就好办多了。
从菜单“工程、部件”加入Microsoft internet控件，画一个webbrowser1 控件
导航到你的网站，在webbrowser1_DocumentComplete事件中，检测你要的按钮（先分析源代码找出你要的按钮或链接）
如：
On Error Resume Next
Dim docm As HTMLDocument, obj1 As Object
If Not (pDisp Is webbrowser1.Object) Then Exit Sub
Set docm = webbrowser1.Document
For Each obj1 In docm.getElementsByTagName("input")
……
next
直接docm.getElementByid("xxxxxxx")
找到后，把它赋值给一个全局变量（如dim htmlIn as HTMLInputElement定义一个按钮输入框），再用Timer控件点击它： htmlIn.click
……

建议40秒导航一次该网站：webbrowser1.Navigate strURL
在前面的事件中点击。
因为webbrowser1.fresh只发送一部分信息，网站只接受并返回一部分信息 参考技术A Private Sub Command1_Click()
WebBrowser1.Document.getelementbyid("skip_ad_button").Click
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "你网站的地址"
End Sub追问

这招不能，怎办？

参考技术B 如果方便的话，请把相关网址及后台模拟点击的按钮通过消息告诉我，我再帮你写出完整代码。 参考技术C 不用写了。你用360浏览器 点击 工具-自动刷新，就可以设置了，现成的很好用。 参考技术D 用个webbrowser

如何通过Autoit来模拟点击网页某个位置

模拟点击一个（X,Y）的位置，因为我想点击的部分是Flash中的一个按钮

参考技术A 第一种是直接用Mouseclick,用信息抓取工具，确定按钮的坐标。但是它有很多弊端，运行时必须保证不要人为接触或碰到鼠标；而且按钮的位置是固定不变的。
第二种是用send（）命令，发送点击操作，但是必须要知道该按钮的快捷键。 参考技术B 对于Flash按钮，通常的办法还是要采取发送鼠标点击命令，如：

MouseClick("left",356,162)本回答被提问者和网友采纳 参考技术C 对于Flash按钮，通常的办法还是要采取发送鼠标点击命令，如：

MouseClick("left",356,162)