Messages

1

Биржа труда / Re: Разработать сценарий перебора пин кода от 0000 до 9999 для определения верного

« on: December 25, 2018, 09:00:53 AM »

Да уж... 4 цифры... Это пока не в моих силах. Будем стараться. Для себя писал, с моей задачей справилась программа. Может кому мой вариант пригодится.

2

Биржа труда / Re: Разработать сценарий перебора пин кода от 0000 до 9999 для определения верного

« on: December 24, 2018, 11:12:02 PM »

#name "@перебор pin"

LCLICK(1152,297)  //активируем окно перебора
TOCLIP ("0") //Вставляем в буфер обмена начальное число
WAITMS(100)
KEYDOWN (#CTRL) // вставляем Ctrl+V из буфера обмена
WAITMS (100)
KEYDOWN (#V)
WAITMS (100)
KEYUP (#V)
KEYUP (#CTRL)
LCLICK(1317,550)  // жмём ок или KEYPRESS(#ENTER)
FOR($a=0, $a < 9999) // начинаем цикл (с кол-вом циклов) перебора
getscreen
if_pixel_in(1212,360,1214,362,14211322)// пиксель отрицательного события
   waitms(100)
   LCLICK(1161,294)  // активируем окно перебора
   KEYDOWN (#CTRL) // выделяем Ctrl+а
   WAITMS (100)
   KEYDOWN (#A)
   WAITMS (100)
   KEYUP (#A)
   KEYUP (#CTRL)
   waitms(100)
   KEYDOWN (#CTRL) // вырезаем Ctrl+X, помещая в буфер обмена
   WAITMS (100)
   KEYDOWN (#X)
   WAITMS (100)
   KEYUP (#X)
   KEYUP (#CTRL)
   LCLICK(1138,306)  // активируем окно перебора
   $str= FROMCLIP ()// переносим из буфера системы в буфер кликермана
   waitms(100)
   INC ($str)
   TOCLIP($str)
   print($str)// в логе сохранится последний, тоесть верный пароль
   KEYDOWN (#CTRL) // вставляем Ctrl+V
   WAITMS (100)
   KEYDOWN (#V)
   WAITMS (100)
   KEYUP (#V)
   KEYUP (#CTRL)
   LCLICK(1317,550) //жмём ок или KEYPRESS(#ENTER)
   else // если отрицательного события не случилось - останавливаем выполнение сценария
   halt
end_if
end_cyc

3

Ошибки / Re: Не стабильный поиск if_picture_in

« on: December 22, 2018, 09:13:25 AM »

спасибо

4

Ошибки / Не стабильный поиск if_picture_in

« on: December 21, 2018, 05:53:24 PM »

Каждый раз при выполнении поиска картинки обновляю картинку *.BMP. Сохраняю, запускаю - работает. После перегрузки win10 искать картинку. Код не менял, просто перестал искать картину на последней версии 4.13 64 win10.

5

Общие вопросы / Re: Помогите новичку

« on: December 15, 2018, 09:11:10 AM »

Спасибо

6

Общие вопросы / Re: Re: Помогите новичку

« on: December 14, 2018, 02:41:15 PM »

Создавайте собственные темы;
во первых замусориваете чужую,
во вторых автор темы может в любой момент её удалить.

Спасибо. Всё получилось.

7

Общие вопросы / Re: Re: Помогите новичку

« on: December 14, 2018, 02:38:03 PM »

HALT убирал, программа выполняется первый раз с циклом, второй раз и последующие до строки FOR

8

Общие вопросы / Re: Помогите новичку

« on: December 14, 2018, 10:27:41 AM »

Здравствуйте! Помогите пожалуйста. Что в этом идеальном коде не так? Всего третий день этим занимаюсь, потому строго не судите.

Суть:  Ставлю на цикличное воспроизведение, но он исполнив программу встаёт и не возобновляет работу.

LCLICK(1050,90)
WAIT(6)
LCLICK(849,196)
WAIT(1)
KEYPRESS(#HOME)
WAIT(2)
DBLCLICK(1350,500)
WAIT(3)
FOR($i, $i < 2)
   WHEELDOWN(9)
   WAIT(2)
   getscreen
   IF_PICTURE_IN (891, 114, 937, 851, "file.bmp")
      wait (1)
      LCLICK($_return1, $_return2)
      ELSE
      wait (1)
      WHEELUP(6)
   END_IF
   WAIT(2)
END_CYC
WAIT(1)
HALT