Author Topic: Подбор числа 0000-9999  (Read 6457 times)

0 Members and 1 Guest are viewing this topic.

Bachelor

  • Зашел в гости
  • *
  • Posts: 2
    • View Profile
Подбор числа 0000-9999
« on: April 24, 2015, 10:41:19 AM »
Здравствуйте, пользователи.
Возникла потребность в создании такого рода скрипта:
У меня есть окошко, в которое надо ввести число, от 0000 до 9999
После ввода кликнуть по кнопке, далее проверка по пикселям сработало или нет, если сработало запомнить число, остановить скрипт
Как задать диапазон от 0000 до 9999 для перебора,
0000
0001
0002
и тд.

Code: (clickermann) [Select]
WAIT(1)
for ($i, $i<9999) // Как изменить диапазон ? 0000-9999
   KEYPRESS(#E)  // открыть окно для ввода числа
   WAITMS(1500)
   GETSCREEN   // проверка
   IF_PIXEL_IN (515,269, 524, 278, 15198183) // если окошко открылось
   KEYSTRING($i) // вводим число
   WAITMS(150)
   LCLICK(592,464) //здесь коорд кнопки
   WAITMS(150)
   LOGWRITE("Переменная: ", $i)
   ELSE // если окошко не открылось, помер или подобрал число
   LOGWRITE("Тадааа ", $i) // последнее число
   HALT
END_IF

   

end_cyc
HALT
« Last Edit: April 24, 2015, 11:29:41 AM by Bachelor »

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Подбор числа 0000-9999
« Reply #1 on: April 24, 2015, 11:40:33 AM »
Ты уже не первый. Достаточно было полезть в архив уже писанных скриптов. Пароль от двери вроде.
Code: (clickermann) [Select]
FOR($i=0, $i < 10000)
   KEYPRESS(#E)
   WAITMS(1500)
   
   GETSCREEN
   IF_PIXEL_IN (515,269, 524, 278, 15198183) // если окошко открылось
      SWITCH(STRLEN($i))
      CASE(1)
         $t = STRCONCAT("000", $i)
      CASE(2)
         $t = STRCONCAT("00", $i)
      CASE(3)
         $t = STRCONCAT("0", $i)
      CASE(4)
         $t = $i
      END_SWITCH
     
      KEYSTRING($t, 20) // вводим число
      WAITMS(150)
      //KEYPRESS(#ENTER)
      LCLICK(592,464) //здесь коорд кнопки
      WAITMS(150)
      LOGWRITE("Переменная: ", $i)
   ELSE // если окошко не открылось, помер или подобрал число
      LOGWRITE("Тадааа ", $t) // последнее число
      HALT
   END_IF
END_CYC

Там можно ENTER нажимать вместо клика по Ok


Bachelor

  • Зашел в гости
  • *
  • Posts: 2
    • View Profile
Re: Подбор числа 0000-9999
« Reply #2 on: April 24, 2015, 12:11:06 PM »
Большое Спасибо!
« Last Edit: April 24, 2015, 12:23:54 PM by Bachelor »