求助：Vb 键盘模拟鼠标操作。在线等待

来源：百度知道 编辑：UC知道 时间：2024/05/13 16:20:00
就是在全屏游戏中，实现:我按下比如Ctrl键，鼠标自动移动到一个特定坐标点击并释放一下右键，再移动到另一特定坐标，点击并释放一下左键，然后鼠标回到原始位置。请高手帮忙！我Vb基础很差，是学服装专业的，帮我做好要多少分，给多少，1500分。不做说详细些也行。我QQ61893968 隐身在线等待！加好友注明 “百度Vb”。
1楼说的对，明白我的意思了，我还有个显血工具，还有个地图，按键精灵又那么大，三四兆，还有脚本，太多了，我想集成为一个小的，按键精灵我只用那一点功能，所以还肯赐教VB怎么编的。我这有一个别人编的有点复杂的，我看不懂。改动一下就能实现我的要求。哪位帮帮我。

'=========窗体代码========

Private Sub Form_Load()

Dim ret As Long

Me.Move 0, 0
preWinProc = GetWindowLong(Me.hwnd, GWL_WNDPROC)
ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf Wndproc)
idHotKey = 1
Modifiers = MOD_CONTROL
uVirtKey = vbKeyQ '热键Ctrl+Q
ret = RegisterHotKey(Me.hwnd, idHotKey, Modifiers, uVirtKey)

End Sub

Private Sub Command1_Click()
MsgBox "热键触发!"
End Sub

'=======模块代码===========
Option Explicit

Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Declare Function CallWindowProc Lib "user32" Alias "CallWindowPro