Author Topic: Помогите дилетанту!  (Read 1527 times)

0 Members and 1 Guest are viewing this topic.

olejek85

  • Зашел в гости
  • *
  • Posts: 4
    • View Profile
Помогите дилетанту!
« on: September 13, 2018, 08:29:23 PM »
$check = 0
WHILE($check = 0)
   GETSCREEN
   IF_PICTURE_IN (790, 365, 1110, 395, "Image_10.bmp", -1, 5)
      $check = 1
      $S_CORR = 0
#ps2_keyboard
  keyDown(76)
waitms(141 + $S_CORR)
  keyUp(76)
waitms(400 + $S_CORR)
  keyDown(75)
waitms(141 + $S_CORR)
  keyUp(75)
waitms(400 + $S_CORR)
  keyDown(83)
waitms(141 + $S_CORR)
  keyUp(83)
                                     \в этом месте нужно добавлять по одному новому дейсвтию при каждом новом выполнении скрипта
waitms(400 + $S_CORR)
  keyDown(83)             
waitms(141 + $S_CORR)
  keyUp(83)
waitms(400 + $S_CORR)
  keyDown(83)
waitms(141 + $S_CORR)
  keyUp(83)
waitms(400 + $S_CORR)
  keyDown(83)
waitms(141 + $S_CORR)
  keyUp(83)
waitms(400 + $S_CORR)
  keyDown(75)
waitms(141 + $S_CORR)
  keyUp(75)
waitms(400 + $S_CORR)
  keyDown(83)
waitms(141 + $S_CORR)
  keyUp(83)
waitms(400 + $S_CORR)
  keyDown(75)
waitms(141 + $S_CORR)
  keyUp(75)
waitms(400 + $S_CORR)
  keyDown(75)
waitms(141 + $S_CORR)
  keyUp(75)
waitms(1500 + $S_CORR)
  keyDown(75)
waitms(141 + $S_CORR)
  keyUp(75)
      WAITMS(100)
   ELSE
      WAITMS(1000)
   END_IF
END_CYC

Как сделать так, чтоб в указанном мной месте после каждого исполнения скрипта добавлялись следующие команды:
waitms(400 + $S_CORR)
  keyDown(83)             
waitms(141 + $S_CORR)
  keyUp(83)
И так при каждом новом выполнении скрипта....

В общем смысл в том чтоб при каждом новом выполнении скрипта добавлялось по одному новому нажатию клавиши "S" на клавиатуре и так столько раз сколько задать количество повторов
Буду очень благодарен всем кто откликнется!
« Last Edit: September 13, 2018, 08:31:00 PM by olejek85 »

dramster

  • Герой форума
  • *****
  • Posts: 1134
    • View Profile
Re: Помогите дилетанту!
« Reply #1 on: September 13, 2018, 08:53:27 PM »
Code: (clickermann) [Select]
#ps2_keyboard

$check = 0
WHILE($check = 0)
   GETSCREEN
   IF_PICTURE_IN (790, 365, 1110, 395, "Image_10.bmp", -1, 5)
      $check = 1
      $S_CORR = 0
      keyDown(76)
      waitms(141 + $S_CORR)
      keyUp(76)
      waitms(400 + $S_CORR)
      keyDown(75)
      waitms(141 + $S_CORR)
      keyUp(75)
      waitms(400 + $S_CORR)
      keyDown(83)
      waitms(141 + $S_CORR)
      keyUp(83)
     
      //\в этом месте нужно добавлять по одному новому дейсвтию при каждом новом выполнении скрипта
      FOR($a=0,$a<$n)    //будет выполняться $n раз
         waitms(400 + $S_CORR)
         keyDown(83)
         waitms(141 + $S_CORR)
         keyUp(83)
      END_CYC
      inc($n)  //увеличиваем $n на 1
     
      waitms(400 + $S_CORR)
      keyDown(83)
      waitms(141 + $S_CORR)
      keyUp(83)
      waitms(400 + $S_CORR)
      keyDown(83)
      waitms(141 + $S_CORR)
      keyUp(83)
      waitms(400 + $S_CORR)
      keyDown(83)
      waitms(141 + $S_CORR)
      keyUp(83)
      waitms(400 + $S_CORR)
      keyDown(75)
      waitms(141 + $S_CORR)
      keyUp(75)
      waitms(400 + $S_CORR)
      keyDown(83)
      waitms(141 + $S_CORR)
      keyUp(83)
      waitms(400 + $S_CORR)
      keyDown(75)
      waitms(141 + $S_CORR)
      keyUp(75)
      waitms(400 + $S_CORR)
      keyDown(75)
      waitms(141 + $S_CORR)
      keyUp(75)
      waitms(1500 + $S_CORR)
      keyDown(75)
      waitms(141 + $S_CORR)
      keyUp(75)
      WAITMS(100)
   ELSE
      WAITMS(1000)
   END_IF
END_CYC

 IF_PICTURE_IN (790, 365, 1110, 395, "Image_10.bmp", -1, 5)
ПЯТЬ ПРОЦЕНТОВ??? Ты хоть понимаешь, что с пятипроцентной вероятностью у тебя найдет что угодно где угодно? Минимум 60-70 нужно.

olejek85

  • Зашел в гости
  • *
  • Posts: 4
    • View Profile
Re: Помогите дилетанту!
« Reply #2 on: September 16, 2018, 11:35:38 PM »
Спасибо! По поводу низкого процента - нужно было просто отфильтровать картинку с помощью COLORMODE, теперь всё замечательно распознается даже на 60%