Автокликер Clickermann :: Форум

Основной раздел => Использование => Topic started by: shalagin1996bk on June 13, 2014, 05:31:48 PM

Title: Поиск курсора
Post by: shalagin1996bk on June 13, 2014, 05:31:48 PM

Все просто. От середины экрана будет идти по спирали курсор мышки и про появление другова курсора он нажмет на него.
В зависимости какой будет, будут разные действия!
Стандартный для поиска - будет дальше искать
Одно нажатие лкм - когда появиться курсор в виде "рука"
Нажатие лкм+пкм - когда курсор будет в виде "меч"

Title: Re: Поиск курсора
Post by: Vint on June 13, 2014, 07:25:58 PM

Quote from: shalagin1996bk on June 13, 2014, 05:31:48 PM

Все просто. От середины экрана будет идти по спирали курсор мышки и про появление другова курсора он нажмет на него.
В зависимости какой будет, будут разные действия!
Стандартный для поиска - будет дальше искать
Одно нажатие лкм - когда появиться курсор в виде "рука"
Нажатие лкм+пкм - когда курсор будет в виде "меч"

Тяжело понимать такое описание... Не сразу и понял что, где появляется.

Code: (clickermann) [Select]

GETSCREEN
IF_PICTURE_IN ($_xmouse,$_ymouse,$_xmouse+30,$_ymouse+30, "ruka.bmp")
   LCLICK($_return1,$_return2)
   WAITMS(100)
ELSE
   IF_PICTURE_IN ($_xmouse,$_ymouse,$_xmouse+30,$_ymouse+30, "mech.bmp")
      RDOWN($_return1,$_return2)
      WAITMS(50)
      LCLICK($_return1,$_return2)
      WAITMS(50)
      RUP($_return1,$_return2)
      WAITMS(100)
   END_IF
END_IF
WAITMS(50)

Title: Re: Поиск курсора
Post by: aden on June 13, 2014, 07:32:54 PM

мне кажется скрипт и курсор мышки должен по спирали вести или я ошибаюсь?

Title: Re: Поиск курсора
Post by: Vint on June 13, 2014, 07:37:33 PM

Да. Меня смутили слова "будет идти". Я отчего-то подумал, что он уже идёт и с этой частью кода проблем нет. :)

Title: Re: Поиск курсора
Post by: Vint on June 14, 2014, 09:26:43 PM

Code: (clickermann) [Select]

$cx = INT($_xmax/2)
$cy = INT($_ymax/2)
$r = 0.1
$pi = 3.1415926535

FOR($f,$f<3600, 3)
   $a = $r/2 * $pi * $f
   $COS = COS($f)
   $SIN = SIN($f)
   
   $x = $cx + INT($a*$COS)
   $y = $cy + INT($a*$SIN)
   
   IF(($y > $_ymax) | ($y < 0))
      $f = 10000
   ELSE
      MOVE($x,$y)
      WAITMS(10)
      GETSCREEN
      IF_PICTURE_IN ($_xmouse,$_ymouse,$_xmouse+30,$_ymouse+30, "ruka.bmp")
         LCLICK($_return1,$_return2)
         WAITMS(100)
      ELSE
         IF_PICTURE_IN ($_xmouse,$_ymouse,$_xmouse+30,$_ymouse+30, "mech.bmp")
            RDOWN($_return1,$_return2)
            WAITMS(50)
            LCLICK($_return1,$_return2)
            WAITMS(50)
            RUP($_return1,$_return2)
            WAITMS(100)
         END_IF
      END_IF
   END_IF
END_CYC