//========ВСТАВИТЬ КАПЧу В ОКНО======================
// Переыыыделанный скрипт на капчу для ВК
SUB(paste) //========== Вставить =============================================== ///Paste
GETSCREEN
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "kodsuda.bmp", -1, 100) //Код Сюда
WAITMS (50)
lclick($_return1, $_return2)
KEYDOWN (#CTRL) // Ctrl+V
WAITMS (50)
KEYDOWN (#V)
WAITMS (50)
KEYUP (#V)
WAITMS (50)
KEYUP (#CTRL)
WAITMS (50)
KEYDOWN (#ENTER)
WAITMS (50)
KEYUP (#ENTER)
WAITMS (50)
END_IF
END_SUB
//========ВСТАВИТЬ КАПЧу В ОКНО======================
//=============РАСПОЗНАЕМ КАПЧУ==================
SUB(capcha)////// Капча ////
repeat: ///Capcha
GETSCREEN //Делаем скрин
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "key1.bmp", -1, 100) //ищем значок AGC
lclick($_return1+50, $_return2+90) //тык в распознать
WAITMS(100)
GETSCREEN
IF_PICTURE_IN (0,0,$_xmax,$_ymax, "key1.bmp")
$AGC_x = $_return1+25 //навели на поле с индикатором по Х
$AGC_y = $_return2+56 //Навели на поле с индикатором по Y
LOGWRITE("AGClient X=", $_return1, ", Y=", $_return2)
END_IF
$pic=0
WHILE($pic=0)
GETSCREEN
IF (PXL($AGC_x, $AGC_y)=65535) // жёлтый
WAITMS(300)
END_IF
IF (PXL($AGC_x, $AGC_y)=65280) // зелёный
WAITMS(100)
$pic=1 // выходим из цикла
END_IF
IF (PXL($AGC_x, $AGC_y)=255) // красный
LOGWRITE("Не распознали")
HINTPOPUP("Не распознали")
$pic=2
END_IF
END_CYC
IF($pic=2) // если не распознали отправляем повторно
GOTO(repeat)
END_IF
paste()
WAITMS(300)
END_IF
END_SUB
//=============РАСПОЗНАЕМ КАПЧУ==================
//===========тыкаемся в спиоск друзей до последнего человека=====================
sub(Chelovechki)
$konec=0 ///Chelovechki
while($konec<4) //если последний встречался 4 раза подряд то выход
GETSCREEN
IF_PICTURE_IN (468,356, 784,510, "lostpeople.bmp", -1, 100)
$konec=$konec+1
IF_PICTURE_IN (427,546,1095,693, "close.bmp", -1, 100)
LCLICK($_return1, $_return2)
END_IF
else
IF_PIXEL_IN(588,396, 994,656, 25087) //Ищем звездочку
$konec=0
wait(1)
LCLICK($_return1, $_return2)
WAITMS(500)
END_IF
//=======Окно отправки попрошаек==================================
$pop = 0
WHILE($pop = 0)
GETSCREEN
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "tormoz.bmp", -1, 100) //если окно тормозит
wait(1)
else
IF_PICTURE_IN (518,364, 1093,619, "Otpravit.bmp", -1, 100) //находим отправить и тыкаемся в нее
LCLICK($_return1, $_return2)
$pop = 1
END_IF
GETSCREEN
IF_PICTURE_IN (522,208, 960,485, "kodsuda.bmp", -1, 100)
capcha()
END_IF
END_IF
END_CYC
END_IF
END_CYC
//goto start
END_SUB
//===========тыкаемся в спиоск друзей до последнего человека=====================
//============Ищем зеленые кнопки=======================
sub(green)
getscreen
scanpicture($var, 0,0, $_xmax,$_ymax, "green.bmp") //ищем зеленые кнопки
while (arrsize($var) > 0)
$y = arrpop($var)
$x = arrpop($var)
lclick($x,$y)//на кнопку
///////Проверка последнего человека, если нет то тыкаемся в просилки///
Chelovechki()
END_CYC
undefine($var)
END_SUB
//====тут ищем красную кнопку для вызова попрошайки где будет в дальнейшем зеленые кнопки===================
//==============написал недавно и пока не придумал как и куда ее воткнуть=======================
//sub(perelist) //ищем красную кнопку
getscreen ///Perelist
if ($upred=0)
if_pixel_in( 0, 0, 947,497, 131176)
lclick($_return1, $_return2)
wait(1)
$upred=1
green()
end_if
else
if ($upred2=0)
if_pixel_in(947,497,$_xmax,$_ymax, 131176)
lclick($_return1, $_return2)
wait(1)
$upred2=1
green()
end_if
else
if_pixel_in( 0, 0, $_xmax, $_ymax, 1516513)
lclick($_return1, $_return2)
wait(1)
$upred2=0
$upred=0
end_if // конец условия
end_if
end_if
//END_SUB
//=============================================
//=============================================
В твоем коде - если последний человек встречался 4 раза подряд.. что это такое?)) можно же проще. кликаем попросить - вылезает поле с друзьями. жмем каждого, они постепенно уходят. как уйдет последний, выходим.
Насчет предметов для зарядки- я повесил флаги. кликнули сверху - флаг1 обозвали, потом сделали всЕ, вернулись, пошли на второй флаг. два флага закрашены - кликаем новую стр, обнуляем флаги)