定位点击WebBrowser、点击Flash、偷菜外挂

定位点击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 的句柄找不到。经过努力搜索，终于解决了。做个记录. Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" ( ByVal hwnd As Long , ByVal wMsg As Long , ByVal wParam As Long , ByVal lParam As Long ) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( ByVal hwnd As Long , ByVal wMsg As Long , ByVal wParam As Long , lParam As Any) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( ByVal lpClassName As String , ByVal lpWindowName As String ) As Long Private Declare Function FindWindowEx Lib "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(窗体句柄 As Long ) As Long      Dim hwndPeer As Long      hwndPeer = FindWindowEx(窗体句柄, 0, "Shell Embedding" , vbNullString) '网上很多帮助就找到这里就结束了，那是不能收到消息的。      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()      Dim t As String , x As Long , y As Long , w As WebBrowser, wbhwnd As Long , k As Long      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