Question

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

Answer 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是第二个点的坐标。

追问

时钟10分钟如何表示

还有模拟按下enter建的代码是什么？

追答

时钟用timer控件设定terminal值为60000也就是一分钟然后存储在全局变量或者局部静态变量里面，每10次响应执行一次。（很可惜不能直接调整10分钟，值的上限是65535）

 

SendKeys "{ENTER}"

这个不是百度vb sendkeys就都有了？