Author Topic: действия внутри привязанного окна  (Read 2928 times)

0 Members and 1 Guest are viewing this topic.

quant13

  • Активный участник
  • ***
  • Posts: 174
    • View Profile
действия внутри привязанного окна
« on: September 13, 2014, 12:17:52 PM »
Code: (clickermann) [Select]
$h = hget(640,200)
LOGWRITE ("hget=", $h)
HSET($h,1)

$htxt=HGETTEXT($h)
$htxtorig=$htxt
$htxtnew=$htxt+" hset"
LOGWRITE ("HGETTEXT=", $htxt)
hsettext($h, $htxtnew)

m1:

LCLICK(1030,505)  // ok
FOR($a, $a < 60)
   WAIT(1)
   IF ( iskeydown(#space)=1 ) //ñòîï âûïîëíåíèÿ ïðè íàæàòèè ïðîáåëà
      hsettext($h, $htxtorig)
      HSET($h,0)
      halt
   END_IF
END_CYC

GOTO(m1)


скрипт привязывается к окну, переименовывает его (для удобства) и жмет мышу в нужном месте раз в минуту, при нажатии Пробела окну возвращается оригинальное название, отвязывается от окна и скрипт останавливается...
...НО...
скрипт реагирует на нажатие Пробела вообще в системе, в другом окне или просто так.
Можно ли сделать чтоб скрипт реагировал на нажатии клавиши в привязанном окне, или нажатие мыши? В общем надо интерактивно среагировать на действие в привязанном окне, как видно из скрипта, просто остановить работу нажав Паузу или Стоп не вариант.
« Last Edit: September 13, 2014, 12:30:29 PM by Oraven »

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: действия внутри привязанного окна
« Reply #1 on: September 13, 2014, 12:36:35 PM »
Что это такое?
Code: (clickermann) [Select]
$htxtnew=$htxt+" hset"Нельзя прибавить строку к строке просто написав +, для этого есть функция STRCONCAT

Все просто, укажем больше клавиш для срабатывания. Теперь скрипт остановится только если зажать SHIFT+CTRL+ALT.
Ну конечно можно и другие варианты написать.
Code: (clickermann) [Select]
$h = hget(640,200)
LOGWRITE ("hget=", $h)
HSET($h,1)

$htxt=HGETTEXT($h)
$htxtorig=$htxt
$htxtnew=STRCONCAT($htxt, " hset")
LOGWRITE ("HGETTEXT=", $htxt)
hsettext($h, $htxtnew)

m1:

LCLICK(1030,505)  // ok
FOR($a, $a < 60)
   WAIT(1)
   IF((iskeydown(#SHIFT)=1) & (iskeydown(#CTRL)=1) & (iskeydown(#ALT)=1)) //стоп выполнения при нажатии SHIFT+CTRL+ALT
      hsettext($h, $htxtorig)
      HSET($h,0)
      halt
   END_IF
END_CYC

GOTO(m1)

quant13

  • Активный участник
  • ***
  • Posts: 174
    • View Profile
Re: действия внутри привязанного окна
« Reply #2 on: September 14, 2014, 01:05:49 AM »
Quote
Нельзя прибавить строку к строке просто написав +, для этого есть функция STRCONCAT
Незнаю насколько "нельзя" но оно работает ^_^

Quote
Все просто, укажем больше клавиш для срабатывания. Теперь скрипт остановится только если зажать SHIFT+CTRL+ALT.

Не совсем что я хотел, но тоже вариант. Спс.