I found a Script for my Keybinder, its an Register/Login Script, but it does not work
When I register me first time and then i Login ,this work fine , but when I close it , and I start it again
I cant Login ...
The Files are on the FTP (The Name and the Password) but it dosnt work
I hope you can help me
Here is the Code:
login2:
gui,Add,Text, x5 y5,Nickname
Gui,Add,Edit,x5 y20 w200 h20 vName, %Name%
gui,Add,Text, x5 y40,Passwort
Gui,Add,Edit,x5 y55 w200 h20 +Password +Password vPasswort, %Passwort%
Gui,Add,Button,gLogin,Anmelden
Gui,Add,Button,gRegistrieren,Registrieren
gui,show, Login
Return
Main:
IniRead,Name,Keybinder-Angaben.ini,Optionen, Name
FileInstall,C:\Users\Computer\Documents\Scripts\Script\Background.jpg,Background.jpg <-
Gui, Add, Picture, x2 y0 w1000 h500 ,Background.jpg
Gui, Add, Edit, x832 y60 w150 h30 vname ,%name%
Gui, Add, Button, gSpeichern1 x852 y90 w110 h20 ,Speichern
Gui, Show, x101 y161 h1022 w1680,
Gui, Font, S30 CDefault, Verdana
Gui, Font, S22 CWhite, Verdana
Gui, Show, x360 y276 h500 w1000,
Return
GuiClose:
ExitApp
Return
2Guiclose:
ExitApp
Return
Login:
Gui,Submit
Gui,Destroy
If (Name = "" Or Passwort = "" Or Name = "" && Passwort = "")
{
MsgBox, 16, Error, Dir fehlen ein paar Felder!
Goto , Login2
} Else{
Urldownloadtofile,ftp.ts3wi.1x.de/Accounts/%Name%.txt,%A_Temp%/%Name%.txt
sleep 500
Urldownloadtofile,ftp.ts3wi.1x.de/Accounts/%Name%%Passwort%.txt,%A_Temp%/%Name%%Passwort%.txt
FileRead, Name1,%A_Temp%/%Name%.txt
FileRead, Passwort1,%A_Temp%/%Name%%Passwort%.txt
if (passwort1 == Passwort && name1 == name)
{
filedelete ,%A_Temp%/%Name%.txt
filedelete ,%A_Temp%/%Name%%Passwort%.txt
Goto , Main
MsgBox, 64, , Erfolgreich eingeloggt
}Else{
filedelete ,%A_Temp%/%Name%.txt
filedelete ,%A_Temp%/%Name%%Passwort%.txt
MsgBox, 16, , Fehler beim Login
Goto , Login2
}
}
return
Registrieren:
Gui,Destroy
Gui,3:Add,Text,x5 y5,Name:
Gui,3:Add,Edit,x5 y20 w200 h20 vRegName,%RegName%
Gui,3:Add,Text,x5 y40,Passwort:
Gui,3:Add,Edit,x5 y55 w200 h20 +Password +Password vRegpasswort,%RegPasswort%
Gui,3:Add,Text,x5 y75,Passwort wiederholen:
Gui,3:Add,Edit,x5 y90 w200 h20 +Password +Password vRegpasswort2,%RegPasswort2%
Gui,3:Add,Button,gRegister, Absenden
Gui,3:Add,Button,gback, Zurück zum Login
Gui,3:Show,Registrierung
Return
back:
Gui,3:Destroy
Goto,Login2
Return
Register:
Gui,Submit, NOhide
If (RegPasswort!=RegPasswort2)
{
MsgBox, 16, Error, Die Passwörter stimmen nicht überein!
Goto , Registrieren
}Else{
FileAppend %RegPasswort%, %A_Temp%/%RegName%%RegPasswort%.txt
FileAppend %RegName%, %A_Temp%/%RegName%.txt
FTPCommandFile = %A_Temp%\temp.ini
FTPLogFile = %A_Temp%\FTPLog.txt
Filedelete, %FTPCommandFile%
FileAppend,
(
open www13.subdomain.com
USERNAME
PASSWORD
binary
cd Accounts
put %A_Temp%/%RegName%%RegPasswort%.txt
put %A_Temp%/%RegName%.txt
ls -l
quit
), %FTPCommandFile%
Run, cmd /k ftp -s:%FTPCommandFile% > %FTPLogFile% , ,Hide
MsgBox,64,,Erfolgreich registriert! Du kannst dich jetzt einloggen.
Gui,3:Destroy
Goto,Login2
Sleep, 5000
Process, wait, cmd.exe
PID = %ErrorLevel%
Process, Close, %PID%
Filedelete, %FTPCommandFile%
FileDelete %A_Temp%/%RegName%%RegPasswort%.txt
FileDelete %A_Temp%/%RegName%.txt
FileDelete %FTPCommandFile%
FileDelete %A_Temp%\FTPCommands.bat
FileDelete %A_Temp%\temp.ini
FileDelete %A_Temp%\Ftplog.txt
}
Return
; cd Accounts = Accounts ist der Ordner auf dem FTP-Server wo deine Textdateien später reingeladen werden
