[..] Script qui prend en note les positions de la souris à chaque clique

Aide et conseils concernant AutoIt et ses outils.
Règles du forum
.
Répondre
Utilisateur 6231 supprimé
Status : Hors ligne

[..] Script qui prend en note les positions de la souris à chaque clique

#1

Message par Utilisateur 6231 supprimé »

Bonjour,

Je suis nouveau sur ce forum et je débute en autoit. J'ai essayé d'écrire un script qui ouvre le bloc - note et qui écrit la position de la souris à chaque clique mais cela ne marche pas...
Voilà le code que j'ai écrit:
#include <Misc.au3>
#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIFiles.au3>


HotKeySet("^q","quitter") ; Si on appuie sur Ctrl+Q , le script se termine
Global $quitter = false ;Déclaration des variables globales

$Pid = Run("notepad.exe") ; On lance le bloc-notes
$Handle = WinWaitActive("[CLASS:Notepad]");On attend qu'il soit bien lancé.
WinSetState("[CLASS:Notepad]","",@SW_MINIMIZE)


while not $quitter
   If _IsPressed(01) Then
      $souris = MouseGetPos()
      $hfile = FileOpen("[CLASS:Notepad]",$FO_APPEND)
      FileWrite($hfile,$souris[0] & ";" & $souris[1] & @CRLF)
   EndIf
WEnd

WinClose("[CLASS:Notepad]")

Func quitter()
   $quitter = True
EndFunc
PS: je sais pas trop comment marche les balises de codes, je sais pas si c'est normal que [Codebox] apparaisse dans le code et si non je m'en excuse.
Modifié en dernier par orax le ven. 02 déc. 2016 23:53, modifié 1 fois.
Raison : Correction des balises [codebox].
Avatar du membre
walkson
Modérateur
Modérateur
Messages : 1020
Enregistré le : ven. 12 août 2011 19:49
Localisation : Hurepoix
Status : Hors ligne

Re: [..]Script qui prend en note les positions de la souris à chaque clique  

#2

Message par walkson »

Bonjour et bienvenue sur le forum
il est inutile d'ouvrir notepad
#include <Misc.au3>
#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIFiles.au3>


HotKeySet("^q","quitter") ; Si on appuie sur Ctrl+Q , le script se termine
Global $quitter = false ;Déclaration des variables globales


while not $quitter
   If _IsPressed(01) Then
      $souris = MouseGetPos()
      $hfile = FileOpen("clic.txt",1 + '8')
      FileWrite($hfile,$souris[0] & ";" & $souris[1] & @CRLF)
   EndIf
   Sleep(100)
WEnd

FileClose($hfile)

Func quitter()
   $quitter = True
EndFunc
pour Fileopen() j'aurais pu faire @ScriptDir & "\clic.txt"
et le 1 + 8 correspond à écriture et création du chemin (voir aide F1 pour Fileopen) => le 8 sans les '
En espérant avoir répondu à votre question
PS: pour avoir le même rendu que ma réponse, utilisez le "A" dans la barre en haut à gauche et entrez votre code entre les 2 balises.
PS2: aux modérateurs et les autres, on fait comment pour écrire 8 sans avoir des réactions imprévisibles du site ?
Cordialement,
Walkson
"Horas non numero nisi serenas " Le canon de midi
(Je ne compte que les heures heureuses)
Utilisateur 6231 supprimé
Status : Hors ligne

Re: [..] Script qui prend en note les positions de la souris à chaque clique

#3

Message par Utilisateur 6231 supprimé »

Oui ça marche merci beaucoup !!
Répondre