找一个VB或者bat批处理程序能够实现控制鼠标的

来源：百度知道 编辑：UC知道 时间：2024/05/27 20:33:27
找一个VB或者bat批处理程序能够实现控制鼠标的

隔4小时重复运行把鼠标放在坐标x1 y1的位置单击两次 重复

急求 QQ：271926729
试过按键精灵。但是服务器上面使用按键精灵在不连接到服务器的情况下是没法用的哦。。

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Const WM_MBUTTONDOWN = &H207
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 Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4

Private Sub Timer1_Timer() '来一个计时四小时来一次

Static i As Integer
i = i + 1
If i = 14400 Then
SetCursorPos 314, 185 '这是里的两个参数是你想要点的坐标改下就可以了啊0`
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '模拟鼠标的左键单击!
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '模拟鼠标的左键单击!这两一下也就是双击
i = 0

End If

End Sub
,我调试过了可以运行的啊

我可以给你做

试试按键精灵吧，不用人教就会了！

鼠标专用类模块

Option Explicit
DefLng A-Z

Private Type POINTAPI