Macro lancé par un appui sur le clavier

[Fab]

Bonjour,

j'ai essayé de reproduire les conseils de ce sujet à mon cas: viewtopic.php?f=3&t=48

Cependant, je n'arrive pas à avoir le bon résultat. Je veux juste appuyer sur le clique gauche, déplacer la souris et relâcher le clique gauche.

Pourriez-vous m'aider? J'ai joint une image. Voici aussi le code:

Code : Tout sélectionner

Variable	[EVENT.ACTIVATE];[EVENT.ACTIVATE];Numerique;
Variable	[EVENT.KEY];[EVENT.KEY];Alpha;
Calcul évolué	[EVENT.ACTIVATE]=1
Examine	[EVENT.ACTIVATE];<>;1;
Quitter	
Examine	[EVENT.KEY];=;a;
Click	Left Down;
Move Mouse	673;383;Indirect;ImgRef0;
Click	Left Up;

Je vous remercie d'avance.

[Feitan]

La macro que tu as fait vas enfoncer, se déplacer en 673;383 et relacher le clic LORSQUE tu enclencheras la touche "A" de ton clavier.

Aucun moyen de déclencher l'action à partir d'un clic de souris à par avec un logiciel adapté.
Je te conseille plutôt d'utiliser une touche de clavier bien plus pratique.

En espérant t'avoir aider.

Feitan

[Fab]

J'ai repris la macro avec un procédure.

Objectif de la macro: lancer la procédure quand je tape sur la touche "a", le tout dans une boucle infinie.

Quand je lance la macro, j'ai les messages:
- "Capture des évènements souris impossible."
- "Capture des évènements clavier impossible."

J'ai joint ma macro "Evnt_Clavier.mcr" dans le fichier zip pour mieux comprendre.

Capture.JPG (32.43 Kio) Vu 4803 fois

[Fab]

J'ai du nouveau, la macro suivante fait ce que je veux sans message d'erreur. Mais, quand j'appuie sur "a", la touche reste en mémoire sans même avoir appuyer une deuxième fois... Une idée?

Code : Tout sélectionner

Label	<Label2>
Variable	[EVENT.ACTIVATE];[EVENT.ACTIVATE];Numerique;
Variable	[EVENT.KEY];[EVENT.KEY];Alpha;
Calcul évolué	[EVENT.ACTIVATE]=1
Label	<Label1>
Examine	[EVENT.KEY];=;a;
Procedure	CALL Shoot
Goto	<Label1>
Calcul évolué	[EVENT.ACTIVATE]=0
Goto	<Label2>
Procedure	Shoot
Click	Left Down;
Move Mouse	523;268;Indirect;ImgRef0;
Click	Left Up;
Procedure	END

[Feitan]

Il faut que dans Shoot tu ajoute [EVENT.ACTIVATE]=0

Quitte à le réactiver quelques lignes plus bas