Delphi - le clic de la souris fait des siennes - Delphi/Pascal - Programmation
MarshPosté le 10-02-2014 à 01:43:18
Bonjour
Je suis débutant (je programme de temps en temps) et je viens vers vous pour un conseil j'ai développé une petite application qui simule un clic (pendant que je mange) avec le code ci dessous (récupéré sur le net) cela marche au poil sur ma tour et je viens de m'offrir un portable pour la première fois. Là cela ne fonctionne pas. Meme OS (windows 8), tout fonctionne sauf le clic simulé. Ignorant des en ce qui concerne les portables et devant bientôt me déplacer avec mon portable je suis un peu frustré. Je sais qu il y a des auto clic sur le net mais j'aime programmer quand je peux. une idée svp ? merci d'avance.
var MyPoint: TPoint; begin GetCursorPos(MyPoint); {Récupère la position du curseur } SetCursorPos(100, 200); {Positionne le curseur sur la fiche } mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); {Simule l'action de clic du bouton gauche de la souris } mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0); {Simule l'action de relâcher du bouton gauche de la souris } SetCursorPos(MyPoint.X, MyPoint.Y); {Repositionne le curseur à sa position d'origine }
Marsh Posté le 10-02-2014 à 01:43:18
Bonjour
Je suis débutant (je programme de temps en temps) et je viens vers vous pour un conseil
j'ai développé une petite application qui simule un clic (pendant que je mange) avec le code ci dessous (récupéré sur le net)
cela marche au poil sur ma tour et je viens de m'offrir un portable pour la première fois. Là cela ne fonctionne pas.
Meme OS (windows 8), tout fonctionne sauf le clic simulé. Ignorant des en ce qui concerne les portables et devant bientôt me déplacer avec mon portable
je suis un peu frustré. Je sais qu il y a des auto clic sur le net mais j'aime programmer quand je peux. une idée svp ? merci d'avance.
var
MyPoint: TPoint;
begin
GetCursorPos(MyPoint);
{Récupère la position du curseur }
SetCursorPos(100, 200);
{Positionne le curseur sur la fiche }
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
{Simule l'action de clic du bouton gauche de la souris }
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
{Simule l'action de relâcher du bouton gauche de la souris }
SetCursorPos(MyPoint.X, MyPoint.Y);
{Repositionne le curseur à sa position d'origine }