1
Общие вопросы / Однократный "проход" картинок.
« on: November 10, 2020, 10:33:35 PM »
Подскажите пожалуйста, что исправить в коде чтобы каждая из картинок когда находится выполнялась один раз и после этого искалась следующая, даже если предыдущая картинка не пропала с экрана?
Code: [Select]
FOR($var = 0 ,$var < 1)
GETSCREEN
COLORMODE(6)
IF_PICTURE_IN (710,230,730,260, "деятельность.bmp", -1, 100)//нашлась первая картинка
IF($click1 < $_ms)
LCLICK(840,260)//клик в окно1
WAIT(1)
FOR($i=1,$i<=TFCOUNT("музыка.txt"))// берем строку из файла
TOCLIP(TFREAD("музыка.txt", $i)) //копируем строку в буфер
WAITMS(1000)
KEYDOWN (#CTRL)
WAITMS (50)
KEYPRESS (#V)
KEYUP (#CTRL)
WAITMS(50)
END_CYC
$click1 = $_ms+1000
END_IF
END_CYC
else
FOR($var = 1 ,$var < 2)
GETSCREEN
COLORMODE(6)
IF_PICTURE_IN (730,360,770,400, "интересы.bmp", -1, 100)//нашлась вторая картинка
IF($click1 < $_ms)
LCLICK(840,260)
WAIT(1)
FOR($i=1,$i<=TFCOUNT("интересы.txt")) // берем строку из файла
TOCLIP(TFREAD("интересы.txt", $i)) //копируем строку в буфер
WAITMS(1000)
KEYDOWN (#CTRL)
WAITMS (50)
KEYPRESS (#V)
KEYUP (#CTRL)
WAITMS(50)
END_CYC
$click1 = $_ms+1000
END_IF
END_CYC
else
END_IF
END_IF