Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Fuego47

Pages: [1] 2
1
Общие вопросы / Re: IF_PICTURE_IN не всегда определяет
« on: March 12, 2019, 11:16:42 PM »
Большое спасибо за помощь, но к сожалению, теперь нет реакции ни на одну из картинок
Quote from: Космич on March 12, 2019, 10:53:02 PM
Если картинки нет, то её нет. Вот не много переписал код и добавил вывод картинок, которые лежат рядом со скриптом

Code: (clickermann) [Select]
GETFILELIST($arrraylist, "*.bmp") // Поиск картинок по маске

// Вывод найденных картинок
FOR($i = 0, $i < ARRSIZE($arrraylist))
   PRINT($arrraylist[$i])
END_CYC

// Переписанный код
STRSEPARATE("0:76:300:600:001",      ":", $array_data)
STRSEPARATE("900:280:1160:410:004",  ":", $array_data)
STRSEPARATE("1034:269:1084:331:005", ":", $array_data)
STRSEPARATE("0:76:192:410:002",      ":", $array_data)
STRSEPARATE("0:76:192:410:003",      ":", $array_data)
 
$size = ARRSIZE($array_data)
 
$time = $_time_t + 7200
 
WHILE(#TRUE)
   WAIT(RND(1,7))
   GETSCREEN($workArea_left, $workArea_top, $workArea_width, $workArea_height)
   IF_PICTURE_IN($array_data[$count], $array_data[$count+1], $array_data[$count+2], $array_data[$count+3], STRCONCAT($array_data[$count+4], ".bmp"), - 1, 100)
      SWITCH($count)
      CASE(0)
         PRINT("Оценен")
         WAITMS(100)
         KEYPRESS(RNDFROM(#1,#1,#2,#2,#2,#3,#3,#3,#3,#3,#3))
         WAITMS(100)
      CASE(5)
         PRINT("ОП")
         WAITMS(100)
         KEYPRESS(#9)
         WAITMS(100)
      CASE(10)
         PRINT("Арг на пуст")
         WAITMS(100)
         LCLICK(71,247)
         WAITMS(50)
         HSET(HGET(71,247),1)
         WAITMS(50)
         KEYSTRING(TFREAD("Text2.txt", RND(1,TFCOUNT("Text2.txt"))))
         WAITMS(50)
         HSET(0,0)
         WAITMS(200)
         LCLICK(77,289)
      CASE(15)
         PRINT("Арг на полн")
         WAITMS(100)
         LCLICK(71,247)
         WAITMS(50)
         HSET(HGET(71,247),1)
         WAITMS(50)
         KEYSTRING(TFREAD("Text.txt", RND(1,TFCOUNT("Text.txt")))) /
         WAITMS(50)
         HSET(0,0)
         WAITMS(50)
         LCLICK(77,289)
      CASE(20)
         PRINT("Решение по спору")
         WAITMS(100)
         KEYPRESS(RNDFROM(#9,#9,#9,#9,#9,#9,#9))
      END_SWITCH   
      $count = 0
      WAITMS(200)
      LCLICK(105,12)
      WAITMS(100)
      LCLICK(343,583)      
   ELSE
      IF($count != $size - 5)
         INC($count, + $size / 5)
      ELSE
         PRINT("4 нет Решения по спору")
         $count = 0
      END_IF
   END_IF     
   IF( ($_time_t > $time) & ($count = 0) )
      WAIT(RND(600,1200))
      $time = $_time_t + 7200
   END_IF   
END_CYC

2
Общие вопросы / IF_PICTURE_IN не всегда определяет
« on: March 12, 2019, 10:10:04 PM »
Друзья, помогите упростить или найти косяки. скрипт не всегда работает. Особенно первое условие IF_PICTURE_IN бывает просто не находит картинку, хотя она там есть. Полагаю, код слишком большой
Code: [Select]
IF($start = 0)
   $Timer_na_dva_chasa = $_time_t+7200
   $start = 1
END_IF

IF($Timer_na_dva_chasa > $_time_t)
   
   WAIT(RND(1,7))
   GETSCREEN(0, 0, 1365, 767)
   WAITMS(100)
         IF_PICTURE_IN (0, 76, 300, 600, "001.bmp", -1, 80)     //Условие 1
            WAITMS(100)
            KEYPRESS(RNDFROM(#1,#2,#2,#2,#3,#3,#3,#3,#3,#3))
            WAITMS(100)
         ELSE
            IF_PICTURE_IN (994, 318, 1139, 352, "006.bmp")     //Условие 2
               WAITMS(100)
               KEYPRESS(RNDFROM(#6,#5,#5))
            ELSE
               IF_PICTURE_IN (1034, 269, 1084, 331, "005.bmp")     //Условие 3
                  WAITMS(100)
                  LCLICK(71,247)
                  WAITMS(50)
                  HSET(HGET(71,247),1)
                  WAITMS(50)
                  KEYSTRING(TFREAD("Text2.txt", RND(1,TFCOUNT("Text2.txt"))))
                  WAITMS(50)
                  HSET(0,0)
                  WAITMS(200)
                  LCLICK(77,289)
               ELSE
                  IF_PICTURE_IN (0, 76, 192, 410, "002.bmp")     //Условие 4
                     WAITMS(100)
                     LCLICK(71,247)
                     WAITMS(50)
                     HSET(HGET(71,247),1)
                     WAITMS(50)
                     KEYSTRING(TFREAD("Text.txt", RND(1,TFCOUNT("Text.txt")))) /
                     WAITMS(50)
                     HSET(0,0)
                     WAITMS(50)
                     LCLICK(77,289)
                  ELSE
                     WAITMS(100)
                     IF_PICTURE_IN (0, 76, 192, 410, "003.bmp")     //Условие 5
                        WAITMS(100)
                        KEYPRESS(#5)
                     END_IF
                 
            END_IF
         END_IF
      END_IF
   END_IF
   WAITMS(200)
   LCLICK(508,746)
   WAITMS(100)
   LCLICK(3,583)
   
else
   WAIT(RND (600, 1200))
   PRINT("Перерыв")
   $Timer_na_dva_chasa = $_time_t+7200
   PRINT("Перерыв окончен")
END_IF
WAITMS(50)

3
Общие вопросы / Re: Нужны перерывы в работе скрипта
« on: March 09, 2019, 11:03:27 PM »
Спасибо))
Quote from: Космич on March 09, 2019, 10:16:19 PM
лучше сделать 1 внешнее условие, что бы вложенность была меньше

Code: (clickermann) [Select]
DEFINE($time, $_time_t)

IF($_time_t - $time > 7200)
   WAIT(RND(600,1200))
   $time = $_time_t
END_IF

4
Общие вопросы / Re: Нужны перерывы в работе скрипта
« on: March 09, 2019, 11:03:06 PM »
Спасибо))
Quote from: Hito on March 09, 2019, 10:19:09 PM
Выбирай

5
Общие вопросы / Re: Нужны перерывы в работе скрипта
« on: March 09, 2019, 09:50:43 PM »
Или просто подскажите как самому задать время включение и выключения и снова включения...

6
Общие вопросы / Нужны перерывы в работе скрипта
« on: March 09, 2019, 08:58:41 PM »
Перерывы рандомным интервалом 10-20 минут каждые 2 часа (желательно тоже рандомно например 01:00-01:17, а в след раз 03:25-03:40) Буду очень благодарен за помощь
Code: [Select]
WAIT(RND(1,7))
GETSCREEN(0, 0, 1365, 767)
IF_PICTURE_IN (0, 76, 300, 600, "001.bmp")     //Условие 1
   PRINT("Оценен")
   WAITMS(100)
   KEYPRESS(RNDFROM(#1,#1,#2,#2,#2,#3,#3,#3,#3,#3,#3))
   WAITMS(100)
ELSE
   PRINT("1 нет оценки")
   IF_PICTURE_IN (900, 280, 1160, 410, "004.bmp")     //Условие 2
      PRINT("ОП")
      WAITMS(100)
      KEYPRESS(#9)
      WAITMS(100)
   ELSE
      PRINT("2 нет ОП")
      IF_PICTURE_IN (1034, 269, 1084, 331, "005.bmp")     //Условие 3
         PRINT("Арг на пуст")
         WAITMS(100)
         LCLICK(71,247)
         WAITMS(50)
         HSET(HGET(71,247),1)
         WAITMS(50)
         KEYSTRING(TFREAD("Text2.txt", RND(1,TFCOUNT("Text2.txt"))))
         WAITMS(50)
         HSET(0,0)
         WAITMS(200)
         LCLICK(77,289)
      ELSE
         PRINT("3 не арг на пуст")
         IF_PICTURE_IN (0, 76, 192, 410, "002.bmp")     //Условие 4
            PRINT("Арг на полн")
            WAITMS(100)
            LCLICK(71,247)
            WAITMS(50)
            HSET(HGET(71,247),1)
            WAITMS(50)
            KEYSTRING(TFREAD("Text.txt", RND(1,TFCOUNT("Text.txt")))) /
            WAITMS(50)
            HSET(0,0)
            WAITMS(50)
            LCLICK(77,289)
         ELSE
            PRINT("3б не арг на полн")
            IF_PICTURE_IN (0, 76, 192, 410, "003.bmp")     //Условие 5
               PRINT("Решение по спору")
               WAITMS(100)
               KEYPRESS(RNDFROM(#9,#9,#9,#9,#9,#9,#9))
            ELSE
               PRINT("4 нет Решения по спору")
            END_IF
         END_IF
      END_IF
   END_IF
END_IF
WAITMS(200)
LCLICK(105,12)
WAITMS(100)
LCLICK(343,583)

7
Общие вопросы / Re: Приостановка макроса пока на экране не появится нужный элемент(поиск по картинк)
« on: March 07, 2019, 10:39:00 AM »
А если в таком же ключе ожидается 3 картинки, но появится только одна из них, и в каждой нужно нажать разные клавиши. Как сделать чтобы цикл не закрывался пока не сделает одно из 3х IF_PICTURE_IN?
Quote from: Космич on March 04, 2019, 01:13:30 PM
Code: (clickermann) [Select]
$press = 0
$check = 0
WHILE($check = 0)
   GETSCREEN
   IF_PICTURE_IN(0,0,$_xmax,$_ymax,"yes.bmp")
      KEYPRESS(#ENTER)
      WAITMS(500)
      $press = 1
   ELSE
      IF($press = 1)
         $check = 1
      END_IF
   END_IF
END_CYC

8
Общие вопросы / Re: Цикл не повторяется
« on: March 07, 2019, 08:11:47 AM »
Перезагрузил, но время так же не выдерживается. Вы говорите я не поставил задержки. Где ещё их необходимо поставить?

9
Общие вопросы / Re: Цикл не повторяется
« on: March 07, 2019, 08:09:15 AM »
Так я повысил вероятность нажатия некоторых кнопок относительно других.
Quote from: Hito on March 07, 2019, 01:21:49 AM
Мне просто интересно... А для чего в строке - KEYPRESS(RNDFROM(#4,#1,#1,#2,#2,#2,#3,#3,#3,#3,#3,#3)), столько одинаковых значений...?

10
Общие вопросы / Re: Цикл не повторяется
« on: March 06, 2019, 10:42:33 PM »
Так же не выдерживается команда WAITMS(RND(1000,3000))

11
Общие вопросы / Цикл не повторяется
« on: March 06, 2019, 10:18:46 PM »
Да, тут не цикл, но ведь должно работать по кругу само собой. Но данная программа работает 2-3 цикла, а затем зависает. При этом начинает тупить сам кликерман. Не реагирует на нажатия и т.п.
Кто разбирается, проверьте пожалуйста мой код. Помогите исправить ошибки чтобы программа не зависала.
Code: [Select]
WAITMS(RND(1000,3000))
      GETSCREEN(0, 76, 192, 410)
      IF_PICTURE_IN (0, 76, 192, 410, "001.bmp") 
         PRINT("Оценен")
         WAITMS(100)
         KEYPRESS(RNDFROM(#4,#1,#1,#2,#2,#2,#3,#3,#3,#3,#3,#3))
         WAITMS(200)
      ELSE
         PRINT("Не оценен")
      END_IF
     
      IF_PICTURE_IN (0, 76, 192, 410, "002.bmp")   
         PRINT("Спор")
         WAITMS(100)
         LCLICK(71,247)
         WAITMS(50)
         HSET(HGET(71,247),1)
         WAITMS(50)
         KEYSTRING(TFREAD("Text.txt", RND(1,TFCOUNT("Text.txt"))))
         WAITMS(50)
         HSET(0,0)
WAITMS(50)
LCLICK(77,289)
      ELSE
         PRINT("Не спор")
      END_IF
     
      IF_PICTURE_IN (0, 76, 192, 410, "003.bmp")
         PRINT("Решение по спору")
         WAITMS(100)
         KEYPRESS(RNDFROM(#5,#5,#5,#5,#5,#5,#6))
      ELSE
         PRINT("Нет решения")
      END_IF
     
      WAITMS(15)
   

12
Общие вопросы / Re: Вероятность для keypress
« on: March 02, 2019, 10:57:33 AM »
Спасибо))
Quote from: dramster on March 01, 2019, 10:15:55 PM
Quote from: Oraven on February 28, 2019, 02:06:35 PM
Code: (clickermann) [Select]
$r = RNDFROM(1,1,1,1,2,3)
SWITCH($r)
   CASE(1)
      KEYPRESS(#1)
   CASE(2)
      KEYPRESS(#2)
   CASE(3)
      KEYPRESS(#3)
END_SWITCH
WAITMS(50)


Можно обойтись одной строкой - KEYPRESS(RNDFROM(#1,#1,#1,#1,#2,#3)), эффект тот же.

13
Общие вопросы / Вероятность для keypress
« on: February 28, 2019, 01:05:08 PM »
Добрый день. Подскажите как сделать чтобы keypress 1, 2, 3 нажимались с разной вероятностью. Например 1 нажимались в 70% случаев, а 2,3 в 15%

14
Общие вопросы / Re: Всегда 5тизначная переменная
« on: October 29, 2018, 11:15:37 PM »
Спасибо. Все работает

15
Общие вопросы / Всегда 5тизначная переменная
« on: October 29, 2018, 10:47:14 PM »
Ребят, подскажите как сделать переменную всегда пятизначную и как заранее установить значение переменной, а то получается, не смотря на формулу, действие выполняется с исходным числом например 72...72....72....
Code: [Select]
$x=00072
KEYSTRING($x)
WAITMS(100)
$x=$x+1

Pages: [1] 2