Добрый день. Я пишу скрипт для заполнения формы, места ввода информации нахожу поиском с подсветкой найденного, и по цвету найденного совершаю клик и ввод. У меня вопрос как зациклить выполнение куска кода подпрограммы? Так то всё работает, но один раз, а мне цикл нужен.
Основной скрипт
Подпрограмма которую надо зациклить.
Смотрел в сторону Func? но так и не понял как использовать и внедрить в цикл. include тоже в цикл на получается, весь кусок кода подпрограммы в цикл не влазит - ругается.
Прошу помощи.
Основной скрипт
Код:
Sleep(500)
WinActivate("АС СиОИ — Яндекс.Браузер")
Sleep(1000)
Send("{APPSKEY}")
Send("{DOWN}")
Sleep(100)
Send("{ENTER}")
Send("^{TAB}")
Sleep(3000) ; three seconds
$var =1 ;~блок ожидания цвета
Do
Sleep(100)
$var = PixelGetColor(55, 555)
Until $var=0xFFFFFF
;~блок поиска
Send("{F3}")
Sleep(100)
Send("металлическая")
Sleep(100)
Send("{ENTER}")
Sleep(200)
;~блок поиска цвета и клик
$coord = PixelSearch( 0, 90, 1500, 860, 0xFFA328 )
MouseClick("left", $coord[0] + 660, $coord[1] + 60)
Send("+{TAB}")
Send("+{TAB}")
#include <sub.au3> ;~ уходим в подпрограмму
Exit
Подпрограмма которую надо зациклить.
Код:
Send("{TAB}")
Send("{TAB}")
Send("{TAB}")
Send("{SPACE}")
Sleep(5000)
;~блок поиска
Send("{F3}")
Sleep(100)
Send("заземления (")
Sleep(100)
Send("{ENTER}")
Sleep(200)
;~блок поиска цвета и клик
$coord = PixelSearch(0, 90, 1500, 860, 0xFFA328 )
MouseClick("left", $coord[0],$coord[1])
Sleep(1000)
;~блок поиска
Send("{F3}")
Sleep(100)
Send("повреждение")
Sleep(100)
Send("{ENTER}")
Sleep(200)
Sleep(400)
$coord = PixelSearch(500, 90, 1500, 860, 0xFFA328 )
$cvet=0xEEEEEE
$var = PixelGetColor($coord[0]+500,$coord[1]-100)
If $var=$cvet Then
MouseClick("left", $coord[0]+463,$coord[1]-155)
EndIf
Sleep(100)
MouseMove($coord[0]+500,$coord[1]-100)
MouseClick("left")
MouseClick("left")
MouseClick("left")
Send("{DELETE}")
$n=1
#include <file.au3>
Dim $aRecords
If Not _FileReadToArray("D:\autoit.txt",$aRecords) Then
MsgBox(4096,"Error", " Error reading log to Array error:" & @error)
Exit
EndIf
Send($aRecords[$n])
$n+=1
Send("{TAB}")
Send($aRecords[$n])
;~блок поиска, цвет и клик
Send("{F3}")
Sleep(100)
Send("сохранить")
Sleep(100)
Send("{ENTER}")
Sleep(200)
$coord = PixelSearch(0, 90, 1500, 860, 0xFFA328 )
MouseClick("left", $coord[0],$coord[1])
Sleep(1000) ;конец блока
Send("{TAB}")
;~проверка окончания
$coord = PixelSearch( 888,95,1030,860, 0xEBEBEB )
If @error Then
Sleep(100)
Else
Send("{F3}")
Sleep(100)
Send("заверш")
Sleep(100)
Send("{ENTER}")
Sleep(200)
;~блок поиска цвета и клик
$coord = PixelSearch(0, 90, 1500, 860, 0xFFA328 )
MouseMove($coord[0],$coord[1])
Sleep(1000)
EndIf
Sleep(200)
Send("^w") ;закрыть вкладку
Смотрел в сторону Func? но так и не понял как использовать и внедрить в цикл. include тоже в цикл на получается, весь кусок кода подпрограммы в цикл не влазит - ругается.
Прошу помощи.