GUI Problem

#include <GUIConstants.au3>


GUICreate("Nakroma´s Privat Server Client", 500, 150)


GUICtrlCreateLabel("Bitte wähle eine Aktion aus!", 30, 10)
$ndjoin = GUICtrlCreateButton("Privat Server Join", 20, 50, 180)
$blizzjoin = GUICtrlCreateButton("Blizzard Join", 20, 100, 180)
$account = GUICtrlCreateButton("Account erstellen", 300, 50, 180)
$homepage = GUICtrlCreateButton("Zur Homepage", 300, 100, 180)
GUISetState(@SW_SHOW)


While 1
$msg = GUIGetMsg()


Select
Case $msg = $ndjoin
#include <File.au3>
_FileWriteToLine ( 'C:/Programme/World of Warcraft/Date/DeDE/realmlist.txt', 1, 'set realmlist ', 1 ); DEINEREALMLIST=Serverrealmlist einsetzen
_FileWriteToLine ( 'C:/Programme/World of Warcraft/Date/DeDE/realmlist.txt', 2, 'REALMLIST', 1 );
_FileWriteToLine ( 'C:/Programme/World of Warcraft/Date/deDE/realmlist.txt', 3, '', 1 );
_FileWriteToLine ( 'C:/Programme/World of Warcraft/Date/DeDE/realmlist.txt', 4, '', 1 );
Run ("C:/Programme/World of Warcraft/World of Warcraft.exe")
ExitLoop


Case $msg = $blizzjoin
#include <File.au3>
_FileWriteToLine ( 'C:/Programme/World of Warcraft/Date/DeDE/realmlist.txt', 1, 'set realmlist eu.logon.worldofwarcraft.com', 1 ); DEINEREALMLIST=Serverrealmlist einsetzen
_FileWriteToLine ( 'C:/Programme/World of Warcraft/Date/DeDE/realmlist.txt', 2, 'set patchlist eu.version.worldofwarcraft.com', 1 );
_FileWriteToLine ( 'C:/Programme/World of Warcraft/Date/DeDE/realmlist.txt', 3, 'set realmlistbn ""', 1 );
_FileWriteToLine ( 'C:/Programme/World of Warcraft/Date/DeDE/realmlist.txt', 4, 'set portal eu', 1 );
Run ("C:/Programme/World of Warcraft/World of Warcraft.exe")
ExitLoop


Case $msg = $account
ShellExecute('http://accountpage.de')


Case $msg = $homepage
ShellExecute('http://homepage.de')


Case $msg = $GUI_EVENT_CLOSE
MsgBox(0, "Client Message", "Client wird beendet!")
ExitLoop




EndSelect
WEnd

#include <GUIConstants.au3>


GUICreate("Nakroma´s Einstellungsmenü", 500, 150)
$realmlistinput = GUICtrlCreateInput("P-Server Realmlist", 20, 20, 100)
$realmlistbutton = GUICtrlCreateButton("OK", 140, 20, 80)
$accountinput = GUICtrlCreateInput("Account-Page", 20, 100, 100)
$accountbutton = GUICtrlCreateButton("OK(Mit Http)", 140, 100, 80)
$homepageinput = GUICtrlCreateInput("Homepage", 200, 60, 100)
$homepagebutton = GUICtrlCreateButton("OK(Mit Http)", 320, 60, 80)


GUISetState(@SW_SHOW)




While 1
$msg = GUIGetMsg()


Select
Case $msg = $realmlistbutton
$realmlist = GUICtrlRead($realmlistinput)
send ($realmlist)
MsgBox(0, "Lol", $realmlist)


Case $msg = $accountbutton
$account = GUICtrlRead($accountinput)
send ($account)
MsgBox(0, "LOl", $account)


Case $msg = $homepagebutton
$homepage = GUICtrlRead($homepageinput)
Send ($homepage)
MsgBox(0, "Lol", $homepage)


Case $msg = $GUI_EVENT_CLOSE
MsgBox(0, "Message", "Programm wird beendet!")
ExitLoop
EndSelect
WEnd