1
Общие вопросы / Re: Цикличность
« on: April 23, 2017, 07:50:46 PM »
Огромное спасибо за помощь!

Добавлена тема оформления "Clickermann" для кода с подсветкой синтаксиса. Выбирается из выпадающего списка "Код" (рядом с "цвет", "размер" и "шрифт") в режиме редактирования поста. Либо просто BB-тегом "code=clickermann"
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
DBLCLICK(695,396) // клик по полю Email
WAITMS(50)
INC($num,1) // накручиваем номер строки каждый проход
IF($num > TFCOUNT ("mail.txt")) // если закончатся строки в файле
HALT // стоп
END_IF
TOCLIP (TFREAD ("mail.txt", $num)) // копируем строку в буфер
WAITMS(50)
KEYDOWN (#CTRL) // Вставить
WAITMS (50)
KEYPRESS(#V)
WAITMS (50)
KEYUP (#CTRL)
WAITMS (50)
LCLICK(1168,1008) // клик по Next
WAITMS(50)
$check = 0
WHILE($check = 0) // цикл поиска ОК
GETSCREEN
IF_PIXEL_IN (1085,591, 1109,604, 14264404) // поиск синего пикселя "ОК"
$check = 1 // разрешаем выход из цикла
LCLICK($_return1, $_return2)
WAITMS(2500)
ELSE
WAITMS(1000)
END_IF
// GETSCREEN
// IF_PIXEL_IN (799,382, 828,398, 10526880) // поиск серого пикселя "Next"
// $check = 1 // разрешаем выход из цикла
// Возвратить Данные из буфера обмена в конец файла"input.txt"
// LCLICK(688,64)
// WAITMS(500)
// LCLICK(713,374)
// WAITMS(2500)
// ELSE
// WAITMS(200)
// END_IF
END_CYC
FOR($all=1, $all>0) //бесконечный цикл работы цикла
DBLCLICK(695,396) // клик по полю Email
WAITMS(50)
INC($num,1) // накручиваем номер строки каждый проход
IF($num > TFCOUNT ("mail.txt")) // если закончатся строки в файле
HALT // стоп
END_IF
TOCLIP (TFREAD ("mail.txt", $num)) // копируем строку в буфер
WAITMS(50)
KEYDOWN (#CTRL) // Вставить
WAITMS (50)
KEYPRESS(#V)
WAITMS (50)
KEYUP (#CTRL)
WAITMS (50)
LCLICK(1168,1008) // клик по Next
WAITMS(50)
SUB(searchok)
FOR($b=1, $b>0) //бесконечный цикл работы цикла
getscreen
IF_PIXEL_IN (1085,591, 1109,604, 14264404) // поиск синего пикселя "ОК"
lclick($_return1, $_return2)
WAITMS(500)
END_IF
END_CYC
END_SUB
searchok() // вызываем подпрограмму searchok
END_CYC