vb如何点击连接

来源：百度知道 编辑：UC知道 时间：2024/09/24 07:15:00
打开页面
像打开超级连接一样自动点击
不需要鼠标点击
我要点的是广告
是script标签
有分一定追加

或者这样说
我的网站里有阿里妈妈的广告
请问如何不需要鼠标直接点击
同志，那个点击百度新闻连接的早就知道了啊
可以搞点我不懂的吗？

呵呵,你可以通过给webbrowser发送sendmessage来达到点击效果

这程序我之前也写过,把核心的点击代码给你吧...其它的api你自己添加
hwnd是窗体的句柄,这个过程会自动查找第一个webbrowser进行点击,其实这种代码是不方便公开的,现在好多的广告代码都会判断鼠标的位置,sendmessage点击的鼠标坐标都是负数,呵呵,小心点

'点击广告（窗体，X，Y）
Public Sub adGoClick(ByVal hWnd As Long, cX As Long, cY As Long)
Dim RetVal As Long
Dim hwndPeer As Long
Dim ClassString As String * 256
Dim tm As Long
'点击位置(坐标)
tm = cX + cY * 65536
'找到IE句柄
Dim tmpHwnd As Long

hwndPeer = GetWindow(hWnd, GW_CHILD)
Do While hwndPeer
RetVal = GetClassName(hwndPeer, ClassString, 256)
If RetVal <> 0 Then
If Left$(ClassString, InStr(ClassString, Chr$(0)) - 1) = "Shell Embedding" Then
tmpHwnd = FindWindowEx(hwndPeer, 0&, "Shell DocObject View", vbNullString)
If tmpHwnd <> 0 Then
tmpHwnd = Fi