Что нового

Цикл For неожиданно завершается после 2-й итерации

narfuls

Новичок
Сообщения
2
Репутация
0
скрипт должен наблюдать за программой и перезагружать ее каждые 1-2 часа. Или через 5 минут после того как она "зависнет".
Но скрипт перезагружает все каждые 10 минут. :scratch:
Код:
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-я и далее итерации?
 

C2H5OH

AutoIT Гуру
Сообщения
1,473
Репутация
333
Сюда копать
http://autoit-script.ru/autoit3_docs/keywords/For.htm
 
Автор
N

narfuls

Новичок
Сообщения
2
Репутация
0
Спасибо. :ok:
и ведь смотрел туда :(
"смотришь в книгу - видишь фигу" это про меня.
 
Верх