怎么向一个游戏发送鼠标事件

天山怪侠

我用
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
和
FormHwnd = WindowFromPoint(MousePoint.X, MousePoint.Y)
'SetCapture FormHwnd
lr = PostMessage(Me.hWnd, WM_LBUTTONDOWN Or WM_LBUTTONUP, MousePoint.X, MousePoint.Y)
lr = SendMessage(FormHwnd, WM_LBUTTONDOWN, 0, 0)   ' Or
lr = SendMessage(FormHwnd, WM_LBUTTONUP, 0, 0)

都不能向“刀剑OL”游戏发送鼠标单击事件，怎么弄好呢？

刀剑OL是用VC做的，，我做的鼠标连击器是用VB做的

togetheru

Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

Public Declare Function SetCursorPos Lib "user32" Alias "SetCursorPos" (ByVal x As Long, ByVal y As Long) As Long

Public Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type

dim r as rect
hwnd=findwindow(vbnullstring,"游戏名")
getwindowrect hwnd,r
setcursorpos r.left+a,r.top+b '其中a,b为人物相对窗体坐标,随窗体改变而改变
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '该点处单击