Topics

1

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

« on: May 18, 2018, 09:40:54 AM »

Подскажите пожалуйста. Есть кусок кода

Code: (clickermann) [Select]

LDOWN(2087,222)
WAITMS(300)
#include "send food Bbur.cms"
LUP(2289,221)
WAITMS(300)
LCLICK(2399,929)     //отправка Bbur-->Dob
WAIT(2)как сделать так, что бы этот кусок отработал 5 раз и потом продолжил работать весь скрипт. Просто что бы не писать 5 раз одно и то же.
Скрипт и так огромный получился.

2

Общие вопросы / определить цвет пикселя на 2 мониторах

« on: May 17, 2018, 08:30:39 PM »

Люди помогите, ломаю голову уже несколько дней. У меня ноутбук и к нему подключен обычный монитор. На обоих запущены несколько идентичных окон. Нужно определить цвет пикселя и при совпадении сделать клик. Так вот на обычном мониторе все отлично срабатывает, а на мониторе ноутбука не находит нужный цвет. Пробовал и  пиксель искать, и скрин картинки делать, и цветокоррекцию ни чего не помогает. Вообще заметил, что когда водишь курсором по монитору ноутбука, цвета определяются не правильно. Наводишь на красный, показывает синий, наводишь на синий показывает какой то коричневый.  Не пойму в чем прикол.

Для поиска использовал код шаблона. Как уже писал на обычном мониторе находит цвет, на ноутбуке нет.

Code: [Select]

GETSCREEN

SCANPXL($ARR_SCAN, 78,282, 120,333, 10211046)

$ARR_NUM = 0
$SHIFT_X = 1 // смещение (кол-во игнор пикселов после найденного)
$SHIFT_Y = 1
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(($X > $X2) | ($Y > $Y2))
      $X2 = $X + $SHIFT_X
      $Y2 = $Y + $SHIFT_Y
      MOVE($X, $Y) // перемещаем курсор
      INC($SCAN_COUNT,1)
      LOGWRITE ("X: ", $X, " Y: ", $Y)
      WAITMS(100)
   END_IF
END_CYC

UNDEFINE($ARR_SCAN)

LOGWRITE ("=====================")
LOGWRITE ("Всего найдено: ", $SCAN_COUNT)

HALT

3

Общие вопросы / Подскажите, есть код перемещения курсора...

« on: February 17, 2018, 03:26:52 PM »

Всем привет. Я только начал пользоваться программой. Подскажите, есть код перемещения курсора. Но нужно замедлить скорость перемещения. У меня не срабатывает.

Code: (clickermann) [Select]

$S_CORR = 0

SUB (m-move, $MOVE_END_X, $MOVE_END_Y)   
   $MOVE_SPEED = 25
   $MOVE_Start_X = -1727
   $MOVE_Start_Y = 170
   $MOVE_X = $MOVE_Start_X
   $MOVE_Y = $MOVE_Start_Y
   $MOVE_END_X = -1560
   $MOVE_END_Y = 170
 
   $dist= DIST($MOVE_END_X,$MOVE_END_Y,$MOVE_Start_X,$MOVE_Start_Y)
 
   $MOVE_SPEEDVAR= INT((SQRT($dist))/$MOVE_SPEED)   
   IF($MOVE_SPEEDVAR < 1)
      $MOVE_SPEEDVAR = 1
   END_IF
         
   $MOVE_step=($dist-1)/$MOVE_SPEEDVAR
   $MOVE_X_step = ($MOVE_END_X-$MOVE_Start_X)/$MOVE_step
   $MOVE_Y_step = ($MOVE_END_Y-$MOVE_Start_Y)/$MOVE_step       
 
   FOR($MOVE_i=0, $MOVE_i<INT($MOVE_step))
      $MOVE_X = $MOVE_X+$MOVE_X_step
      $MOVE_Y = $MOVE_Y+$MOVE_Y_step
      MOVE(ROUND($MOVE_X,0), ROUND($MOVE_Y,0))
      WAITMS(1)
   END_CYC
 
   MOVE($MOVE_END_X, $MOVE_END_Y)
END_SUB
 
SUB (m-lclick, $MOVE_END_X, $MOVE_END_Y)
   $LC1 = $MOVE_END_X
   $LC2 = $MOVE_END_Y
   m-move($MOVE_END_X, $MOVE_END_Y)
   WAITMS(20)
   LDOWN($LC1, $LC2)
   WAITMS(30)
   LUP($LC1, $LC2)
   WAITMS(30)
END_SUB
 
m-lclick(-1480,735)

код взял тут же на форуме. скорость меняю вот в этой строке

Code: (clickermann) [Select]

$MOVE_SPEED = 25
и ещё вопрос в конце кода происходит клик мышью

Code: (clickermann) [Select]

m-lclick(-1480,735)мне этот клик не нужен, но если убрать эту строку тогда вообще ни чего не работает. Если не возможно его убрать то нужно сделать перед кликом паузу минимум 2 сек. тож не получается.