AutoIt Français

Voilà un script que j'ai réalisé. Il a des erreurs.

► Afficher le texte

#Include <Misc.au3>

Hotkeyset("{ESC}","fin")

$rep = MsgBox(4, "Enregistrement", "Voulez vous commencer l'enregistrement?")
If $rep <> 6 Then 
Exit
EndIf

$rep = MsgBox(4, "Instructions","Ce programme va enregistrer vos clicks de souris. Quand vous voudrez mettre fin à l'enregistrement, cliquez sur CTRL. Sachez que vous pouvez quitter le programme à tout moment en appuyant sur Echap. Lancer l'enregistrement?")
If $rep <> 6 Then 
Exit
EndIf

;Enregistrement

$level = 0

While 1
    Select
        Case $level = 0 AND _IsPressed(01)
            $mousepos1 = MouseGetPos()
            $level = $level + 1
            sleep(300)
        
        Case $level = 1 AND _IsPressed(01)
            $mousepos2 = MouseGetPos()
            $level = $level + 1
            sleep(300)
            
    
        Case $level = 2 AND _IsPressed(01)
            $mousepos3 = MouseGetPos()
            $level = $level + 1
            sleep(300)
        
        Case $level = 3 AND _IsPressed(01)
            $mousepos4 = MouseGetPos()
            $level = $level + 1
            sleep(300)
        
        Case $level = 4 AND _IsPressed(01)
            $mousepos5 = MouseGetPos()
            $level = $level + 1
            sleep(300)
            
        Case _IsPressed(11)
            ExitLoop

        Case $level = 5 AND _IsPressed(01)
            $mousepos6 = MouseGetPos()
            $level = $level + 1
            sleep(300)
            TrayTip("Fin de l'enregistrement", "Nombre Max de clicks atteint!", 3000)
            ExitLoop
    EndSelect       
WEnd

While 1
    $rep = MsgBox(4, "Enregistrement terminé", "Voulez vous exécuter l'enregistrement?")
    If $rep <> 6 Then
    Exit
    EndIf

; Exécution de l'enregistrement

While 1
    While 1
        If $exec = $level Then ExitLoop
        EndIf
        Select
            Case $exec = 0
                MouseClick("left",$mousepos1[0], $mousepos1[1])
                sleep(5000)
                $exec = $exec + 1
            Case $exec = 1
                MouseClick("left",$mousepos1[0], $mousepos1[1])
                sleep(5000)
                $exec = $exec + 1
            Case $exec = 2
                MouseClick("left",$mousepos1[0], $mousepos1[1])
                sleep(5000)
                $exec = $exec + 1
            Case $exec = 3
                MouseClick("left",$mousepos1[0], $mousepos1[1])
                sleep(5000)
                $exec = $exec + 1
            Case $exec = 4
                MouseClick("left",$mousepos1[0], $mousepos1[1])
                sleep(5000)
                $exec = $exec + 1
            Case $exec = 5
                MouseClick("left",$mousepos1[0], $mousepos1[1])
                sleep(5000)
                $exec = $exec + 1
        EndSelect
    WEnd

$rep = MsgBox(4, "Enregistrement", "Exécuter de nouveau l'enregistrement?")

If $rep <> 6 Then Exit
EndIf

WEnd

; Fonctions

Func Fin()
    Exit
EndFunc

Le but est de demander à l'utilisateur d'enregistrer simplement ses clics. Ensuite le programme répète les clicks de l'utilisateur. Il ne prend pas en compte le temps entre chaque click, il prend uniquement en compte les clicks et les enregistre sous forme de variables. Ensuite on demande à l'utilisateur s'il veut exécuter l'enregistrement. Si oui, le programme va cliquer aux mêmes endroits, avec un temps de 5 secondes entre chaque click.

Bon le programme en lui même n'a pas grand interêt mais c'est juste un essai.

Est-ce qu'on peut réduire le script en gardant les mêmes principes énoncés?
Je voudrais aussi rajouter au script une commande pour sauvegarder les variables (donc l'enregistrement des clicks) afin de les réutiliser plus tard.

Tu peux regarder les exemples:
http://www.autoitscript.fr/forum/viewto ... f=6&t=1227
C'est le même principe que tu viens d'enoncer avec la gestion du temps en plus, donc sers toi du code pour ameliorer le tien, si besoin est!

Merci pour ton script ! Je l'ai regardé attentivement.

Ce que j'arrive à comprendre, c'est l'enregistrement des cliks (Si clik droit est pressé alors on enregistre dans $actions ). Toute les actions enregistrées sont mises à la suite (séparées pas des barres " l " )

Très bien nous avons toute les variables conservées dans " $actions ". Mais la ou je m'embrouille, c'est dans la sauvegarde. Comment sauvegarde-t-on " $actions " (afin de réutiliser les variables stockés pour plus tard)? Dans un fichier ? Grâce à quoi? Je suis perdu...

Un petit exemple de script très simpliste me serait d'une grande aide. Merci !

L'affichage des actions dans la GUi se fait avec ces 4 lignes .

Code : Tout sélectionner

  $test = StringSplit($actions,"|")
                  _ArrayDelete($test, 0)
                    $test2 = _ArrayToString($test,@CRLF)
                    GUICtrlSetData($Edit1,$test2)

$test = StringSplit($actions,"|") va separer $actions et va les disposer dans une matrice (array en anglais).
Par exemple, "1|2|B|7" va donner $test[0] = 4 ,$test[1] = "1", $test[2] = "2", $test[3] = "B", etc
On a donc une array $test = [4,1,2,B,7]
_ArrayDelete($test, 0) va supprimer la premiere ligne de la matrice, pour la raison que la fonction Stringplit a mis le nombre de lignes totales en premiere ligne de la matrice, et comme ici cela ne nous interesse pas, on l'enleve.
Notre $test[0] va maintenant devenir "1".

$test2 = _ArrayToString($test,@CRLF)
va remettre l'array sous forme de Chaine de caractere (string en anglais), le @CRLF signifie retour chariot, donc chaque ligne de l'array va devenir une ligne d'une chaine de caractere
Dans notre exemple, on obtiendra
"1
2
B
7"

GUICtrlSetData($Edit1,$test2), maintenant on affiche le resultat.

----------------------------------------------------------------------
Maintenant, si tu as besoin de savoir ce qu'il s'est passé lors de la n ième action, il faudra intervenir après la fonction _ArrayDelete, car tu aura a ce moment une array avec a chaque ligne les actions, il te suffira donc de choisi par exemple, $test[4] pour avoir la 4eme action.

Si d'autres questions n'hesite pas.
Tim

Sinon, il y'a autoit 3 Macro recorder (sur le site d'autoit dans le 'package' de SciTE qui peut
être utilisé pour faire des macros du même genre)

AutoIt Français

[..] Sauvegarder des variables

[..] Sauvegarder des variables

Re: [...] Sauvegarder des variables

Re: [...] Sauvegarder des variables

Re: [...] Sauvegarder des variables

Re: [..] Sauvegarder des variables