скрипт должен наблюдать за программой и перезагружать ее каждые 1-2 часа. Или через 5 минут после того как она "зависнет".
Но скрипт перезагружает все каждые 10 минут.
Функции FileWriteLine здесь только чтобы протестировать скрипт.
Вот что они пишут в лог:
Почему не происходят 3-я и далее итерации?
Но скрипт перезагружает все каждые 10 минут.
Код:
While True
ReloadAll()
Dim $CheckSum = 0, $randomTime = 0
$randomTime=Random(0,12, 1)
$randomTime+=12
$CheckSum = PixelChecksum(925, 645, 970, 655)
FileWriteLine("C:\log.txt", "рандом:"& $randomTime &" сумма:"& $CheckSum &" вход")
For $i=0 To $i<$randomTime Step 1
Sleep(300000)
If $CheckSum <> PixelChecksum(925, 645, 970, 655) Then
$CheckSum = PixelChecksum(925, 645, 970, 655)
FileWriteLine("C:\log.txt", "рандом:"& $randomTime &" сумма:"& $CheckSum &" i:"& $i &" дальше")
Else
FileWriteLine("C:\log.txt", "рандом:"& $randomTime &" сумма:"& $CheckSum &" i:"& $i &" выход")
ExitLoop
EndIf
Next
WEnd
Функции FileWriteLine здесь только чтобы протестировать скрипт.
Вот что они пишут в лог:
Подскажите куда копать?рандом:12 сумма:99483649 вход
рандом:12 сумма:533831865 i:0 дальше
рандом:12 сумма:4960610623 i:1 дальше
рандом:13 сумма:99483649 вход
рандом:13 сумма:102235927 i:0 дальше
рандом:13 сумма:4468079163 i:1 дальше
рандом:24 сумма:99483649 вход
рандом:24 сумма:743056744 i:0 дальше
рандом:24 сумма:1120867350 i:1 дальше
Почему не происходят 3-я и далее итерации?