[решено] Ошибка при отработке скрипта с самоудалением

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- AutoIt (http://forum.oszone.net/forumdisplay.php?f=103)

Ошибка при отработке скрипта с самоудалением

Собственно, проблема:

При отработке скрипта с самоудалением и последующей перезагрузкой возникает ошибка ( cmd.exe "Ошибка при инициализации приложения (0x0000142).....). В результате файл не удаляется.

код:

Код:

;Предотвращение появление процесса-клона

If WinExists(@ScriptName) Then Exit

AutoItWinSetTitle(@ScriptName)



;Блокирование ПК

#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)



$iPID = Run(@COMSPEC & ' /c %SYSTEMDRIVE%\cleanup.cmd', "", @SW_HIDE)

While ProcessExists($iPID)

$Title = "Пожалуйста, подождите..."             ; Заголовок

$SubTitle = "Происходит финализация установки"  ; Суб-заголовок

$Message  = "После удаления мусора, оставшегося от установки" & @CRLF ; Сообщение. Записано в таком виде для удобства

$Message &= "XP и создания/перемещения ярлыков, Система" & @CRLF

$Message &= "будет перезагружена. Осталось времени: "



$Time = 35 * 1000       ; Время здесь хранится в миллескундах. 1 с = 1000 мс

$Sleep = 0.01 * 100000    ; 10 мс. Меньше 1 мс ставить не рекомундуется. Впрочем, тут и 100 мс хватает.



$Timer = TimerInit() ; Инициализация таймера.



ProgressOn($Title, $SubTitle, $Message & $Time) ; Параметры: заголовок, суб-заголовок, сообщение. Включаем окно прогресса.

While TimerDiff($Timer) < $Time ; Пока прошло времени меньше чем нужно - повторять:

    ProgressSet(TimerDiff($Timer) / $Time * 100, $Message & Round(($Time - TimerDiff($Timer)) / 1000, 0) & " секунд")

    ; ProgressSet ( percent [, "subtext" [, "maintext"]] )

    ; Параметр 1: процент прогресса. Прошедшее время делим на требуемое и умножаем на 100

    ; Параметр 2: сообщение. Стандартное, как в перменной $Message плюс оставшееся время округлённое до целых

    ; Параметр 3: опциональный. Здесь не используется.

    Sleep($Sleep); Подожать $Sleep мс

WEnd

WEnd

ProgressSet(100, "ПЕРЕЗАГРУЗКА!  УДАЧНОЙ  РАБОТЫ!") ; Выводим последнее сообщение.

Sleep(3000) ; Чтобы было видно последнее сообщение.



;Enable Task Manager back

RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", "REG_DWORD", "0")



; Функция самоудалениея скрипта

#Include <File.au3>

Func _ScriptDestroy()

    $sTemp = _TempFile(@TempDir, '~', '.bat')

    $sPath = FileGetShortName(@ScriptFullPath)

    $hFile = FileOpen($sTemp, 2)

    FileWriteLine($hFile, '@echo off')

    FileWriteLine($hFile, ':loop')

    FileWriteLine($hFile, 'del ' & $sPath)

    FileWriteLine($hFile, 'if exist ' & $sPath & ' goto loop')

    FileWriteLine($hFile, 'del ' & $sTemp)

    FileClose($hFile)

    Run($sTemp, '', @SW_HIDE)

EndFunc   ;==>_ScriptDestroy



_ScriptDestroy()



Shutdown(2) ; Перезагружаем компьютер

На всякий случай прикрепляю файл самого скрипта и cmd-файл, который из него запускается

Применение скрипта без последней функции на самоуничтожение приводит к исчезновению ошибки. Что я неправильно в ней сделал?

код:

Код:

; Функция самоудалениея скрипта

#Include <File.au3>

Func _ScriptDestroy()

    $sTemp = _TempFile(@TempDir, '~', '.bat')

    $sPath = FileGetShortName(@ScriptFullPath)

    $hFile = FileOpen($sTemp, 2)

    FileWriteLine($hFile, '@echo off')

    FileWriteLine($hFile, ':loop')

    FileWriteLine($hFile, 'del ' & $sPath)

    FileWriteLine($hFile, 'if exist ' & $sPath & ' goto loop')

    FileWriteLine($hFile, 'del ' & $sTemp)

    FileClose($hFile)

    Run($sTemp, '', @SW_HIDE)

EndFunc   ;==>_ScriptDestroy



_ScriptDestroy()

PS Если просто создать отдельный скрипт с этой функцией ( ScriptDestroy() ), то тоже все отрабатывает нормально и файл успешно самоудаляется. Применение же в составе скрипта в шапке влечет за собой ошибку..

saavaage,
По-моему, Вы одновременно запускаете и перезагрузку, и батник самоудаления, из-за чего возникает ошибка.

madmasles, вы правы. Закоментировал строку с shoutdown и все прошло успешно. Вопрос тогда - как сдеелать, чтобы не было одновременного старта этих двух процессов. Вроде в скрипте (шапка) они идут последовательно (я предполагал, что shoutdown должен дождаться выполнения _ScriptDestroy() )...

PS Может есть параметр, который заставляет дождаться выполнения одной команды перед стартом другой?

saavaage,
А может из батника удаления запустить перезагрузку?

madmasles, как в него передать эту команду. Autoit это может?

PS Вы же имеете в виду батник, который создается функцией _ScriptDestroy()?

Цитата:

Цитата saavaage

Вы же имеете в виду батник, который создается функцией _ScriptDestroy()? »

Да в него.
У меня так работает, несколько раз проверил:

Код:

#Include <File.au3>



_ScriptDestroy()



Func _ScriptDestroy()

    $sTemp = _TempFile(@TempDir, '~', '.bat')

    $sPath = FileGetShortName(@ScriptFullPath)

    $hFile = FileOpen($sTemp, 2)

    FileWriteLine($hFile, '@echo off')

    FileWriteLine($hFile, ':loop')

    FileWriteLine($hFile, 'del ' & $sPath)

    FileWriteLine($hFile, 'if exist ' & $sPath & ' goto loop')

    FileWriteLine($hFile, 'shutdown -r -f -t 5')

    FileWriteLine($hFile, 'del ' & $sTemp)

    FileClose($hFile)

    Run($sTemp, '', @SW_HIDE)

EndFunc   ;==>_ScriptDestroy

madmasles, прекрасно сработало. Спасибо огромное. Тему можно закрывать.

PS Напоследок - не знаете, как отключить окно с предупреждением о перезагрузки? Читал справку по команде, не нашел никакого параметра (если только убрать t) , отвечающего за непоказ окна предупреждения о перезагрузке...

saavaage,
Сейчас проверил, так срабатывает без всяких окон:

Код:

_ScriptDestroy()

Sleep(1000)

Shutdown(6)

madmasles, а я просто подправил таким образом:
shutdown -r -f -t 0,
т.е. поставил задержку, равную 0 и окно исчезло. Однако, Ваш последний вариант больше, имхо, в духе autoit :)
PS Думаю форсировать перезагрузку смысла нет, поставил в конце shutdown(2).