Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- passworteingabe:
- DestroyAllVisual()
- Gui, 6:destroy
- Gui, 1:destroy
- Gui, 14:destroy
- logindaten = ""
- IniRead,savedname,%A_MyDocuments%/AnotherLife-Keybinder/Statsbinder.ini,Optionen, NAME
- IniRead,savedpw,%A_MyDocuments%/AnotherLife-Keybinder/Statsbinder.ini,Optionen, PASS
- Gui, 50: -Caption
- Gui, 50:Add, Picture, x-8 y-1 w490 h390 , %A_MyDocuments%/AnotherLife-Keybinder/AL-login.png
- Gui, 50:Font, S10 CWhite Bold, Arial
- Gui, 50:Add, Button, x452 y9 w20 h20 gexit, X
- Gui, 50:Add, Text, x122 y169 w40 h20 +BackgroundTrans, Name:
- Gui, 50:Font, S10 CWhite Bold, Arial
- Gui, 50:Add, Text, x122 y199 w60 h20 +BackgroundTrans, Passwort:
- Gui, 50:Font, S10 CDefault Bold, Arial
- Gui, 50:Add, Edit, x202 y169 w160 h20 vlname, %savedname%
- Gui, 50:Add, Edit, x202 y199 w160 h20 vpass4 +Password, %savedpw%
- Gui, 50:Add, Button, x122 y239 w240 h20 gcheckpasswort, Anmelden
- Gui, 50:Font, S8 CWhite Bold, Arial
- Gui, 50:Add, GroupBox, x52 y149 w380 h120 +BackgroundTrans,
- Gui, 50:Font, S10 CWhite Bold, Arial
- Gui, 50:Add, Text, x168 y289 w140 h20 +BackgroundTrans, Noch nicht registriert?
- Gui, 50:Add, Button, x122 y319 w240 h20 gRegisterF, Registrieren
- Gui, 50:Add, GroupBox, x52 y269 w380 h80 +BackgroundTrans,
- Gui, 50:Add, Text, x158 y359 w160 h20 +BackgroundTrans, © AnotherLife Keybinder
- Gui, 50:Add, Text, x0 y0 w481 h388 gDragBox +backgroundtrans ,
- Gui, 50:Show, w481 h388, AnotherLife Keybinder - Anmeldung
- return
- checkpasswort:
- Gui, 50:submit
- Gui, 50:destroy
- if(lname = ""){
- MsgBox, 48, AnotherLife Keybinder - Passwort, Bitte gebe einen Benutzernamen und Passwort an!
- goto, passworteingabe
- return
- } else {
- UrlDownloadToFile, https://www.anotherlife-keybinder.de/assets/keybinderrelevant/accountcheck.php?username=%lname%&password=%pass4%, AnotherLife-Keybinder
- FileRead, logindaten, AnotherLife-Keybinder
- FileDelete, AnotherLife-Keybinder
- if(InStr(logindaten, "<!DOCTYPE html") OR InStr(logindaten, "<!-- START --><noscript><div style="))
- {
- MsgBox, 48, AnotherLife Keybinder - Login fehlgeschlagen, Es konnte keine Verbindung zum Datenbankserver hergestellt werden!`n`nVersuch es doch bitte später nochmal.
- goto, passworteingabe
- }
- if(logindaten = "ERROR"){
- MsgBox, 48, AnotherLife Keybinder - Passwort, FEHLER: Der Benutzername existiert nicht oder das Passwort ist falsch!`n`nProbiere es noch einmal oder beende den Keybinder.
- goto, passworteingabe
- return
- }
- if(logindaten = "locked"){
- MsgBox, 48, AnotherLife Keybinder - Passwort, Der angegebene Benutzeraccount ist von einem Adminstrator/Leader gesperrt worden oder existiert nicht! Bitte kontaktiere den Support oder aktiviere deine E-Mail!
- ExitApp
- return
- }
- if(logindaten = ""){
- Msgbox, 48, ein unerwarteter Fehler ist aufgetreten
- goto, passworteingabe
- return
- }
- ifInString, logindaten, 0
- {
- MsgBox, 48, AnotherLife Keybinder - Passwort, Der eingegebene Nutzername und das Passwort waren korrekt.`n`nDu wirst nun zum Hauptmenü weitergeleitet ...`n[Name: %lname% | Mitglied]
- loggedin = 1
- IniWrite,%lname%,%A_MyDocuments%/AnotherLife-Keybinder/Statsbinder.ini,Optionen,NAME
- IniWrite,%pass4%,%A_MyDocuments%/AnotherLife-Keybinder/Statsbinder.ini,Optionen,PASS
- goto, start
- return
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement