1
Ошибки / Re: 4.13 ошибочно ругается на "ошибки"
« on: November 10, 2018, 10:21:44 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.
DEFINE ($lab, 3914570544)
sub(cond)
wndstate( wndfind("BlueStacks App Player"), 1)
wndpos( wndfind("BlueStacks App Player"), 0, 0)
$w = 0
chk:
GETSCREEN
$islab = PXLCRC (306, 107, 500, 133)
IF($islab ! $lab)
$w= $w + 1
if($w < 5)
wait(1)
logwrite("Задержка ", $w, " сек.")
goto(chk)
else
logwrite("Не открыта нужная вкладка.")
halt
end_if
END_IF
end_sub
start:
sub(find)
$x1 = 115
$y1 = 228
$x2 = 205
$y2 = 309
GETSCREEN
FOR($a, $a < 4)
LOGWRITE ("find" $a )
IF_PIXEL_IN ($x1,$y1, $x2, $y2, 7471103,16776960,7935,45311,16777215,63855)
lclick($_return1, $_return2)
WAITMS(100)
lclick($_return1+160, $_return2+220)
WAITMS(800)
lclick(21,279)
WAITMS(500)
lclick(21,279)
END_IF
$x1 = $x1 + 150
$x2 = $x2 +150
END_CYC
end_sub
cond()
LOGCLEAR
find()
//$var = 1
//while($var < 5)
// logwrite("var: ", $var)
// find()
// inc($var)
//end_cyc
for($var=0, $var < 6, 1 )
lclick( 1194, 734 )
WAIT(3)
LOGWRITE ("clicked [compose] " $var )
lclick(21,279)
WAIT(1)
lclick(21,279)
END_CYC
getscreen
find()
goto(start)