AutoIt(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

	  _FileWriteToLine ( 'C:/Programme/World of Warcraft/Date/DeDE/realmlist.txt', 2, 'REALMLIST', 1 );