GUICreate("", 220, 100)
GUISetState()
$input = GUICtrlCreateInput("", "10", "10")
$login = GUICtrlCreateButton("Start", 70, 30, 80, 20)

$stop = 1
While $stop = 1
    $msg = GUIGetMsg()
    Switch $msg
        Case -3
            Exit
        Case $login
            $var1 = GUICtrlRead($input)
            ControlSend("World of Warcraft", "", "", $var1)
            Sleep(1000)
    EndSwitch
WEnd