Серый форум — AHK: Модификатор + одиночной нажатие или двойное нажатие - возможно?

Re: AHK: Модификатор + одиночной нажатие или двойное нажатие - возможно?

null@example.com (Grey) — Wed, 02 May 2012 20:32:15 +0000

Irbis пишет:

...по поводу первой части замечания не совсем понял.

Отнюдь, это не замечание, просто хотел сказать, что тот код

creature.ws пишет:

... — очень древний

Re: AHK: Модификатор + одиночной нажатие или двойное нажатие - возможно?

null@example.com (Irbis) — Wed, 02 May 2012 18:49:56 +0000

You're welcome.

Re: AHK: Модификатор + одиночной нажатие или двойное нажатие - возможно?

null@example.com (Kamagi) — Wed, 02 May 2012 18:41:21 +0000

Я даже не знаю, как выразить мою благодарность.
Это прекрасно! Спасибо!

Re: AHK: Модификатор + одиночной нажатие или двойное нажатие - возможно?

null@example.com (Irbis) — Wed, 02 May 2012 18:33:27 +0000

Разбирайся:

EnterCnt =
^Enter::
  EnterCnt++                     ; Count Ctrl-Enter's
return
^vk42::                            ; "b" или "и"
  EnterCnt++                     ; Count Ctrl-Enter's
return
~CTRL Up::                       ; Ctrl released: Stop counting
  IfEqual EnterCnt,,return       ; Exit if no Ctrl-Enter was pressed yet
  GoSub Action
return

Action:
a := A_PriorHotkey
c := A_ThisHotKey
if (A_PriorHotkey = "^vk42")
        {
        Msgbox % a "      " c
         EnterCnt =  
        Return
        }
  Cnt := EnterCnt
  EnterCnt =                     ; Reset while MsgBox is still active
  MsgBox Number of Ctrl-Enter's is %Cnt%
return

Re: AHK: Модификатор + одиночной нажатие или двойное нажатие - возможно?

null@example.com (Kamagi) — Wed, 02 May 2012 18:16:09 +0000

Раз пошла такая пьянка

Пытаюсь адаптировать код, чтобы он обрабатывал два (и более) хоткеев на одном модификаторе.
Уж больно нравится мне ситуация, когда срабатывание происходит по отжатии модификатора.
Не жалую я всякие SetTimer

Так вот, код:

EnterCnt =

^Enter::
  EnterCnt++                     ; Count Ctrl-Enter's
return

^b::
  EnterCnt++                     ; Count Ctrl-Enter's
return

~CTRL Up::                       ; Ctrl released: Stop counting
  IfEqual EnterCnt,,return       ; Exit if no Ctrl-Enter was pressed yet
  GoSub Action
return


Action:
    if (A_ThisHotKey = ^b)
        {
        Msgbox b
         EnterCnt =  
        Return
        }
  Cnt := EnterCnt
  EnterCnt =                     ; Reset while MsgBox is still active
  MsgBox Number of Ctrl-Enter's is %Cnt%
return

Условие if в action не работает. Пробовал и A_PriorHotKey во всевозможных комбинациях - ноль.
Как правильно задать условие, что есть ^Enter = одно, а если ^b = другое?

Re: AHK: Модификатор + одиночной нажатие или двойное нажатие - возможно?

null@example.com (creature.ws) — Wed, 02 May 2012 17:21:46 +0000

switch() — очень древний

Re: AHK: Модификатор + одиночной нажатие или двойное нажатие - возможно?

null@example.com (Irbis) — Wed, 02 May 2012 17:00:26 +0000

Насчет Return согласен, по поводу первой части замечания не совсем понял.

Re: AHK: Модификатор + одиночной нажатие или двойное нажатие - возможно?

null@example.com (Grey) — Wed, 02 May 2012 16:27:45 +0000

Irbis пишет:

...каскад из if... else if... не самый красивый вариант.

Этому каскаду сто лет в обед, Return во второй строке лишний.

Re: AHK: Модификатор + одиночной нажатие или двойное нажатие - возможно?

null@example.com (Irbis) — Wed, 02 May 2012 08:14:17 +0000

"Раз пошла такая пьянка" (С) , вставлю свои 5 копеек. Имхо, каскад из if... else if... не самый красивый вариант.
Вот моя вариация на тему скрипта от Grey:

Keys := {31: "First", 32: "Second", 33: "Third", 34: "Fourth", 35: "Fifth"}
return
vk31::
vk32::
vk33::
vk34::
vk35::TrayTip,, % A_ThisHotkey
 
!vk48::
   KeyWait, vk48
   SetTimer, countervk48, -500
   Return
 
countervk48:
   ch := SubStr(A_ThisHotkey, 3)
   if Keys.HasKey(ch)
      msg(Keys[ch])
   Return
 
msg(msgtext)
{
   MsgBox,,, % msgtext " action", 1
}

Re: AHK: Модификатор + одиночной нажатие или двойное нажатие - возможно?

null@example.com (Kamagi) — Wed, 02 May 2012 06:16:57 +0000

Ого! Круто. Буду тестить. Приведенный мной вариант плох тем, что на него на шару не повесишь несколько хоткеев с одним модификатором. А как он работает я понимаю где-то только на две трети В общем, спасибо!

Re: AHK: Модификатор + одиночной нажатие или двойное нажатие - возможно?

null@example.com (Grey) — Mon, 30 Apr 2012 21:41:12 +0000

Есть ещё варианты до кучи:

vk31::
vk32::
vk33::
vk34::
vk35::TrayTip,, % A_ThisHotkey

!vk48::
   KeyWait, vk48
   SetTimer, countervk48, -500
   Return

countervk48:
   If SubStr(A_ThisHotkey, 3)="31"
      msg("First")
   Else If SubStr(A_ThisHotkey, 3)="32"
      msg("Second")
   Else If SubStr(A_ThisHotkey, 3)="33"
      msg("Third")
   Else If SubStr(A_ThisHotkey, 3)="34"
      msg("Fourth")
   Else If SubStr(A_ThisHotkey, 3)="35"
      msg("Fifth")
   ; etc.
   Return

msg(msgtext)
{
   MsgBox,,, % msgtext " action", 1
}

!vk48::
   KeyWait, vk48
   SetTimer, countervk48, -500
   Return

countervk48:
   If A_PriorKey=1
      msg("First")
   Else If A_PriorKey=2
      msg("Second")
   Else If A_PriorKey=3
      msg("Third")
   Else If A_PriorKey=4
      msg("Fourth")
   Else If A_PriorKey=5
      msg("Fifth")
   ; etc.
   Return

msg(msgtext)
{
   MsgBox,,, % msgtext " action", 1
}

Re: AHK: Модификатор + одиночной нажатие или двойное нажатие - возможно?

null@example.com (Grey) — Mon, 30 Apr 2012 20:11:01 +0000

!vk48:: ; alt+h
   starttimevk48:=A_TickCount
   KeyWait, vk48
   vk48i++
   SetTimer, % (bool:=A_TickCount-starttimevk48>500)
   ? "actionxxvk48":"countervk48", % "-"(bool ? 0:300)
   Return

countervk48:
   If vk48i=1
      SetTimer, action1vk48, -0
   Else If vk48i=2
      SetTimer, action2vk48, -0
   Else If vk48i=3
      SetTimer, action3vk48, -0
   ; etc.
   vk48i:=
   Return

action1vk48:
   msg("Single")
   Return
action2vk48:
   msg("Double")
   Return
action3vk48:
   msg("Triple")
   Return
actionxxvk48:
   msg("Pressed & released")
   Return

msg(msgtext)
{
   MsgBox,,, % msgtext " click", 1
}

Re: AHK: Модификатор + одиночной нажатие или двойное нажатие - возможно?

null@example.com (Kamagi) — Mon, 30 Apr 2012 16:59:50 +0000

Еще один вариант в копилку
По ссылке весьма продвинутый вариант, в котором нажатий может быть сколько угодно - 1, 2, 3 и т.д. (и всё это с зажатым модификатором)

Re: AHK: Модификатор + одиночной нажатие или двойное нажатие - возможно?

null@example.com (creature.ws) — Mon, 30 Apr 2012 12:03:58 +0000

По неправильно оформленной ссылке не ходил, но двойное нажатие это примерно так:

DoublePress()
{
    static firstPress
    return firstPress := (A_ThisHotkey == A_PriorHotkey && !firstPress && A_TimeSincePriorHotkey <= 400)
}

$!h::
If DoublePress()
   MsgBox Bingo
Else
   Send !{h}
Return

При «двойном клике» естественно выполнится минимум первый из двух.

Re: AHK: Модификатор + одиночной нажатие или двойное нажатие - возможно?

null@example.com (Kamagi) — Mon, 30 Apr 2012 08:53:05 +0000

Нашел решение здесь:

http://www.autohotkey.com/community/vie … press+with