Hi, ich weiß nicht ob das hier richtig ist, wenn nicht bitte verschieben. Also ich arbeite zurzeit an einem Programm für ein Spiel, was einem "GameMaste", "GameModerator" vereinfachern soll. Also. Ich habe alles geschafft bis her mit dem MySQL Login und Register, jetzt wollte ich aber bei MySql was neues hinzufügen, unzwar das Reich, wo der GM dann "arbeitet", SPrich: Blau, Rot, Gelb.
Ich habe das Login System so gemacht : Klick
So sieht es zurzeit bei mir aus :
Spoiler anzeigen
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <INet.au3>
$hWindow_Login = GUICreate("Login", 261, 163, 192, 125)
GUISetIcon("shell32.dll", -45)
GUISetFont(8, 800, 0, "MS Sans Serif")
GUICtrlCreateLabel("Benutzername", 25, 14, 84, 17)
GUICtrlCreateLabel("Passwort", 53, 38, 55, 17)
$hInput_Benutzername = GUICtrlCreateInput("", 112, 12, 137, 21)
$hInput_Passwort = GUICtrlCreateInput("", 112, 36, 137, 21)
$hButton_Login = GUICtrlCreateButton("Login", 112, 96, 137, 33, $BS_DEFPUSHBUTTON)
$hButton_Registrieren = GUICtrlCreateButton("Registrieren", 24, 96, 89, 33)
GUICtrlCreateLabel("Reich", 64, 64, 37, 17)
GUICtrlCreateCombo("Login nicht Nötig", 112, 64, 137, 25)
GUICtrlSetData(-1, "Blau|Gelb|Rot")
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GuiDelete()
_Credits()
Case $hButton_Login
$sBenutzername = GUICtrlRead($hInput_Benutzername)
$sPasswort = GUICtrlRead($hInput_Passwort)
If $sBenutzername <> "" And $sPasswort <> "" Then
Switch _Login($sBenutzername, $sPasswort)
Case 0
MsgBox(16, "Error", "Benutzername ist nicht registriert!")
Case 1
MsgBox(32, "Info", "Erfolgreich eingeloggt!")
GuiDelete()
_Auswahl()
Case 2
MsgBox(16, "Error", "Passwort ist falsch!")
EndSwitch
Else
MsgBox(48, "Info", "Bitte einen Bentzernamen/Passwort angeben!")
EndIf
Case $hButton_Registrieren
$sBenutzername = GUICtrlRead($hInput_Benutzername)
$sPasswort = GUICtrlRead($hInput_Passwort)
If $sBenutzername <> "" And $sPasswort <> "" Then _Registration($sBenutzername,$sPasswort)
EndSwitch
WEnd
Func _Login($sBenutzername = "", $sPasswort = "")
$iRValue = _INetGetSource("http://*******/login.php?benutzername=" & $sBenutzername & "&passwort=" & $sPasswort)
Switch $iRValue
Case 0
Return 0
Case 1
Return 1
Case 2
Return 2
EndSwitch
EndFunc ;==>_Login
Func _Registration($sBenutzername = "", $sPasswort = "")
$iRValue = _INetGetSource("http://*********/registrierung.php?benutzername=" & $sBenutzername & "&passwort=" & $sPasswort)
Switch $iRValue ; je nach Rückgabewert der login.php-Datei wird nun weiter verfahren:
Case 0 ; - nicht erfolgreich registriert (Daten konnten nicht in die DB eingefügt werden) ...
MsgBox(16, "Error", "Registration fehlgeschlagen!")
Case 1 ; - erfolgreich registriert ...
MsgBox(32, "Info", "Erfolgreich registriert!")
Case 2 ; - der Benutzername existiert bereits in der Datenbank ...
MsgBox(16, "Error", "Der Benutzername ist bereits registriert!")
Case 3 ; - Benutzername oder Passwort stimmt nicht
MsgBox(16, "Error", "Benutzername/Passwort ist falsch!")
EndSwitch
EndFunc ;==>_Registration
Kann mir einer dabei helfen ? 