Deplacer le curseur de la souris (utile pour les ca$hbar)

0/5 (3 avis)

Snippet vu 6 998 fois - Téléchargée 48 fois

Contenu du snippet


Source / Exemple :


' 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)

' 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
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

A voir également

Ajouter un commentaire Commentaires
modmenbaramej
Messages postés
5
Date d'inscription
mardi 20 novembre 2007
Statut
Membre
Dernière intervention
3 mai 2008

8 avril 2008 à 00:16
Je vous remercie, mais je veux la code pour identifier le position(X,Y) du nez quand la face se Déplacer
cs_Majen
Messages postés
18
Date d'inscription
jeudi 19 juillet 2001
Statut
Membre
Dernière intervention
26 janvier 2002

30 déc. 2001 à 06:29
j'avais pas vu...
cs_max12
Messages postés
1491
Date d'inscription
dimanche 19 novembre 2000
Statut
Modérateur
Dernière intervention
7 juillet 2014

30 déc. 2001 à 02:42
1 Api inutile et il est déjà 50 annnnnnnnnttttttteeeeeeeeeeee fois sur le site alors sa sert a rien de le mettre une 51ème fois

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.