1
Общие вопросы / Re: МОЖНО ЛИ
« on: November 01, 2017, 10:28:57 AM »
спасибо
News:
Добавлена тема оформления "Clickermann" для кода с подсветкой синтаксиса. Выбирается из выпадающего списка "Код" (рядом с "цвет", "размер" и "шрифт") в режиме редактирования поста. Либо просто BB-тегом "code=clickermann"
Show Posts
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.
2
Общие вопросы / МОЖНО ЛИ
« on: November 01, 2017, 08:06:17 AM »
можно ли так писать вроде работает
Code: (clickermann) [Select]
$check = 0
WHILE($check = 0)
WAITMS(500)
LCLICK(864,118) // 16507835
WAITMS(500)
GETSCREEN
if_picture_in(0,0,$_xmax,$_ymax,"ARD.bmp")// åñëè êàðòèíêà èç ñïèñêà åñòü
$check = 1
WAITMS(50)
LDOWN(692,430)//ÂÛÄÅËßÅÌ ÒÅÊÑÒ
MOVE(731,430)
WAITMS(50)
LUP(731,430)
KEYDOWN (#CTRL) //ÊÎÏÈÐÓÅÌ
WAITMS (50)
KEYDOWN (#C)
WAITMS (50)
KEYUP (#C)
KEYUP (#CTRL)
WAITMS (50)
$A_BJ = 0
$A_B = 0
$A_BJ = FROMCLIP()
$A_B = STRREPLACE ($A_BJ, ",","")
LOGWRITE ($A_B)
FOR($k=0, $k <5)
WHEELDOWN
WAITMS(500)
END_CYC
END_IF
IF(($A_B > 1200)&($A_B < 4400))
GETSCREEN
if_picture_in(0,0,$_xmax,$_ymax,"RE.bmp")// åñëè êàðòèíêà èç ñïèñêà åñòü
WAITMS(50)
MOVE($_return1+5,$_return2+5)
WAITMS(10)
LCLICK($_return1+5,$_return2+5)
WAITMS(50)
END_IF
FOR($k=0, $k <2)
WHEELDOWN
WAITMS(500)
END_CYC
GETSCREEN
if_picture_in(0,0,$_xmax,$_ymax,"PO.bmp")// åñëè êàðòèíêà èç ñïèñêà åñòü
WAITMS(50)
MOVE($_return1+300,$_return2+60)
WAITMS(10)
LCLICK($_return1+300,$_return2+60)
WAITMS(1000)
END_IF
ELSE
WAITMS(50)
IF($A_B > 4400)
GETSCREEN
if_picture_in(0,0,$_xmax,$_ymax,"F.bmp")// åñëè êàðòèíêà
WAITMS(50)
MOVE($_return1+5,$_return2+5)
WAITMS(10)
LCLICK($_return1+5,$_return2+5)
END_IF
FOR($k=0, $k <3)
WHEELDOWN
WAITMS(500)
END_CYC
GETSCREEN
if_picture_in(0,0,$_xmax,$_ymax,"C.bmp")// åñëè êàðòèíêà
WAITMS(50)
WAITMS(50)
MOVE($_return1+240,$_return2+60)
WAITMS(10)
LCLICK($_return1+240,$_return2+60)
END_IF
WAITMS(1000)
GETSCREEN
if_picture_in(0,0,$_xmax,$_ymax,"S.bmp")// åñëè êàðòèíêà
WAITMS(50)
MOVE($_return1+5,$_return2+5)
WAITMS(10)
LCLICK($_return1+5,$_return2+5)
END_IF
WAITMS(1000)
GETSCREEN
if_picture_in(0,0,$_xmax,$_ymax,"RE.bmp")// åñëè êàðòèíêà
WAITMS(50)
MOVE($_return1+5,$_return2+5)
WAITMS(10)
LCLICK($_return1+5,$_return2+5)
END_IF
WAITMS(1000)
GETSCREEN
if_picture_in(0,0,$_xmax,$_ymax,"P.bmp")// åñëè êàðòèíêà
WAITMS(50)
MOVE($_return1+300,$_return2+60)
WAITMS(10)
LCLICK($_return1+300,$_return2+60)
END_IF
WAITMS(1000)
END_IF
END_IF
LCLICK(486,116) // 8421504
WAITMS(100)
END_CYC
3
Общие вопросы / счетчик
« on: October 29, 2017, 09:09:32 AM »
как вставить счетчик в масив
Code: (clickermann) [Select]
$A_N3 = $che4/$he0
$countf1 = INT((INT(100)/$A_N3))
LOGWRITE ("% :",$countf1)
IF(($countf1 > 35)&($countf1 < 36))
INC($A_R2,1)
STRSEPARATE("$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:0", ":", $A_R1)
LOGWRITE ("ÍÀÉÄÅÍÎ 11 * = ",$A_R1[$num])
ELSE
WAITMS(50)
IF($countf1 > 36)
INC($A_R2,-1)
STRSEPARATE("$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:0", ":", $A_R1)
LOGWRITE ("ÍÀÉÄÅÍÎ 1 * = ",$A_R1[$num])
LOGSHOW (1, 100,100)
END_IF
END_IF
//$P = RND(0,$A_R1[$num])
$P = ($A_R1[$num])
$counts = $P // ñêîëüêî ðàç äîëæíà ïîÿâèòüñÿ êàðòèíêà lose1
$pic1 = 0
WHILE($pic1 < $counts)
KEYPRESS(#L)
WAITMS(900)
GETSCREEN
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "lose1.bmp")
INC($pic1)
$loses = 0
WHILE(($loses = 0) & ($pic1 < $counts))
GETSCREEN
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "win1.bmp")
WAITMS(50)
ELSE
$loses = 1
WAITMS(50)
END_IF
END_CYC
ELSE
WAITMS(50)
END_IF
END_CYC
4
Общие вопросы / Re: ПОМОГИТЕ УПРОСТИТЬ
« on: October 23, 2017, 08:56:47 PM »
мне надо проста убрать точку в начале цифр первый раз без ошибки второй раз ошибка
0.001
0.001
5
Общие вопросы / Re: ПОМОГИТЕ УПРОСТИТЬ
« on: October 23, 2017, 07:39:12 PM »
картинка
http://prntscr.com/h10a2c
http://prntscr.com/h10a2c
6
Общие вопросы / Re: ПОМОГИТЕ УПРОСТИТЬ
« on: October 23, 2017, 06:36:15 PM »
Да что такое не могу понять почему ошибку выдает что та связано с интеграция
Code: (clickermann) [Select]
LCLICK(593,125) //Multiply
WAITMS (1000)
DBLCLICK(1178,118) //ÂÛÄÅËßÅÌ ÒÅÊÑÒ
WAITMS(50)
KEYDOWN (#CTRL) //ÊÎÏÈÐÓÅÌ
WAITMS (50)
KEYDOWN (#C)
WAITMS (50)
KEYUP (#C)
KEYUP (#CTRL)
//.............................................................................
$A_BL = 0
$A_V = 0
$A_B2 = 0
$coun = 0
$count = 0
$A_BL = FROMCLIP()
$A_V = STRREPLACE ($A_BL, ".")
$coun = INT((INT($A_V)/100)*75)
$A_B2 = $coun
$count = INT((INT($A_B2)/100)*0.005)
WAITMS(50)
7
Общие вопросы / Re: ПОМОГИТЕ УПРОСТИТЬ
« on: October 19, 2017, 04:24:51 PM »
Спасибо большое. А можно узнать почему выпрыгивать из подпрограмм нельзя?
8
Общие вопросы / ПОМОГИТЕ УПРОСТИТЬ
« on: October 18, 2017, 08:50:34 PM »
ПОМОГИТЕ УПРОСТИТЬ СКРИПТ И ЕЩЕ ХОТЕЛ БЫ ЗНАТЬ НЕТ ЛИ ОШИБОК заранее спасибо.
Code: (clickermann) [Select]
$arr[0]="1a.bmp"
$arr[1]="2a.bmp"
$arr[2]="3a.bmp"
$arr[3]="4a.bmp"
$arr[4]="5a.bmp"
$arr[5]="6a.bmp"
$arr[6]="7a.bmp"
$arr[7]="8a.bmp"
$arr[8]="9a.bmp"
SUB(click1)
FOR($i=0, $i < 9)
GETSCREEN
COLORMODE(6,707,302,746,358)
IF_PICTURE_IN (707,302,746,358,$arr[$i])
KEYDOWN($i+49)
WAITMS(50)
KEYUP($i+49)
GOTO(fin1)
END_IF
END_CYC
END_SUB
SUB(click2)
$s=0
FOR($i=0, $i < 9)
$s=$i+1
WAITMS(500)
GETSCREEN
COLORMODE(6,740,300,781,358)
IF_PICTURE_IN (740,300,781,358,$arr[$i])
KEYDOWN($i+49)
WAITMS(50)
KEYUP($i+49)
GOTO(fin2)
END_IF
END_CYC
END_SUB
SUB(click3)
$s=0
FOR($i=0, $i < 9)
$s=$i+1
WAITMS(500)
GETSCREEN
COLORMODE(6,775,300,814,357)
IF_PICTURE_IN (775,300,814,357,$arr[$i])
KEYDOWN($i+49)
WAITMS(50)
KEYUP($i+49)
GOTO(fin3)
END_IF
END_CYC
END_SUB
SUB(click4)
$s=0
FOR($i=0, $i < 9)
$s=$i+1
WAITMS(500)
GETSCREEN
COLORMODE(6,813,300,848,357)
IF_PICTURE_IN (813,300,848,357,$arr[$i])
KEYDOWN($i+49)
WAITMS(50)
KEYUP($i+49)
GOTO(fin4)
END_IF
END_CYC
END_SUB
start:
MOVE(692,389)
WAITMS(500)
LCLICK(692,389) // 16777215
click1()
WAITMS(500)
fin1:
click2()
WAITMS(500)
fin2:
click3()
WAITMS(500)
fin3:
click4()
WAITMS(500)
fin4:
WAITMS(500)
KEYPRESS(#ENTER)
WAITMS(500)
GETSCREEN
IF_PICTURE_IN (400,300,1065,600,"blok.bmp")
WAITMS(50)
SOUND("blip2.wav")
MOVE($_return1+8,$_return2+8)
WAITMS(50)
LCLICK($_return1+8,$_return2+8)
WAITMS(50)
KEYPRESS(#ENTER)
END_IF
GOTO(start)
9
Общие вопросы / Re: ЕСТЬ ЛИ ДРУГОЙ ВАРИАНТ
« on: May 21, 2017, 07:51:21 PM »
спасибо работает как надо 
11
Общие вопросы / Re: ЕСТЬ ЛИ ДРУГОЙ ВАРИАНТ
« on: May 19, 2017, 08:05:30 PM »
Все работает нормально но думаю что та не так можно ли попроще сделать?
Code: (clickermann) [Select]
$check=0
ancor:// метка повторной проверки
GETSCREEN
if_picture_in(567,488, 895,515,"lose1.bmp")// если есть рисунок Ждите
ancor2:// метка повтора
KEYPRESS(#L)
WAITMS(2000)// ждем 2с
GETSCREEN
if_picture_in(567,488, 895,515,"win1.bmp")// если есть рисунок
$check=0
GOTO(ancor2)// переход на повтор
END_IF
INC($check)
LOGWRITE ("Сообщение",$check)
IF($check>30) // если кол проверок превысило 30
GOTO(con) // выходим из цикла проверок
END_IF //
GOTO(ancor)// переход на начало проверки Ждите
END_IF //
con:// метка выхода
SOUND("EGoingUp.wav")// звук выхода
WAIT(2)
12
Общие вопросы / ЕСТЬ ЛИ ДРУГОЙ ВАРИАНТ
« on: May 12, 2017, 07:45:07 PM »
Можно ли переделать или упростить?
Code: (clickermann) [Select]
ancor:
GETSCREEN
if_picture_in(567,488, 895,515,"lose1.bmp")
KEYPRESS(#L)
WAITMS(1500)
$an=$an+1
IF($an>1)
GOTO(con)
END_IF //
GOTO(ancor)
END_IF //
con:
SOUND("EGoingUp.wav")
13
Общие вопросы / Re: Как выполнить действия
« on: April 12, 2017, 03:58:35 PM »
Привет извините что так получилось Я проверил скрипт вот только сегодня весь в работе,но скрипт не так работает как бы хотелось мне надо чтобы скрипт дождался 3 раза подряд появление "pic.bmp" картинки и "Выполняем какое-то действие" спасибо за ранние.
15
Общие вопросы / Re: Как выполнить действия
« on: April 10, 2017, 08:23:30 AM »
Ну там две картинки они меняются то однато другая могут одна по несколько раз подряд появиться вот мне надо дождаться пока 3или 4 раз появиться и выполнить например клик по картинке.