Ca marche pas non plus....
Code : Tout sélectionner
#NoTrayIcon
#include <GUIConstants.au3>
$FirstUse = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\MI Software\USB Protect\Parameters", "FirstUse")
If @error <> 0 Then
MsgBox(16, "USB Protect - Première utilisation", "Erreur de lecture" & @CRLF & "Vérifier vos droits d'accès au registre")
Exit (2)
EndIf
If $FirstUse = 0 Then
Exit (1)
EndIf
$Path = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\MI Software\USB Protect\CurrentVersion", "Path")
If @error <> 0 Then
MsgBox(16, "USB Protect - Première utilisation", "Erreur de lecture" & @CRLF & "Vérifier vos droits d'accès au registre")
Exit (2)
EndIf
$Gui = GUICreate("Assistant première utilisation - USB Protect", 450, 300)
$EtapeLabel = GUICtrlCreateLabel("Bienvenue dans l'assistant première utilisation de USB Protect !", 10, 10, 430, 50)
GUICtrlSetFont($EtapeLabel, 15, 500)
$DescriptionLabel = GUICtrlCreateLabel("Cet assistant va vous guider dans les première étapes de configuration de USB Protect", 10, 80, 430, 35)
GUICtrlSetFont($DescriptionLabel, 10)
$Label = GUICtrlCreateLabel("Cet assistant est obligatoire car il permet à USB Protect d'initialiser ses paramètres et à vous de définir un mot de passe " & _
"de sécurité (en cas de perte de la clé USB)", 10, 130, 430, 40)
$But_Suiv = GUICtrlCreateButton("Suivant", 220, 260, 100, 30)
GUICtrlSetFont($But_Suiv, 11, 500)
$But_Annul = GUICtrlCreateButton("Annuler", 340, 260, 100, 30)
GUICtrlSetFont($But_Annul, 11, 500)
GUISetState()
Do
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Or $msg = $But_Annul Then Exit (3)
Until $msg = $But_Suiv
Ecran_1()
Func Ecran_1()
GUICtrlSetPos($EtapeLabel, 10, 10, 430, 30)
GUICtrlSetData($EtapeLabel, "Etape 1: Le mot de passe (26 caract. Max.)")
GUICtrlSetPos($DescriptionLabel, 10, 60, 430, 45)
GUICtrlSetData($DescriptionLabel, "Le mot de passe vous permet de changer les paramètres important de USB Protect et (si vous activer l'option)," & _
"de déverrouiller votre ordinateur en absence de la clé USB")
GUICtrlDelete($Label)
GUICtrlCreateGroup("Mot de passe", 10, 125, 430, 115)
$PasswordInput = GUICtrlCreateInput("", 20, 150, 410, 30, 0x0020)
GUICtrlSetFont($PasswordInput, 18)
GUICtrlCreateCheckbox("Activer le déverrouillage par mot de passe",20,190,410,30)
Do
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Or $msg = $But_Annul Then Exit (3)
Until $msg = $But_Suiv
$Password = GUICtrlRead($PasswordInput)
Global $TmpFile = TempFile($Path & "\Cache", 30)
IniWrite($TmpFile, "FirstUse", "Password", $Password)
Ecran_2()
EndFunc ;==>Ecran_1
Func Ecran_2()
GUICtrlSetPos($EtapeLabel, 10, 10, 430, 30)
GUICtrlSetData($EtapeLabel, "Etape 2: ")
GUICtrlSetPos($DescriptionLabel, 10, 60, 430, 45)
GUICtrlSetData($DescriptionLabel, "Le mot de passe")
GUICtrlDelete($Label)
Do
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Or $msg = $But_Annul Then Exit (3)
Until $msg = $But_Suiv
EndFunc ;==>Ecran_2
Func TempFile($s_DirectoryName = @TempDir, $i_RandomLength = 7)
If Not FileExists($s_DirectoryName) Then $s_DirectoryName = @TempDir
If Not FileExists($s_DirectoryName) Then $s_DirectoryName = @ScriptDir
If StringRight($s_DirectoryName, 1) <> "\" Then $s_DirectoryName = $s_DirectoryName & "\"
Local $s_TempName
Local $i_TMPTYPE = 0
Do
$s_TempName = ""
While StringLen($s_TempName) < $i_RandomLength
If $i_TMPTYPE Then
$s_TempName = $s_TempName & Chr(Random(65, 90, 1))
$i_TMPTYPE = Random(0, 1, 1)
Else
$s_TempName = $s_TempName & Chr(Random(48, 57, 1))
$i_TMPTYPE = Random(0, 1, 1)
EndIf
WEnd
$s_TempName = $s_DirectoryName & "{" & $s_TempName & "}"
Until Not FileExists($s_TempName)
Return $s_TempName
EndFunc ;==>TempFile
