Что нового
Автор:
Фильтры

Завершение работы скрипта после истечения указанного "таймаута"

V

vld-k

Новичок
Сообщения
39
Репутация
0
Пожалуйста, помогите решить задачу:
Имею скрипт с парой десятков простых строк кода, необходимо сделать так, чтоб при запуске скрипта запускался таймер, после истечения которого в лог записывалось сообщение об ошибке и срабатывал exit
Вырезка из скрипта:
Код: 
....
RunWait (@ProgramFilesDir & '\nct\TOMAS\uninst.exe /SQ')
WinWaitActive ('Удаление TOMAS', '', '')
ControlClick ('Удаление TOMAS', '', 'Button1')
Sleep (5000)
WinWaitActive ('Удаление TOMAS', '')
ControlClick ('Удаление TOMAS', '', 'Button2')
FileWriteLine("X:\report.log", @IPAddress1 & @TAB & @ComputerName & @TAB &  "ok")

Идея в том, что если выполнение скрипта по каким-либо причинам не уложилось в заданный временной интервал, выполнять команду
Код: 
FileWriteLine("X:\report.log", @IPAddress1 & @TAB & @ComputerName & @TAB &  "ERROR")
Exit

Подскажите, пожалуйста, как это сделать.
 
I

InnI

AutoIT Гуру
Сообщения
4,922
Репутация
1,432
vld-k [?]
как это сделать
Нажмите, чтобы раскрыть...
Код: 
AdlibRegister("Timeout", 1000)

Global $Timeout = 10 ; в секундах
Global $ScriptStart = TimerInit()

; начало скрипта
While Sleep(1000)
WEnd
; конец скрипта

Func Timeout()
  If ($Timeout > 0) And (TimerDiff($ScriptStart) >= $Timeout * 1000) Then
    FileWriteLine("X:\report.log", @IPAddress1 & @TAB & @ComputerName & @TAB & "ERROR")
    Exit
  EndIf
EndFunc
 
Автор
V

vld-k

Новичок
Сообщения
39
Репутация
0
Спасибо за оперативный ответ.
Буду пробовать :smile:


Добавлено:
Сообщение автоматически объединено:

Спасибо Вам за помощь, все прекрасно работает. :IL_AutoIt_1:
 
alex33

alex33

Скриптер
Сообщения
1,457
Репутация
186
Код: 
AdlibRegister("Timeout", 1000)

; начало скрипта
While Sleep(1000)
WEnd
; конец скрипта

Func Timeout()
    FileWriteLine("X:\report.log", @IPAddress1 & @TAB & @ComputerName & @TAB & "ERROR")
    Exit
EndFunc
 
Garrett

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
OffTopic:
alex33
Смысл вашего ответа? Ваш ответ ничем не отличается от ответа InnI
Тема помечена как решённая, зачем её подымать?
 
Вам необходимо войти или зарегистрироваться, чтобы здесь отвечать.
Автор темы Похожие темы Форум Ответы Дата
A Автоматизация завершение работы скрипта Общие вопросы по AutoIt 6
A [Мышь, клавиатура] Как определить, что курсор мыши навели на кнопку Завершение работы в Windows 7 Общие вопросы по AutoIt 0
V Завершение работы Приложения (не Процесса!) Общие вопросы по AutoIt 5
joiner [Файловая система] _Zip_AddItem - не происходит завершение работы скрипта Баг-репорты и запросы на новые функции 0
damien2008 [Файловая система] обработка изображений. неправильное завершение работы скрипта Общие вопросы по AutoIt 1
Похожие темы
Автоматизация завершение работы скрипта
[Мышь, клавиатура] Как определить, что курсор мыши навели на кнопку Завершение работы в Windows 7
Завершение работы Приложения (не Процесса!)
[Файловая система] _Zip_AddItem - не происходит завершение работы скрипта
[Файловая система] обработка изображений. неправильное завершение работы скрипта
Верх