Серый форум — AHK: Проблемы с клавиатурой используя двойное нажатие и soundplay

Re: AHK: Проблемы с клавиатурой используя двойное нажатие и soundplay

2013-10-29T12:16:25Z

Вот только его окончательно доделаю, там флаги по маскам (2 4 8 16 32 64) т.е. каждое открытое окно имеет от 0 до 5 состояний, которые отслеживаются по одному постоянно работающему таймеру - пока есть ещё ошибки и недочёты.
По сути это реализация многопоточности в одном потоке (квантование процессов), а флаг это семафор (достаточно сложный).
Я просто вспомнил, чему учили в институте (да ели вспомнил, столько лет прошло), и решил попробовать реализовать на практике.

Re: AHK: Проблемы с клавиатурой используя двойное нажатие и soundplay

2013-10-29T11:58:07Z

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

Re: AHK: Проблемы с клавиатурой используя двойное нажатие и soundplay

2013-10-29T02:37:31Z

Если ещё осталась проблема то она из за таймера - он не отключается, у меня было нечто подбное в скрипте который обрабатывает всё, от окон, до игр - пришлось написать внутренний диспечер, который всё отлавливает и отключает то что уже не нужно, могу дать его фрагмент, правда он навороченный и работает по маскам, т.е. Состояние Задачи = Задача & Маска стастуса

Re: AHK: Проблемы с клавиатурой используя двойное нажатие и soundplay

2013-10-28T16:22:52Z

Как оказалось эта строчка еще как помогает. Вот решение:

*!Tab:: AltTabAndMenu

vk61::
IfWinNotActive, Skype
SetTimer, SendB, Off 
SetTimer, SendA, Off 
Send {T Up}{Е Up}{Shift UP}

IfWinActive, Skype
 If isKeyPressed := !isKeyPressed  
 SetTimer, SendA, 40  
 Else
 {
IfWinNotActive, Skype
{
SetTimer, SendB, Off 
SetTimer, SendA, Off 
Send {T Up}{Е Up}{Shift UP}
}

        SetTimer, SendA, Off            
        SoundPlay E:\Scripts\1.mp3   
        Send {T Down}{Е Down}    
         SetTimer, SendB, 60000 
 }
 KeyWait, vk61 
 return

SendA:
IfWinNotActive, Skype
{
SetTimer, SendB, Off 
SetTimer, SendA, Off 
Send {T Up}{Е Up}{Shift UP}
}

SetTimer, SendB, Off 
SoundPlay E:\Scripts\2.mp3   
Send {T Up}{Е Up}
return

SendB:
IfWinNotActive, Skype
{
SetTimer, SendB, Off 
SetTimer, SendA, Off 
Send {T Up}{Е Up}{Shift UP}
}
Send {T UP}{Е Up}   
SetTimer, SendB, Off 
return

И даже не вызывает конфликтов во время зажатия T(Е), которое не позволяло листать вкладки.

Re: AHK: Проблемы с клавиатурой используя двойное нажатие и soundplay

2013-10-28T16:11:10Z

*!Tab:: AltTabAndMenu

Тоже самое что и

#InstallKeybdHook

, дальше предыдущей вкладки пролистнуть не дает. Вот странно, стоит параметр

IfWinActive, Skype

, значит скрипт совершает что-то вроде reload , когда происходит альтаб, но во время нажатия Alt+Tab такое чувство , что нажимается еще и T(Е), и Shift. Возможно решение кроется в примерно этом:

IfWinNotActive, Skype
SetTimer, SendB, Off 
SetTimer, SendA, Off 
Send {T Up}{Е Up}{Shift UP}

Но дело в том, что эта строчка не помогает.

Re: AHK: Проблемы с клавиатурой используя двойное нажатие и soundplay

2013-10-28T15:58:10Z

Попробуй в свой скрипт добавить:

*!Tab:: AltTabAndMenu

Может и поможет.

Re: AHK: Проблемы с клавиатурой используя двойное нажатие и soundplay

2013-10-28T15:53:23Z

При нажатии Alt+Tab должно позволять листать вкладки без нажатия лишних Shift и др. лишних клавиш. T(Е русская) всего лишь кнопка для спама в чат. Может возможно сделать что-то вроде break или pause при альтабе, так как возможно таймеры в скрипте не останавливаются даже тогда когда Skype окно не активно.

Re: AHK: Проблемы с клавиатурой используя двойное нажатие и soundplay

2013-10-28T15:45:17Z

А что должно происходить по нажатию Alt+Tab+T+E?

AHK: Проблемы с клавиатурой используя двойное нажатие и soundplay

2013-10-28T15:20:22Z

NumPad1::
IfWinActive, Skype
 If isKeyPressed := !isKeyPressed  
 SetTimer, SendA, 100  
 Else
 {
        SetTimer, SendA, Off            
        SoundPlay E:\Scripts\1.mp3  
        Send {T Down}{Е Down}    
         SetTimer, SendB, 60000 
 }
 KeyWait NumPad1 
 return

SendA:
SetTimer, SendB, Off 
SoundPlay E:\Scripts\2.mp3   
Send {T Up}{Е Up}
return

SendB:
Send {T UP}{Е Up}   
SetTimer, SendB, Off 
return

Скрипт работает прекрасно, но когда нужно альтабнуться, то порой ничего не происходит, также наблюдаю проблемы с зажатым шифтом после альтаба. Написал в начало кода:

IfWinNotActive, Skype
Send {Shift Up}

С шифтом проблем вроде не наблюдаю, но я не могу нормально альтабнуть периодически. Как будто при нажатии Alt+Tab зажимается что-то еще лишнее.
upd: Добавил параметр

#InstallKeybdHook

вкладка меняется на предыдущую при использовании Alt+Tab, но все равно почему-то зажимается то ли Shift, то ли еще что-то лишнее и не дает листать вкладки Tab'ом зажимая Alt