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_MOVE = &H1 'Mouse move
Private mTimeCount As Integer
Private Sub Form_Load()
mTimeCount = 0
Timer1.Interval = 1000 '設置1秒時鐘
End Sub
Private Sub Timer1_Timer()
Dim v_x As Long
Dim v_y As Long
If mTimeCount = 0 Then
v_x = 0 '設置x坐標
v_y = 50 '設置y坐標
mTimeCount = mTimeCount + 1
Else
v_x = 0 '設置x坐標
v_y = -50 '設置y坐標
mTimeCount = 0
End If
Call mouse_event(MOUSEEVENTF_MOVE, v_x, v_y, 0&, 0&)
End Sub
感覺樓主要這個功能有點無聊,不過挺好玩滴,嘿嘿。