Advertisement
Guest User

Untitled

a guest
Oct 4th, 2017
67
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. IniRead, savedPW , %A_AppData%/saves.ini, Gespeichertes, savedPW, Bitte Passwort eingeben ;Ein gespeichertes Passwort auslesen, ist der Wert von %savedPW% Bitte Passwort eingeben
  2. IniRead, pwSaved, %A_AppData%/saves.ini, Gespeichertes, pwSaved, 0 ;Auslesen ob das Passwort gespeichert wird, ansonsten ist der Wert 0
  3. rightPW := "test" ;Das richtige Passwort ist "Test"
  4. Password: ;eine Funktion gebaut für 3 Versuche
  5. InputBox,PwPW,Passwort eingeben,,,,,,,,,%savedPW% ;Eien Inputbox, wo der Wert von %savedPW% der Standardwert des Textfelds ist
  6. if(Errorlevel) ;Wenn man Cancel drückt
  7. return
  8. If(pwPW!=rightPW) ;Wenn das eingegebene Passwort falsch ist
  9. {
  10.     If (count < "2"){ ;Hier geben wir dem User 3 möglichkeiten zum versuchen
  11.         Count++ ;Hier erstellen wir die Variable Count mit dem wehrt 0 und addieren gleich 1 dazu
  12.         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
  13.         IfMsgBox, Yes ;Wenn Ja
  14.         {
  15.             goto, Password ;Geht er zu der Funktion in Zeile 4 (die Inputbox)
  16.         }
  17.         IfMsgBox, No ;Wenn nein
  18.         {
  19.             ExitApp ;Beenden wir die Applikation
  20.         }
  21.     }
  22.     else{
  23.         Msgbox,0,,PW falsch...ENDE ;Sollte der Count höher wie 3 Sein kommt die MsgBox
  24.         ExitApp ;Das Return gegen nen ExitApp ersetzt (soll sich ja schließen)
  25.     }
  26. }
  27. if(%pwSaved%=0) ;Wenn das Passwort nicht gespeichert wird
  28. {
  29.     MsgBox,4,,Passwort richtig!`r`nMöchtest du das Passwort speichern? ;Fragen ob es gespeichert werden soll
  30.     IfMsgBox Yes ;falls Ja
  31.     {
  32.         IniWrite, %pwPW%, %A_AppData%/saves.ini, Gespeichertes, savedPW ;Speicher das Passwort
  33.         IniWrite, 1, %A_AppData%/saves.ini, Gespeichertes, pwSaved ;Setze den Wert gespeichert auf 1
  34.     }
  35. }
  36. if(pwPW!=savedPW) ;Wenn das gespeicherte Passwort anders als das eingegeben richtige ist
  37. {
  38.     MsgBox,4,Neues Passwort?,Möchtest du das gespeicherte Passwort aktualisieren? ;sagt glaub ich alles
  39.     IfMsgBox Yes
  40.     {
  41.         IniWrite, %pwPW%, %A_AppData%/saves.ini, Gespeichertes, savedPW ;Speichert das neue PW
  42.         IniWrite, 1, %A_AppData%/saves.ini, Gespeichertes, pwSaved ;setzt gespeichert auf 1
  43.     }
  44. }
  45. scu := "1" ;Wir setzen hier eine Var mit dem wehrt 1
  46.  
  47. Gui, 1: Add, Button, gclose, Beende mich ;Kleiner Button der die Anwendung beendet
  48. Gui, 1:Show, Test ;Hier nen kleines Gui zur Veranschaulichung
  49.  
  50. #If (scu ="1") ; Hier machen ma mal ne Globale If abfrage alles was zwischen dem und dem
  51.  
  52. F12::
  53. MsgBox, 0, Test, Ich geh nur mit PW
  54. return
  55.  
  56. close:
  57. ExitApp
  58.  
  59. #if ; hier stehen, geht nur dann wenn das unter #if gefragte auch stimmt
  60. F12::
  61. MsgBox, 0, Test, Ich geh auch ohne
  62. return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement