Author Topic: Как автоматизировать покупку?  (Read 1443 times)

0 Members and 3 Guests are viewing this topic.

Ramzesia

  • Активный участник
  • ***
  • Posts: 263
    • View Profile
Как автоматизировать покупку?
« on: July 22, 2017, 04:06:15 PM »
Привет всем. Такой Вопрос. Есть Сетка из 24 предмета на странице они не меняют место. Как задать каждому квадрату числовой номер, что бы в скрипте прописывать не координаты а номер предмета? А еще лучше если можно так сделать, навести мышку на предмет, кликер запомнил координаты и работал по ним. И уж совсем буде красотой если еще можно было указывать количество после старта клике. Например навел мышь, кликер подхватил координаты, и вылезло окошко сколько штук купить. Пока есть только это.
Code: (clickermann) [Select]
#name "Купить"
//=============================================

$sht = 50 // Количество штук

$_x  = 880  // Коры квадрата
$_y  = 360  // Коры квадрата

//=============================================
DBLCLICK($_x,$_y)  // Клик по предмету

GETSCREEN (512,356, 535,385)  // Кнопка подтверждения
COLORMODE(6, 512,356, 535,385)
IF_PIXEL_IN (512,356, 535,385, 8355647, 12566335)
   inc($counter)
   LCLICK(520,370)
   WAITMS(100)
END_IF

LOGWRITE("Куплено - ",$counter)
if ($counter = $sht)
   HALT
end_if

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Как автоматизировать покупку?
« Reply #1 on: July 22, 2017, 06:17:37 PM »
Перед запуском нужно навести курсор на квадрат. После запуска можно будет вести количество.

Code: (clickermann) [Select]
#name "Купить"
//=============================================

$_x = $_xmouse  // Координата текущего положения курсора
$_y = $_ymouse

$sht = INT(INPUTBOX("Количество штук", "50", 999)) // Вводим количество штук

WHILE(1)
   DBLCLICK($_x,$_y)  // Клик по предмету
   WAITMS(50)
   
   GETSCREEN (512,356, 535,385)  // Кнопка подтверждения
   COLORMODE(6, 512,356, 535,385)
   IF_PIXEL_IN (512,356, 535,385, 8355647, 12566335)
      inc($counter)
      LCLICK(520,370)
      WAITMS(100)
   END_IF
   
   LOGWRITE("Куплено - ",$counter)
   if ($counter = $sht)
      HALT
   end_if
END_CYC

На счет номеров, можно сделать подпрограмму со свитчем
Code: (clickermann) [Select]
SUB(num, $n)
   SWITCH($n)
   CASE(1)
      LCLICK(518,685) // № 1
   CASE(2)
      LCLICK(518,685) // № 2
   END_SWITCH
END_SUB

num(1) // вызов подпрограммы с кликом по номеру 1
num(2) // вызов подпрограммы с кликом по номеру 2
« Last Edit: July 22, 2017, 06:22:51 PM by Oraven »

Ramzesia

  • Активный участник
  • ***
  • Posts: 263
    • View Profile
Re: Как автоматизировать покупку?
« Reply #2 on: July 22, 2017, 11:17:33 PM »
Перед запуском нужно навести курсор на квадрат. После запуска можно будет вести количество.
Просто шикарно, лучше и придумать нельзя :) СПАСИБО огромное!