Автор Тема: Ошибка в работе цикла FOR  (Прочитано 553 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Miwel48

  • Зашел в гости
  • *
  • Сообщений: 3
    • Просмотр профиля
Ошибка в работе цикла FOR
« : Июль 11, 2019, 12:27:06 pm »
Доброго времени суток.
Есть небольшой скрипт который открывает файл, и в нем по очереди запускает выполнение файлов.
Пролбема в том,что до вчера всё работало отлично, но вот сегодня оказалочь, что цикл запуска работает через раз.
Вот сам скрипт.
for($i, $i<1690, 1)
waitms(100)
$name=StrReadln("D:\text.txt",$i)
Execute($name)
logwrite($i)
logwrite($name)
waitms(7000)
KEYPRESS(#F12)
waitms(500)
keystring($i, 20)
keypress(#ENTER)
waitms(500)
LCLICK(1725,228)
END_CYC
  Halt

В лог выводит всё верно, но вот запускает файлы через раз.
Получается очень много файлов то четных, то нечетных.
Файлы эксель. Оффис 365.
Винда 10. Скачала последнюю версию кликкера.
Помогите, пожалуйста советом, где найти проблему и как это всё решить.

Спасибо заранее

Miwel48

  • Зашел в гости
  • *
  • Сообщений: 3
    • Просмотр профиля
Re: Ошибка в работе цикла FOR
« Ответ #1 : Июль 11, 2019, 01:25:37 pm »
перезагрузите и разгрузите комп от всех задач не нужных для непосредственной работы скрипта, увеличьте время между запусками файлов, закрывайте ранее открытые файлы после использования.
Можно вообще ввести контроль окончания открытия-закрытия файла и только после этого запускать следующий.

Я уже увеличивала время, комп и так вхолостую работает.
Подскажите, пожалуйста, в чем может быть ошибка ещё?
Лог идеальный, файлы запускает через один ровно.

Miwel48

  • Зашел в гости
  • *
  • Сообщений: 3
    • Просмотр профиля
Re: Ошибка в работе цикла FOR
« Ответ #2 : Июль 11, 2019, 03:26:22 pm »
спасибо огромное за ответ.

Космич

  • Активный участник
  • ***
  • Сообщений: 247
    • Просмотр профиля
Re: Ошибка в работе цикла FOR
« Ответ #3 : Июль 11, 2019, 03:54:51 pm »
Код: Clickermann
  1. FOR($i = 0, $i < 1690)
  2.   $name = STRREADLN("D:\text.txt",$i)
  3.   PRINT("$i = ", $i, " $name = ", $name)
  4.   $check = 0
  5.   WHILE($check = 0)
  6.      EXECUTE($name)
  7.      $time = $_time_t + 60
  8.      WHILE( ($time > $_time_t) and ($check = 0) )
  9.         $check = WNDFIND(STRCUT($name, 1, STRLEN($name) - 4))
  10.      END_CYC
  11.   END_CYC
  12.   KEYPRESS(#F12)
  13.   WAITMS(500)
  14.   KEYSTRING($i, 20)
  15.   KEYPRESS(#ENTER)
  16.   WAITMS(500)
  17.   LCLICK(1725,228)
  18. END_CYC
  19.  
  20. HALT
«Иногда ты ваяешь до тех пор, пока до тебя не дойдёт, что именно ты делаешь.»