vb 点超链接 坐标

引用：http://blog.csdn.net/lbuskeep/article/details/6206615

核心代码:

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 = FindWindowEx(tmpHwnd, 0&, "Internet Explorer_Server", vbNullString) 

If tmpHwnd <> 0 Then Exit Do 

End If 

'获得下一个窗口的句柄 

hwndPeer = GetWindow(hwndPeer, GW_HWNDNEXT) 

Loop 

If tmpHwnd = 0 Then Exit Sub 

'执行点击 

PostMessage tmpHwnd, WM_LBUTTONDOWN, 0, ByVal (tm) 

Sleep 200 

PostMessage tmpHwnd, WM_LBUTTONUP, 0, ByVal (tm) 

DoEvents 

End Sub

2.

Private Sub Command1_Click()

For i = 0 To WebBrowser1.Document.All.length - 1

If UCase(WebBrowser1.Document.All(i).tagname) = "A" Then

WebBrowser1.Document.All(i).Click

End If

Next

Private Sub Form_Load()