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

Question

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

Answer 1

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

Answer 2

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

Answer 3

哪位朋友知道啊，就像类似这样的源码也好！！！！只要可以点击webbrowser控件里的flash按钮，不要提交表单

Answer 4

这是我用来查找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)即可获得浏览器的窗口句柄。得到该句柄之后，就可以发送鼠标消息模拟点击。

Answer 5

请教一个问题，怎么在浏览器中改变flash的帧的速度？例如现在的页游加速浏览器的加速功能