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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 677 fois - Téléchargée 47 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

cs_max12
Messages postés
1491
Date d'inscription
dimanche 19 novembre 2000
Statut
Modérateur
Dernière intervention
7 juillet 2014
-
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
cs_Majen
Messages postés
18
Date d'inscription
jeudi 19 juillet 2001
Statut
Membre
Dernière intervention
26 janvier 2002
-
j'avais pas vu...
modmenbaramej
Messages postés
5
Date d'inscription
mardi 20 novembre 2007
Statut
Membre
Dernière intervention
3 mai 2008
-
Je vous remercie, mais je veux la code pour identifier le position(X,Y) du nez quand la face se Déplacer

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.