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.
un bouton Command1 suffit pour tester ce bout de code.
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
- A. simulations souris
- Delphi / Pascal : Simulation souris avec gamepad - CodeS SourceS - Guide
- C# / .NET : Simulation souris - CodeS SourceS - Guide
- Visual Basic / VB.NET : Simulation souris - CodeS SourceS - Guide
- Simulation souris ✓ - Forum - VB.NET
- Simulation souris ✓ - Forum - Visual Basic 6
- Messages postés
-
64
- Date d'inscription
- jeudi 3 mars 2005
- Statut
- Membre
- Dernière intervention
- 2 septembre 2010
1J'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
1Trè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
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
1Mais certaine personne pourrais sen servir a des fin ...plutot mauvaise si vous voyer ce ke je veut dire
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.