Hallo, ich möchte euch mein selbst geschriebenes Register/Login Script vorstellen.
Es speichert die Daten auf euren Filezilla - Server.
Wenn man sich registriert, holt es eine zip Datei vom Server und schiebt die ini (mit den Daten) in die zip Datei, dann wird es ins Filezilla server geschoben. Wenn man den Programm startet, werden als erstes alle Daten geladen, also die Zip Datei wird
in einen Ordner entpackt. Wenn man sich einloggt wird es abgefragt ob der angegebene Name existiert. Falls man das Programm schließt werden alle Daten gelöscht so das man nicht schauen kann wie die Daten sind. Man kann es aber auch versteckter machen so das man gar nicht schauen kann wie die Daten sind, habe ich aber nicht gemacht.
Code:
Mit Freundlichen Grüßen,
sezer0012
Es speichert die Daten auf euren Filezilla - Server.
Wenn man sich registriert, holt es eine zip Datei vom Server und schiebt die ini (mit den Daten) in die zip Datei, dann wird es ins Filezilla server geschoben. Wenn man den Programm startet, werden als erstes alle Daten geladen, also die Zip Datei wird
in einen Ordner entpackt. Wenn man sich einloggt wird es abgefragt ob der angegebene Name existiert. Falls man das Programm schließt werden alle Daten gelöscht so das man nicht schauen kann wie die Daten sind. Man kann es aber auch versteckter machen so das man gar nicht schauen kann wie die Daten sind, habe ich aber nicht gemacht.
Code:
Code:
#RequireAdmin
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <String.au3>
#include <FTPEx.au3>
#include <Zip.au3>
;Laden Form 0
#Region ### START Koda GUI section ### Form=
$Form0 = GUICreate("Laden", 326, 59, 263, 241)
GUISetBkColor(0x99B4D1)
$Label1 = GUICtrlCreateLabel("Laden, bitte haben sie etwas geduld.", 8, 8, 312, 28)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("© by Sezer Kabak.", 96, 32, 113, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;Login Form1
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Login", 219, 111, 192, 124)
GUISetBkColor(0x99B4D1)
$Label3 = GUICtrlCreateLabel("Benutzername:", 8, 8, 75, 17)
$Input1 = GUICtrlCreateInput("", 88, 8, 121, 21)
$Label4 = GUICtrlCreateLabel("Passwort:", 8, 32, 50, 17)
$Input2 = GUICtrlCreateInput("", 88, 32, 121, 21)
$Button1 = GUICtrlCreateButton("Einloggen", 8, 56, 203, 25)
$Button2 = GUICtrlCreateButton("Registrieren", 8, 80, 203, 25)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
;Registrieren Form2
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Registrieren", 234, 166, 193, 126)
GUISetBkColor(0x99B4D1)
$Label5 = GUICtrlCreateLabel("Benutzername:", 8, 8, 75, 17)
$Label6 = GUICtrlCreateLabel("Passwort:", 8, 32, 50, 17)
$Input3 = GUICtrlCreateInput("", 104, 8, 121, 21)
$Input4 = GUICtrlCreateInput("", 104, 32, 121, 21)
$Label7 = GUICtrlCreateLabel("E-mail:", 8, 64, 35, 17)
$Input5 = GUICtrlCreateInput("", 104, 64, 121, 21)
$Label8= GUICtrlCreateLabel("E-mail wiederhollen:", 8, 88, 97, 17)
$Input6 = GUICtrlCreateInput("", 104, 88, 121, 21)
$Button3 = GUICtrlCreateButton("Registrieren", 8, 112, 219, 25)
$Button4 = GUICtrlCreateButton("Zurück", 8, 136, 219, 25)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
;Eingeloggt Form3
#Region ### START Koda GUI section ### Form=
$Form3 = GUICreate("Eingeloggt", 264, 75, 192, 124)
GUISetBkColor(0x99B4D1)
$Button5= GUICtrlCreateButton("Beenden", 8, 48, 243, 25)
$Label9 = GUICtrlCreateLabel("Erfolgreich eingeloggt!", 8, 8, 248, 33)
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
;Globale Variablen
$FTP_open = _FTP_Open("MeinFTP") ;Ist egal wie es heißt
$FTP_Connect = _FTP_Connect($FTP_open, "DeinNameUndHoster.bplaced.net", "Einlogname", "Passwort")
;Wenn Ordner Benutzer nicht existiert, erstelle Ordner
If Not FileExists(@TempDir & "\Benutzer") Then
DirCreate(@TempDir & "\Benutzer")
EndIf
InetGet("http://DeinNameUndHoster.bplaced.net/Benutzer.zip", @TempDir & "\Benutzer\Benutzer.zip", 1)
_Zip_UnzipAll(@TempDir & "\Benutzer\Benutzer.zip", @TempDir & "\Benutzer", 0)
GUISetState(@SW_HIDE, $Form0)
GUISetState(@SW_SHOW, $Form1)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
FileDelete(@TempDir & "\Benutzer")
Exit
;Logge Benutzer ein
Case $Button1
Login()
GUISetState(@SW_HIDE, $Form1)
GUISetState(@SW_SHOW, $Form3)
;Schließe Form1, Zeige Form2
Case $Button2
GUISetState(@SW_HIDE, $Form1)
GUISetState(@SW_SHOW, $Form2)
;Registriere Benutzer
Case $Button3
Register()
MsgBox(64, "Registriert", "Sie haben sich erfolgreich registriert.")
Exit
;Schließe Form2, Zeige Form1
Case $Button4
GUISetState(@SW_HIDE, $Form2)
GUISetState(@SW_SHOW, $Form1)
;Beende Programm
Case $Button5
FileDelete(@TempDir & "\Benutzer")
Exit
EndSwitch
WEnd
Func Register()
$Benutzername = GUICtrlRead($Input3) ;Benutzername
$Passwort = GUICtrlRead($Input4) ;Passwort
$Email1 = GUICtrlRead($Input5) ;Email
$Email2 = GUICtrlRead($Input6) ;Wiederhollte Email
;Wenn Benutzername existiert, MsgBox schicken
If FileExists(@Tempdir & "\Benutzer" & $Benutzername & ".ini") Then
MsgBox(16, "Fehler", "Der Benutzername existiert schon.")
Exit
EndIf
;Wenn Email nicht gleich ist wie die wiederhollte
If $Email1 <> $Email2 Then
MsgBox(16, "Fehler", "Die E-mail Adresse ist nicht gleich wie die wiederhollte.")
Exit
EndIf
_FileCreate(@TempDir & "\Benutzer" & $Benutzername & ".ini")
IniWrite(@TempDir & "\Benutzer" & $Benutzername & ".ini", "Name", "Name", $Benutzername)
IniWrite(@TempDir & "\Benutzer" & $Benutzername & ".ini", "Passwort", "Passwort", $Passwort)
IniWrite(@TempDir & "\Benutzer" & $Benutzername & ".ini", "Email", "Email", $Email2)
_Zip_AddFile(@TempDir & "\Benutzer\Benutzer.zip", @TempDir & "\Benutzer" & $Benutzername & ".ini", 0)
_FTP_FilePut($FTP_Connect, @TempDir & "\Benutzer\Benutzer.zip", "Benutzer.zip", 0)
_FTP_Close($FTP_open)
EndFunc
Func Login()
$I_Benutzername = GUICtrlRead($Input1) ;Input_Benutzername
$I_Passwort = GUICtrlRead($Input2) ;Input_Passwort
;Wenn $Benutzername nicht existiert
If NOT FileExists(@TempDir & "\Benutzer" & $I_Benutzername & ".ini") Then
MsgBox(16, "Fehler", "Benutzername falsch angegeben.")
FileDelete(@TempDir & "\Benutzer")
Exit
EndIf
$Open = FileOpen(@TempDir & "\Benutzer" & $I_Benutzername & ".ini")
$Passwort = IniRead(@TempDir & "\Benutzer" & $I_Benutzername & ".ini", "Passwort", "Passwort", "NotFound")
;Wenn $Passwort falsch ist
If $I_Passwort <> $Passwort Then
MsgBox(16, "Fehler", "Passwort falsch angegeben.")
FileDelete(@TempDir & "\Benutzer")
Exit
EndIf
FileClose(@TempDir & "\Benutzer" & $I_Benutzername & ".ini")
EndFunc
Mit Freundlichen Grüßen,
sezer0012