Login Fenster erstellen Problem..

08/03/2014 03:16 BeasT1009#1
Hallo mal wieder :D
Mein letztes Problem habe ich selbst geregelt aber wieder einmal scheitere ich..
Das mit dem Memory lesen schreiben habe ich jetzt verstanden ;)
Also: Ich möchte jetzt gerne einem ein Login machen mit einer GUI.. Ohne GUI funktionierts ;)
aber mit der GUI komme ich nicht Wirklich dahinter...
Code:
#RequireAdmin
#NoTrayIcon
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=C:\Users\League-of-Legends!\Desktop\ArcanerOnline\include\GUI\Form1.kxf
$Form1 = GUICreate("MrBlubZ0r Login-Screen v.1.0", 428, 310, 192, 124)
GUISetBkColor(0xFFFFFF)
$Group1 = GUICtrlCreateGroup("", 49, 137, 329, 145)
$LabelUN = GUICtrlCreateLabel("Benutzername:", 88, 184, 93, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$LabelPW = GUICtrlCreateLabel("Passwort:", 88, 216, 62, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Bitte melden Sie sich mit Ihren Accountdaten an.", 56, 152, 233, 17)
$InputUsername = GUICtrlCreateInput("", 208, 184, 121, 21)
$InputPasswort = GUICtrlCreateInput("", 208, 216, 121, 21)
$ButtonLogin = GUICtrlCreateButton("Anmelden", 88, 248, 107, 25)
$ButtonClose = GUICtrlCreateButton("Beenden", 224, 248, 107, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Pic1 = GUICtrlCreatePic("C:\Users\League-of-Legends!\Desktop\ArcanerOnline\include\Pictures\Logo.jpg", 35, 8, 356, 124)
$LabelCR = GUICtrlCreateLabel("©CopyRights reserved by http://www.arcaner-online.com/", 8, 288, 281, 17)
$Label2 = GUICtrlCreateLabel("version 1.0", 368, 288, 56, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $ButtonClose
			Exit
		Case $ButtonLogin
			GUICtrlRead ( $InputUsername)
			GUICtrlRead ( $InputPasswort)
			If $InputUsername = "login" And $InputPasswort = "test" Then
				MsgBox(0,"Erfolgreich angemeldet","Sie wurden erfolgreich angemeldet.")
			Else
				MsgBox(0,"Login gescheitert!","Bitte überprüfen Sie ihre Eingabe.")
			EndIf

	EndSwitch
WEnd
Hoffe mir kann jemand von euch helfen..
Gruß Kai
08/03/2014 03:23 c0w#2
$Inputusername ist der name der Textbox, mit GuiCtrlRead ließt du diese zwar aus, aber gibst sie ned in ne variable über. du bräuchtest sowas wie $username = Guictrlread($inputusername) und in $username steht dann der inhalt der box.
08/03/2014 03:30 BeasT1009#3
Jap habs grade hinbekommen :D
Hier der Code ;)

€dit: Noch eine frage.. könnte ich jetzt eine zweite While schleife in dem Button Case packen?
So das ich z.B eine 2te GUI öffne und die erste sich schließt??

€dit: Schon ok :D arbeite jetzt mit Hide und Show ;)

Gruß Kai

Kann geclosed werden.