85问答库 > vb代码，鼠标移动到指定位置单击然后输入78978然后鼠标移动到指定位置点击（10分钟一次）

vb代码，鼠标移动到指定位置单击然后输入78978然后鼠标移动到指定位置点击（10分钟一次）

2024-11-20 22:34:30

推荐回答（1个）

回答1：

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)
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Sub ProcessOnce()
 SetCursorPos x1,y1
 mouse_event 6, 0, 0, 0, 0
 SendKeys "78978"
 SetCursorPos x2,y2
 mouse_event 6, 0, 0, 0, 0
End Sub

拼凑+压缩体，望采纳。

其中x1,y1是第一个点的坐标，x2,y2是第二个点的坐标。