Добрый день!
Написали скрипт для формирования запросов в систему. Алгоритм запросов в эту систему всегда одинаков, меняются лишь логин-пароль, номера регистрации, и даты номеров регистрации.
Скрипт забирает заранее известную связку логин-пароль из файла, заранее известный список номеров регистраций и дату.
Вопрос заключается в том, что не удаётся совместить в скрипте сразу два цикла. В момент, когда скрипт подходит к концу, он возвращается к циклу for, когда мне нужно, чтобы скрипт возвращался к циклу while.
Надеюсь доступно объяснил свою проблему, очень жду помощи.
$str = TFREAD ("LogPass.txt", 1)
$comp = STRCUT2 ($str, 1, STRPOS ($str, "/")-1)
$log = STRCUT2 ($str, STRPOS ($str, "/")+1, STRPOS ($str, ":")-1)
$pass = STRCUT2 ($str, STRPOS ($str, ":")+1, STRLEN ($str))
LCLICK(750,355) // клик по полю логина
WAIT (1)
TOCLIP($log) // скопировать логин в буфер
WAIT (1)
KEYDOWN (#CTRL) // вставить
WAIT (1)
KEYPRESS(#V)
WAIT (1)
KEYUP (#CTRL)
WAIT (1)
KEYPRESS(#TAB)
WAIT (1)
TOCLIP($pass) // скопировать пароль в буфер
WAIT (1)
KEYDOWN (#CTRL) // вставить
WAIT (1)
KEYPRESS(#V)
WAIT (1)
KEYUP (#CTRL)
WAIT (1)
KEYPRESS(#ENTER) // войти
WAIT(5)
// тут команды после входа
$filename_3 = "Date.txt" //Имя файла
$count_3 = 1//Индекс строки
WHILE( $count_3 < TFCOUNT($filename_3) + 1 ) // Выполняем до тех пор, пока не кончатся строки
LCLICK(526,128) // "Запрос данных о НР"
WAIT(5)
LCLICK(69,189) // "Добавить"
WAIT(5)
KEYPRESS(#TAB)
WAITMS(50)
KEYPRESS(#TAB)
WAITMS(50)
KEYSTRING(TFREAD($filename_3, $count_3))
KEYPRESS(#TAB)
WAITMS(50)
KEYSTRING("05072019")
KEYPRESS(#TAB)
WAITMS(50)
KEYPRESS(#TAB)
WAITMS(50)
KEYPRESS(#TAB)
WAITMS(50)
KEYPRESS(#BACKSPACE)
KEYPRESS(#BACKSPACE)
KEYPRESS(#BACKSPACE)
KEYPRESS(#BACKSPACE)
KEYPRESS(#BACKSPACE)
KEYPRESS(#BACKSPACE)
KEYPRESS(#BACKSPACE)
KEYPRESS(#BACKSPACE)
KEYPRESS(#BACKSPACE)
KEYPRESS(#BACKSPACE)
KEYPRESS(#BACKSPACE)
KEYPRESS(#BACKSPACE)
KEYPRESS(#BACKSPACE)
KEYPRESS(#BACKSPACE)
KEYPRESS(#BACKSPACE)
KEYPRESS(#BACKSPACE)
KEYPRESS(#BACKSPACE)
KEYPRESS(#BACKSPACE)
WAIT(2)
KEYSTRING("e-mail")
LCLICK(323,238) // "По ТН"
WAIT(2)
LCLICK(380,278) // "Выпадающее меню"
WAIT(2)
LCLICK(405,312) // "Справочник"
WAIT(2)
LCLICK(861,166) // "ОК"
WAIT(5)
LCLICK(714,101) // "Поле "№ РУ"
WAIT(5)
$filename_2 = strconcat($comp, ".txt") //Имя файла
$count_2 = 1//Индекс строки, номер РУ
FOR ($count_2, $count_2 < TFCOUNT($filename_2)) // Выполняем до тех пор, пока не кончатся строки
$RegNum = TFREAD ($filename_2, $count_2)
WAIT(3)
LCLICK(710,100) // клик по полю логина
WAIT (1)
TOCLIP($RegNum) // скопировать логин в буфер
WAIT (1)
KEYDOWN (#CTRL) // вставить
WAIT (1)
KEYPRESS(#V)
WAIT (1)
KEYUP (#CTRL)
WAIT (1)
KEYPRESS(#ENTER)
WAIT(5)
MOVE(700, 300) // Сменить местоположение для скроллинга
WHEELDOWN
WHEELDOWN
WHEELDOWN
WAIT(3)
GETSCREEN // Ищет зелёную строку
IF_PIXEL_IN(130,260, 1525,600, 14352321)
LCLICK($_return1, $_return2-50)
END_IF
GETSCREEN // Ищет синюю строку
IF_PIXEL_IN(130,260, 1525,600, 16436871)
LCLICK($_return1, $_return2-50)
END_IF
WAIT(3)
LCLICK(853,167)
WAIT(3)
LCLICK(325,240)
WAIT(3)
KEYDOWN (#CTRL) // применить
KEYPRESS(#ENTER)
WAIT (3)
KEYPRESS(#ENTER)
WAIT(5)
LCLICK(1000,510)
INC($count_2,1)
END_CYC
INC($count_3,1)
END_CYC
HALT // Останавливаем скрипт