[Ex] Mime de clics souris
Posté : jeu. 17 avr. 2008 17:02
Bonjour
Grace à l'aide qui m'a été apportée sur ce forum pour sauvegarder un Array dans un fichier texte, j'ai pu finir ce petit programme qui sauvegarde des clics de souris et les refait de façon identique (avec le même temps entre deux clics).
Par contre pour la saisie des clics j'ai demandé à ce qu'on appuie sur "entrer" car je ne connait pas de fonction qui identifie les clics de souris.
Voilà, dites-moi ce que vous en pensez ^^'
Grace à l'aide qui m'a été apportée sur ce forum pour sauvegarder un Array dans un fichier texte, j'ai pu finir ce petit programme qui sauvegarde des clics de souris et les refait de façon identique (avec le même temps entre deux clics).
Par contre pour la saisie des clics j'ai demandé à ce qu'on appuie sur "entrer" car je ne connait pas de fonction qui identifie les clics de souris.
Voilà, dites-moi ce que vous en pensez ^^'
Code : Tout sélectionner
#include <File.au3>
Dim $A[500]
Global $B=0
Dim $tps[1]
$rep=Msgbox(4,"Welcome","Bienvenue, voulez-vous refaire une sauvegarde ?")
If $rep=6 Then
Msgbox(0,"=^^=","Très bien, déplaçez la souris et faites Entrer pour les endroits à cliquer et Esc pour quitter")
Hotkeyset("{ENTER}","clic")
Hotkeyset("{ESC}","fin")
$t=TimerInit()
while 1
Sleep(5000)
Wend
Else
$nom=Inputbox("Nom","Très bien, entrez le nom de la sauvegarde à ouvrir")
_FileReadToArray ( @ScriptDir&"\sauvegardes\"&$nom&".txt", $A )
$n=$A[0]
Dim $Arr[$n-1]
For $i=0 to $n-2
$o=$i+2
$Arr[$i]=$A[$o]
Next
$A=$Arr
$nb=$A[0]
For $u=1 to $nb step 3
$tp=$A[$u]
Sleep($tp)
Mouseclick("left",$A[$u+1],$A[$u+2])
Next
Endif
Func clic()
$tps[0]=TimerDiff($t)
$t=TimerInit()
$P=Mousegetpos()
$A[$B+1]=$tps[0]
$A[$B+2]=$P[0]
$A[$B+3]=$P[1]
$B=$B+3
EndFunc
Func fin()
$A[0]=$B
$name=Inputbox("nom?","Quel nom donner à la sauvegarde ?")
Fileopen(@ScriptDir&"\sauvegardes\"&$name&".txt",10)
_FileWriteFromArray ( @ScriptDir&"\sauvegardes\"&$name&".txt", $A )
Exit 0
Endfunc
