Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- IniRead, savedPW , %A_AppData%/saves.ini, Gespeichertes, savedPW, Bitte Passwort eingeben ;Ein gespeichertes Passwort auslesen, ist der Wert von %savedPW% Bitte Passwort eingeben
- IniRead, pwSaved, %A_AppData%/saves.ini, Gespeichertes, pwSaved, 0 ;Auslesen ob das Passwort gespeichert wird, ansonsten ist der Wert 0
- rightPW := "test" ;Das richtige Passwort ist "Test"
- Password: ;eine Funktion gebaut für 3 Versuche
- InputBox,PwPW,Passwort eingeben,,,,,,,,,%savedPW% ;Eien Inputbox, wo der Wert von %savedPW% der Standardwert des Textfelds ist
- if(Errorlevel) ;Wenn man Cancel drückt
- return
- If(pwPW!=rightPW) ;Wenn das eingegebene Passwort falsch ist
- {
- If (count < "2"){ ;Hier geben wir dem User 3 möglichkeiten zum versuchen
- Count++ ;Hier erstellen wir die Variable Count mit dem wehrt 0 und addieren gleich 1 dazu
- MsgBox, 4, Achtung, Ihr Passwort war falsch`n`nWollen sie es nochmal versuchen?`n`nVersuch %Count% von 3 ;Hier fragen wir dem User ob er es nochmal versuchen will
- IfMsgBox, Yes ;Wenn Ja
- {
- goto, Password ;Geht er zu der Funktion in Zeile 4 (die Inputbox)
- }
- IfMsgBox, No ;Wenn nein
- {
- ExitApp ;Beenden wir die Applikation
- }
- }
- else{
- Msgbox,0,,PW falsch...ENDE ;Sollte der Count höher wie 3 Sein kommt die MsgBox
- ExitApp ;Das Return gegen nen ExitApp ersetzt (soll sich ja schließen)
- }
- }
- if(%pwSaved%=0) ;Wenn das Passwort nicht gespeichert wird
- {
- MsgBox,4,,Passwort richtig!`r`nMöchtest du das Passwort speichern? ;Fragen ob es gespeichert werden soll
- IfMsgBox Yes ;falls Ja
- {
- IniWrite, %pwPW%, %A_AppData%/saves.ini, Gespeichertes, savedPW ;Speicher das Passwort
- IniWrite, 1, %A_AppData%/saves.ini, Gespeichertes, pwSaved ;Setze den Wert gespeichert auf 1
- }
- }
- if(pwPW!=savedPW) ;Wenn das gespeicherte Passwort anders als das eingegeben richtige ist
- {
- MsgBox,4,Neues Passwort?,Möchtest du das gespeicherte Passwort aktualisieren? ;sagt glaub ich alles
- IfMsgBox Yes
- {
- IniWrite, %pwPW%, %A_AppData%/saves.ini, Gespeichertes, savedPW ;Speichert das neue PW
- IniWrite, 1, %A_AppData%/saves.ini, Gespeichertes, pwSaved ;setzt gespeichert auf 1
- }
- }
- scu := "1" ;Wir setzen hier eine Var mit dem wehrt 1
- Gui, 1: Add, Button, gclose, Beende mich ;Kleiner Button der die Anwendung beendet
- Gui, 1:Show, Test ;Hier nen kleines Gui zur Veranschaulichung
- #If (scu ="1") ; Hier machen ma mal ne Globale If abfrage alles was zwischen dem und dem
- F12::
- MsgBox, 0, Test, Ich geh nur mit PW
- return
- close:
- ExitApp
- #if ; hier stehen, geht nur dann wenn das unter #if gefragte auch stimmt
- F12::
- MsgBox, 0, Test, Ich geh auch ohne
- return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement