Цитата:
|
Сообщение от Scupxxx
ХМ... Не работает.... Крон снимает killtest, даже если не нажимать кнопку "Зависнуть в бесконечном цикле", т.е. даже когда и не висит (В ХР все нормально, а траблы в 98 винде.) Как победить, а?
|
Наслаждайся.
Код:
#( test_not_responding
WINAPI: IsHungAppWindow USER32.dll
WINAPI: SendMessageTimeoutA USER32.DLL
: isHungWindow? ( hwnd - ? )
>R 0 SP@ 5000 2 0 0 0 R> SendMessageTimeoutA NIP 0= \ Таймаут = 5 секунд
;
VARIABLE Responding?
\ Проверять каждую минуту
Time: * * * * * *
\ Только если запущено приложение KillTest
Rule: WIN-EXIST: "KillTest*"
Action:
\ Responding=FALSE
Responding? OFF
\ Взависимости от ОС
WinNT?
IF
WIN-HWND IsHungAppWindow
\ Поверка на зависон. Если висим, то Responding=TRUE
IF Responding? ON THEN
ELSE
WIN-HWND isHungWindow?
\ Поверка на зависон. Если висим, то Responding=TRUE
IF Responding? ON THEN
THEN
\ Если Responding=TRUE, то перезапускаем KillTest
Responding? @ \ Здесь была ошибка
IF
KILL: "KillTest.exe"
PAUSE: 1000
START-APP: "E:\Downloads\KillTest.exe"
THEN
)#
В принципе все это ты мог написать и сам, заглядывая в help.