Мне просто хотелось бы разобраться и понять
Но вы же не хотите делать, что вам советуют.
Пока оставьте в покое WinMove, добейтесь нормальной работы примера, который я привел.
Таймер с самого начала можно запускать только на один раз, почитайте справку.
Зачем тогда спрашиваете?
]]>Я бы так сделал. Правда с клавишей Альт.
WinGetPos,,,, TaskBarHeight, ahk_class Shell_TrayWnd
ScreenHeight := A_ScreenHeight-TaskBarHeight+7
ScreenWidth := A_ScreenWidth
; Многократное нажатие:
#If (Win = 1)
~Alt & NumpadAdd Up:: Counter++
#If
!NumpadAdd::
Counter := 0, Win := 1
KeyWait, Alt, U
Win =
Action:
If (Counter = 1)
WinMove A,,,, ScreenWidth/1.1, ScreenHeight/1.1
Else If (Counter = 2)
WinMove A,,,, ScreenWidth/1.2, ScreenHeight/1.2
Else If (Counter = 3)
WinMove A,,,, ScreenWidth/1.4, ScreenHeight/1.4
Return#NumpadAdd::
; Удержание клавиши
Keywait NumpadAdd, T0.5
If (ErrorLevel) {
WinMove A,,,, ScreenWidth/1.8, ScreenHeight/1.08
Return
}происходит выполнение части кода многократного нажатия, хотя здесь стоит Return
Т.е., эта часть кода срабатывает, но после отпускания удерживаемой клавиши, выполняется часть кода
If (Counter = 1) {
WinMove A,,,, ScreenWidth/1.1, ScreenHeight/1.1
}#NumpadAdd::
; Многократное нажатие
Counter++
SetTimer Action, 777
Return
Action:
If (Counter = 1) {
WinMove A,,,, ScreenWidth/1.1, ScreenHeight/1.1
}
Else If (Counter = 2) {
WinMove A,,,, ScreenWidth/1.2, ScreenHeight/1.2
}
Else If (Counter = 3) {
WinMove A,,,, ScreenWidth/1.4, ScreenHeight/1.4
}
SetTimer Action, Off
Counter := 0
ReturnВ этом куске больше ничего не могу найти, вроде работает нормально.
Подскажите, плз, куда копать теперь, чтобы после отпускания клавиши на удержание не выполнялся код многократного нажатия?
Else If (Counter = 3) {
WinMove A,,,, ScreenWidth/1.4, ScreenHeight/1.4
}
SetTimer Action, Off
Counter := 0
ReturnВсе верно?
]]> If (Counter = 1) {
WinMove A,,,, ScreenWidth/1.1, ScreenHeight/1.1
}Т.е., функция удерживания работает нормально, но иногда после отпускания клавиши выполняется этот кусок кода, который относится к многократному нажатию.
Можно по-подробнее, пожалуйста.
Может вообще невозможно посадить на одну кнопку функции многократного нажатия и удерживания?
происходит безусловное увеличение "Counter" на единицу, независимо от того, удерживается клавиша "NumpadAdd", или нажимается многократно
Вообще-то нет, там Return в случае, когда выполняется действие по удержанию.
Что я делаю не так?
Во-первых, таймер запускаете, только если Counter = 1, во-вторых, у вас таймер после запуска метки продолжает выполняться, то-есть метка будет выполняться бесконечно. Проверить можно так:
#NumpadAdd::
; Действие по удержанию клавиши
Keywait NumpadAdd, T0.2
If (ErrorLevel) {
SoundBeep 900
Return
}
; Многократное нажатие
Counter++
If (Counter = 1) {
SetTimer Action, 777
}
Return
Action:
If (Counter = 1) {
SoundBeep 400
}
Else If (Counter = 2) {
SoundBeep 600
}
Else If (Counter = 3) {
SoundBeep 800
}
Counter := 0
SoundBeep 400
Return происходит безусловное увеличение "Counter" на единицу
Возможно именно это.
Как Вы поняли, данный скрипт изменяет размеры активного окна и после удержания клавиши иногда происходит незапланированное выполнение блока
If (Counter = 1)... второй иногда работает не так, как должно
А как должно?
Как минимум, происходит безусловное увеличение "Counter" на единицу, независимо от того, удерживается клавиша "NumpadAdd", или нажимается многократно, что заставляет выполниться первый "If" в "Action", а за тем, так же, безусловно происходит обнуление "Counter", в следствии чего, ей никогда не стать больше единицы.
Последняя фигурная скобка должна закрываться на том же уровне индентации, где начинается объявление инструкций, тело которых она содержит. У Вас она на один таб дальше, что сбивает с толку, так как она кажется вложенной из-за этого.
]]>#NumpadAdd::
; Действие по удержанию клавиши
Keywait NumpadAdd, T0.2
If (ErrorLevel) {
WinMove A,,,, ScreenWidth/1.6, ScreenHeight/1.05
Return
}Но при совмещении двух кусков кода второй иногда работает не так, как должно:
WinGetPos,,,, TaskBarHeight, ahk_class Shell_TrayWnd
ScreenHeight := A_ScreenHeight-TaskBarHeight+7
ScreenWidth := A_ScreenWidth
#NumpadAdd::
; Действие по удержанию клавиши
Keywait NumpadAdd, T0.2
If (ErrorLevel) {
WinMove A,,,, ScreenWidth/1.6, ScreenHeight/1.05
Return
}
; Многократное нажатие
Counter++
If (Counter = 1) {
SetTimer Action, 777
}
Return
Action:
If (Counter = 1) {
WinMove A,,,, ScreenWidth/1.1, ScreenHeight/1.1
}
Else If (Counter = 2) {
WinMove A,,,, ScreenWidth/1.2, ScreenHeight/1.2
}
Else If (Counter = 3) {
WinMove A,,,, ScreenWidth/1.4, ScreenHeight/1.4
}
Counter := 0
ReturnЧто я делаю не так?
]]>