1.
核心代码:
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 End If 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 - 1If UCase(WebBrowser1.Document.All(i).tagname) = "A" ThenIf WebBrowser1.Document.All(i).href = "http://news.baidu.com/" ThenWebBrowser1.Document.All(i).ClickEnd IfEnd IfNextEnd SubPrivate Sub Form_Load()WebBrowser1.Navigate "http://www.baidu.com"End Sub
