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

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

Аватара для Creat0R

Must AutoIt


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

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


Цитата Pozia:
нужно чтобы данный скрипт запускался и вместо таймера была просто надпись Пожалуйста, подождите... Происходит настройка Windows и при этом запускался батник рядом лежащий. Как только батник отработал, то бишь его процесс в диспетчере задач исчез, нужно чтобы появился в этом же окне вместо надписи таймер секунд в 10 с надписью - Компьютером можно пользоваться после перезагрузки через 10 (здесь таймер отсчелкивает) сек. Желаю приятного пользования данной сборкой Windows XP 2010 от Pozia. »
Вот так например (используется UDF _BlockInputEx для блокировки без отключения по «Alt + Ctrl + Del»):

Код: Выделить весь код
#NoTrayIcon
#include <BlockInputEx.au3>

Opt("WinWaitDelay", 1)

$sTaskMgr_Title = "[CLASS:#32770;REGEXPTITLE:(Диспетчер задач|Task Manager)]"

;Disable Task Manager
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", "REG_DWORD", "1")

_BlockInputEx(1)

ProgressOn("Пожалуйста, подождите...", "Происходит настройка Windows")

$iBat_PID = Run(@ScriptDir & "\BatFile.bat")

While ProcessExists($iBat_PID)
    If WinExists($sTaskMgr_Title) Then WinClose($sTaskMgr_Title)

    Sleep(100)
WEnd

$iTimer = 10
$iStep = (100 / $iTimer)
$iPrgrs = 100
$iTimerInit = TimerInit()

While $iTimer >= 0
    Sleep(10)

    If WinExists($sTaskMgr_Title) Then WinClose($sTaskMgr_Title)

    If TimerDiff($iTimerInit) >= 1000 Then
        $iPrgrs -= $iStep

        ProgressSet($iPrgrs, _
            "Компьютером можно пользоваться после" & @CRLF & "перезагрузки, через " & $iTimer & " сек.", _
            "Настройка Windows завершена")

        $iTimer -= 1
        $iTimerInit = TimerInit()
    EndIf
WEnd

ProgressSet(-1, "Желаю приятного пользования данной сборкой" & @CRLF & "Windows XP 2010 от Pozia")

;Enable Task Manager back
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", "REG_DWORD", "0")

Shutdown(2)
Sleep(5000)

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community

Это сообщение посчитали полезным следующие участники:

Отправлено: 00:54, 25-01-2010 | #2