模拟鼠标移动和点击

模拟鼠标点击很常用，

模拟鼠标移动不常用，但是当你用到时就明白了。

该加的控件都加上，命名随意。

代码很少

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)

Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim p As POINTAPI
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_MOVE = &H1
Dim b As Boolean

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Command3_Click()
If Val(Text1) > 60000 Then Text1 = 60000
Timer1.Interval = Val(Text1)
Timer1.Enabled = False
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Combo1.AddItem "MouseMove"
Combo1.AddItem "MouseClick"
Combo1.ListIndex = 0
Timer1.Interval = Val(Text1)
End Sub

Private Sub Timer1_Timer()
If Combo1.ListIndex = 0 Then

GetCursorPos p

If b = False Then
'Call SetCursorPos(p.x + 5, p.y)
mouse_event MOUSEEVENTF_MOVE, 5, 0, 0, 0
b = True
Else
'Call SetCursorPos(p.x - 5, p.y)
mouse_event MOUSEEVENTF_MOVE, -5, 0, 0, 0
b = False
End If
Else
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End If
End Sub

SetCursorPos和mouse_event MOUSEEVENTF_MOVE的区别是，

其中一个可以禁止屏保。

如果要加全局热键，自行添加。

如果要托盘化，自行添加。