AutoIt Français

Code : Tout sélectionner

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


$Form1 = GUICreate("Form1", 305, 98, 192, 124)
$ID_1 = GUICtrlCreateInput("Input1", 16, 16, 121, 21)
$MDP_1 = GUICtrlCreateInput("Input2", 16, 40, 121, 21)
$sauver_1 = GUICtrlCreateButton("Button1", 32, 64, 75, 25)
$ID_2 = GUICtrlCreateInput("Input3", 160, 16, 121, 21)
$MDP_2 = GUICtrlCreateInput("Input4", 160, 40, 121, 21)
$sauver_2 = GUICtrlCreateButton("Button2", 184, 64, 75, 25)
GUISetState(@SW_SHOW)


$nom_section = "Information de connection"
$Nom_ini = "Config.ini"
Dim $liste_input[2][2] = [ _ ;Le premier chiffre représente le nombre de compte et le deuxième le nombre d'élément par compte
["ID_1","MDP_1"], _
["ID_2","MDP_2"]] ;à remplacer par le nom des variable qui contiennent les handles
;ID_1 proviendrait donc de $ID_1 = GUICtrlCreateInput("Input1", 16, 16, 121, 21)
;Ne pas mettre le "$"

For $i=0 to UBound($liste_input)-1
    For $a=0 to UBound($liste_input,2)-1
        GUICtrlSetData(Eval($liste_input[$i][$a]), IniRead($Nom_ini, $nom_section,$liste_input[$i][$a],""))
    Next
Next ;à mettre avant la boucle

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $sauver_1 ; à remplacer par le handle du bouton
            _iniwrite(1) ;Le chiffre signifie le numero de compte
        Case $sauver_2
            _iniwrite(2)
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

Func _iniwrite($compte)
    For $i=0 to UBound($liste_input,2)-1
        IniWrite($Nom_ini,$nom_section,$liste_input[$compte-1][$i], GUICtrlRead(Eval($liste_input[$compte-1][$i])))
    Next
EndFunc