Вот что я придумал. Скрипт ищет "Отправить" пропускает если конвертик и жмет если нет и при успехе сбрасывает цикл и снова ищет но не переходя на другую страницу. И только если не найдет "Отправить" без конвертиков, только тогда переходит.
Осталось только подумать как крутить страницу и до каких приделов. Мне картина не очень ясна.
GETSCREEN
SCANPICTURE($ARR_SCAN, 0,0, $_xmax,$_ymax, "отправить.bmp", -1, 100)
$ARR_NUM = 0
WHILE ($ARR_NUM < ARRSIZE($ARR_SCAN))
$X = $ARR_SCAN [$ARR_NUM]
INC($ARR_NUM,1)
$Y = $ARR_SCAN [$ARR_NUM]
INC($ARR_NUM,1)
IF_PIXEL_IN($X-599,$Y-0, $X+0,$Y+0, 16514039) // пиксель конверта (если есть конверт, то не жмет кнопку "отправить")
WAITMS(1)
ELSE
$check = 1
$ARR_NUM = 99999 // сброс цикла
LCLICK($X, $Y)
WAITMS(1000)
MOVE(409,718)
WAITMS(100)
LCLICK(409,718)
TOCLIP (" Привет. Увидела твои фото и не сдержалась, решила написать. Мне 34 года, я очень люблю таких мужчин как ты, а еще очень люблю слушать долгие рассказы про жизнь и приключения таких мужественных мужчин как ты. Я хочу познакомится с мужчиной который будет меня любить и дарить ласку. А ты любишь ласку?я очень люблю. Ты такой мужественный и привлекательный, просто с ума схожу когда вижу твои фотографии, ты такой секси. Расскажи что то о себе, мне очень интересна жизнь таких принцов, я люблю встречать закаты и рассветы, еще я очень люблю стихотворения, ты можешь мне подарить стихотворения? Буду ждать с нетерпением твоего ответа. Целую*** ")
WAITMS(100)
KEYDOWN(#CTRL)
WAITMS(100)
KEYPRESS(#V)
WAITMS(50)
KEYUP(#CTRL)
WAITMS(100)
MOVE(428,582)
WAITMS(100)
LCLICK(428,582)
WAITMS(100)
TOCLIP ("Привет.")
WAITMS(100)
KEYDOWN(#CTRL)
WAITMS(100)
KEYPRESS(#V)
WAITMS(50)
KEYUP(#CTRL)
WAITMS(100)
MOVE(407,386)
WAITMS(100)
LCLICK(407,386)
WAITMS(100)
TOCLIP ("Hola. Vi sus imбgenes y no pude resistir y decidн escribir. Tengo 34 aсos, me encanta este tipo de hombres como tъ, pero todavнa me gusta mucho escuchar historias largas sobre la vida y aventuras de los valientes hombres como usted. Me gustarнa conocer a un hombre que me ame y dar afecto. їTe gusta el afecto? Me encanta. Eres tan varonil y atractivo, volviendo loco cuando veo sus imбgenes, eres tan sexy. Dime algo sobre mн, que soy la vida muy interesante de un prнncipe, me encanta conocer atardeceres y amaneceres, sin embargo, me encanta el poema, que me puede dar un poema? Mirarбn adelante a su respuesta. Exact ***")
WAITMS(100)
KEYDOWN(#CTRL)
WAITMS(100)
KEYPRESS(#V)
WAITMS(50)
KEYUP(#CTRL)
WAITMS(100)
MOVE(386,261)
WAITMS(100)
LCLICK(386,261)
WAITMS(100)
TOCLIP ("Hola.")
WAITMS(100)
KEYDOWN(#CTRL)
WAITMS(100)
KEYPRESS(#V)
WAITMS(50)
KEYUP(#CTRL)
WAITMS(100)
MOVE(913,905)
WAITMS(100)
LCLICK(913,905)
WAIT(1)
END_IF
END_CYC
UNDEFINE($ARR_SCAN)
WAITMS(100)
IF($check = 0)
MOVE(427,634)
WAITMS(100)
LCLICK(425,634)
WAIT(2)
ELSE
$check = 0
END_IF
