Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Sub AntiIdle()
Dim x As Long, y As Long
Do
' Obtenir la position actuelle de la souris
x = 100
y = 100
' Déplacer la souris
SetCursorPos x, y
Sleep 5000 ' Mettre en pause pendant 5 secondes
SetCursorPos x + 1, y + 1
Sleep 5000 ' Mettre en pause pendant 5 secondes
Loop
End Sub