AutoIt Français

Bonjour,

je cherche à réaliser un outil pour faciliter les installations de logiciels.
Il se présente sous la forme d'une fenêtre où suivant un modèle de pc choisi (lu dans un fichier ini) et suivant les éléments sélectionnés dans une liste (lue dans le même fichier ini).

Mais je me trouve bloqué pour le lancement des applications suivant ce qui est choisi.

Pouvez-vous m'aider ?

Franck.

Voici le au3 :

► Afficher le texte

Code : Tout sélectionner

#include <GuiConstants.au3>
#include <GUIListBox.au3>
#include <GuiComboBoxEx.au3>

Opt("GUIOnEventMode", 1)
GUISetOnEvent($GUI_EVENT_CLOSE, "Annuler")
$model = IniReadSection("lance.ini", "Modeles")
$oneshot = IniReadSection("lance.ini", "Oneshot")

;-------------------------------------------------------------------
;----------GUI------------------------------------------------------
;-------------------------------------------------------------------

GuiCreate("IC9 - Installeur de composants", 600, 450)
GUISetState ()
Local $liste, $sItems, $aItems, $ochoix, $cchoix, $ListOption
Dim $modl, $list

;-------combo-------------------------------------------------------

GuiCtrlCreateLabel("Selectionner le modèle de l'ordinateur :", 10, 25)
If @error Then 
    MsgBox(4096, "", "Erreur ! Vérifier la présence du fichier INI.")
Else
$combo = GUICtrlCreateCombo("", 10, 45, 580, 100)
    For $i = 1 To $model[0][0]
       GUICtrlSetData($combo, $model[$i][0])
    Next
EndIf

;--------liste------------------------------------------------------

GuiCtrlCreateLabel("Selectionner les applications à rajouter :", 10, 130)
If @error Then 
    MsgBox(4096, "", "Erreur ! Vérifier la présence du fichier INI.")
Else
    $liste = GuiCtrlCreateList("", 10, 150, 580, 250, BitOR($LBS_STANDARD, $LBS_EXTENDEDSEL))
    For $i = 1 To $oneshot[0][0]
       GUICtrlSetData($liste, $oneshot[$i][0])
    Next
EndIf

;-------------------------------------------------------------------

$bouton_Valider = GuiCtrlCreateButton("OK", 100, 405, 100, 30)
$bouton_Annuler = GuiCtrlCreateButton("Annuler", 400, 405, 100, 30)
GUICtrlSetState ( $bouton_Valider, $GUI_ENABLE)

GUICtrlSetOnEvent($bouton_Valider, "Valider")
GUICtrlSetOnEvent($bouton_Annuler, "Annuler")

;-------------------------------------------------------------------
;--------Les fonctions----------------------------------------------
;-------------------------------------------------------------------

Func Valider()
    $aItems = _GUICtrlListBox_GetSelItemsText ($liste)
    For $iI = 1 To $aItems[0]
        $sItems &= @LF & $aItems[$iI]
    Next
    SelectionMod(GUICtrlRead ($combo))
    $reponse = MsgBox (4, "Confirmation", "Etes-vous sur de vouloir installer : " & $ListOption & $sItems);ici il faudrait avoir la liste des noms de programmes qui seront lancés.
    If $reponse=7 then WinClose ("Confirmation")
    If $reponse=6 then Action()
EndFunc

Func Annuler()
    Exit
EndFunc

Func Action()

Runwait($modl)

EndFunc

Func SelectionMod($ListOption)
    MsgBox(64, "Installations", "La liste est : " & $ListOption & $sItems)
EndFunc

While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then Exit
Wend
    
;----------SUITE-------------------------------------------------------
;   Pour le $ListOption : je lance les valeurs correspondantes dans la section du fichier ini en runwait et je boucle pour tous les faire.
;
;   Pour tous les $sItems : je lance la valeur correspondante en runwait avec le paramètre et je boucle pour tous les faire. 
;
;   Le chemin du programme prend comme lettre de lecteur l'emplacement du présent fichier.

J'espère que ce n'est pas trop "usinagaz"...

Et voici le fichier ini :

; Le nom de la valeur correspond au nom du composant à installer.
; La valeur est le chemin, le nom et les paramètres du fichier d'installation.
; Le programme prendra comme lettre l'emplacement du présent fichier ini.
;
;-------Exemples---------
; Install Bidule=Windows\Bidule\V1.2\Bidule-V1.2.msi;/qb!

[Oneshot]
Bidule=Windows\bidule\bidule.msi;/r /t:2
Chose=Windows\chose\chose.exe;/silent
Test=Windows\test\IPCONF.bat
Truc=Windows\truc\truc.exe;-F2c:\logs\truc.log

[Modeles]
Fixe=pc_fixe
Portable=pc_portable

[pc_fixe]
dirfixe=Windows\fixe\initialkb2.msi;/i

[pc_portable]
dirportable=Windows\portable\initialkb0.msi;/i

Merci par avance.

Voila j'ai trouvé :

► Afficher le texteCode

Code : Tout sélectionner

#include <GuiConstants.au3>
#include <GUIListBox.au3>
#include <GuiComboBoxEx.au3>

Opt("GUIOnEventMode", 1)
GUISetOnEvent($GUI_EVENT_CLOSE, "Cancel")
$model = IniReadSection("lance.ini", "Models")
$oneshot = IniReadSection("lance.ini", "Oneshot")

;-------------------------------------------------------------------
;----------GUI------------------------------------------------------
;-------------------------------------------------------------------

GuiCreate("Installer", 600, 450)
GUISetState ()
Local $liste, $sItems, $aItems, $ListOption, $ret, $listmodel

;-------combo-------------------------------------------------------

GuiCtrlCreateLabel("Select the machine model :", 10, 25)
If @error Then 
    MsgBox(4096, "", "Error ! Check for INI file.")
Else
$combo = GUICtrlCreateCombo("", 10, 45, 580, 100)
    For $i = 1 To $model[0][0]
       GUICtrlSetData($combo, $model[$i][0])
    Next
EndIf

;--------liste------------------------------------------------------

GuiCtrlCreateLabel("Select the applications to install (press CTRL to select multiple applications) :", 10, 130)
If @error Then 
    MsgBox(4096, "", "Error ! Check for INI file.")
Else
    $liste = GuiCtrlCreateList("", 10, 150, 580, 250, BitOR($LBS_STANDARD, $LBS_EXTENDEDSEL))
    For $i = 1 To $oneshot[0][0]
       GUICtrlSetData($liste, $oneshot[$i][0])
    Next
EndIf

;-------------------------------------------------------------------

$bouton_Activate = GuiCtrlCreateButton("OK", 100, 405, 100, 30)
$bouton_Cancel = GuiCtrlCreateButton("Cancel", 400, 405, 100, 30)
GUICtrlSetState ( $bouton_Activate, $GUI_ENABLE)

GUICtrlSetOnEvent($bouton_Activate, "Activate")
GUICtrlSetOnEvent($bouton_Cancel, "Cancel")

;-------------------------------------------------------------------
;--------Les fonctions----------------------------------------------
;-------------------------------------------------------------------

Func Activate()
    $aItems = _GUICtrlListBox_GetSelItemsText ($liste)
    For $iI = 1 To $aItems[0]
        $sItems &= @LF & $aItems[$iI]
    Next
    SelectionMod(GUICtrlRead ($combo))
EndFunc

Func Cancel()
    Exit
EndFunc

Func Action()
    $var = IniRead("lance.ini", "Models", $listmodel, "NotFound")
    $varpc = IniReadSection("lance.ini", $var)
    If @error Then 
        MsgBox(4096, "Caution", "Error occurred, probably no INI file.")
        Else
        For $i = 1 To $varpc[0][0]
            MsgBox(4096, $varpc[$i][0], $varpc[$i][1]) ; REPLACE MSGBOX WITH RUNWAIT
        Next
        $aItems = _GUICtrlListBox_GetSelItemsText ($liste)
        For $i = 1 To $aItems[0]
            For $x = 1 To $oneshot[0][0]
                If $aItems[$i] = $oneshot[$x][0] Then MsgBox(4096, $oneshot[$x][0], $oneshot[$x][1]) ; REPLACE MSGBOX WITH RUNWAIT
            Next
        Next
    EndIf
MsgBox(4096, "Fin", "Fin")
EndFunc

Func SelectionMod($ListOption)
    $var = IniRead("lance.ini", "Models", $ListOption, "NotFound")
    $varpc = IniReadSection("lance.ini", $var)
    If @error Then 
        MsgBox(4096, "", "Error occurred, probably no INI file.")
        Else
        For $i = 1 To $varpc[0][0]
            $ret=$ret & @CRLF & $varpc[$i][0]
        Next
    EndIf
    $listmodel=$ListOption
    $tous = $ret & $sItems
    $reponse = MsgBox (4, "Confirmation", "Are you sure you want to install : " & @CRLF & $tous & @CRLF & @CRLF & "?")
    For $iI = 1 To $tous
        MsgBox(4096, "Tous", $aItems[$iI])
    Next
    
    If $reponse=7 then WinClose ("Confirmation")
    If $reponse=6 then Action()
EndFunc

While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then Exit
    Wend

Il ne restera plus qu'à remplacer les msgbox par des runwait (lignes "REPLACE MSGBOX WITH RUNWAIT")et le tour est joué.

J'avais fait sa :
http://www.autoitscript.fr/forum/viewtopic.php?f=6&t=81

Si sa peut t'aider

Je te remercie. J'avais déjà vu ton script.
Mais je m'étais établi une contrainte : pas de nom de logiciel ou d'emplacement dans le script.
Tout devait être lu dans un fichier ini, modifiable à souhait.

J'ai mis la solution dans le post du Mer Juin 25, 2008 4:55 pm.

Je corrige encore 2 autres bug et je le republie.
- la petite croix de la fenêtre ne ferme rien : ligne GUISetOnEvent($GUI_EVENT_CLOSE... mal positionnée.
- si on ne choisie rien dans la combobox cela produit une erreur. Il faudrait que cela ne fasse rien.

A suivre...

Voila, c'est corrigé :

► Afficher le texte

Code : Tout sélectionner

#include <GuiConstants.au3>
#include <GUIListBox.au3>
#include <GuiComboBoxEx.au3>

Opt("GUIOnEventMode", 1)

If Not FileExists("ic9.ini") Then
    MsgBox(48, "INI ?", "Le fichier de paramètre IC9.INI n'a pas été trouvé dans le même répertoire que le programme IC9.EXE.")
    Exit
EndIf

$model = IniReadSection("ic9.ini", "Models")
If @error Then 
    MsgBox(16, "paramètre incorrect", "Le fichier INI ne contient pas de section [Models].")
    Exit
EndIf
$oneshot = IniReadSection("ic9.ini", "Oneshot")
If @error Then 
    MsgBox(16, "paramètre incorrect", "Le fichier INI ne contient pas de section [Oneshot].")
    Exit
EndIf
GUISetState (@SW_SHOW)
;-------------------------------------------------------------------
;----------GUI------------------------------------------------------
;-------------------------------------------------------------------

GuiCreate("IC9 - Installeur", 600, 450)
GUISetOnEvent($GUI_EVENT_CLOSE, "Annuler")
GUISetState ()
Local $liste, $sItems, $aItems, $ListOption, $ret, $listmodel

;-------combo-------------------------------------------------------

GuiCtrlCreateLabel("Sélectionner le modèle de pc :", 10, 20)
If @error Then 
    MsgBox(16, "combo", "Paramètre incorrect dans le fichier INI.")
Else
$combo = GUICtrlCreateCombo("None", 10, 45, 580, 100)
    For $i = 1 To $model[0][0]
       GUICtrlSetData($combo, $model[$i][0])
    Next
EndIf

;--------liste------------------------------------------------------

GuiCtrlCreateLabel("Sélectionner les applications supplémentaires à installer :", 10, 125)
If @error Then 
    MsgBox(16, "liste", "Paramètre incorrect dans le fichier INI.")
Else
    $liste = GuiCtrlCreateList("", 10, 150, 580, 250, BitOR($LBS_STANDARD, $LBS_EXTENDEDSEL))
    For $i = 1 To $oneshot[0][0]
       GUICtrlSetData($liste, $oneshot[$i][0])
    Next
EndIf

;-------------------------------------------------------------------

$bouton_Activate = GuiCtrlCreateButton("OK", 100, 405, 100, 30)
$bouton_Annuler = GuiCtrlCreateButton("Annuler", 400, 405, 100, 30)
GUICtrlSetOnEvent($bouton_Activate, "Activate")
GUICtrlSetOnEvent($bouton_Annuler, "Annuler")

While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend

;-------------------------------------------------------------------
;--------Les fonctions----------------------------------------------
;-------------------------------------------------------------------

;--------"Activate"
Func Activate()
    $aItems = _GUICtrlListBox_GetSelItemsText ($liste)
    For $iI = 1 To $aItems[0]
        $sItems &= @LF & $aItems[$iI]
    Next
    SelectionMod(GUICtrlRead ($combo))
EndFunc

;--------Annuler
Func Annuler()
    Exit
EndFunc

;--------Action
Func Action()
    $var = IniRead("lance.ini", "Models", $listmodel, "NotFound")
    If $var <> "NotFound" then
        $varpc = IniReadSection("lance.ini", $var)
        For $i = 1 To $varpc[0][0]
            MsgBox(4096, $varpc[$i][0], $varpc[$i][1]) ; REPLACE MSGBOX WITH RUNWAIT
        Next
    EndIf
    $aItems = _GUICtrlListBox_GetSelItemsText ($liste)
    For $i = 1 To $aItems[0]
        For $x = 1 To $oneshot[0][0]
            If $aItems[$i] = $oneshot[$x][0] Then MsgBox(4096, $oneshot[$x][0], $oneshot[$x][1]) ; REPLACE MSGBOX WITH RUNWAIT
        Next
    Next
MsgBox(4096, "Fin", "Fin")
Exit
EndFunc

;--------SelectionMod
Func SelectionMod($ListOption)
    $var = IniRead("lance.ini", "Models", $ListOption, "NotFound")
    If $var <> "NotFound" then
        $varpc = IniReadSection("lance.ini", $var)
        If @error Then 
            MsgBox(16, "Sélection models", "Paramètre incorrect dans le fichier INI.")
            Else
            For $i = 1 To $varpc[0][0]
                $ret=$ret & @CRLF & $varpc[$i][0]
            Next
        EndIf
    Else 
    $ret = ""
    EndIf       
$listmodel=$ListOption
$tous = $ret & $sItems
$reponse = MsgBox (4, "Confirmation", "Etes-vous sûr de vouloir installer : " & @CRLF & $tous & @CRLF & @CRLF & "?")
    If $reponse=7 then 
        $sItems = ""
        $ret = ""
        WinClose ("Confirmation")
    EndIf
    If $reponse=6 then Action()
EndFunc

Il faudra remplacer msgbox par runwait avec la variable [$i][1] (et [$x][1]) pour les lignes REPLACE MSGBOX WITH RUNWAIT.

Pour le fichier ini il faudra qu'il soit comme suit :

; Le nom de la valeur correspond au nom du composant à installer.
; La valeur est le chemin, le nom et les paramètres du fichier d'installation.
; Le programme prendra comme lettre l'emplacement du présent fichier ini.
;
;-------Exemples---------
; Install Bidule=Windows\Bidule\V1.2\Bidule-V1.2.msi /qb!

[Oneshot]
Bidule=Windows\bidule\bidule.msi /r /t:2
Chose=Windows\chose\chose.exe /silent
Test=Windows\test\IPCONF.bat
Truc=Windows\truc\truc.exe -F2c:\logs\truc.log

[Modeles]
Fixe=pc_fixe
Portable=pc_portable

[pc_fixe]
dirfixe=Windows\fixe\initialkb2.msi /i

[pc_portable]
dirportable=Windows\portable\initialkb0.msi /i
wifi=Windows\portable\unablewifi.msi

Voila.

franckb a écrit :Je te remercie. J'avais déjà vu ton script.
Mais je m'étais établi une contrainte : pas de nom de logiciel ou d'emplacement dans le script.
Tout devait être lu dans un fichier ini, modifiable à souhait.

Lit tout mon topic tu verras que tout est géré par le fichier INI sauf les formes des "group"

Ainsi donc la molette servait à descendre dans la fenêtre !!!
Pardon je l'avais lu en diagonale.
Dommage pour moi j'aurais pu gagner du temps.
Merci quand même.

AutoIt Français

[R] Installation suivant fichier ini

[R] Installation suivant fichier ini

Re: [R] Installation suivant fichier ini

Re: [..] Installation suivant fichier ini

Re: [..] Installation suivant fichier ini

Re: [R] Installation suivant fichier ini

Re: [..] Installation suivant fichier ini

Re: [..] Installation suivant fichier ini