GUI и функция с бесконечным циклом

#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <autologin.au3>

Local $hGUI = GUICreate("L2Windows", 150, 185)
Local $character1 = GUICtrlCreateButton("Nickname1", 10, 20, 130)
Local $character2 = GUICtrlCreateButton("Nickname2", 10, 50, 130)
Local $character3 = GUICtrlCreateButton("Nickname3", 10, 80, 130)
Local $character4 = GUICtrlCreateButton("Nickname4", 10, 110, 130)
Local $character5 = GUICtrlCreateButton("Nickname5", 10, 140, 130)
GUISetState(@SW_SHOW, $hGUI)

Local $iMsg = 0
While 1
    $iMsg = GUIGetMsg()
    Switch $iMsg
        Case $character1
            Login("login1", "pass1", "Nickname1")
	    Case $character2
            Login("login2", "pass2", "Nickname2")
	    Case $character3
            Login("login3", "pass3", "Nickname3")
	    Case $character4
            Login("login4", "pass4", "Nickname4")
	    Case $character5
            Login("login5", "pass5", "Nickname5")
        Case $GUI_EVENT_CLOSE
            ExitLoop
    EndSwitch
WEnd

GUIDelete($hGUI)

Func Login($login, $pass, $name)
   Run("C:\Games\Lineage 2\system\l2.exe")
   WinWaitActive("Lineage 2")
   Sleep(2000)
   Send($login)
   Send("{TAB}")
   Send($pass)
   Sleep(1000)
   Send("{ENTER}")
   Sleep(2000)
   Send("{TAB}")
   Sleep(1000)
   Send("{ENTER}")
   Sleep(500)
   Send("{ENTER}")
   Sleep(500)
   Send("{ENTER}")
   Sleep(500)
   Send("{ENTER}")

   $hWnd = WinGetHandle("Lineage 2")
   While (WinGetState($hWnd) <> 0)
	  WinSetTitle ($hWnd, "", $name)
	  Sleep(1)
   WEnd
EndFunc

#include <Constants.au3>
#include <GUIConstantsEx.au3>
;~ #include <autologin.au3>

Global $name_glob = "", $c_type = 0
Local $hGUI = GUICreate("L2Windows", 150, 185)
Local $character1 = GUICtrlCreateButton("Nickname1", 10, 20, 130)
Local $character2 = GUICtrlCreateButton("Nickname2", 10, 50, 130)
Local $character3 = GUICtrlCreateButton("Nickname3", 10, 80, 130)
Local $character4 = GUICtrlCreateButton("Nickname4", 10, 110, 130)
Local $character5 = GUICtrlCreateButton("Nickname5", 10, 140, 130)
GUISetState(@SW_SHOW, $hGUI)

Local $iMsg = 0
While 1
	$hWnd = WinGetHandle("Lineage 2")
	If ($c_type == 1) And (WinGetState($hWnd) <> 0) Then
		WinSetTitle ($hWnd, "", $name)
	EndIf
    $iMsg = GUIGetMsg()
    Switch $iMsg
        Case $character1
            Login("login1", "pass1", "Nickname1")
        Case $character2
            Login("login2", "pass2", "Nickname2")
        Case $character3
            Login("login3", "pass3", "Nickname3")
        Case $character4
            Login("login4", "pass4", "Nickname4")
        Case $character5
            Login("login5", "pass5", "Nickname5")
        Case $GUI_EVENT_CLOSE
            ExitLoop
    EndSwitch
WEnd

GUIDelete($hGUI)


Func Login($login, $pass, $name)
	$c_type = 1
	$name_glob = $name
   Run("C:\Games\Lineage 2\system\l2.exe")
   WinWaitActive("Lineage 2")
   Sleep(2000)
   Send($login)
   Send("{TAB}")
   Send($pass)
   Sleep(1000)
   Send("{ENTER}")
   Sleep(2000)
   Send("{TAB}")
   Sleep(1000)
   Send("{ENTER}")
   Sleep(500)
   Send("{ENTER}")
   Sleep(500)
   Send("{ENTER}")
   Sleep(500)
   Send("{ENTER}")
EndFunc

#NoTrayIcon
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#Include <Array.au3>

Opt("GUIOnEventMode", 1)
Opt("WinTitleMatchMode", 3)

If WinExists('AutoLogin') Then
MsgBox(64, 'AutoLogin', 'Программа уже запущена')
Exit
EndIf


$Form1 = GUICreate("AutoLogin", 181, 177, @DesktopWidth-190, @DesktopHeight-250)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
$List1 = GUICtrlCreateList("", 0, 0, 177, 175)
GUISetState(@SW_SHOW)

GUIRegisterMsg($WM_COMMAND, "MY_WM_COMMAND")

$Nick=IniReadSectionNames('!AutoPassword.ini')
For $NickNum=1 To $Nick[0]
GUICtrlSetData($List1, $Nick[$NickNum])
GUICtrlSetOnEvent(-1, "List1Click")
Next



While 1
Sleep(100)
WEnd



Func List1Click()


EndFunc



Func List_DoubleClick()
    $NickName=GUICtrlRead($List1)
	$Login=IniRead('!AutoPassword.ini', $NickName, 'Login', '')
	$Pass=IniRead('!AutoPassword.ini', $NickName, 'Password', '')

	If $Login='' Or $Pass='' Then
		MsgBox(16, 'AutoLogin', 'Остутсвует логин или пароль')
		Return 0
	ElseIf Not FileExists('System\l2.exe') Then
		MsgBox(16, 'AutoLogin', 'Не найден файл "System\l2.exe"')
		Return 0
	Else
		$WinArr1=WinList("Lineage II")
		Run('System\l2.exe')
	EndIf

ToolTip($NickName, @DesktopWidth/2-StringLen($NickName), @DesktopHeight/2-20, 'Запуск Lineage II', 1, 2)


WinWaitActive("Lineage II")
ToolTip('')
Sleep(1000)
;~ WinMove("Lineage II", "", 30, 60)



Do
$WinArr2=WinList("Lineage II")
Until $WinArr2[0][0]>$WinArr1[0][0]

If $WinArr1[0][0]>0 Then
For $Num1=1 To $WinArr2[0][0]
For $Num2=1 To $WinArr1[0][0]
If $WinArr1[$Num2][1]=$WinArr2[$Num1][1] Then ExitLoop
If $Num2=$WinArr1[0][0] Then ExitLoop 2
Next
Next
Else
$Num1=1
EndIf

$ret=DllCall("user32.dll", "long", "LoadKeyboardLayout", "str", "00000409", "int", 0)
DllCall("user32.dll", "ptr", "SendMessage", "hwnd", $WinArr2[$Num1][1], "int", "0x50", "int", 1, "int", $ret[0])

WinWaitActive($WinArr2[$Num1][1])
ControlSend($WinArr2[$Num1][1], "", "", $Login)

WinWaitActive($WinArr2[$Num1][1])
ControlSend($WinArr2[$Num1][1], "", "", "{TAB}")

WinWaitActive($WinArr2[$Num1][1])
ControlSend($WinArr2[$Num1][1], "", "", $Pass)


EndFunc



Func MY_WM_COMMAND($hWnd, $msg, $wParam, $lParam)
    Local $nNotifyCode = BitShift($wParam, 16)
    Local $nID = BitAND($wParam, 0xFFFF)
    Local $hCtrl = $lParam
    Local Const $LBN_ERRSPACE = (-2);
    Local Const $LBN_SELCHANGE = 1;
    Local Const $LBN_DBLCLK = 2;
    Local Const $LBN_SELCANCEL = 3;
    Local Const $LBN_SETFOCUS = 4;
    Local Const $LBN_KILLFOCUS = 5;

    Switch $nID
        Case $List1
            Switch $nNotifyCode
                Case $LBN_DBLCLK
                    List_DoubleClick()
            EndSwitch
    EndSwitch
    Return $GUI_RUNDEFMSG
EndFunc



Func Form1Close()
Exit
EndFunc