Имя пользователя:
Пароль:
 

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

Аватара для FlatX007

Ветеран


Сообщения: 553
Благодарности: 87

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


Да ну здесь прогреес бар совсем нето ... да ещё с этими приколами, если уж делать нормальное окно ,для вывода времени отсчёта, для чего-то стоящего - то я бы вот так сделал ...

Код: Выделить весь код
#NoTrayIcon
;~ #RequireAdmin
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("", 400, 298, -1, -1, $WS_BORDER, BitOR($WS_EX_TOOLWINDOW, $GUI_WS_EX_PARENTDRAG, $WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label1 = GUICtrlCreateLabel("0", 16, 40, 262, 205, $SS_CENTER)
GUICtrlSetFont(-1, 130, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("Перезагрузка компьютера через ... ", 24, 8, 358, 27)
GUICtrlSetFont(-1, 14, 800, 0, "Tahoma")
$Label3 = GUICtrlCreateLabel("Сек.", 280, 185, 109, 62)
GUICtrlSetFont(-1, 36, 800, 0, "Comic Sans MS")

WinSetOnTop($Form1, "", 1)

GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $nMsg = 1
            For $Start = 10 To 0 Step -1 ; -- Вписывааем ВМЕСТО 10 любую цифру эта цифра и будет начало отсчёта --
                Select
                    Case $Start >= 7
                        GUICtrlSetColor($Label1, 0x00FF00)
                        GUICtrlSetData($Label1, $Start)
                    Case $Start > 3
                        GUICtrlSetColor($Label1, 0xFF8000)
                        GUICtrlSetData($Label1, $Start)
                    Case $Start >= 0
                        GUICtrlSetColor($Label1, 0xFF0000)
                        GUICtrlSetData($Label1, $Start)
                EndSelect
                Sleep(1000)
            Next

            GUISetState(@SW_HIDE)

            If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
            $iMsgBoxAnswer = MsgBox(36,"","Перезагрузить компьютер ? ")
            Select
                Case $iMsgBoxAnswer = 6 ;Yes
;~                  Shutdown(2) ; Перезагружаем
                    Exit
                Case $iMsgBoxAnswer = 7 ;No
                    Exit
            EndSelect
    EndSwitch
WEnd
Это сообщение посчитали полезным следующие участники:

Отправлено: 13:22, 27-06-2009 | #24