Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно
D_Master


Сообщения: n/a

Профиль | Цитировать


leprecon, зачем склеивать?
Код: Выделить весь код
#NoTrayIcon
#include <GUIConstants.au3>
$Form1 = GUICreate("Введите пароль", 339, 55)
$Label1 = GUICtrlCreateLabel("Введите пароль:", 16, 16, 88, 17)
$password = GUICtrlCreateInput("", 112, 14, 121, 21)
$test = GUICtrlCreateButton("Проверить", 248, 13, 75, 25, 0)
GUISetState(@SW_SHOW)

;пароль:
$passw = "password"

While 1
    $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $test
                $pass = GUICtrlRead($password)
                If $pass == $passw Then
                    MsgBox(64, "Успешно!", "Пароль введен верно!" & @CRLF & "Запускаем Notepad.")
                    Run(@WindowsDir & "\notepad.exe")
                Else
                    MsgBox(16, "Ошибка!", "Введен неверный пароль!")
                EndIf
        EndSwitch
WEnd

Отправлено: 21:30, 20-03-2009 | #2