定位點擊WebBrowser、點擊Flash、偷菜外掛 ?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

'http://zhidao.baidu.com/question/76686286.html 'webbrowser 不能收到SendMessage的消息 '主要是因為webbrowser 的句柄找不到。經(jīng)過努力搜索，終于解決了。做個記錄. Private Declare Function PostMessageLib "user32"Alias "PostMessageA"(ByVal hwnd As Long,ByVal wMsg AsLong, ByValwParam As Long, ByVal lParam As Long)As Long Private Declare Function SendMessageLib "user32"Alias "SendMessageA"(ByVal hwnd As Long,ByVal wMsg AsLong, ByValwParam As Long, lParam AsAny) As Long Private Declare Function FindWindowLib "user32"Alias "FindWindowA"(ByVal lpClassName As String,ByVal lpWindowName As String)As Long Private Declare Function FindWindowExLib "user32"Alias "FindWindowExA"(ByVal hWnd1 As Long,ByVal hWnd2 As Long,ByVal lpsz1 As String,ByVal lpsz2 As String)As Long Const WM_LBUTTONDOWN = &H201 Const WM_LBUTTONUP = &H202 Const MK_LBUTTON = &H1 '獲得webbrowser的句柄 Public Function GetBrowserWindow(窗體句柄 AsLong) AsLong ????DimhwndPeer As Long ????hwndPeer = FindWindowEx(窗體句柄, 0,"Shell Embedding", vbNullString)'網(wǎng)上很多幫助就找到這里就結束了，那是不能收到消息的。 ????hwndPeer = FindWindowEx(hwndPeer, 0,"Shell DocObject View", vbNullString) ????hwndPeer = FindWindowEx(hwndPeer, 0,"Internet Explorer_Server", vbNullString) '如果需要點擊Flash，則需要加上hwndPeer = FindWindowEx(hwndPeer, 0, "MacromediaFlashPlayerActiveX", vbNullString) ????GetBrowserWindow = hwndPeer End Function '按鈕單擊? Private Sub 命令_Click() ????Dimt As String, x AsLong, y AsLong, w AsWebBrowser, wbhwnd AsLong, k AsLong ????x = 537'從WebBrowser控件左上角起0,0,坐標不是平時left、right、top、height那個坐標，可以直接復制控件到畫圖里面，看分辨錄。 ????y = 44 * &H10000'弄成高位 ????wbhwnd = GetBrowserWindow(Form1.hwnd) ????k = PostMessage(wbhwnd, WM_LBUTTONDOWN, MK_LBUTTON,ByVal ((y) + x)) ????k = PostMessage(wbhwnd, WM_LBUTTONUP, 0, (x + (y))) End Sub '測試通過。

分類: VB6

總結

以上是生活随笔為你收集整理的定位点击WebBrowser、点击Flash、偷菜外挂的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。