[Windows] Simuler un clic de souris

Bonjour,

J'essaie de réaliser une automatisation comprenant des clics de souris et un glisser/déposer. Sous WINDOWS.
Pas de problème pour déplacer le curseur, par contre je n'arrive pas à trouver comment simuler clic gauche ou droit. Je cherche depuis un moment mais je ne trouve pas grand chose.
Quelqu'un pourrait-il m'orienter ?

Merci

Bonjour !

Je ne connais pas la réponse mais il me semble qu'il serait utile de préciser le système d'exploitation sur lequel porte votre question.

Citation:

---

Envoyé par Roland Chastain

Bonjour !

Je ne connais pas la réponse mais il me semble qu'il serait utile de préciser le système d'exploitation sur lequel porte votre question.

---

Oui, désolé, j'ai rectifié mon message.

En tapant "freepascal lazarus simulate mouse click" dans Google, j'ai trouvé pas mal de choses mais difficile de dire si tel ou tel exemple correspond effectivement à votre problème. Cette page paraît assez complète.

P.-S. J'ai testé cet exemple avec succès. Cependant je me demande quelle peut en être l'utilité (alors qu'on pourrait appeler directement la méthode Button2Click). Je me demande aussi ce que signifie cette histoire de "Mickeys". :)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

procedure TForm1.Button2Click(Sender: TObject); begin ShowMessage('Button2Click'); end;   // http://delphi.about.com/od/vclusing/a/mouseadvanced.htm   procedure TForm1.Button1Click(Sender: TObject); var Pt: TPoint; begin Application.ProcessMessages; {Get the point in the center of Button 2} Pt.x := Button2.Left + (Button2.Width div 2); Pt.y := Button2.Top + (Button2.Height div 2); {Convert Pt to screen coordinates and Mickeys} Pt := ClientToScreen(Pt); Pt.x := Round(Pt.x * (65535 / Screen.Width)); Pt.y := Round(Pt.y * (65535 / Screen.Height)); {Simulate the mouse move} Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, Pt.x, Pt.y, 0, 0); {Simulate the left mouse button down} Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pt.x, Pt.y, 0, 0); {Simulate the left mouse button up} Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pt.x, Pt.y, 0, 0); end;

---

Mickeys.... Mickey mouse ? :D non, je sais pas.

En fait j'ai trouvé un truc qui fonctionne. J'ai vu parler de "Mouseandkeyinput". Il y a bien ça dans \lazarus\components\mouseandkeyinput.
A partir de l'exemple il semble qu'il faille ajouter "mouseandkeyinput" dans les uses. Après dans la procédure :
MouseInput.Click(mbLeft, []); pour un clic gauche ou
MouseInput.DblClick(mbLeft, []); pour un double clic par exemple.
Il y a en plus pas mal de trucs à creuser. En tout cas ça fonctionne.

Merci pour ton aide Roland ;)

Citation:

---

Envoyé par phobik

Merci pour ton aide Roland ;)

---

Pas de quoi. :)

Je vais regarder moi aussi cet exemple.