vb内置浏览器flash网页游戏如何鼠标点击指定坐标

vb内置浏览器flash网页游戏怎么鼠标点击指定坐标
vb内置浏览器flash网页游戏怎么鼠标点击指定坐标！
打开网页后,在等待完全打开后,点击指定的坐标,不是显示器桌面的坐标,是浏览器内的坐标.
"提交表单"不过这个指令不是.并非真实的点击,【比如网页游戏洛克王国声音喇叭点击！设坐标为x=5,y8】
未点击时，喇叭没有 ""

点击时，喇叭有 ""

就是类似鼠标的点击的操作执行于内置浏览器（webbrowser）内，不影响前台鼠标


非常谢谢非常谢谢
[解决办法]

引用:

是要用webbrowser控件的！该怎么写

引用:
先获得浏览器窗口，类名为Internet Explorer_Server，再用PostMessage向它投递WM_LBUTTONDOWN,和WM_LBUTTONUP 消息

这是我用来查找webbrowser控件中的浏览器窗口的函数：

Function FindIEHwnd(hw As Long) As Long  '查找一个窗口的子窗口，先广度后深度,直到找到IE窗口
 Dim zHwnd As Long
 Dim sSave As String * 51, cnt As String
 Dim classN As String, wColl As New Collection
 Dim s As Integer
 Do
   zHwnd = FindWindowEx(hw, zHwnd, vbNullString, vbNullString)
   If zHwnd <> 0 Then  '如果找到子窗口
     wColl.Add zHwnd
     cnt = GetClassName(zHwnd, sSave, 50)
     classN = StrConv(LeftB$(StrConv(sSave, vbFromUnicode), cnt), vbUnicode)
     If InStr(classN, "Internet Explorer_Server") Then '如果找到IE窗口
         FindIEHwnd = zHwnd
         Exit Function
     End If
   Else
     Exit Do
   End If
  Loop
  For s = 1 To wColl.Count
    zHwnd = FindIEHwnd(wColl(s) + 0&)
    If zHwnd Then
       FindIEHwnd = zHwnd
       Exit For
    End If
  Next
End Function

调用的话，在有webbrowser控件中的窗口上FindIEHwnd（me.hwnd)即可获得浏览器的窗口句柄。得到该句柄之后，就可以发送鼠标消息模拟点击。

查看更多 下一篇