用vb编写程序，键盘控制鼠标点击

2025-02-24 21:48:20

推荐回答（1个）

回答1：

用键盘事件接收键盘输入，然后用API SetCursorPos 来移动鼠标到指定坐标 mouse_event 来模拟鼠标单击声明部分Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

核心代码SetCursorPos j, i（j和i 自己写你想要的坐标）
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '鼠标单击一次