[..] Optimisation script, il est lent a se fermer

[xeno]

Hello

Cela fait deux jours que je me suis lancé dans autoit, je commence mon premier
scripts, et j'ai un petit soucis de lenteur, alors qu'il n'est pas fini.

il est très lent à se fermer ou a se mettre en pause.
étant débutant je suis ouvert a toutes suggestions et corrigé des erreurs aussi,
mais taper pas trop dur quand même c'est mon premier

pour le descriptif de son usage, il me permet d'automatiser certaines tâches répétitives
sur winrar et xtremsplit par exemple

► Afficher le textetext

Code : Tout sélectionner

;#
;* Author: Xeno
;#
;* Copyright: (c) 2009
;#
;* Release Version: 0
;#



#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#Include <Misc.au3>

Opt('MustDeclareVars', 1)
Local $pass, $x=450, $y=188, $size, $tab,  $tabrar, $tabzip, $Button_1, $Button_2, $Button_3, $i, $Icon1, $pixcolor=0x144600, $msg, $passtest = ("saisir le mot de passe"), $ZeroCoor1, $ZeroCoor
Local $tabxtm, $checkxtmCN1, $checkxtmCN2, $checkxtmCN3
Local $tabrar, $checkrarCN1, $checkrarCN2, $checkrarCN3
;Local $tabzip, $checkzipCN1, $checkzipCN2, $checkzipCN3
Local $tabwin

Call ("createbox1")
Call ("scan2")



Func createbox1()

GUICreate("Winrar xtm", 250, 170)  ; will create a dialog box that when displayed is centered
    $pass = GUICtrlCreateInput("saisir le mot de passe", 6, 3, 235, 20)
    GUICtrlSetState(-1, $GUI_DROPACCEPTED)

    $tab = GUICtrlCreateTab(7,25,235,90) ;creation des tab

    $tabxtm = GUICtrlCreateTabItem("Xtremsplit")
    $checkxtmCN1 = GUICtrlCreateCheckbox("Valide le Bouton Coller", 15, 50, 170, 20)
    GUICtrlSetState(-1, $GUI_CHECKED)
    $checkxtmCN2 = GUICtrlCreateCheckbox("Valide le rapport", 15, 70, 170, 20)
    GUICtrlSetState(-1, $GUI_CHECKED)
    $checkxtmCN3 = GUICtrlCreateCheckbox("Fermer -auto", 15, 90, 170, 20)
    GUICtrlSetState(-1, $GUI_CHECKED)

    $tabrar = GUICtrlCreateTabItem("Winrar")
    $checkrarCN1 = GUICtrlCreateCheckbox("écraser le fichier existant", 15, 50, 170, 20)
    GUICtrlSetState(-1, $GUI_CHECKED)
    $checkrarCN2 = GUICtrlCreateCheckbox("Fermer le rapport -auto", 15, 70, 170, 20)
    GUICtrlSetState(-1, $GUI_CHECKED)
    $checkrarCN3 = GUICtrlCreateCheckbox("fermer -auto", 15, 90, 170, 20)
    GUICtrlSetState(-1, $GUI_UNCHECKED)

    ;$tabzip = GUICtrlCreateTabItem("Winzip")
    ;$checkzipCN1 = GUICtrlCreateCheckbox(" coller -auto", 15, 50, 170, 20)
    ;GUICtrlSetState(-1, $GUI_CHECKED)
    ;$checkzipCN2 = GUICtrlCreateCheckbox("valide le rapport -auto", 15, 70, 170, 20)
    ;GUICtrlSetState(-1, $GUI_CHECKED)
    ;$checkzipCN3 = GUICtrlCreateCheckbox("fermer -auto", 15, 90, 170, 20)
    ;GUICtrlSetState(-1, $GUI_CHECKED)

    ;$tabwin = GUICtrlCreateTabItem("Windows")

    ;$tababout = GUICtrlCreateTabItem("About")

    GUICtrlCreateTabItem("") ;fin creation des tab
    ;if $i=0 then $Icon2 = GUICtrlCreateIcon("I:\icon2.ico", -1, 184, 80, 57, 49, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon1 = GUICtrlCreateIcon("I:\icon1.ico", -1, 184, 120, 57, 49)
    $Button_1 = GUICtrlCreateButton("Start (F11)", 15, 115, 75)
    $Button_2 = GUICtrlCreateButton("Pause (F12)", 105, 115, 75)
    $Button_3 = GUICtrlCreateButton("Exit", 60, 142,75)
    GUISetState()
EndFunc


Func scan2()
GUICtrlSetImage ($Icon1, "I:\icon1.ico")
$i=1
        While $i
                $msg = GUIGetMsg()
                    ;STOP & PAUSE
                    If _IsPressed("7B") = 1 then pause() ;F12 Pause
                    If $msg = $Button_2 then pause()
                    If $msg = $Button_3 Then ExitLoop
                    If $msg = $GUI_EVENT_CLOSE Then Exitloop
                    ;saisi automatiquement  le mot de passe si il a été saisi
                    If Winexists("Saisissez le mot de passe") or Winexists("Enter password") then
                        If GUICtrlRead($pass) = $passtest then
                            MsgBox(0, "Attention", "Vous n'avez pas saisi de mot de passe",5)
                            WinActivate("Winrar xtm")
                            sleep (500)
                            pause()
                        Else
                            WinActivate("Saisissez le mot de passe")
                            WinActivate("Enter password")
                            AutoItSetOption("SendKeyDelay", 100)
                            Send(GUICtrlRead($pass))
                            Sleep(100)
                            Send("{ENTER}")
                        EndIf
                    EndIf
                    ;xtremsplit valide bouton coller -auto $checkxtmCN1
                    If Winexists("de") and GUICtrlRead($checkxtmCN1)=1 then
                        $ZeroCoor1 = WinGetPos ( "de" )
                        If PixelGetColor($ZeroCoor1[0] + 218, $ZeroCoor1[1] + 198) = $pixcolor and Winexists("de") then
                            WinActivate("de")
                            $ZeroCoor = WinGetPos ( "de" )
                            MouseClick ("left", $ZeroCoor[0] + 224,$ZeroCoor[1] + 252, 1, 15)
                        Endif
                    EndIf
                    ;xtremsplit valide le rapport -auto $checkxtmCN2
                    If Winexists("-=Xtremsplit=-") and GUICtrlRead($checkxtmCN2)=1 then
                        WinActivate("-=Xtremsplit=-")
                        sleep(150)
                        Send("{ENTER}")
                    EndIf
                    ;xtremsplit fermer -auto $checkxtmCN3
                    If Winexists("de") and GUICtrlRead($checkxtmCN3)=1 then
                        sleep(150)
                        $ZeroCoor1 = WinGetPos ( "de" )
                        If PixelGetColor($ZeroCoor1[0] + 218, $ZeroCoor1[1] + 198) <> $pixcolor then
                            $size=wingetclientsize ("de")
                            If $size[0] = $x and $size[1] = $y then
                                Winclose("de")
                            Endif
                        EndIf
                    EndIf
                    ;winrar valide bouton écraser fichier $checkrarCN1
                    If Winexists("Confirmer le remplacement du fichier") And  GUICtrlRead($checkrarCN1)=1 then
                            ;WinActivate("Confirmer le remplacement du fichier")
                            ControlClick("Confirmer le remplacement du fichier","","Button2")
                        Else
                            ;WinActivate("Confirmer le remplacement du fichier")
                            ControlClick("Confirmer le remplacement du fichier","","Button6")
                    EndIf
                    If Winexists("Confirm file replace") And GUICtrlRead($checkrarCN1)=1 then
                            ;WinActivate("Confirm file replace")
                            ControlClick("Confirm file replace","","Button2")
                        Else
                            ;WinActivate("Confirm file replace")
                            ControlClick("Confirm file replace","","Button6")
                    EndIf
                    ;winrar valide le rapport -auto $checkrarCN2
                    If Winexists("WinRAR : Messages de diagnostic") And  GUICtrlRead($checkrarCN2)=1 then
                            ;WinActivate("WinRAR : Messages de diagnostic")
                            ControlClick("WinRAR : Messages de diagnostic","","Button1")
                    EndIf
                    If Winexists("WinRAR: Diagnostic messages") and GUICtrlRead($checkrarCN2)=1 then
                        ;WinActivate("WinRAR: Diagnostic messages")
                        ControlClick("WinRAR: Diagnostic messages","","Button1")
                    EndIf
                    ;winrar fermer -auto $checkrarCN3
                    Opt("WinTitleMatchMode", 2) ;recherche partiel du titre
                    If Winexists(" - WinRAR") and GUICtrlRead($checkrarCN3)=1 then
                        ;Winclose(" - WinRAR")
                        WinClose("[CLASS:WinRarWindow]", "")
                    EndIf
;*************************************************************************************************
        WEnd
        GUIDelete()
EndFunc


Func pause()

GUICtrlSetImage ($Icon1, "I:\icon2.ico")
sleep(50)
while 1

    $msg = GUIGetMsg()
    If _IsPressed("7A") = 1 then scan2() ;F11 reprise/start
    If $msg = $Button_1 then scan2()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    If $msg = $Button_3 Then ExitLoop
wend
EndFunc

[Iste]

Je te conseil d'utiliser la fonction Hotkeyset() au lieu de _IsPressed()

Pour se faire, place juste au début de ton script

Code : Tout sélectionner

HotKeySet("{F12}","pause")

(faudra aussi revoir la fonction pause() du coup)

Sinon, la fonction Call() et plutot faite pour appeler une fonction dont on ne connait pas le nom a l'execution du script

Code : Tout sélectionner

createbox1()
scan2()

marche tres bien aussi

Edit : la lenteur vient de tout les If Winexists, faudrait revoir ca :/ je vais y jetter un coup d'oeil

[xeno]

j'ai testé un

hotkeyset("{Esc}","quitter")

et là cela quitte rapidement,

pour la lenteur c'est depuis que j'ai rajouter des If que cela c'est ralenti, c'est sûr.
pour winrar par exemple j'ai pris en compte si c'est une version french ou English, les titres
ne sont pas les mêmes.

Mais j'ai pas réussir a faire différemment. j'ai tenter d'autres méthode mais sans succès

[Tlem]

Pour la création de votre script, vous vous êtes inspiré de l'exemple fournit pour la fonction GUICreate, ce qui est tout à votre honneur car cela prouve que vous avez lut la documentation.
Cela dit, cet exemple n'est pas des plus adapté à votre cas, car lui il traite un seul cas, alors que vous, vous en traité plusieurs (ce qui ralentit la gestion des différents événements graphique).

En réalité, un boucle de message classique ressemble à ceci :

Code : Tout sélectionner

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

Pour les puristes, je fait abstraction du mode événement car il est généralement utilisé lorsque l'on à une grande quantité de cas (graphique) à gérer.

Pour vous donner quelques explications sur ce type de boucle, nous allons commencer par la première ligne.
While 1 Cette commande associée à la commande Wend va nous permettre de créer une boucle infinie. While 1 signifiant : Tant Que 1 (condition qui restera toujours vraie).

Ensuite, à l'intérieur de cette boucle, nous récupérons dans la variable $nMsg la valeur de GUIGetMsg (qui regarde les différents messages
renvoyés par l'interface graphique).

Puis, nous utilisons une commande qui va permettre de diriger le déroulement du code vers le cas approprié (cas renvoyé par GUIGetMsg).
Switch et Case sont donc les commandes qui vont nous permettre de faire cela.
Dans l'exemple que je vous ai donné, Case $GUI_EVENT_CLOSE est le cas ou vous fermé la fenêtre GUI et donc le traitement est : Exit (pour sortir du code).
Voilà pour la partie boucle d'attente.

Ensuite, toujours dans votre script, vous placez tout vos codes dans des fonctions (comme dans l'exemple). Sachez que ceci n'est pas obligatoire.
C'est une bonne habitude pour du code qui doit être exécuté plusieurs fois dans le script, ou qui doit être appelé par plusieurs commandes différentes, sinon c'est plus déstabilisant qu'autre chose.

Jetez un oeil par ici pour voir comment créer un script classique.

Pensez à associé la partie principale de votre code à la touche 'Start'.
Pour la partie de test du mot de passe, je pense qu'il est possible d'optimiser.

Pour le reste, je n'ai pas trop regardé, mais voyez si par hasard il n'est pas possible de scripter les commandes plutôt que de jouer avec la partie graphique qui du jour au lendemain peut changer.

[Iste]

Apres reflexion, je pense que le mieux serait d'utiliser le mode evenementiel (que je ne sais pas utiliser ^^')

Code : Tout sélectionner

opt("GUIOnEventMode",1)
GUICtrlSetOnEvent ($bouton, "fonction")

Et de rajouter un bon gros sleep de 100ms dans la boucle. Ca devrait devenir tres légé ^^ et assez rapide.
Peut etre aussi que d'utiliser la fonction WinList() et de faire une recherche manuel pourrait etre plus rapide

Je vais essayer de faire un bout de code exemple ce soir !

Edit : Voila, je ne peux pas tester le code d'ou je suis, mais l'idée est la !

► Afficher le texte

Code : Tout sélectionner

;#
;* Author: Xeno
;#
;* Copyright: (c) 2009
;#
;* Release Version: 0
;#



#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <Misc.au3>

HotKeySet("{F12}","pause")
HotKeySet("{F11}","quitter")

Opt("GUIOnEventMode",1)

Opt('MustDeclareVars', 1)
Local $pass, $x = 450, $y = 188, $size, $tab, $tabrar, $tabzip, $Button_1, $Button_2, $Button_3, $i, $Icon1, $pixcolor = 0x144600, $msg, $passtest = ("saisir le mot de passe"), $ZeroCoor1, $ZeroCoor
Local $tabxtm, $checkxtmCN1, $checkxtmCN2, $checkxtmCN3
Local $tabrar, $checkrarCN1, $checkrarCN2, $checkrarCN3
;Local $tabzip, $checkzipCN1, $checkzipCN2, $checkzipCN3
Local $tabwin
Global $pause


GUICreate("Winrar xtm", 250, 170) ; will create a dialog box that when displayed is centered
$pass = GUICtrlCreateInput("saisir le mot de passe", 6, 3, 235, 20)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)

$tab = GUICtrlCreateTab(7, 25, 235, 90) ;creation des tab

$tabxtm = GUICtrlCreateTabItem("Xtremsplit")
$checkxtmCN1 = GUICtrlCreateCheckbox("Valide le Bouton Coller", 15, 50, 170, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$checkxtmCN2 = GUICtrlCreateCheckbox("Valide le rapport", 15, 70, 170, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$checkxtmCN3 = GUICtrlCreateCheckbox("Fermer -auto", 15, 90, 170, 20)
GUICtrlSetState(-1, $GUI_CHECKED)

$tabrar = GUICtrlCreateTabItem("Winrar")
$checkrarCN1 = GUICtrlCreateCheckbox("écraser le fichier existant", 15, 50, 170, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$checkrarCN2 = GUICtrlCreateCheckbox("Fermer le rapport -auto", 15, 70, 170, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$checkrarCN3 = GUICtrlCreateCheckbox("fermer -auto", 15, 90, 170, 20)
GUICtrlSetState(-1, $GUI_UNCHECKED)

;$tabzip = GUICtrlCreateTabItem("Winzip")
;$checkzipCN1 = GUICtrlCreateCheckbox(" coller -auto", 15, 50, 170, 20)
;GUICtrlSetState(-1, $GUI_CHECKED)
;$checkzipCN2 = GUICtrlCreateCheckbox("valide le rapport -auto", 15, 70, 170, 20)
;GUICtrlSetState(-1, $GUI_CHECKED)
;$checkzipCN3 = GUICtrlCreateCheckbox("fermer -auto", 15, 90, 170, 20)
;GUICtrlSetState(-1, $GUI_CHECKED)

;$tabwin = GUICtrlCreateTabItem("Windows")

;$tababout = GUICtrlCreateTabItem("About")

GUICtrlCreateTabItem("") ;fin creation des tab
;if $i=0 then $Icon2 = GUICtrlCreateIcon("I:\icon2.ico", -1, 184, 80, 57, 49, BitOR($SS_NOTIFY,$WS_GROUP))
$Icon1 = GUICtrlCreateIcon("I:\icon1.ico", -1, 184, 120, 57, 49)
$Button_1 = GUICtrlCreateButton("Start (F11)", 15, 115, 75)
$Button_2 = GUICtrlCreateButton("Pause (F12)", 105, 115, 75)
$Button_3 = GUICtrlCreateButton("Exit", 60, 142, 75)
GUISetState()

;~ GUICtrlSetOnEvent ($Button_1, "fonction1")
GUICtrlSetOnEvent ($Button_2, "pause")
GUICtrlSetOnEvent ($Button_3, "quitter")

GUICtrlSetImage($Icon1, "I:\icon1.ico")

$i = 1

While $i
    Sleep(100)
    While $pause ; pour tout stoper tant qu'on est sur pause !
        Sleep(100)
    WEnd
    
    If WinExists("Saisissez le mot de passe") Or WinExists("Enter password") And 0 Then
        If GUICtrlRead($pass) = $passtest Then
            MsgBox(0, "Attention", "Vous n'avez pas saisi de mot de passe", 5)
            WinActivate("Winrar xtm")
            Sleep(500)
            pause()
        Else
            WinActivate("Saisissez le mot de passe")
            WinActivate("Enter password")
            AutoItSetOption("SendKeyDelay", 100)
            Send(GUICtrlRead($pass))
            Sleep(100)
            Send("{ENTER}")
        EndIf
    EndIf
    ;xtremsplit valide bouton coller -auto $checkxtmCN1
    If WinExists("de") And GUICtrlRead($checkxtmCN1) = 1 And 0 Then
        $ZeroCoor1 = WinGetPos("de")
        If PixelGetColor($ZeroCoor1[0] + 218, $ZeroCoor1[1] + 198) = $pixcolor And WinExists("de") Then
            WinActivate("de")
            $ZeroCoor = WinGetPos("de")
            MouseClick("left", $ZeroCoor[0] + 224, $ZeroCoor[1] + 252, 1, 15)
        EndIf
    EndIf
    ;xtremsplit valide le rapport -auto $checkxtmCN2
    If WinExists("-=Xtremsplit=-") And GUICtrlRead($checkxtmCN2) = 1 And 0 Then
        WinActivate("-=Xtremsplit=-")
        Sleep(150)
        Send("{ENTER}")
    EndIf
    ;xtremsplit fermer -auto $checkxtmCN3
    If WinExists("de") And GUICtrlRead($checkxtmCN3) = 1 And 0 Then
        Sleep(150)
        $ZeroCoor1 = WinGetPos("de")
        If PixelGetColor($ZeroCoor1[0] + 218, $ZeroCoor1[1] + 198) <> $pixcolor Then
            $size = WinGetClientSize("de")
            If $size[0] = $x And $size[1] = $y Then
                WinClose("de")
            EndIf
        EndIf
    EndIf
    ;winrar valide bouton écraser fichier $checkrarCN1
    If WinExists("Confirmer le remplacement du fichier") And GUICtrlRead($checkrarCN1) = 1 And 0 Then
        ;WinActivate("Confirmer le remplacement du fichier")
        ControlClick("Confirmer le remplacement du fichier", "", "Button2")
    Else
        ;WinActivate("Confirmer le remplacement du fichier")
        ControlClick("Confirmer le remplacement du fichier", "", "Button6")
    EndIf
    If WinExists("Confirm file replace") And GUICtrlRead($checkrarCN1) = 1 And 0 Then
        ;WinActivate("Confirm file replace")
        ControlClick("Confirm file replace", "", "Button2")
    Else
        ;WinActivate("Confirm file replace")
        ControlClick("Confirm file replace", "", "Button6")
    EndIf
    ;winrar valide le rapport -auto $checkrarCN2
    If WinExists("WinRAR : Messages de diagnostic") And GUICtrlRead($checkrarCN2) = 1 And 0 Then
        ;WinActivate("WinRAR : Messages de diagnostic")
        ControlClick("WinRAR : Messages de diagnostic", "", "Button1")
    EndIf
    If WinExists("WinRAR: Diagnostic messages") And GUICtrlRead($checkrarCN2) = 1 And 0 Then
        ;WinActivate("WinRAR: Diagnostic messages")
        ControlClick("WinRAR: Diagnostic messages", "", "Button1")
    EndIf
    ;winrar fermer -auto $checkrarCN3
    Opt("WinTitleMatchMode", 2) ;recherche partiel du titre
    If WinExists(" - WinRAR") And GUICtrlRead($checkrarCN3) = 1 And 0 Then
        ;Winclose(" - WinRAR")
        WinClose("[CLASS:WinRarWindow]", "")
    EndIf
    ;*************************************************************************************************
WEnd
GUIDelete()



Func pause()
    If Not $pause Then
        GUICtrlSetImage($Icon1, "I:\icon2.ico")
        $pause = 1
    Else
        GUICtrlSetImage($Icon1, "I:\icon1.ico")
        $pause = 0
    EndIf
EndFunc   ;==>pause

Func quitter()
    GUIDelete()
    Exit
EndFunc

 

[xeno]

@Tlem

j'ai déjà jeté un oeil , pour le start, disons que je voulais que cela démarre aussitot avec possibilité
d'une pause, d'ou le start. (je suis un peu fainéant autant m'éviter un clic pour lancer l'appli )

j'ai bien essayé les case select et switch mais ça partait en live, et cliquait tout seul n'importe ou

[xeno]

@Iste

je vais assimilé ça et tester, et je reviens, peut être pas ce soir, en attendant merci....