A. simulations souris

Soyez le premier à donner votre avis sur cette source.

Snippet vu 21 811 fois - Téléchargée 69 fois

Contenu du snippet

Avec juste 2 API, on simule le mouvement et les différents clic.
Pour le mouvement (style fakesurf), il suffit de rajouter un timer avec une incrémentation des variables.

Source / Exemple :


'##############################################
' site: http://www.jeromax.free.fr (il est tout neuf celui là ! ;-)
'##############################################

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Declare Function SetCursorPos& Lib "user32" (ByVal X As Long, ByVal Y As Long)

Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Const MOUSEEVENTF_WHEEL = &H80
Const MOUSEEVENTF_XDOWN = &H100
Const MOUSEEVENTF_XUP = &H200
Const WHEEL_DELTA = 120
Const XBUTTON1 = &H1
Const XBUTTON2 = &H2

Private Sub Command1_Click()
    X = 30
    Y = 755
'position de la souris au coordonnée X et Y 
'(ici si vous êtes en 1024 x 768,cela va cliquer sur le bouton 'Démarrer' de la barre des taches)
    SetCursorPos X, Y
'Le bouton gauche de la souris s'enfonce
    Call mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0) '
'le bouton gauche de la souris se relache
    Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0)
End Sub

Conclusion :


un bouton Command1 suffit pour tester ce bout de code.

A voir également

Ajouter un commentaire Commentaires
Messages postés
64
Date d'inscription
jeudi 3 mars 2005
Statut
Membre
Dernière intervention
2 septembre 2010
1
Bonjour,

J'ai une question à 2 francs six sous: est-il possible d'utiliser ce code sous VBA? Quand je lance le programme sous Excel, j'ai en effet un problème, car j'ai un message d'erreur qui me dit : "Utilisation incorrecte du mot clé Me".
Je suis très intéressé par ce code, car je souhaiterais créer une macro Excel qui clique sur un bouton d'un logiciel et enregistre les résultats fournis par le dit logiciel dans Excel.
Messages postés
123
Date d'inscription
mercredi 27 août 2003
Statut
Membre
Dernière intervention
12 août 2008
1
Merci pour la truce! (y)
Messages postés
103
Date d'inscription
mercredi 30 avril 2003
Statut
Membre
Dernière intervention
14 mai 2010

Slt Jeromax,


Très utile ton p'tit truc ^-^ Je l'ai utilisé avec GetCursorPos et ShowCursor pour geler la souris et la cacher lorsque j'appuie sur un bouton pour balader ma camera. Sympa comme tout :) Encore merci !


@+

Benoît 'Mutos' ROBIN
http://hoshikaze.net
Messages postés
274
Date d'inscription
jeudi 22 février 2001
Statut
Membre
Dernière intervention
7 octobre 2013

Je me décide enfin à écrire un petit mot ici. Je reçois pas mal de mails me demandant différentes choses, voila les réponses: je ne vous aiderai pas sur l'utilisation de ce code (ou n'importe quel autre code d'ailleurs) dans des trojans et virus, je ne compilerai pas vos programmes(si vous n'avez pas VB, utilisez un autre langage). Vous avez l'essentiel du code, à vous d'en faire ce que vous voulez: la création d'un tutorial par exemple...
Ah ... j'oubliais.... je ne vous ferai jamais votre programme(sauf éventuellement contre rémunération ;-)) mais je peux vous donner des pistes.
Bonne programmation.

http://a6ze.free.fr
[JEROMAX]
Messages postés
962
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
2 août 2010
1
Trop génial!!!!!!!!!!!!

Mais certaine personne pourrais sen servir a des fin ...plutot mauvaise si vous voyer ce ke je veut dire
Afficher les 21 commentaires

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.