Hay Leuts Hatt Jemand Eventl Ein Login Script Das Mit Meiner DB Verbindet Und Dan Die Login Daten Überprüft?
Danke ;)Quote:
ja sorry aber ist son tick von mir alles großzuschreiben ^^ finde sieht besser aus aber wen ich schnell schreibe so wie jetzt schreib ich immer alles klein :-S
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Michaela\Desktop\REGI_GUI\REGI_GUI.kxf
$Form1 = GUICreate("Registration | Login", 434, 307, -1, -1)
$Tab1 = GUICtrlCreateTab(8, 8, 417, 289)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Registration")
$Label2 = GUICtrlCreateLabel("Registration", 24, 40, 175, 42)
GUICtrlSetFont(-1, 25, 400, 0, "Arial")
$Label3 = GUICtrlCreateLabel("INFO: Falls du versuchst einen zweiten Account zu erstellen, ", 16, 240, 391, 19)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
$Label4 = GUICtrlCreateLabel(" sowird der erste gelöscht.", 16, 264, 396, 19)
GUICtrlSetFont(-1, 9, 400, 0, "arial")
$Label7 = GUICtrlCreateLabel("Gewünschter Benutzername:", 32, 128, 147, 18)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
$Label8 = GUICtrlCreateLabel("Gewünschtes Passwort :", 32, 160, 153, 18)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
$Input1 = GUICtrlCreateInput("", 192, 128, 121, 22)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
$Input2 = GUICtrlCreateInput("", 192, 160, 121, 22)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
$Button1 = GUICtrlCreateButton("Jetzt registrieren !", 192, 192, 123, 25, 0)
GUICtrlSetFont(-1, 9, 400, 0, "arial")
$TabSheet2 = GUICtrlCreateTabItem("Login")
$Label1 = GUICtrlCreateLabel("Login", 24, 40, 82, 42)
GUICtrlSetFont(-1, 25, 400, 0, "Arial")
$Label5 = GUICtrlCreateLabel("INFO: Falls du deine Accountdaten vergssen hast,", 16, 240, 283, 19)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
$Label6 = GUICtrlCreateLabel("kannst du dir einfach einen neuen erstellen.", 16, 264, 244, 19)
GUICtrlSetFont(-1, 9, 400, 0, "arial")
$Label9 = GUICtrlCreateLabel("Benutzername:", 32, 128, 77, 18)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
$Label10 = GUICtrlCreateLabel(" Passwort :", 24, 160, 86, 17)
$Input3 = GUICtrlCreateInput("", 120, 128, 121, 22)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
$Input4 = GUICtrlCreateInput("", 120, 160, 121, 22)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
$Button2 = GUICtrlCreateButton("Jetzt einloggen !", 120, 192, 123, 25, 0)
GUICtrlSetFont(-1, 9, 400, 0, "arial")
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$reader01 = GUICtrlRead ( $input1 )
$reader02 = GUICtrlRead ( $input2 )
FileDelete ("no_func_01.loggui" )
FileDelete ("no_func_02.loggui" )
FileWrite ( "no_func_01.loggui" , $reader01 )
FileWrite ( "no_func_02.loggui" , $reader02 )
MsgBox (0, "INFORMATION" , "Du hast deinen Accout erfolgreich erstellt ! Du kannst dich nun beim Login einloggen . " )
Case $Button2
$reader03 = GUICtrlRead ( $input3 )
$reader04 = GUICtrlRead ( $input4 )
$reader05 = FileRead ( "no_func_01.loggui" )
$reader06 = FileRead ( "no_func_02.loggui" )
If $reader03 = $reader05 And $reader04 = $reader06 Then
MsgBox (0, "INFO" , "Sie haben das richtige Passwort und den richtigen Benutzernamen eingegeben.")
Else
MsgBox (0, "INFO" , "Sie haben das falsche Passwort / den falschen Benutzernamen eingegeben. Versuchen sie sich erneut einzuloggen oder einen neuen Account zu erstellen.")
EndIf
EndSwitch
WEnd