[..] Installation de logiciel selon choix

[viking1491]

Bonjour, j'ai encore besoin de vous. Dernièrement j'ai eu l'aide d'un gentil utilisateur du forum. Ça fait quelques jours que je cherche la solution.

J'ai un peu de misère à expliquer mon problème. Voici mon script et ensuite je vous explique mon problème

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>

#include <File.au3>
#include <Array.au3>

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>

Opt("GUIOnEventMode", 1)

Global $IniFile = @ScriptDir & "\Ini\Villes.ini", $aArray, $MainGUI, $Combo, $Checks, $DummyCheck

_Gui()

While GUIGetMsg() <> -3
WEnd

Func _Gui()
   $aArrayLogiciels = IniReadSection(@ScriptDir & "\Ini\logiciels.ini", "Logiciels")
   $DummyCheck =  $aArrayLogiciels[0][0]
   Dim $Checks[$aArrayLogiciels[0][0] +  1]
  
   $Height = ($aArrayLogiciels[0][0] * 20) + 50

   If $Height > @DesktopHeight Then
        MsgBox(0x0,"Erreur", "Il y a trop pour votre écran", 3)
        $Height = @DesktopHeight - 50
   EndIf

   $MainGUI = GUICreate("Menu d'installation de logiciels", 910, 340, 200, 200)
   $Label1 = GUICtrlCreateLabel ("Sélectionner les logiciels à installer", 350, 1, 300, 17)
   GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
   Local Const $sFont = "Comic Sans Ms"
   GUICtrlSetFont($Label1, 10, 400, 4, $sFont)

   GUICtrlCreateGroup ("Produits Autodesk", 20, 48, 350, 250)
   GUICtrlCreateGroup ("Produits Microsoft", 390, 48, 150, 250)
   GUICtrlCreateGroup ("Autres Produits", 555, 48, 310, 250)

   $alignH = 70
   $alignV = 30

For $i = 1 To $aArrayLogiciels[0][0]
  
      $Checks[$i] = GUICtrlCreateCheckbox($aArrayLogiciels[$i][0], $alignV, $alignH, 125, 15)
      GUICtrlSetState(-1, $GUI_DISABLE)
      $alignH = $alignH + 20
      If $alignH = 290 then
         $alignV = 200
         $alignH = 70
      EndIf
      if $i = 14 Then
         $alignH = 70
         $alignV = 400
      EndIf
      if $i = 18 then
         $alignH = 70
         $alignV = 565
      EndIf
       if $i = 29 then
         $alignH = 70
         $alignV = 725
      EndIf
   Next
   
    $Label2 = GUICtrlCreateLabel ("Place d'affaire:", 20, 25, 100, 17)
    Global $CmbTitle="Choisissez une ville..."
    $Combo = GUICtrlCreateCombo($CmbTitle, 140, 30, 220, 25, BitOR($CBS_DROPDOWNLIST, $WS_VSCROLL))
    
    GUISetBkColor (0xf0f8ff)
    GUICtrlSetOnEvent(-1, "_Autorisation")
    
    Global $Button1 = GUICtrlCreateButton ("Démarrer", 20, 305, 129, 25, 0)
    GUICtrlSetState(-1, $GUI_FOCUS)
    GUISetState()
    Global $Button2 = GUICtrlCreateButton ("Sélectionner tous", 180, 305, 129, 25, 0)
    GUISetState()
    Global $Button3 = GUICtrlCreateButton ("Déselectionner tous", 330, 305, 129, 25, 0)
    GUISetState()
    
    $aArrayCombo = IniReadSectionNames($IniFile)
    If Not @error Then
        
        For $i = 1 To $aArrayCombo[0]
            GUICtrlSetData($Combo, $aArrayCombo[$i])
        Next
     EndIf
     
    GUISetState(@SW_SHOW, $MainGUI)
EndFunc

Func _Autorisation()
    $Location = GUICtrlRead($Combo)
    
    Local $aAutorisation = IniReadSection($IniFile, $Location)
    

    If Not IsArray($aAutorisation) Then
        For $i = 1 To $DummyCheck
                GUICtrlSetState($Checks[$i], 4)
                GUICtrlSetState($Checks[$i], 128)
        Next
        Return
    EndIf

    If Not @error Then
      
        For $i = 1 To $aAutorisation[0][0]
           
             If $aAutorisation[$i][1] = 1  Then
                GUICtrlSetState($Checks[$i], $GUI_DISABLE)
                GUICtrlSetState($Checks[$i], 64)
                GUICtrlSetState($Checks[$i], $GUI_UNCHECKED)
             Else
                GUICtrlSetState($Checks[$i], 4)
                GUICtrlSetState($Checks[$i], 128)
            EndIf
         Next
    endIf
 EndFunc
 
Func _Exit()
    Exit
EndFunc

Ce que je voudrais, c'est que je sélectionne les logiciels à installer et ensuite je clique sur le bouton Démarrer et que les setup des logiciels choisis s'exécute un après l'autre. J'espère avoir été clair. Si vous avez des questions, n'ésiter pas.

[jguinch]

Merci de modifier le titre du message afin qu'il respecte les règles de présentation d'un message.

[Hugues]

Dans ton fichier logiciels.ini, tu rajoutes le lien des exe

Et de manière "cochonne", tu fais un "ShellExcecuteWait", regarde dans le script. Je ne suis pas expert en lancement d'install automatique, d'autre te renseigneront mieux que moi ^^.

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>
#include <File.au3>
#include <Array.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>

Opt("GUIOnEventMode", 1)

Global $IniFile = @ScriptDir & "\Ini\Villes.ini", $aArray, $MainGUI, $Combo, $Checks, $DummyCheck, $Button1, $Button2, $Button3, $aArrayLogiciels
_Gui()

While GUIGetMsg() <> -3
WEnd

Func _Gui()
    $aArrayLogiciels = IniReadSection(@ScriptDir & "\Ini\logiciels.ini", "Logiciels")
    $DummyCheck =  $aArrayLogiciels[0][0]
    Dim $Checks[$aArrayLogiciels[0][0] +  1]
    $Height = ($aArrayLogiciels[0][0] * 20) + 50

    If $Height > @DesktopHeight Then
        MsgBox(0x0,"Erreur", "Il y a trop pour votre écran", 3)
        $Height = @DesktopHeight - 50
    EndIf

    $MainGUI = GUICreate("Menu d'installation de logiciels", 910, 340, 200, 200)
    $Label1 = GUICtrlCreateLabel ("Sélectionner les logiciels à installer", 350, 1, 300, 17)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
    Local Const $sFont = "Comic Sans Ms"
    GUICtrlSetFont($Label1, 10, 400, 4, $sFont)

    GUICtrlCreateGroup ("Produits Autodesk", 20, 48, 350, 250)
    GUICtrlCreateGroup ("Produits Microsoft", 390, 48, 150, 250)
    GUICtrlCreateGroup ("Autres Produits", 555, 48, 310, 250)

    $alignH = 70
    $alignV = 30

    For $i = 1 To $aArrayLogiciels[0][0]
        $Checks[$i] = GUICtrlCreateCheckbox($aArrayLogiciels[$i][0], $alignV, $alignH, 125, 15)
        GUICtrlSetState(-1, $GUI_DISABLE)
        $alignH = $alignH + 20
        If $alignH = 290 then
            $alignV = 200
            $alignH = 70
        EndIf
        If $i = 14 Then
            $alignH = 70
            $alignV = 400
        EndIf
        If $i = 18 then
            $alignH = 70
            $alignV = 565
        EndIf
        If $i = 29 then
            $alignH = 70
            $alignV = 725
        EndIf
    Next

    $Label2 = GUICtrlCreateLabel ("Place d'affaire:", 20, 25, 100, 17)
    $CmbTitle="Choisissez une ville..."
    $Combo = GUICtrlCreateCombo($CmbTitle, 140, 30, 220, 25, BitOR($CBS_DROPDOWNLIST, $WS_VSCROLL))

    GUISetBkColor (0xf0f8ff)
    GUICtrlSetOnEvent(-1, "_Autorisation")

    $Button1 = GUICtrlCreateButton ("Démarrer", 20, 305, 129, 25, 0)
    GUICtrlSetOnEvent(-1, "_Check")
    GUICtrlSetState(-1, $GUI_FOCUS)

    $Button2 = GUICtrlCreateButton ("Sélectionner tous", 180, 305, 129, 25, 0)
    $Button3 = GUICtrlCreateButton ("Déselectionner tous", 330, 305, 129, 25, 0)

    $aArrayCombo = IniReadSectionNames($IniFile)

    If Not @error Then
        For $i = 1 To $aArrayCombo[0]
            GUICtrlSetData($Combo, $aArrayCombo[$i])
        Next
    EndIf

    GUISetState(@SW_SHOW, $MainGUI)
EndFunc

Func _Autorisation()
    $Location = GUICtrlRead($Combo)

    Local $aAutorisation = IniReadSection($IniFile, $Location)


    If Not IsArray($aAutorisation) Then
        For $i = 1 To $DummyCheck
            GUICtrlSetState($Checks[$i], 4)
            GUICtrlSetState($Checks[$i], 128)
        Next
        Return
    EndIf

    If Not @error Then
        For $i = 1 To $aAutorisation[0][0]
            If $aAutorisation[$i][1] = 1  Then
                GUICtrlSetState($Checks[$i], $GUI_DISABLE)
                GUICtrlSetState($Checks[$i], 64)
                GUICtrlSetState($Checks[$i], $GUI_UNCHECKED)
            Else
                GUICtrlSetState($Checks[$i], 4)
                GUICtrlSetState($Checks[$i], 128)
            EndIf
        Next
    EndIf
EndFunc

Func _Check()
    For $i = 1 To $aArrayLogiciels[0][0]
        If _IsChecked($Checks[$i]) Then
            ShellExecuteWait($aArrayLogiciels[$I][1])
            ConsoleWrite("Fin des installations:" & @CRLF & "-" & $aArrayLogiciels[$i][0] & @CRLF)
        Else

        EndIf

    Next

EndFunc

Func _IsChecked($control)
    Return BitAnd(GUICtrlRead($control),$GUI_CHECKED) = $GUI_CHECKED
EndFunc

Func _Exit()
    Exit
EndFunc
 

[viking1491]

Merci, j'essaye cela.

[viking1491]

Bonjour, sais-tu si c'est possible d'utiliser une variable dans mon fichier ini. Cette variable a été défini dans mon script.

Merci

[Hugues]

Oui tu peux, dans ton fichier ini tu as une clef et une valeur, donc tu peux faire ce que tu veux.
[ta section]
MaVariable=SaValeur

[jguinch]

@viking1491 : tu veux dire que tu aimerais utiliser faire un truc comme ça ?
[section]
cle=$valeur

et du coup, remplacer $valeur par le contenu de la variable ?

[viking1491]

Une chose que je n'avais pas dit, c'est que selon la ville le setup du logiciel est sur un serveur différent. Donc dans mon script je pensait créer une variable $path qui indique le chemin \\serveur\logiciel\... Selon la ville. Dans mon fichier logiciels.ini, je pensais inscrire ce ceci

[logiciels]
Nom du logiciel= $path\repertoire logiciel\setup.exe

Est-ce que c'est possible?

[jchd]

Si tu y tiens, oui : Opt("ExpandVarStrings", 1)

[viking1491]

@viking1491 : tu veux dire que tu aimerais utiliser faire un truc comme ça ?
[section]
cle=$valeur

et du coup, remplacer $valeur par le contenu de la variable ?

Oui en parti mais ce que je veux plus précisément c'est

[section]
cle=$valeur\logiciel\setup.exe

Le $valeur correspondrait à \\serveur1\partage qui aurait été définie dans mon script selon la ville choisi.

[jchd]

Opt("ExpandVarStrings", 1)
(bis)

[viking1491]

Opt("ExpandVarStrings", 1)
(bis)

J'ai essayé mais pas réussi. C'est probablement une erreur de syntaxe ou autre de ma part. Je vais réessayer.

[SurPriseS]

C'est pas aussi simple de mettre dans le ini, la partie commune, et de juste recréer le lien dans le script ?

Perso, dans le ini, je mettrais :

[section]
cle=\logiciel\setup.exe

Et dans le script un truc du genre :

$dir & iniread 'cle'

[jchd]

Oui, bien évidemment, mille fois plus simple et plus robuste. Hélas ce ne semble pas être la solution que viking1491 privilégie.

[mikell]

Et vu qu'apparemment il existe un fichier villes.ini, y rajouter dans chaque section [ville] une clé avec le serveur qui va bien serait peut-être une idée...

[viking1491]

Merci pour vos nombreuses suggestion. Désolé pour le délais de mes réponses. Je suis débordé au travail et je travaille sur ce dossier uniquement lorsque j'ai du temps de libre. Je n'ai pas encore pris de décision sur ma dernière question. Je vais avoir besoin de votre aide car je ne saisi pas toutes les subtilités des fichiers ini et de la programmation de script.

J'ai voulu faire une modification à mon fichier logiciels.ini. Au lieu d'avoir une seule section logiciels, j'ai fait trois sections (logiciel, office et autres). J'ai modifié mon script en conséquence, du moins je crois l'avoir bien fait. Lorsque je run mon script et que je vais sélectionner la ville, mon script se ferme et autoit m'indique

==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:

Pour la ligne 129 ou 125.

Je vous envoie le script et mes deux fichiers

Toutes les suggestions d'amélioration ou d'optimisation sont les bienvenues.

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>
#include <File.au3>
#include <Array.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>

Opt("GUIOnEventMode", 1)
Opt("ExpandVarStrings", 1)

Global $IniFile = @ScriptDir & "\Ini\Villes.ini", $aArray, $MainGUI, $Combo, $Checks, $DummyCheck, $Button1, $Button2, $Button3, $aArrayLogicielsCAD, $aArrayLogicielsMS, $aArrayLogicielsMS

_Gui()

While GUIGetMsg() <> -3
WEnd

Func _Gui()
    $aArrayLogicielsCAD = IniReadSection(@ScriptDir & "\Ini\logiciels.ini", "Logiciels")
    $DummyCheck =  $aArrayLogicielsCAD[0][0]
    Dim $Checks[$aArrayLogicielsCAD[0][0] +  1]
    
    $aArrayLogicielsMS = IniReadSection(@ScriptDir & "\Ini\logiciels.ini", "Office")
    $DummyCheck =  $aArrayLogicielsMS[0][0]
    Dim $Checks[$aArrayLogicielsMS[0][0] +  1]
    
    $aArrayLogicielsAutres = IniReadSection(@ScriptDir & "\Ini\logiciels.ini", "Autres")
    $DummyCheck =  $aArrayLogicielsAutres[0][0]
    Dim $Checks[$aArrayLogicielsAutres[0][0] +  1]
    
   $Height = ($aArrayLogicielsCAD[0][0] * 20) + 50

    If $Height > @DesktopHeight Then
        MsgBox(0x0,"Erreur", "Il y a trop pour votre écran", 3)
        $Height = @DesktopHeight - 50
    EndIf

    $MainGUI = GUICreate("Menu d'installation de logiciels", 910, 340, 200, 200)
    $Label1 = GUICtrlCreateLabel ("Sélectionner les logiciels à installer", 350, 1, 300, 17)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
    Local Const $sFont = "Comic Sans Ms"
    GUICtrlSetFont($Label1, 10, 400, 4, $sFont)

    GUICtrlCreateGroup ("Produits Autodesk", 20, 48, 350, 250)
    GUICtrlCreateGroup ("Produits Microsoft", 390, 48, 150, 250)
    GUICtrlCreateGroup ("Autres Produits", 555, 48, 310, 250)

    $alignH = 70
    $alignV = 30

    For $i = 1 To $aArrayLogicielsCAD[0][0]
        $Checks[$i] = GUICtrlCreateCheckbox($aArrayLogicielsCAD[$i][0], $alignV, $alignH, 125, 15)
        GUICtrlSetState(-1, $GUI_DISABLE)
        $alignH = $alignH + 20
        If $alignH = 290 then
            $alignV = 200
            $alignH = 70
        EndIf
     Next
     
      $alignH = 70
      $alignV = 400
       For $i = 1 To $aArrayLogicielsMS[0][0]
        $Checks[$i] = GUICtrlCreateCheckbox($aArrayLogicielsMS[$i][0], $alignV, $alignH, 125, 15)
        GUICtrlSetState(-1, $GUI_DISABLE)
        $alignH = $alignH + 20
     Next
     
      $alignH = 70
      $alignV = 565
       For $i = 1 To $aArrayLogicielsAutres[0][0]
        $Checks[$i] = GUICtrlCreateCheckbox($aArrayLogicielsAutres[$i][0], $alignV, $alignH, 125, 15)
        GUICtrlSetState(-1, $GUI_DISABLE)
        $alignH = $alignH + 20
        If $alignH = 290 then
            $alignV =725
            $alignH = 70
        EndIf
    Next

    $Label2 = GUICtrlCreateLabel ("Place d'affaire:", 20, 25, 100, 17)
    $CmbTitle="Choisissez une ville..."
    $Combo = GUICtrlCreateCombo($CmbTitle, 140, 30, 220, 25, BitOR($CBS_DROPDOWNLIST, $WS_VSCROLL))

    GUISetBkColor (0xf0f8ff)
    GUICtrlSetOnEvent(-1, "_Autorisation")

    $Button1 = GUICtrlCreateButton ("Démarrer", 20, 305, 129, 25, 0)
    GUICtrlSetOnEvent(-1, "_Check")
    GUICtrlSetState(-1, $GUI_FOCUS)

    $Button2 = GUICtrlCreateButton ("Sélectionner tous", 180, 305, 129, 25, 0)
    $Button3 = GUICtrlCreateButton ("Déselectionner tous", 330, 305, 129, 25, 0)

    $aArrayCombo = IniReadSectionNames($IniFile)

    If Not @error Then
        For $i = 1 To $aArrayCombo[0]
            GUICtrlSetData($Combo, $aArrayCombo[$i])
        Next
    EndIf

    GUISetState(@SW_SHOW, $MainGUI)
EndFunc

Func _Autorisation()
    Global $Location = GUICtrlRead($Combo)
    
    Local $aAutorisation = IniReadSection($IniFile, $Location)

    If Not IsArray($aAutorisation) Then
        For $i = 1 To $DummyCheck
            GUICtrlSetState($Checks[$i], 4)
            GUICtrlSetState($Checks[$i], 128)
        Next
        Return
    EndIf

    If Not @error Then
        For $i = 1 To $aAutorisation[0][0]
            If $aAutorisation[$i][1] = 1  Then
                GUICtrlSetState($Checks[$i], $GUI_DISABLE)
                GUICtrlSetState($Checks[$i], 64)
                GUICtrlSetState($Checks[$i], $GUI_UNCHECKED)
             Else
                GUICtrlSetState($Checks[$i], $GUI_DISABLE)
                GUICtrlSetState($Checks[$i], 128)
            EndIf
        Next
    EndIf
EndFunc

Func _Check()
   
    For $i = 1 To $aArrayLogiciels[0][0]
        If _IsChecked($Checks[$i]) Then
            ShellExecuteWait($aArrayLogiciels[$I][1])
            ConsoleWrite("Fin des installations:" & @CRLF & "-" & $aArrayLogiciels[$i][0] & @CRLF)
        Else

        EndIf
    Next
  
EndFunc

Func _IsChecked($control)
    Return BitAnd(GUICtrlRead($control),$GUI_CHECKED) = $GUI_CHECKED
EndFunc

Func _Exit()
    Exit
 EndFunc
 
 
 

Merci

[Hugues]

Salut,

J'ai corrigé ton code, ça devrait aller mieux lol.

► Afficher le texte

Code : Tout sélectionner

    #include <GUIConstants.au3>
    #include <File.au3>
    #include <Array.au3>
    #include <ButtonConstants.au3>
    #include <ComboConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <StaticConstants.au3>

    Opt("GUIOnEventMode", 1)
    Opt("ExpandVarStrings", 1)

    Global $IniFile = @ScriptDir & "\Ini\Villes.ini", $aArray, $MainGUI, $Combo, $ChecksCAD, $ChecksMS, $ChecksAutres, $Button1, $Button2, $Button3, $aArrayLogicielsCAD, $aArrayLogicielsMS, $aArrayLogicielsMS
    Global $DummyCheckCAD, $DummyCheckMS, $DummyCheckAutres
    _Gui()

    While GUIGetMsg() <> -3
    WEnd

    Func _Gui()
        $aArrayLogicielsCAD = IniReadSection(@ScriptDir & "\Ini\logiciels.ini", "Logiciels")
        $DummyCheckCAD =  $aArrayLogicielsCAD[0][0]
        Dim $ChecksCAD[$aArrayLogicielsCAD[0][0] +  1]

        $aArrayLogicielsMS = IniReadSection(@ScriptDir & "\Ini\logiciels.ini", "Office")
        $DummyCheckMS =  $aArrayLogicielsMS[0][0]
        Dim $ChecksMS[$aArrayLogicielsMS[0][0] +  1]

        $aArrayLogicielsAutres = IniReadSection(@ScriptDir & "\Ini\logiciels.ini", "Autres")
        $DummyCheckAutres =  $aArrayLogicielsAutres[0][0]
        Dim $ChecksAutres[$aArrayLogicielsAutres[0][0] +  1]

       $Height = ($aArrayLogicielsCAD[0][0] * 20) + 50

        If $Height > @DesktopHeight Then
            MsgBox(0x0,"Erreur", "Il y a trop pour votre écran", 3)
            $Height = @DesktopHeight - 50
        EndIf

        $MainGUI = GUICreate("Menu d'installation de logiciels", 910, 340, 200, 200)
        $Label1 = GUICtrlCreateLabel ("Sélectionner les logiciels à installer", 350, 1, 300, 17)
        GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
        Local Const $sFont = "Comic Sans Ms"
        GUICtrlSetFont($Label1, 10, 400, 4, $sFont)

        GUICtrlCreateGroup ("Produits Autodesk", 20, 48, 350, 250)
        GUICtrlCreateGroup ("Produits Microsoft", 390, 48, 150, 250)
        GUICtrlCreateGroup ("Autres Produits", 555, 48, 310, 250)

        $alignH = 70
        $alignV = 30

        For $i = 1 To $aArrayLogicielsCAD[0][0]
            $ChecksCAD[$i] = GUICtrlCreateCheckbox($aArrayLogicielsCAD[$i][0], $alignV, $alignH, 125, 15)
            GUICtrlSetState(-1, $GUI_DISABLE)
            $alignH = $alignH + 20
            If $alignH = 290 then
                $alignV = 200
                $alignH = 70
            EndIf
         Next

          $alignH = 70
          $alignV = 400
           For $i = 1 To $aArrayLogicielsMS[0][0]
            $ChecksMS[$i] = GUICtrlCreateCheckbox($aArrayLogicielsMS[$i][0], $alignV, $alignH, 125, 15)
            GUICtrlSetState(-1, $GUI_DISABLE)
            $alignH = $alignH + 20
         Next

          $alignH = 70
          $alignV = 565
           For $i = 1 To $aArrayLogicielsAutres[0][0]
            $ChecksAutres[$i] = GUICtrlCreateCheckbox($aArrayLogicielsAutres[$i][0], $alignV, $alignH, 125, 15)
            GUICtrlSetState(-1, $GUI_DISABLE)
            $alignH = $alignH + 20
            If $alignH = 290 then
                $alignV =725
                $alignH = 70
            EndIf
        Next

        $Label2 = GUICtrlCreateLabel ("Place d'affaire:", 20, 25, 100, 17)
        $CmbTitle="Choisissez une ville..."
        $Combo = GUICtrlCreateCombo($CmbTitle, 140, 30, 220, 25, BitOR($CBS_DROPDOWNLIST, $WS_VSCROLL))

        GUISetBkColor (0xf0f8ff)
        GUICtrlSetOnEvent(-1, "_Autorisation")

        $Button1 = GUICtrlCreateButton ("Démarrer", 20, 305, 129, 25, 0)
        GUICtrlSetOnEvent(-1, "_Check")
        GUICtrlSetState(-1, $GUI_FOCUS)

        $Button2 = GUICtrlCreateButton ("Sélectionner tous", 180, 305, 129, 25, 0)
        $Button3 = GUICtrlCreateButton ("Déselectionner tous", 330, 305, 129, 25, 0)

        $aArrayCombo = IniReadSectionNames($IniFile)

        If Not @error Then
            For $i = 1 To $aArrayCombo[0]
                GUICtrlSetData($Combo, $aArrayCombo[$i])
            Next
        EndIf

_ArrayDelete($ChecksMS, 0)
_ArrayDelete($ChecksAutres, 0)
_ArrayConcatenate($ChecksCAD, $ChecksMS)
_ArrayConcatenate($ChecksCAD,$ChecksAutres)


        GUISetState(@SW_SHOW, $MainGUI)
    EndFunc

    Func _Autorisation()

        Global $Location = GUICtrlRead($Combo)
        Local $aAutorisation = IniReadSection($IniFile, $Location)
        ;_ArrayDisplay($aAutorisation)

        If Not IsArray($aAutorisation) Then
            For $i = 1 To $DummyCheckCAD
                GUICtrlSetState($ChecksCAD[$i], 4)
                GUICtrlSetState($ChecksCAD[$i], 128)

            Next
            Return
        EndIf
        If Not IsArray($aAutorisation) Then
            For $i = 1 To $DummyCheckMS
                GUICtrlSetState($ChecksMS[$i], 4)
                GUICtrlSetState($ChecksMS[$i], 128)
            Next
            Return
        EndIf
        If Not IsArray($aAutorisation) Then
            For $i = 1 To $DummyCheckAutres
                GUICtrlSetState($ChecksAutres[$i], 4)
                GUICtrlSetState($ChecksAutres[$i], 128)
            Next
            Return
        EndIf



        If Not @error Then
            For $i = 1 To $aAutorisation[0][0]

                If $aAutorisation[$i][1] = 1  Then
                    GUICtrlSetState($ChecksCAD[$i], 64)
                    GUICtrlSetState($ChecksCAD[$i], $GUI_UNCHECKED)
                 Else
                    GUICtrlSetState($ChecksCAD[$i], $GUI_DISABLE)
                    GUICtrlSetState($ChecksCAD[$i], 128)

                EndIf
            Next
EndIf


    EndFunc

    Func _Check()
#cs
        For $i = 1 To $aArrayLogiciels[0][0]
            If _IsChecked($Checks[$i]) Then
                ShellExecuteWait($aArrayLogiciels[$I][1])
                ConsoleWrite("Fin des installations:" & @CRLF & "-" & $aArrayLogiciels[$i][0] & @CRLF)
            Else

            EndIf
        Next
#ce
    EndFunc

    Func _IsChecked($control)
        Return BitAnd(GUICtrlRead($control),$GUI_CHECKED) = $GUI_CHECKED
    EndFunc

    Func _Exit()
        Exit
     EndFunc



 

[viking1491]

Merci beaucoup pour ton aide. Lorsque je sélectionne une ville et un logiciel et que je clique sur Démarrer, il ne se passe rien. Pour faire un test, j'ai indiqué dans mon fichier logiciels.ini le chemin manuellement pour le logiciel 7-zip (\\serveur\partage\7-zip\setup.exe). Je crois que c'est dans la fonction _check() qui est en commentaire. Je l'ai remis dans le code. Lorsque je clique sur démarrer, il m'indique Variable used without being declared pour la ligne

For Si = 1 $aArrayLogiciels[0][0]

Je sais que la variable $aArrayLogiciels n'est pas déclaré car j'ai ajouté les variables $aArrayLogicielsCAD, $aArrayLogicielsMS, $aArrayLogicielsAutres

Je ne sais pas comment arranger la fonction _check() pour qu'elle fonctionne avec les trois variables $aArrayLogicielsCAD, $aArrayLogicielsMS, $aArrayLogicielsAutres.

Merci encore

[Hugues]

Hi,

J'ai remodifié le code.

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>
#include <File.au3>
#include <Array.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>

Opt("GUIOnEventMode", 1)
Opt("ExpandVarStrings", 1)

Global $IniFile = @ScriptDir & "\Ini\Villes.ini", $aArray, $MainGUI, $Combo, $ChecksCAD, $ChecksMS, $ChecksAutres, $Button1, $Button2, $Button3, $aArrayLogicielsCAD, $aArrayLogicielsMS, $aArrayLogicielsAutres
Global $DummyCheckCAD, $DummyCheckMS, $DummyCheckAutres
_Gui()

While GUIGetMsg() <> -3
WEnd

Func _Gui()
    $aArrayLogicielsCAD = IniReadSection(@ScriptDir & "\Ini\logiciels.ini", "Logiciels")
    $DummyCheckCAD =  $aArrayLogicielsCAD[0][0]
    Dim $ChecksCAD[$aArrayLogicielsCAD[0][0] +  1]

    $aArrayLogicielsMS = IniReadSection(@ScriptDir & "\Ini\logiciels.ini", "Office")
    $DummyCheckMS =  $aArrayLogicielsMS[0][0]
    Dim $ChecksMS[$aArrayLogicielsMS[0][0] +  1]

    $aArrayLogicielsAutres = IniReadSection(@ScriptDir & "\Ini\logiciels.ini", "Autres")
    $DummyCheckAutres =  $aArrayLogicielsAutres[0][0]
    Dim $ChecksAutres[$aArrayLogicielsAutres[0][0] +  1]

    $Height = ($aArrayLogicielsCAD[0][0] * 20) + 50

    If $Height > @DesktopHeight Then
        MsgBox(0x0,"Erreur", "Il y a trop pour votre écran", 3)
        $Height = @DesktopHeight - 50
    EndIf

    $MainGUI = GUICreate("Menu d'installation de logiciels", 910, 340, 200, 200)
    $Label1 = GUICtrlCreateLabel ("Sélectionner les logiciels à installer", 350, 1, 300, 17)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
    Local Const $sFont = "Comic Sans Ms"
    GUICtrlSetFont($Label1, 10, 400, 4, $sFont)

    GUICtrlCreateGroup ("Produits Autodesk", 20, 48, 350, 250)
    GUICtrlCreateGroup ("Produits Microsoft", 390, 48, 150, 250)
    GUICtrlCreateGroup ("Autres Produits", 555, 48, 310, 250)

    $alignH = 70
    $alignV = 30

    For $i = 1 To $aArrayLogicielsCAD[0][0]
        $ChecksCAD[$i] = GUICtrlCreateCheckbox($aArrayLogicielsCAD[$i][0], $alignV, $alignH, 125, 15)
        GUICtrlSetState(-1, $GUI_DISABLE)
        $alignH = $alignH + 20
        If $alignH = 290 then
            $alignV = 200
            $alignH = 70
        EndIf
    Next

    $alignH = 70
    $alignV = 400
    For $i = 1 To $aArrayLogicielsMS[0][0]
        $ChecksMS[$i] = GUICtrlCreateCheckbox($aArrayLogicielsMS[$i][0], $alignV, $alignH, 125, 15)
        GUICtrlSetState(-1, $GUI_DISABLE)
        $alignH = $alignH + 20
    Next

    $alignH = 70
    $alignV = 565
    For $i = 1 To $aArrayLogicielsAutres[0][0]
        $ChecksAutres[$i] = GUICtrlCreateCheckbox($aArrayLogicielsAutres[$i][0], $alignV, $alignH, 125, 15)
        GUICtrlSetState(-1, $GUI_DISABLE)
        $alignH = $alignH + 20
        If $alignH = 290 then
            $alignV =725
            $alignH = 70
        EndIf
    Next

    $Label2 = GUICtrlCreateLabel ("Place d'affaire:", 20, 25, 100, 17)
    $CmbTitle="Choisissez une ville..."
    $Combo = GUICtrlCreateCombo($CmbTitle, 140, 30, 220, 25, BitOR($CBS_DROPDOWNLIST, $WS_VSCROLL))

    GUISetBkColor (0xf0f8ff)
    GUICtrlSetOnEvent(-1, "_Autorisation")

    $Button1 = GUICtrlCreateButton ("Démarrer", 20, 305, 129, 25, 0)
    GUICtrlSetOnEvent(-1, "_Check")
    GUICtrlSetState(-1, $GUI_FOCUS)

    $Button2 = GUICtrlCreateButton ("Sélectionner tous", 180, 305, 129, 25, 0)
    GUICtrlSetOnEvent(-1, "_SelectAll")
    $Button3 = GUICtrlCreateButton ("Déselectionner tous", 330, 305, 129, 25, 0)
    GUICtrlSetOnEvent(-1, "_UnSelectAll")
    $aArrayCombo = IniReadSectionNames($IniFile)

    If Not @error Then
        For $i = 1 To $aArrayCombo[0]
            GUICtrlSetData($Combo, $aArrayCombo[$i])
        Next
    EndIf
_ArrayDelete($ChecksCAD, 0)
_ArrayDelete($ChecksMS, 0)
_ArrayDelete($ChecksAutres, 0)
_ArrayConcatenate($ChecksCAD, $ChecksMS)
_ArrayConcatenate($ChecksCAD,$ChecksAutres)
_ArrayDelete($aArrayLogicielsCAD, 0)
_ArrayDelete($aArrayLogicielsMS, 0)
_ArrayDelete($aArrayLogicielsAutres, 0)
_ArrayConcatenate($aArrayLogicielsCAD, $aArrayLogicielsMS)
_ArrayConcatenate($aArrayLogicielsCAD, $aArrayLogicielsAutres)
    GUISetState(@SW_SHOW, $MainGUI)
EndFunc

Func _Autorisation()

    Global $Location = GUICtrlRead($Combo)
    Local $aAutorisation = IniReadSection($IniFile, $Location)
    ;_ArrayDisplay($aAutorisation)

    If Not IsArray($aAutorisation) Then
        For $i = 1 To $aArrayLogicielsCAD[0][0]
            GUICtrlSetState($ChecksCAD[$i], 4)
            GUICtrlSetState($ChecksCAD[$i], 128)
        Next
        Return
    EndIf

    If Not IsArray($aAutorisation) Then
        For $i = 1 To $aArrayLogicielsMS[0][0]
            GUICtrlSetState($ChecksMS[$i], 4)
            GUICtrlSetState($ChecksMS[$i], 128)
        Next
        Return
    EndIf

    If Not IsArray($aAutorisation) Then
        For $i = 1 To $aArrayLogicielsAutres[0][0]
            GUICtrlSetState($ChecksAutres[$i], 4)
            GUICtrlSetState($ChecksAutres[$i], 128)
        Next
        Return
    EndIf

    If Not @error Then
        For $i = 1 To $aAutorisation[0][0]
            If $aAutorisation[$i][1] = 1  Then
                GUICtrlSetState($ChecksCAD[$i-1], 64)
                GUICtrlSetState($ChecksCAD[$i-1], $GUI_UNCHECKED)
            Else
                GUICtrlSetState($ChecksCAD[$i-1], $GUI_DISABLE)
                GUICtrlSetState($ChecksCAD[$i-1], 128)
            EndIf
        Next
    EndIf
EndFunc

Func _Check()
;_ArrayDisplay($ChecksCAD)
;_ArrayDisplay($aArrayLogicielsCAD)


    For $i = 0 To UBound($aArrayLogicielsCAD) - 1
        If _IsChecked($ChecksCAD[$i]) Then
            ConsoleWrite("Fin des installations:" & @CRLF & "-" & $aArrayLogicielsCAD[$i][0] & @CRLF & $aArrayLogicielsCAD[$i][1])
        EndIf
    Next

EndFunc

Func _IsChecked($control)
    Return BitAnd(GUICtrlRead($control),$GUI_CHECKED) = $GUI_CHECKED
EndFunc

Func _Exit()
    Exit
EndFunc

Func _SelectAll()
    For $i = 1 To $ChecksCAD
        GUICtrlSetState($ChecksCAD[$i], $GUI_CHECKED)
    Next
EndFunc

Func _UnSelectAll()
    For $i = 1 To $ChecksCAD
        GUICtrlSetState($ChecksCAD[$i], $GUI_UNCHECKED)
    Next
EndFunc
 

[viking1491]

J'ai une autre question pour vous. Est-ce possible d'utiliser une variable qui a été définie dans un autre script?