Topics

1

Общие вопросы / МОЖНО ЛИ

« 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

2

Общие вопросы / счетчик

« 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

3

Общие вопросы / ПОМОГИТЕ УПРОСТИТЬ

« 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)

4

Общие вопросы / ЕСТЬ ЛИ ДРУГОЙ ВАРИАНТ

« 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")

5

Общие вопросы / Как выполнить действия

« on: April 09, 2017, 04:09:46 PM »

Здравствуйте, как выполнить действия ПО КАРТИНКЕ
1.Ждем картинку
2.ждем пока картинка появиться несколько раз подряд
3. Выполнить какое то действие

6

Общие вопросы / нужна помощь

« on: March 07, 2017, 08:25:13 PM »

Привет всем скажите как исправить почему та не выполняется  10 раз

Code: (clickermann) [Select]

WAIT(1)

start:

FOR($a=0,$a<10)//надо чтобы работал по меткам B1: , B2: ,B4: 10 раз
   B1:
   B2:
   B4:
   GETSCREEN
   IF_PICTURE_IN (570,482, 851,508, "w.bmp")//(1)
      //==============================
      LDOWN(1192,96)//ВЫДЕЛЯЕМ ТЕКСТ '
      MOVE(1266,103)
      WAITMS(500)
      LUP(1261,122)
     
      KEYDOWN (#CTRL) // Ctrl+C копируем
      WAITMS (50)
      KEYDOWN (#C)
      WAITMS (50)
      KEYUP (#C)
      KEYUP (#CTRL)
      WAITMS (50)
      LCLICK(464,491)
      //==============================
     
      FOR($a=0, $a<3)
         KEYPRESS(#BACKSPACE)
         WAITMS (10)
      END_CYC
     
      GOTO(B1)
     
   END_IF//...
   
   GETSCREEN
   IF_PICTURE_IN (570,482, 851,508, "l.bmp") //(1)
     
      FOR($a=0, $a<3
         KEYPRESS(#BACKSPACE)
         SOUND("EServer_Err.wav")
         WAITMS (10)
      END_CYC
     
   END_IF //==========================================
   
   
   GETSCREEN
   IF_PICTURE_IN (570,482, 851,508, "w.bmp")//(2)
      //==============================
      LDOWN(1192,96)//ВЫДЕЛЯЕМ ТЕКСТ
      MOVE(1266,103)
      WAITMS(500)
      LUP(1261,122)
     
      KEYDOWN (#CTRL) // Ctrl+C копируем
      WAITMS (50)
      KEYDOWN (#C)
      WAITMS (50)
      KEYUP (#C)
      KEYUP (#CTRL)
      WAITMS (50)
      LCLICK(464,491)
      //==============================
     
      FOR($a=0, $a<3
         KEYPRESS(#BACKSPACE)
         WAITMS (10)
      END_CYC
     
      GOTO(B2)
     
   END_IF//...
   
   GETSCREEN
   IF_PICTURE_IN (570,482, 851,508, "w.bmp")//(3)
      //==============================
      LDOWN(1192,96)//ВЫДЕЛЯЕМ ТЕКСТ
      MOVE(1266,103)
      WAITMS(500)
      LUP(1261,122)
     
      KEYDOWN (#CTRL) // Ctrl+C копируем
      WAITMS (50)
      KEYDOWN (#C)
      WAITMS (50)
      KEYUP (#C)
      KEYUP (#CTRL)
      WAITMS (50)
      LCLICK(464,491)
      //==============================
     
      FOR($a=0, $a<3
         KEYPRESS(#BACKSPACE)
         WAITMS (10)
      END_CYC
     
      GOTO(B4)
     
   END_IF//...
   
   GETSCREEN
   IF_PICTURE_IN (570,482, 851,508, "l.bmp")//(3)
     
     
      FOR($a=0, $a<3
         KEYPRESS(#BACKSPACE)
         WAITMS (10)
      END_CYC
     
   END_IF
   
   
END_CYC //=========================================

GOTO(start)

7

Общие вопросы / Первый скрипт

« on: March 01, 2017, 11:52:45 AM »

скажите есть ошибки?

Code: (clickermann) [Select]

LDOWN(1194,119)//ВЫДЕЛЯЕМ ТЕКСТ
WAITMS(50)
MOVE(1260,123)
WAITMS(50)
LUP(1260,123)
WAITMS(50)
KEYDOWN (#CTRL) // Ctrl+C копируем
WAITMS (50)
KEYDOWN (#C)
WAITMS (50)
KEYUP (#C)
KEYUP (#CTRL)

$count = (INT(FROMCLIP())/100)*0.1 //Ctrl+V из буфера обмена вставить
LOGWRITE ($count)
LCLICK(464,491)//поле ввода
$str=0 // результат "3"
FOR($a=0, $a <  strlen(ROUND($count)("") ,$str))
   KEYPRESS(#BACKSPACE)
END_CYC
KEYSTRING (ROUND($count)//округлили ставку
FOR($a=0,$a<0)
   LCLICK(787,456)//кнопка
   WAIT(1)
END_CYC
$x1=0
HALT//стоп

8

Общие вопросы / Буфер

« on: February 27, 2017, 06:01:57 PM »

Здравствуйте у меня такой вопрос как из буфера обмена Windows  вставить например цифру или что та еще в код скрипта уже 3 дня пытаюсь как то сам эту функцию найти но не могу.

Code: (clickermann) [Select]

$count = (16000/100)*0.1//из буфера обмена вставить 16000
LOGWRITE ($count)

FOR($a=0,$a< $count)
   LCLICK(787,456)
   WAIT(1)
END_CYC

HALT

9

Общие вопросы / Процент

« on: February 20, 2017, 04:04:06 PM »

Здравствуйте помогите разобраться  в процентах например Сколько составляет 
0.1
 % от числа 
16000
0.1% от числа 16000 = 16 мне надо добиться чтобы от полученного числа выполнял поставленную задачу например клик мышкой 16 раз не как не могу понять как это сделать дайте пожалуйста пример.

10

Общие вопросы / нажать клавишу

« on: February 08, 2017, 08:29:31 PM »

здравствуйте а как быть если для каждой картинке надо выполнить разные функции например ”img1.bmp” нажать клавишу KEYPRESS(#L) а для ”img2.bmp” KEYPRESS(#S) и т.д  помогите плиз  вот код

Code: (clickermann) [Select]

// создаем список и передаём в него изображения
$img[0]=”img1.bmp”
$img[1]=”img2.bmp”
$img[2]=”img3.bmp”
for($i=0,$i<3)// для переменной i=0 пока  i<3
if_picture_in(0,0,$_xmax,$_ymax,$img[i])// если картинка из списка есть
MOVE($_return1+5,$_return2+5)
WAITMS(10)
 LCLICK($_return1+5,$_return2+5)
END_IF// конец условия если
END_CYC// конец цикла для