Author Topic: Подскажите со сценарием  (Read 5199 times)

0 Members and 1 Guest are viewing this topic.

NERON

  • Зашел в гости
  • *
  • Posts: 3
    • View Profile
Подскажите со сценарием
« on: November 12, 2013, 09:33:27 AM »
Нужно чтобы цифры,например, от 1 до 9 нажимались через 1 сек( это понятно-через waitms) и параллельно раз в 40 сек нажимались F3,F4 , а F7,F8 нажимались раз в 60 сек. Можно так сделать?

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Подскажите со сценарием
« Reply #1 on: November 12, 2013, 11:38:15 AM »
Нужно чтобы цифры,например, от 1 до 9 нажимались через 1 сек( это понятно-через waitms) и параллельно раз в 40 сек нажимались F3,F4 , а F7,F8 нажимались раз в 60 сек. Можно так сделать?
Code: (clickermann) [Select]
WAITMS(300)
$time34 = $_time_t + 40
$time78 = $_time_t + 60

$rep = 0
WHILE($rep = 0)
   $key = 47
   FOR ($key, $key<57)
      IF($time34 < $_time_t)
         KEYPRESS(#F3)
         WAITMS(50)
         KEYPRESS(#F4)
         WAITMS(50)
         $time34 = $_time_t + 40
      END_IF
     
      IF($time78 < $_time_t)
         KEYPRESS(#F7)
         WAITMS(50)
         KEYPRESS(#F8)
         WAITMS(50)
         $time78 = $_time_t + 60
      END_IF
     
      KEYPRESS($key)
      WAITMS(1000)
   END_CYC
END_CYC


Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Подскажите со сценарием
« Reply #2 on: November 12, 2013, 11:41:14 AM »
Если ещё точнее, так:
Code: (clickermann) [Select]
WAITMS(300)
$time34 = $_time_t + 40
$time78 = $_time_t + 60

$rep = 0
WHILE($rep = 0)
   $key = 47
   FOR ($key, $key<57)
      KEYPRESS($key)
      WAITMS(50)
      $w = 950
      IF($time34 < $_time_t)
         KEYPRESS(#F3)
         WAITMS(50)
         KEYPRESS(#F4)
         WAITMS(50)
         $w = $w - 100
         $time34 = $_time_t + 40
      END_IF
     
      IF($time78 < $_time_t)
         KEYPRESS(#F7)
         WAITMS(50)
         KEYPRESS(#F8)
         WAITMS(50)
         $w = $w - 100
         $time78 = $_time_t + 60
      END_IF
      WAITMS($w)
   END_CYC
END_CYC
« Last Edit: November 12, 2013, 11:54:54 AM by Vint »


NERON

  • Зашел в гости
  • *
  • Posts: 3
    • View Profile
Re: Подскажите со сценарием
« Reply #3 on: November 12, 2013, 01:42:22 PM »
Круто. оперативно. работает. спасибо!!! А как теперь сделать чтоб перед 1 и перед 4 нажимался Tab ??
Думал потом сам все вставлю, но от функций мозги набекрень))

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Подскажите со сценарием
« Reply #4 on: November 12, 2013, 02:52:45 PM »
Винту лишь бы все усложнить  ;)
Code: (clickermann) [Select]
WAITMS(300)
KEYPRESS(#TAB)
WAIT(1)
KEYPRESS(#1)
WAIT(1)
KEYPRESS(#2)
WAIT(1)
KEYPRESS(#3)
WAIT(1)
KEYPRESS(#TAB)
WAIT(1)
KEYPRESS(#4)
WAIT(1)
KEYPRESS(#5)
WAIT(1)
KEYPRESS(#6)
WAIT(1)
KEYPRESS(#7)
WAIT(1)
KEYPRESS(#8)
WAIT(1)
KEYPRESS(#9)
WAIT(1)

IF($time1 < $_time_t)
   KEYPRESS(#F3)
   WAIT(1)
   KEYPRESS(#F3)
   WAIT(1)
   $time1 = $_time_t + 40
END_IF

IF($time2 < $_time_t)
   KEYPRESS(#F7)
   WAIT(1)
   KEYPRESS(#F8)
   WAIT(1)
   $time2 = $_time_t + 60
END_IF

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Подскажите со сценарием
« Reply #5 on: November 12, 2013, 04:22:08 PM »
Винту лишь бы все усложнить  ;)
Такая тема не первая и не вторая. Я просто предвидел следующий вопрос, который почти всегда возникает:
"А что, если время 40/60 истечёт раньше, чем до условия дойдёт скрипт, когда будет 10 сек. тыкать первые кнопки"  :) ;D

Зато у меня равномерней  :) и всего 25 строк (даже 20 если первые нажатия не нужно пропускать).

Я тоже сначала написал кейпрес каждому. Потом подумал - банальщина, надоело. 101-й похожий вопрос.
« Last Edit: November 12, 2013, 04:26:34 PM by Vint »


NERON

  • Зашел в гости
  • *
  • Posts: 3
    • View Profile
Re: Подскажите со сценарием
« Reply #6 on: November 12, 2013, 10:21:32 PM »
Ну теперь и ежу понятно)) спасибо огромное!