Lancez le script, cliquez sur Action! et la configuration actuelle s'affiche, au premier lancement, elle correspondra au valeurs par défaut.
Si vous cliquez sur Paramètres, un page de configuration s'affiche, vous pouvez y spécifier vos paramètres. Une fois validés, ces paramètres seront stocké dans le fichier de configuration et seront les mêmes aux prochains lancement du script.
Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <perso\autoConfig.au3>
#region - Initialisation des paramètres
_AutoCfg_Init($__AutoCFG_Ini, @ScriptDir & "\config.ini", "mon_programme", "cryptPass")
; On initialise la configuration: utilisation d'un fichier .ini,
; nom de la section dans le fichier .ini est "mon_programme"
; la clef utilisé pour les entrées cryptées sera "cryptPass"
_AutoCfg_AddEntry("nom", "Jean") ; on spécifie les paramètres
_AutoCfg_AddEntry("prenom", "Dupon") ; avec leurs valeur par défaut
_AutoCfg_AddEntry("age", "25")
_AutoCfg_AddEntry("email", "rien@test.fr")
_AutoCfg_AddEntry("pseudo", "matwachich")
_AutoCfg_AddEntry("pass", "secret!", 1) ; cette entrée sera crypté
_AutoCfg_ReadAll()
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Test", 272, 230, 444, 203)
$Edit = GUICtrlCreateEdit("", 10, 10, 251, 176)
GUICtrlSetData(-1, "")
$B_go = GUICtrlCreateButton("Action!", 10, 195, 75, 25, $WS_GROUP)
$B_cfg = GUICtrlCreateButton("Paramètres", 185, 195, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $B_cfg
_cfg()
Case $B_go ; Ici, on montre comment récupérer les paramètres dans le programme
_cw("Configuration Actuelle")
_cw("> Nom: " & CFG("nom"))
_cw("> Prénom: " & CFG("prenom"))
_cw("> Age: " & CFG("age"))
_cw("> E-mail: " & CFG("email"))
_cw("> Pseudo: " & CFG("pseudo"))
_cw("> Pass: " & CFG("pass"))
EndSwitch
WEnd
Func _cfg()
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Paramètres", 257, 220, 378, 206)
$Input1 = GUICtrlCreateInput("", 100, 20, 121, 21)
GUICtrlCreateLabel("Nom", 25, 23, 26, 17)
$Input2 = GUICtrlCreateInput("", 100, 45, 121, 21)
GUICtrlCreateLabel("Prenom", 25, 48, 40, 17)
$Input3 = GUICtrlCreateInput("", 100, 70, 121, 21)
GUICtrlCreateLabel("Age", 25, 73, 23, 17)
$Input4 = GUICtrlCreateInput("", 100, 95, 121, 21)
GUICtrlCreateLabel("E-mail", 25, 98, 42, 17)
$Input5 = GUICtrlCreateInput("", 100, 120, 121, 21)
GUICtrlCreateLabel("Pseudo", 25, 123, 40, 17)
$Input6 = GUICtrlCreateInput("", 100, 145, 121, 21)
GUICtrlCreateLabel("Mot de passe", 25, 148, 68, 17)
$B_ok = GUICtrlCreateButton("Valider", 90, 180, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete($Form2)
ExitLoop
Case $B_ok ; On enregistre tous les paramètres
_AutoCfg_SetEntry("nom", GUICtrlRead($Input1))
_AutoCfg_SetEntry("prenom", GUICtrlRead($Input2))
_AutoCfg_SetEntry("age", GUICtrlRead($Input3))
_AutoCfg_SetEntry("email", GUICtrlRead($Input4))
_AutoCfg_SetEntry("pseudo", GUICtrlRead($Input5))
_AutoCfg_SetEntry("pass", GUICtrlRead($Input6))
GUIDelete($Form2)
ExitLoop
EndSwitch
WEnd
EndFunc
Func _cw($data)
GUICtrlSetData($Edit, "> " & $data & @CRLF, 1)
EndFunc
PS: j'ai remplacer l'exemple de l'archive du premier post par celui la.
