[..] Barre de Progression + File Install + Run

[Rere78]

Bonjour,

J'ai réaliser ce petit script, pour un projet scolaire.
Il n'est pas parfait car je débute dans AutoIt alors j'ai fait ce script avec le forum , petit bout par petit bout, j'ai récupérer du code.

J'ai passer des heures entière sans succès pour ajouter une barre de progression. J'ai télécharger des UDF d'exemple mais rien n'y fait.

Pouvez-vous m'aider à créer une barre de progression. Rien de bien méchant ( j'espère... ) juste un timer qui avance de 5 % suivant mes manipulation ( 5 % après avoir copier un fichier, 10 % pour l'installation de EasyPhp..., 5 % pour la copie d'un autre fichier..... Ceci me permettra de mieux comprendre le fonctionnement et de pouvoir finir le script. Même si la barre de progression est plus lente que l'installation , cela ne pose pas de problème : c'est juste pour l'aspect visuel :p

Si il existe une méthode pour faire une barre de progression suivant ce script, je suis aussi preneur.

Autres question, j'aimerais caché l'installation de EasyPhp c'est à dire ne pas voir les fenetres qui bouge et se coche décoche toute seul mais simplement les cachers.

Merci par avance pour vos réponses, conseils et aide.

Bonne soirée.
Désolé si le script est pas très bien écrit mais comme je suis un débutant et il faut bien commencer.

Merci par avance

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>
#include <Constants.au3>
#include <7Zip.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form=c:\documents and settings\administrateur\bureau\form1.kxf
$Form3 = GUICreate("Logiciel 2BL", 683, 448, 398, 227)
GUISetBkColor(0xFFFFFF)
$ButtonInstaller= GUICtrlCreateButton("Lancer L'installation", 140, 364, 147, 25)
$ButtonAnnuller= GUICtrlCreateButton("Annuler L'installation", 396, 364, 147, 25)
$Button3CTH = GUICtrlCreateButton("Lancer 3CTH", 16,136, 81, 17)
$Label3 = GUICtrlCreateLabel("Copyright © 2010  3CTH. All Rights Reserved.", 242, 420, 221, 17)
$Pic1 = GUICtrlCreatePic("C:\Documents and Settings\Administrateur\Mes documents\Mes images\bnn.bmp", 64, 16, 553, 81)
$Progress1 = GUICtrlCreateProgress(128, 320, 473, 25)
$Pic2 = GUICtrlCreatePic("C:\Documents and Settings\Administrateur\Mes documents\Mes images\Copie de texte banniere.bmp", 128, 128, 473, 161)
$Pic3 = GUICtrlCreatePic("C:\Documents and Settings\Administrateur\Mes documents\Downloads\images.jpg", 600, 384, 73, 49)
$Pic4 = GUICtrlCreatePic("C:\Documents and Settings\Administrateur\Mes documents\Downloads\images.jpg", 8, 386, 73, 49)
$ButtonFermer3CTH = GUICtrlCreateButton("Fermer 3CTH", 16, 200, 81, 17)
$ButtonDocumentation = GUICtrlCreateButton("Documentation", 16, 264, 81, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
  $nMsg = GUIGetMsg()
  Switch $nMsg
      Case $GUI_EVENT_CLOSE
          Exit
      Case $ButtonAnnuller
    $ConfirmationQuitter = MsgBox(4 + 64,"Quitter le logiciel 3CTH", "Voulez-vous quitter le logiciel 3CTH ?")
       if $ConfirmationQuitter = 6 Then

         Exit

     Else
     EndIf

    Case $ButtonDocumentation
    ShellExecute (@TempDir&"\documentation.pdf")

Case $ButtonFermer3CTH
    While 1
If Not ProcessExists("iexplore.exe")Then ExitLoop
ProcessClose("iexplore.exe")
WEnd

      Case $ButtonInstaller
       $Confirmationinstaller = MsgBox(4 + 64,"Installation 3CTH", "Voulez-vous installer le logiciel 3CTH ?")
       if $Confirmationinstaller = 6 Then
          ; Debut de l'installation

;Compilation de l'installation de EasyPhp
FileInstall("C:\Temp\Setup.exe", @TempDir&"\Setup.exe", 1)

;Compilation de la documentation
FileInstall("C:\Temp\documentation.pdf", @TempDir&"\documentation.pdf", 1)

;Compilation des images
FileInstall("C:\Temp\Images.zip", @TempDir&"\Images.zip", 1)

;Compilation de httpd.conf
FileInstall("C:\Temp\httpd.conf", @TempDir&"\httpd.conf", 1)

;Compilation de lphp.ini
FileInstall("C:\Temp\php.ini", @TempDir&"\php.ini", 1)

;Compilation des données du projet 3CTH
FileInstall("C:\Temp\3CTH.zip", @TempDir&"\3CTH.zip", 1)

;Test pour savoir si EasyPHP est déjà installé sur l'ordinateur
If FileExists(@ProgramFilesDir&"\EasyPHP-5.3.2") Then
    $Installation = 1
Else
    $Installation = 0
EndIf

        ;Si EasyPhp est déjà installer sur l'ordinateur alors on install pas EasyPHP
        If $Installation = 1 Then

                ; Test si le dossier existe, si oui alors rien si non , creation du dossier 3CTH
                                    If FileExists(@ProgramFilesDir&"\EasyPHP-5.3.2\www\3CTH") Then
                            sleep ( 100 )
                        Else
                            ;Création du dossier 3CTH
                            DirCreate(@ProgramFilesDir&"\EasyPHP-5.3.2\www\3CTH")
                            sleep ( 1000 )
                            ; Décompression des sources du projet
                            FileCopy(@TempDir&"\3CTH.zip", @ProgramFilesDir&"\EasyPHP-5.3.2\www\3CTH\3CTH.zip", 1)
                            sleep ( 1000 )
                            $ArcFile = (@ProgramFilesDir&"\EasyPHP-5.3.2\www\3CTH\3CTH.zip")
                            $Output = (@ProgramFilesDir&"\EasyPHP-5.3.2\www\3CTH")
                            $retResult = _7ZIPExtract(0, $ArcFile, $Output)
                            sleep ( 1000 )
                            ;Décompression des images
                            FileCopy(@TempDir&"\images.zip", @ProgramFilesDir&"\EasyPHP-5.3.2\www\3CTH\IMAGES\Images.zip", 1)
                            sleep ( 1000 )
                            $ArcFile = (@ProgramFilesDir&"\EasyPHP-5.3.2\www\3CTH\IMAGES\images.zip")
                            $Output = (@ProgramFilesDir&"\EasyPHP-5.3.2\www\3CTH\IMAGES")
                            $retResult = _7ZIPExtract(0, $ArcFile, $Output)
                            sleep ( 1000 )
                            ;Ajout des fichiers de configuration
                            FileCopy(@TempDir&"\php.ini", @TempDir&"\EasyPHP-5.3.2\conf_files\php.ini", 1)
                            FileCopy(@TempDir&"\httpd.conf", @TempDir&"\EasyPHP-5.3.2\conf_files\httpd.conf", 1)
                        EndIf
                    Else

                        ;Lancement de l'installation d'easyPHP
                        Run(@TempDir&"\Setup.exe")

WinWaitActive("Langue de l'assistant d'installation","")
sleep ( 1000 )
send ( "{ENTER}" )
WinWaitActive("Installation - EasyPHP","")
sleep ( 1000 )
send ( "{ENTER}" )
sleep ( 1000 )
Send("{TAB}")
sleep ( 1000 )
Send("{UP}")
sleep ( 1000 )
send ( "{ENTER}" )
sleep ( 1000 )
send ( "{ENTER}" )
sleep ( 1000 )
send ( "{ENTER}" )
sleep ( 1000 )
send ( "{ENTER}" )
sleep ( 1000 )
send ( "{ENTER}" )
sleep ( 40000 )
send ( "{BACKSPACE}" )
sleep ( 1000 )
send ( "{ENTER}" )
sleep ( 1000 )

MsgBox(64, "Installation d'EasyPHP 5.3.2", "L'installation d'EASYPHP s'est déroulée avec succès.")

; Test si le dossier existe, si oui alors rien si non , creation du dossier 3CTH
                        If FileExists(@ProgramFilesDir&"\EasyPHP-5.3.2\www\3CTH") Then
                            sleep ( 100 )
                        Else
                            ;Création du dossier 3CTH
                            DirCreate(@ProgramFilesDir&"\EasyPHP-5.3.2\www\3CTH")
                            sleep ( 1000 )
                            ; Décompression des sources du projet
                            FileCopy(@TempDir&"\3CTH.zip", @ProgramFilesDir&"\EasyPHP-5.3.2\www\3CTH\3CTH.zip", 1)
                            sleep ( 1000 )
                            $ArcFile = (@ProgramFilesDir&"\EasyPHP-5.3.2\www\3CTH\3CTH.zip")
                            $Output = (@ProgramFilesDir&"\EasyPHP-5.3.2\www\3CTH")
                            $retResult = _7ZIPExtract(0, $ArcFile, $Output)
                            sleep ( 1000 )
                            ;Décompression des images
                            FileCopy(@TempDir&"\images.zip", @ProgramFilesDir&"\EasyPHP-5.3.2\www\3CTH\IMAGES\Images.zip", 1)
                            sleep ( 1000 )
                            $ArcFile = (@ProgramFilesDir&"\EasyPHP-5.3.2\www\3CTH\IMAGES\images.zip")
                            $Output = (@ProgramFilesDir&"\EasyPHP-5.3.2\www\3CTH\IMAGES")
                            $retResult = _7ZIPExtract(0, $ArcFile, $Output)
                            sleep ( 1000 )
                            ;Ajout des fichiers de configuration
                            FileCopy(@TempDir&"\php.ini", @TempDir&"\EasyPHP-5.3.2\conf_files\php.ini", 1)
                            FileCopy(@TempDir&"\httpd.conf", @TempDir&"\EasyPHP-5.3.2\conf_files\httpd.conf", 1)
                        EndIf
MsgBox(64, "Installation du Projet 3CTH", "L'installation du Projet 3CTH s'est déroulée avec succès.")
        EndIf



         ;Fin de l'installation
          Else

        EndIf

    Case $Button3CTH
    $oIE = _IECreate ("https://localhost/3CTH")
    _IELoadWait ($oIE)



    EndSwitch
WEnd

[pop45]

pour une installation silencieuse il faut le lancer avec l'argument -s je crois
Pour le fait de cacher l'installation cherche sa a été aborder beaucoup de fois

[Tlem]

Pour remplir votre ProgressBar, tout ce que vous avez à faire c'est de lui donner une valeur.

Puisque vous parlez de projet scolaire, on va faire référence aux gâteau.
Votre ProgressBar est comme un gâteau et donc peut être divisée en %.
Lorsque celle-ci est remplie complètement, elle est à 100%.
Lorsqu'elle est remplie à moitié, elle est à 50%.
Etc ...

Puisque vous avez fait ceci :

Code : Tout sélectionner

$Progress1 = GUICtrlCreateProgress(128, 320, 473, 25)

vous avez par la variable $Progress1 le controlID de la ProgressBar.
Ceci va vous permettre de lui envoyer certaines informations (tel que le taux de remplissage de la barre).

Pour dire que la ProgressBar doit être remplie à 10%, vous devez lui envoyer la valeur 10 comme ceci :

Code : Tout sélectionner

GUICtrlSetData($Progress1, 10)

Pour remplir la ProgressBar à 50%, vous devez donc lui envoyer :

Code : Tout sélectionner

GUICtrlSetData($Progress1, 10)

Et voilà, vous savez remplir une ProgressBar.
Évidement, dans votre code, il faudra répartir votre remplissage en fonction des actions effectuées et terminées.


En ce qui concerne l'installation de EasyPhp sans les fenêtres, peut être devriez-vous vous orienter vers une installation silencieuse.

Code : Tout sélectionner

EasyPHP-x.x.x.exe /VERYSILENT

[Rere78]

Bonjour,

Merci beaucoup pour votre aide très matinal, je vais devoir payer les croissants et le café si sa continue

Pour l'installation d'easyphp en mode silence avec autoIt mais pas avec EasyPhp directement.
Merci pour cette information.

Pour la barre de progression, j'ai chercher beaucoup trop compliquer à ré-utiliser du code trouver par ici et par là alors qu'un simple GUICtrlSetData($Progress1, "Pourcentage de progression") est largement suffisant pour mon cas.
Merci encore pour tout, et bonne journée.

Merci

[Rere78]

Bonjour,

J'ai évolué sur le script avec votre aide et j'aurais encore besoin d'un petit coup de pouce.

J'ai une barre de progression que j'aimerais cette fois si faire progresser suivant un fileInstall et un Run.

Code : Tout sélectionner

FileInstall("C:\temp\Fichier-100MO.exe", @TempDir&"\VFichier-100MO.exe", 1)
    RunWait(@TempDir&"\Fichier-100MO.exe")

Est-ce possible ?

Merci par avance

[Tlem]

Difficile, car le programme que vous installez devrait vous renvoyer l'état d'avancement de son installation.

Si c'est le fait que votre barre d'avancement reste statique trop longtemps qui vous ennuie, alors faites en sorte qu'elle passe de gauche à droite puis de droite à gauche par exemple, ou une barre de progression constante, qui va de gauche à droite puis qui repart de gauche à droite, etc ...

Pour éviter que la progression de la barre ne soit bloquée lors de l'installation d'un logiciel X, utilisez la commande AdlibRegister() pour qu'elle s'occupe de faire bouger la barre.

Faites quelques recherches sur le forum sur les ProgressBar et vous trouverez des choses intéressantes.

[Rere78]

Bonjour,

Nan mais...

Comment vous faite, j'ai retourner 30 000 fois le problème sans trouvé la réponse, le pire c'est que j'ai testé vos pack sur les progress Bar et j'ai vue ce genre de barre et je n'est même pas "tilter".
De plus le filecopy est plus adapter a ce que je recherche.

J'avais la solution sous les yeux mais j'ai pas du les ouvrir...

Merci encore, je tester et si j'y arrive clôture le post.

Encore merci à vous.
Bonne Soirée

PS : Si je peux aider quelqu'un en Aquariophilie ou autres... c'est le seul domaine que je maitrise.

[Rere78]

Bonjour,

Bonne nouvelle, j'arrive à créer la barre de progression (création bancale, car je n'est pas trop compris comment elle se lançais et s'arrêtait. )

Le problème c'est que j'aimerais quelle s'arrête quand je le désire. Elle doit commencer au début de mon FileInstall et elle s'arrête à la fin de mon Run.

De plus dans le code que j'ai trouver sur le forum, il y a écrit :
Ajouter un test quelconque pour sortir de la boucle (Le process d'une install par exemple) mais j'arrive pas à lui signaler ce que je veux.

Quelqu'un peut'il m'aider ?

Merci par avance et bonne soirée.

Voici mon code :

► Afficher le texte

Code : Tout sélectionner

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

Case $InstallerVmWare

    $Confirmation_installerVM = MsgBox(4 + 64,"Installation de VmWare ", "Voulez-vous installer VmWare Player ?")
       if $Confirmation_installerVM = 6 Then

MsgBox(64,"Attention ", "ATTENTION !!! A la fin de l'installation, votre ordinateur redemarrera automatiquement !!! MERCI de patienter")
    
[b]FileInstall("C:\temp\vmware-player.exe",(@TempDir&"\vmware-player.exe ", 1)
Run(@TempDir&"\vmware-player.exe /s /v /qn ADDLOCAL=ALL ALLUSERS=2 REBOOT=ReallySuppress")[/b]
local $m = 1

_SliderRight()
EndIf

Func _SliderRight()
    For $m = 208 To 553 Step 3
        GUICtrlSetPos($ba, $m, 360, 70, 25)
        Sleep(50)
    Next
        _getmsg()
    _SliderLeft()
EndFunc   ;==>_SliderRight

Func _SliderLeft()
    For $m = 553 To 208 Step -3
        GUICtrlSetPos($ba, $m, 360, 70, 25)
        Sleep(60)
    Next
        _getmsg()
    _SliderRight()
EndFunc   ;==>_SliderLeft

Func _getmsg()

    $Msg = GUIGetMsg()
    If $Msg = $GUI_EVENT_CLOSE Then Exit

   [b] ; Ajouter un test quelconque pour sortir de la boucle (Le process d'une install par exemple).[/b]

EndFunc   ;==>_getmsg

Func endscript()
    Exit
EndFunc   ;==>endscript



EndSwitch
WEnd

[Tlem]

Veuillez revoir votre code de plus prêt.

1- Pas de fonction dans une boucle quelconque.
2- Placez les fonctions de préférence à la fin du code (après la dernière ligne de votre code).
3- Installez et utilisez Scite4AutoIt pour controler votre code :

• - CTRL + F5 vérifie votre code
  - CTRL + T met correctement en forme votre code afin de le rendre plus lisible.

[Rere78]

Bonjour,

Merci pour tes réponses, la fonction CTRL + T est vraiment formidable. Elle va m'éviter de perdre 3/10 à chaque oeils.

Cependant, je possède toujours le meme problème, je n'arrive pas a déclarer arreter le lancement de ma barre de progression.

Je m'explique : Quand je lance la fonction de la barre de progression :

Code : Tout sélectionner

_SliderRight()

Celle-çi tourne en boucle toujours et encore sans jamais exécuter la suite du code.

J'aimerais qu'elle se lance, puis j'exécute mon code puis elle s'arrête.

Pouvez-vous m'éclairer encore une petite fois ?

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <7zip.au3>

#region ### START Koda GUI section ### Form=c:\documents and settings\administrateur\bureau\workstation.kxf
$Form3 = GUICreate("  Installation de l'environnement3HPGG ", 683, 448, 398, 227)
GUISetBkColor(0xFFFFFF)
$Label3 = GUICtrlCreateLabel("Copyright © 2010  3HPGG. All Rights Reserved.", 298, 404, 221, 17, $WS_GROUP)
$Pic1 = GUICtrlCreatePic("C:\Documents and Settings\Administrateur\Mes documents\Mes images\bnn.bmp", 64, 16, 553, 81)
$test = GUICtrlCreateGraphic(208, 360, 411, 25)
GUICtrlSetColor(-1, 0x0FF000)
$ba = GUICtrlCreateGraphic(208, 360, 71)
GUICtrlSetBkColor($ba, 0x0FF000)
$Pic2 = GUICtrlCreatePic("C:\temp\vmware.png", 208, 128, 409, 217)
$DocInstallation = GUICtrlCreateButton("Documentation d'installation", 24, 192, 145, 25, $WS_GROUP)
$Group1 = GUICtrlCreateGroup("VmWare Player", 8, 112, 185, 129)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$InstallerVmWare = GUICtrlCreateButton("Installer VmWare Player", 24, 144, 145, 25, $WS_GROUP)
$Group2 = GUICtrlCreateGroup("Installer les machines Virtuelles", 8, 280, 185, 129)
$VMAD = GUICtrlCreateButton("Machine Virtuelle Active Directory", 16, 360, 169, 25, $WS_GROUP)
$VLLINUX = GUICtrlCreateButton("Machine Virtuelle Open LDAP", 24, 312, 153, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

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

        Case $VLLINUX
            $ConfirmationInstallVMLINUX = MsgBox(4 + 64, "Installation de la machine Virtuelle Open LDAP", "Voulez-vous installer la machine Virtuelle Open LDAP ?")
            If $ConfirmationInstallVMLINUX = 6 Then

                Local $m = 1
                _SliderRight()


                FileInstall("C:\temp\3HPGG-DEBIAN.zip", @TempDir & "\3HPGG-DEBIAN.zip", 1)
                $ArcFile = @TempDir & "\3HPGG-DEBIAN.zip"
                $Output = FileSelectFolder("Choisir le Dossier d'installation de la machine Virtuelle", "")
                MsgBox(64, "Installation de la machine Virtuelle Open LDAP", "L'installation de la machine Virtuelle Open LDAP est en cours, Merci de patienter ")
                $retResult = _7ZIPExtract(0, $ArcFile, $Output)
                Sleep(1000)
            EndIf


        Case $InstallerVmWare

            $ConfirmationinstallerVM = MsgBox(4 + 64, "Installation de VmWare ", "Voulez-vous installer VmWare Player ?")
            If $ConfirmationinstallerVM = 6 Then

                MsgBox(64, "Attention ", "ATTENTION !!! A la fin de l'installation, votre ordinateur redemarrera automatiquement !!! MERCI de patienter")
                ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                Run(@TempDir & "\vmware-player.exe /s /v /qn ADDLOCAL=ALL ALLUSERS=2 REBOOT=ReallySuppress")
                Local $m = 1

                _SliderRight()
            EndIf


    EndSwitch
WEnd




Func _SliderRight()
    For $m = 208 To 553 Step 3
        GUICtrlSetPos($ba, $m, 360, 70, 25)
        Sleep(50)
    Next
    _getmsg()
    _SliderLeft()
EndFunc   ;==>_SliderRight

Func _SliderLeft()
    For $m = 553 To 208 Step -3
        GUICtrlSetPos($ba, $m, 360, 70, 25)
        Sleep(60)
    Next
    _getmsg()
    _SliderRight()
EndFunc   ;==>_SliderLeft

Func _getmsg()

    $Msg = GUIGetMsg()
    If $Msg = $GUI_EVENT_CLOSE Then Exit

    ; Ajouter un test quelconque pour sortir de la boucle (Le process d'une install par exemple).

EndFunc   ;==>_getmsg

Func endscript()
    Exit
EndFunc   ;==>endscript

Merci par avance
Aurélien
PS : Allé 2h25 du matin, je stop AutoIt pour ce soir ... Je vais devenir un Geek...

[Tlem]

Codé rapidement :
Ajoutez ces deux lignes avant la création de votre GUI.

Code : Tout sélectionner

Global $Way = "Left"
Global $m = 208

Ensuite remplacez _SliderRight() par AdlibRegister("_Slider", 50)
Puis remplacez les 3 fonctions _SliderRight(), _SliderLeft() et _getmsg() par cette seule et unique fonction :

Code : Tout sélectionner

Func _Slider()
    If $Way = "Left" Then
        $m += 3
    Else
        $m -= 3
    EndIf
    If $m >= 553 Then $Way = "Right"
    If $m <= 208 Then $Way = "Left"

    GUICtrlSetPos($ba, $m, 360, 70, 25)
EndFunc

Vous n'aurez ensuite qu'à placer la ligne AdlibUnRegister("_Slider") aux endroits ou vous souhaitez arrêter la progressBar.