WoW Reg-Writer & WoW-Launcher

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$wowpath = RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft', 'Installpath')
$Account = RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft', "Accountname")
$Password = RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft', "Password")
$wowexe = $wowpath & "\wow.exe"

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Rubberducky´s WoW-Launcher 2009", 623, 396, 192, 124)
GUISetBkColor(0x000000)
$Header = GUICtrlCreateLabel("Rubberducky´s World of Warcraft Launcher", 72, 24, 501, 33)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$Label_Accountname = GUICtrlCreateLabel("Accountname:", 56, 152, 119, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$Label_Password = GUICtrlCreateLabel("Password:", 86, 196, 86, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$Youraccoount = GUICtrlCreateInput($Account, 192, 152, 217, 21)
$Yourpassword = GUICtrlCreateInput($Password, 191, 200, 217, 21)
$StartandLogin = GUICtrlCreateButton("Start & Login", 16, 272, 137, 33, 0)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
$Onlylogin = GUICtrlCreateButton("Login only", 160, 272, 145, 33, 0)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
$Exit = GUICtrlCreateButton("Exit", 313, 273, 145, 33, 0)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
$Copyright = GUICtrlCreateLabel("© by Rubberducky @ UWC. All rights reserved. 2009", 304, 368, 305, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$UWC = GUICtrlCreateButton("Visit UWC", 465, 272, 145, 33, 0)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Exit
Exit
Case $Startandlogin
ShellExecute($wowexe)
WinActivate("World of Warcraft")
Sleep(11000)
Send("{LCTRL}")
Send("{A}")
Send("{BS}")
Send($Account)
Send("{TAB}")
Send($Password)
Send("{ENTER}")
Sleep(4000)
Case $Onlylogin
WinActivate("World of Warcraft")
Sleep(10000)
Send("{LCTRL}")
Send("{A}")
Send("{BS}")
Send($Account)
Send("{TAB}")
Send($Password)
Send("{ENTER}")
Sleep(1000)
Case $UWC
shellexecute("www.uwcrew.eu")
EndSwitch
WEnd

#include <GUIConstantsEx.au3>
$1 = InputBox("Accountname!", "Please insert the Accountname. Bitte geben sie den Accountnamen ein.", "")
$2 = InputBox("Password:!", "Please insert the Password. Bitte geben sie das Passwort ein.", "")
RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft', "Accountname", "REG_SZ", $1)
RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft', "Password", "REG_SZ", $2)