[Окна, Диалоги] Окно поле ввода кнопка

Global $mail, $key
; создание GUI
$GUI = GUICreate("Activation Service", 300, 200)
$Input = GUICtrlCreateInput("Ваш mail", 60, 60, 180)
$Button = GUICtrlCreateButton("Activation Service", 80, 120, 140, 40)
GUISetState()

Do
  Switch GUIGetMsg()
    Case -3 ; закрытие окна
      Exit
    Case $Button ; нажатие кнопки
      If WinGetTitle($GUI) = "Activation Service" Then ; ориентируемся по заголовку
        $mail = GUICtrlRead($Input) ; читаем данные
        WinSetTitle($GUI, "", "Activation Key") ; меняем заголовок
        GUICtrlSetData($Input, "Key") ; меняем текст поля ввода
        GUICtrlSetData($Button, "Activation Key") ; меняем текст кнопки
      Else
        $key = GUICtrlRead($Input) ; читаем данные
        GUIDelete($GUI) ; удаляем окно
        ExitLoop ; переходим к обработке данных
      EndIf
  EndSwitch
Until 0

; обработка данных
MsgBox(0, "", "mail : " & $mail & @CRLF & "key : " & $key & @CRLF & "Спасибо за АКТИВАЦИЮ !")