AutoIt Français

Code : Tout sélectionner

#include <File.au3>
Global $MotdePasseEntre
$Motdepasse = "mot de passe";Le mot de passe
$FicherPasse = @ScriptDir & "\Mot de passe.txt";Le fichier ou l'on enregistrera le mor de passe si il est correct pour ne pas le
;redemander la prochaine foi

If FileReadLine($FicherPasse, 1) <> $Motdepasse Then ;Si la ligne 1 du fichier est pas le bon mot de de passe alors
    While $MotdePasseEntre <> $Motdepasse ;Tant que le mot de passe que l'on rentre et différent du mot de passe alors :
        $MotdePasseEntre = InputBox("Securité", "Entrez le mot de passe") ;Affiche une boite on l'on entrera le mot de passe
        If $MotdePasseEntre <> $Motdepasse And MsgBox(21, "Incorect", "Mot de passe incorect.") = 2 Then ;Si le mot de passe n'est pas le bon que que l'ont ne veut pas rééssayer :
            Exit ; On quite le scripte
        EndIf
    WEnd
    If Not FileExists($FicherPasse) Then _FileCreate($FicherPasse) ;Si le fichier n'existe pas, on le créé
    _FileWriteToLine($FicherPasse, 1, $MotdePasseEntre, 1);on écri le mot de passe dans le fichier pour la prochaine foi
EndIf
MsgBox(0, "", "Ton scripte")

Code : Tout sélectionner

_Do()

$Abc = 0
$arr = IniReadSection(@TempDir & "\Test.ini","Clé")
$key = InputBox('Key','Entrer une clé valide et non-utiliser')

FileDelete(@TempDir & "\Test.ini")

For $i = 1  To UBound( $arr, 1) - 1
    For $j = 1 To UBound( $arr, 2) - 1
    If $key = $arr[$i][$j] Then
        MsgBox(0,'','Bon mot de passe'&@CRLF&'Clé supprimer du choix')
        _Do()
        IniDelete(@TempDir & "\Test.ini","Clé","cle"&$i)
        ExitLoop
        Else
$Abc += 1
EndIf
Next
Next


If $Abc = UBound( $arr, 1) - 1 Then
    MsgBox(0,"","Clé invalide")
EndIf

Func _Do()
    InetGet("http://ton-site/Test.ini",@TempDir & "/Test.ini")
EndFunc