Question

vb后台模拟鼠标点击网页

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

Answer 1

最近也在搜寻用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只发送一部分信息，网站只接受并返回一部分信息

Answer 2

Private Sub Command1_Click()
WebBrowser1.Document.getelementbyid("skip_ad_button").Click
End Sub

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

追问

这招不能，怎办？

Answer 3

如果方便的话，请把相关网址及后台模拟点击的按钮通过消息告诉我，我再帮你写出完整代码。

Answer 4

不用写了。你用360浏览器 点击 工具-自动刷新，就可以设置了，现成的很好用。

Answer 5

用个webbrowser