Accueil > Forum > > > > Simulation souris
 Simulation souris
mardi 1 janvier 2008 à 20:32:15 |
Simulation souris
didieraucun
|
Bonsoir et bonne année 2008  J'ai trouvé ce code sur ce site qui simule le mouvement et les différents clic d'une souris. Mais je ne sait pas comment l'utiliser  Est-ce du VBS, VBA  Ca marche dans Excel 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 |
|
mardi 1 janvier 2008 à 20:41:15 |
Re : Simulation souris
jmfmarques
|
Bonsoir,
1) C'est du VB se servant de fonctions de l'Api de Windows.
2) je ne vois rien dans ce code qui l'empêcherait de fonctionner sou VBA, pour autant qu'existe un bouton de commande nimmé Command1
3) et surtout : pourquoi ne l'essayes-tu pas sous VBA, plutôt que de poser cette question ? Tu en connaîtrais déjà la réponse, non ?
|
|
mardi 1 janvier 2008 à 22:44:09 |
Re : Simulation souris
us_30
|
Réponse acceptée !
Bonsoir Didieraucun, bonsoir Jmfmarques,
Il n'y a aucun problème sous VBA. Le code est parfaitement compatible.
Pour répondre à : "Mais je ne sais pas comment l'utiliser "
=> Ouvre VBA, (raccourcis ALT+F11)
=> dans VBA, créer une userform (feuille) dans le classeur courant ("classeur1.xls", probablement) avec un click droit sur le nom, et choisi "Insertion" puis "UserForm".
=> Avec la boite d'outil, insére un bouton
=> double clik sur le bouton, pour rentrer sur la page de code relatif à l'userform.
=> supprime les deux lignes de code, Sub CommandButton1, etc...
=> coller le code que tu proposes,
=> change le nom "Command1" en "CommandButton1", donc la première ligne sera :
Private Sub Commandbutton1_Click()
=> Lance le programme pour le tester. Pour cela, sélectionne l'userform1 et click sur la flèche verte.
FIN
Amicalement,
Us.
|
|
Cette discussion est classée dans : long, souris, mouse, mouseeventf, byval
 Répondre à ce message
 Sujets en rapport avec ce message
Controle de la souris sous VBA [ par openfire666 ]
Bonjour,Sur de nombreux forums j'ai vu que l'on pouvait contrôler sa souris n'importe où sous Windows grâce à du code VBA (ici sous Excel).Je place un
Probleme avec l'api mouse_event Lib "user32" [ par davidmaillard ]
Bonjour Voilas je voudrais simulé le click gauche de ma souris. J'ai récupérer le code avec une fonction api, mais j'ai un petit soucis. Pour appele
[Déplacé VB6 --> VBA] Hook souris VBA [ par media6 ]
Bonjour, j'ai besoin de "capter" un clic de souris (en l'occurence un clic gauche) et sa position en X et en Y dans l'application pilotée par VBA. Je
VBA Simulation click souris Office 2010 [ par Hystic ]
Bonjour, j'ai un petit problème .... j'essaye de simuler un click souris via une macro excel et donc j'utilise ce petit bout de code trouvé sur un f
utilisation de SetCursorPos et Mouse_Event [ par nazzguhl ]
Bonjour,j'ai trouvé dans le forum plusieurs exemples de SetCursorPos et Mouse_Event, je les ai essayés, mais ça ne fonctionne pas comme je l'espérais.
Déplacement souris [ par bimbo777 ]
Bonjour à tous,Je suis débutant et je souhaiterai pouvoir automatiser le déplacement de ma souris (je verrai les clicks plus tard...)J'ai un soucis av
Basic - probléme de ddl [ par WouaWoua ]
Bonjour à tous, je poste car je n' arrive pas à résoudre seul ce problème : Dans le cadre d' un bot, j' ai déclaré une fonction qui me permet de simul
Focus sur le pointeur de la souris [ par bigfish_le vrai ]
Bonjour à tous,je cherche à supprimer la perte du focus sur le pointeur de ma souris. Je m'explique :j'ai créé une mire RGB(objet image) dans un formu
Enregistrement et retranscription mouvements souris [ par pulpul74 ]
Bonjour.Je créé actuellement un programme qui me permet d'enregistrer les mouvement de la souris et de les retranscrire par la suite.Mais j'ai quelque
penProcess Lib "kernel32" [ par rzmitri ]
Bonjour,J'utilise ce bout que j'ai trouvé quelque part pour lancer des batch file sur plusieurs ordinateur en même temps:Private Declare Function Wait
 Livres en rapport
|
Derniers Blogs
 TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Je m'y prends un peu tard je sais, mais bon je suis développeur web et donc hyper fainéant ! Toujours dans le cadre des technologies émergentes, ici HTML5, parce qu'on aime HTML5 chez Wyg , nous seront présent, le vieux ( Aurélien V.) et moi, pour pr...
Cliquez pour lire la suite de l'article par Gio [WP7] DYNAMICALLY CHANGE STARTUP PAGE[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz
Let's say that you want to allow the user to customize the startup page of your application. You can easily change the startup page by editing the 'NavigationPage' attribute in the manifest file. But the manifest cannot be modified once the applicatio...
Cliquez pour lire la suite de l'article par KooKiz SESSION SILVERLIGHT 5 3D : SLIDES ET DEMOSSESSION SILVERLIGHT 5 3D : SLIDES ET DEMOS par Groc
Durant les techdays, j'ai eu le plaisir d'animer une session sur Silverlight 5 et la 3D avec Simon Ferquel. Comme promis, voici nos slides et mes démos (celles avec le viper BSG) ici et là. Pour mémoire, les démos utilisent toutes le viper BSG...
Cliquez pour lire la suite de l'article par Groc
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|