AHK: Хоткеи - последовательное нажатие

Например так:

Global keys, spot, thishk
OnExit, Exit
hHookKeybd := DllCall("SetWindowsHookEx"
   , Int, WH_KEYBOARD_LL := 13
   , Ptr, RegisterCallback("LowLevelKeyboardProc", "Fast")
   , Ptr, DllCall("GetModuleHandle", UInt, 0, Ptr)
   , UInt, 0, Ptr)
Return

~LControl::keys := "", spot := 1, thishk := "vkA2" 

~LControl Up::
    spot := 0
    If keys = {vk31}{vk32}{vk51}  ;  1 2 Q
        MsgBox LControl 1 2 Q
    else If keys = {vk51}{vk32}{vk31}  ;   Q 2 1
        MsgBox LControl Q 2 1
    Return
    
Exit:
   DllCall("UnhookWindowsHookEx", Ptr, hHookKeybd)
   ExitApp
   
LowLevelKeyboardProc(nCode, wParam, lParam)  { 
    If (spot && wParam = 0x101)  ;  WM_KEYUP := 0x101
    {  
        SaveFormat := A_FormatInteger
        SetFormat, IntegerFast, H
        vk := "vk" SubStr(NumGet(lParam+0, 0, "UInt"), 3)
        SetFormat, IntegerFast, %SaveFormat%
        If (vk != thishk)
            keys .= "{" vk "}" 
    }
    Return DllCall("CallNextHookEx", Ptr, 0, Int, nCode, Ptr, wParam, Ptr, lParam) 
}

Это если цифры и буквы подразумеваются как соответствующие клавиши.
Если имеются ввиду именно вводимые символы, то нужно иначе.

serzh82saratov, твой вариант работает.. но! Запускаю скрипт, нажимаю Ctrl + 1q2w, выскакивает MsgBox, жму ОК, окно закрывается, а вот после если начать мышкой щелкать по открытым окнам, то MsgBox снова начинает появляться (не сразу, а примерно секунд через 5-10). Если при первом запуске скрипта не нажимать Ctrl + 1q2w, то MsgBox не появляется при тех же условиях.

Irbis, твой вариант работает великолепно и к тому же еще и короче))

Товарищи, спасибо вам большое, что уделили время и помогли решить мою задачу! Вы джедаи своего дела!))

ravensblade всё согласно ТЗ.
Ведь у тебя такой нюанс:

То есть можно ведь в случае хоткеев нажать 1, потом что угодно, после 2, и всё равно будет верно?

Даже представить не могу такого.

Выход есть,  конечно.  Надо сразу было учесть этот нюанс, хоть он и не оговорен в ТЗ. Первый хоткей примет вид

if ...
GoSub ...
else
SendInput ...

Плюс добавить префикс "$" к остальным хоткеям, чтобы была возможность отправлять их из скрипта. Вечером, с компьютера отправлю рабочий вариант, если никто раньше не исправит.

Upd: В любом случае оригинального мгновенного срабатывания ctrl+1 и прочих не получится, возможны 2 варианта: отправка по отжатию Ctrl или таймауту между последовательным нажатиями.

Спасибо, Irbis! Даже не ожидал что выход найдется. Благодаря Вам у меня появилось поле для «творчества». Буду применять эту технику.

Здравствуйте, товарищи! Подскажите пожалуйста, я пытаюсь переделать скрипт так, чтобы он срабатывал не от кнопки Ctrl, а от RButton, но у меня ничего не получается((. Первый вариант от serzh82saratov работает с RButton, но стоит лишь добавить в скрипт пару строк с другими горячими клавишами, так он перестает работать. Добавлял вот это:

Suspend
RWin::Suspend
F12::Reload

Так же не работает, если добавить это:

~LControl Up::
    spot := 0
    If keys = {vk31}{vk32}{vk51}  ;  1 2 Q
        ImageSearch, x, y, 0, 0, A_ScreenWidth, A_ScreenHeight, /* путь к файлу */
        if ErrorLevel = 0
        MsgBox LControl Q 2 1
    else If keys = {vk51}{vk32}{vk31}  ;   Q 2 1
        MsgBox LControl Q 2 1
    Return

Второй же вариант от Irbis вообще не могу переделать на RButton (сейчас пользуюсь этим скриптом).

При запуске ругается на OnExit, Exit - Target label does not exist. Изменил на OnExit, Exit2 и пример заработал, но мои примеры с добавлением RWin::Suspend и if ErrorLevel = 0 все равно не работают((.

Irbis, огромнейшее спасибо! Все работает)) В очередной раз выручаете меня.

Уважаемые господа, подскажите пожалуйста, как переделать этот код под версию AHK 2.0. Во второй версии AHK как минимум удалили GoSub. Также постоянно ругается то на "If", то на двойное двоеточие внутри кода (1:: и 2::), то еще на что-то.

serzh82saratov
Целую ветку вряд ли имеет смысл, а вот про новый префикс правило уже есть:

Хотя наверно стоило бы изменить существующий префикс на AHK v1 и добавить новый AHK v2, посмотрю, смогу ли я это сделать сам.

ravensblade
Создайте новую тему с соответствующим префиксом. Почитайте внимательно документацию к v2 перед этим, приведите пример, как пытались перевести самостоятельно. Вместо GoSub можно использовать функции.

А по-моему, лучше, когда больше определённости. Сейчас, конечно, в основном обсуждается v1, но официально текущей версией является v2, а v1 устаревшей. Не очень логично, что основной префикс у v1.

Я не тороплюсь. Сам уже считаю за основную v2, в нескольких проектах, в которых участвую, переходим.

Хорошо запрятали.

Я имел в виду, что первую версию так запрятали, что сразу и не найдешь.
Думаю, многим такое не понравится.
Если бы у автохотки был более-менее заинтересованный конкурент, то сейчас как-раз то время, чтобы переманить часть пользователей.
А ссылки менять, думаю, не стали, так-как куча всего проиндексировано гуглом.

Тут, думаю, придется выбирать - либо на первой сидеть либо на второй.
На двух не получится - будут постоянно вылезать ошибки.
Во всяком случае у меня точно.
Сейчас на пхп серверную часть пишу - так автоматически время от времени печатаю автохотки синтаксисом.
И потом не понимаю откуда ошибки лезут.