SE FAIRE PAYER SANS ÊTRE DEVANT SON ORDI PAR DES CASHBAR

'--------------- Form ---------------

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal uAction As Long) As Long
Private Declare Function SetKeyboardState Lib "user32" (lppbKeyState As Byte) As Long

Dim R, X, Y

Private Sub Command1_Click()
Timer1.Interval = 10
Timer1.Enabled = True
Command1.Visible = False
Command2.Visible = True

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Command2.Visible = False
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyState(122) And 32768 <> 0 Then Timer1.Enabled = False: Exit Sub
Randomize
    X = Int(Rnd * 1000) + 1
    Y = Int(Rnd * 1000) + 1
    R = SetCursorPos(X, Y)
Sleep Text1 ' Pause entre chaque déplacement (en ms)
End Sub


'--------------- Module ---------------
Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)