private Declare Sub mouse _ event Lib " user 32 "(ByVal dw flags為Long,ByVal dx為Long,ByVal dy為Long,ByVal cButtons為Long,ByVal dwExtraInfo為Long)
private Const mouse event f _ MOVE = & amp;H1 '鼠標移動
Private mTimeCount為整數
私有子窗體_Load()
mTimeCount = 0
定時器1。間隔= 1000 '設置1秒鐘。
末端接頭
私有子定時器1_Timer()
Dim v_x As Long
Dim v_y壹樣長
如果mTimeCount = 0,則
V_x = 0 '設置x坐標。
V_y = 50 '設置Y坐標。
mTimeCount = mTimeCount + 1
其他
V_x = 0 '設置x坐標。
V_y = -50 '設置Y坐標。
mTimeCount = 0
如果…就會結束
調用mouse_event(MOUSEEVENTF_MOVE,v_x,v_y,0 & amp,0 & amp)
末端接頭
感覺樓主希望這個功能有點無聊,但是挺好玩的,呵呵。