полностью сделать через виртуальные коды
Зачем...
так нормально? Или...
Если работает как надо и без глюков, то вполне нормально.
Теперь можно заняться сокращением:
if CtrlActivate
{
Send,{LCtrl Down}{RButton}
}
else
{
Send, {RButton} ; посылаем нажатие
}
->
if CtrlActivate
Send,{LCtrl Down}{RButton}
else
Send, {RButton} ; посылаем нажатие
2) Дело было не в бобине...
Изначально, я все это проверял, как реагирует приложение на столько частый посыл ПКМ, с ctrl и без него, но по всей видимости, в этот момент я где-то ошибся, возможно запустил не тот скрипт и решил, что все хорошо.
Всему виной само приложение, даже с обычным лупом из первого поста и sleep 100 (да и любым другим) клавиша ctrl срабатывает с задержкой, через пол-секунды после нажатия.
Самое интересное, что в самом приложение есть подобная штука - повтор ПКМ, (выдает примерно 20 нажатий в секунду) и оно нормально дружит с ctrl... но его недостаток как раз в том, что цикл не прерывается при нажатии на qweasd.
Так что выходит - я просил найти ошибку которой нет, прошу прощения.
Пошел другим путем и на примере вашего скрипта сделал так:
SetFormat,IntegerFast,h ; устанавливаем формат чисел в HEX
; исключения
except=0x11`,0x1`,0x2`,0x4`,0x5`,0x6`,0x51`,0x57`,0x45`,0x41`,0x53`,0x44
Global CtrlActivate
Loop,0x91 ; перечисляем все виртуальные коды, убавил до 0x91 (может глюк с ctrl пропадет)
{
if instr(except,A_Index) ; за исключением списка
continue ; продолжаем, не выполняя последующие строки
Hotkey,% "~*vk" . A_Index,Label,On ; добавляем горячую клавишу на метку Label
}
; перечисляем дополнительные клавиши, которые, почему-то, не добавляются по вирткоду, туда же
Hotkey,~*del,Label,On
Hotkey,~*up,Label,On
Hotkey,~*Down,Label,On
Hotkey,~*left,Label,On
Hotkey,~*right,Label,On
Hotkey,~*ins,Label,On
Hotkey,~*home,Label,On
Hotkey,~*end,Label,On
Hotkey,~*pgup,Label,On
Hotkey,~*pgdn,Label,On
Label: ; тут все понятно, думаю
AnyKey=1
return
; делаем нужные клавиши "однокликовыми"(одно зажатие - один посыл), как ты описывал
$vk51::
$vk57::
$vk45::
$vk41::
$vk53::
$vk44::
k:=regexreplace(a_thishotkey,"\$")
send,{%k% down}
keywait,%k%,L ; ждем отпускания
return
$vk51 up::
$vk57 up::
$vk45 up::
$vk41 up::
$vk53 up::
$vk44 up::
k:=regexreplace(a_thishotkey,"\$")
send,{%k%}
return
*$Rbutton::
AnyKey=0 ; обнуляем переменную ("либо ПКМ, новое нажатие на которую возобновляет цикл")
while GetKeyState("RButton","P") ; пока зажата кнопка - цикл работает
{
if AnyKey ; если в AnyKey единица
{
if GetKeyState("LButton","P")
{
sleep,390
AnyKey=0
}
sleep,10 ; спим чтобы не нагружать проц
continue ; продолжаем, не выполняя последующие строки
}
if CtrlActivate
{
Send,{LCtrl Down}{RButton}
}
else
{
Send, {RButton} ; посылаем нажатие
}
; tooltip,% A_Index ; для отладки
Sleep, 15 ; спим чтобы не нагружать проц
}
return
esc:: ; аварийный выход, можно убрать
exitapp
*$LCtrl::
CtrlActivate=1
return
*$LCtrl Up::
Send,{LCtrl Up}
CtrlActivate=0
returnТеперь все работает как надо, но осталось пара вопросов:
1) Хотелось бы полностью сделать через виртуальные коды, но с ctrl у меня недопонимание, как лучше его обозначаеть vka2 или vk11, и в чем разница между ними? (Срабатывают то оба, если просто сделать 2 скрипта с тултипами на этих хоткеях и нажать ctrl)
2) Насчет алгоритма, а именно:
if AnyKey
....
if CtrlActivate
....Как бы это банально не прозвучало, но - так нормально? Или можно более "разумно" расположить мое условие? ( if CtrlActivate=1 )
]]>SetFormat,IntegerFast,h ; устанавливаем формат чисел в HEX
; исключения
except=0x11`,0x1`,0x2`,0x4`,0x5`,0x6`,0x51`,0x57`,0x45`,0x41`,0x53`,0x44
Loop,0x91 ; перечисляем все виртуальные коды, убавил до 0x91 (может глюк с ctrl пропадет)
{
if instr(except,A_Index) ; за исключением списка
continue ; продолжаем, не выполняя последующие строки
Hotkey,% "~*vk" . A_Index,Label,On ; добавляем горячую клавишу на метку Label
}
; перечисляем дополнительные клавиши, которые, почему-то, не добавляются по вирткоду, туда же
Hotkey,~*del,Label,On
Hotkey,~*up,Label,On
Hotkey,~*Down,Label,On
Hotkey,~*left,Label,On
Hotkey,~*right,Label,On
Hotkey,~*ins,Label,On
Hotkey,~*home,Label,On
Hotkey,~*end,Label,On
Hotkey,~*pgup,Label,On
Hotkey,~*pgdn,Label,On
Label: ; тут все понятно, думаю
AnyKey=1
return
; делаем нужные клавиши "однокликовыми"(одно зажатие - один посыл), как ты описывал
$vk51::
$vk57::
$vk45::
$vk41::
$vk53::
$vk44::
k:=regexreplace(a_thishotkey,"\$")
send,{%k% down}
keywait,%k%,L ; ждем отпускания
return
$vk51 up::
$vk57 up::
$vk45 up::
$vk41 up::
$vk53 up::
$vk44 up::
k:=regexreplace(a_thishotkey,"\$")
send,{%k%}
return
*$Rbutton::
AnyKey=0 ; обнуляем переменную ("либо ПКМ, новое нажатие на которую возобновляет цикл")
while GetKeyState("RButton","P") ; пока зажата кнопка - цикл работает
{
if AnyKey ; если в AnyKey единица
{
if GetKeyState("LButton","P") ; если нажали на ЛКМ
{
sleep,390 ; ждем 400 ms
AnyKey=0 ; обнуляем anykey и цикл продолжается
}
sleep,10 ; спим чтобы не нагружать проц
continue ; продолжаем, не выполняя последующие строки
}
; Send, {RButton} ; посылаем нажатие
tooltip,% A_Index ; для отладки
Sleep, 15 ; спим чтобы не нагружать проц
}
return
esc:: ; аварийный выход, можно убрать
exitapp
2) Немного изменил добавление хоткеев, попробуй может глюк пропадет... кстати, с tooltip вместо RButton этот глюк тоже есть?
Такой проблемы не смог воспроизвести у себя, возможно программа так странно реагирует; возможно поможет увеличение задержи между посылами RButton; возможно стоит попробовать более старую версию AHK.
SetFormat, IntegerFast, h
except=0x1`,0x2`,0x4`,0x5`,0x6`,0x51`,0x57`,0x45`,0x41`,0x53`,0x44
Loop, 0xFF
{
if instr(except,A_Index)
continue
Hotkey,% "~*vk" . A_Index,Label,On
}
Hotkey,~*del,Label,On
Hotkey,~*up,Label,On
Hotkey,~*Down,Label,On
Hotkey,~*left,Label,On
Hotkey,~*right,Label,On
Hotkey,~*ins,Label,On
Hotkey,~*home,Label,On
Hotkey,~*end,Label,On
Hotkey,~*pgup,Label,On
Hotkey,~*pgdn,Label,On
Label:
AnyKey=1
return
$vk51::
$vk57::
$vk45::
$vk41::
$vk53::
$vk44::
k:=regexreplace(a_thishotkey,"\$")
send,{%k% down}
keywait,%k%,L
return
$vk51 up::
$vk57 up::
$vk45 up::
$vk41 up::
$vk53 up::
$vk44 up::
k:=regexreplace(a_thishotkey,"\$")
send,{%k%}
keywait,%k%,L
return
*$Rbutton::
AnyKey=0
while GetKeyState("RButton","P")
{
if AnyKey
{
if GetKeyState("LButton","P")
{
sleep,390
AnyKey=0
}
sleep,10
continue
}
; Send, {RButton}
tooltip,% A_Index
Sleep, 15
}
return
esc::
exitapp
Проще плюнуть и забыть как страшный сон, сил уже нет каждый вечер на это время тратить.
]]>Global vkHK
OnExit, Exit
hHookKeybd := DllCall("SetWindowsHookEx", Int, WH_KEYBOARD_LL := 13
, Ptr, RegisterCallback("LowLevelKeyboardProc", "Fast")
, Ptr, DllCall("GetModuleHandle", UInt, 0, Ptr)
, UInt, 0, Ptr)
Return
Exit:
DllCall("UnhookWindowsHookEx", Ptr, hHookKeybd)
ExitApp
LowLevelKeyboardProc(nCode, wParam, lParam)
{
vkHK := format("vk{:x}", NumGet(lParam + 0, "UInt") )
Return DllCall("CallNextHookEx", Ptr, 0, Int, nCode, Ptr, wParam, Ptr, lParam)
}
*RButton::
rest_loop:
StatusKey := 0
vkHK := ""
While GetKeyState("RButton","p")
{
if vkHK and (vkHK != "vka2")
{
if vkHK ~= "^(vk51|vk57|vk45|vk41|vk53|vk44)$"
StatusKey := 1
else
StatusKey := 2
break
}
ToolTip {RButton}
vkHK := ""
Sleep, 15
}
E := 0
if (StatusKey = 2)
return
if (StatusKey = 1)
loop
{
KeyWait,LButton,T0.01
% (ErrorLevel = 1) and (E:=1)
KeyWait,RButton,D T0.01
% (ErrorLevel = 1) and (E:=2)
} Until E
if E = 1
{
sleep 400
goto rest_loop
}
returnTooltip надо будет на send заменить.
]]>2) При нажатии на контрол появилась непонятная задержка, примерно секунда до того, как действие контрол+клик ПКМ (а в данном случае наш цикл) будет применено.
]]>Global WhileRB := 0
OnExit, Exit
hHookKeybd := DllCall("SetWindowsHookEx", Int, WH_KEYBOARD_LL := 13
, Ptr, RegisterCallback("LowLevelKeyboardProc", "Fast")
, Ptr, DllCall("GetModuleHandle", UInt, 0, Ptr)
, UInt, 0, Ptr)
Return
Exit:
DllCall("UnhookWindowsHookEx", Ptr, hHookKeybd)
ExitApp
LowLevelKeyboardProc(nCode, wParam, lParam)
{
static vk
vk := format("vk{:x}", NumGet(lParam + 0, "UInt") )
SetTimer, EventHandling, -1
Return DllCall("CallNextHookEx", Ptr, 0, Int, nCode, Ptr, wParam, Ptr, lParam)
EventHandling:
if (vk = "vka2")
return
if (WhileRB=1)
if (vk ~= "^(vk51|vk57|vk45|vk41|vk53|vk44)$")
WhileRB := 2
Else
WhileRB := 0
return
}
#if (WhileRB=0)
*RButton::
rest_loop:
WhileRB := 1
While GetKeyState("RButton","p") and (WhileRB=1)
{
tooltip { RButton }
Send, { RButton }
Sleep, 15
}
KeyWait RButton
WhileRB := 0
return
#if (WhileRB=2)
~LButton::
sleep 400
Gosub rest_loop
KeyWait LButton
return
#ifПо поводу контрола: в контексте скрипта написанного Вами выше я пытался добавить его в список "клавиш исключений", которые не прерывали бы скрипт. что собственно у меня не вышло.
А по логике - выходит, что мы его просто не трогаем, он работает в обычном режиме и не прерывает скрипт.
Попробую объяснить работу приложения, возможно так будет проще.
Действие в приложении выполняется нажатием клавиш q-d и последующим нажатием на ЛКМ,
ПКМ - отвечает на "навигацию", положение курсора.
Условия таковы, что если я нажимаю на q-d, но потом жму на ПКМ для перемещения курсора, то при последующем нажатии на ЛКМ действие не будет произведено, так как ПКМ отменяет нажатия на q-d, и нужно заново нажимать на них и далее на ЛКМ.
И второе условие, двойное нажатие на любую из клавиш q-d вызывает другое действие.
(Последнее условие в работе скрипта не участвует, важно только что бы двойных нажатий на q-d скрипт не производил ни при каких условиях).
Мне нужно, что бы я мог держать зажатой правую клавишу, управляя положением курсора посредством цмкла повтора нажатий ПКМ, но при нажатии на q-d, этот цикл бы прекращался, и возобновлялся только после нажатия на ЛКМ или нового нажатия на ПКМ.
( И соответственно, если ни была нажата ни одна из клавиш q-d, то просто отжатие ПКМ привет к остановке цикла тоже )
Алгоритм таков: ( на примере клавиши 'q' )
Если ПКМ удерживается в нажатом состоянии (выполняется цикл повтора нажатий), то:
- Нажатие на 'q' вызывает сначала остановку этого цикла, а затем отправляет сама себя, далее идет ожидание:
а) либо ЛКМ, нажатие на которую приведет к действию в приложении и затем, через небольшой промежуток времени, например 400мс, возобновит повтор цикла нажатий ПКМ,
при условии, что ПКМ все еще находится в нажатом состоянии).
б) либо ПКМ, новое нажатие на которую возобновляет цикл, если он приостановлен. (само же нажатие q-d отменяется приложением, так что здесь все просто)
г) если после нажатия на q-d ПКМ была отпущена, то это ничего не меняет, цикл на уже находится в режиме паузы, а скрипт ожидает нажатия на ЛКМ или ПКМ.
Нужен ли какой нибудь лимит времени ожидания левой кнопки мыши?
Нет, лимит не нужен, ожидаем нажатие на ЛКМ или ПКМ.
Правая кнопка мыши должна быть зажата все это время?
Или же во время ожидания левой кнопки мыши правую можно отпустить?
Во время ожидания - ПКМ может быть как отпущена, так и все еще зажата (просто в случае, если она зажата, чисто физически можно будет нажать только ЛКМ, но это не имеет значения).
Вроде как все, тяжко совмещать процесс обучения, с процессом написания, сначала нужно продумать алгоритм, а потом пытаться его воспроизвести, но что бы его написать - нужно знать возможности ahk, как и что реализовать лучше.
Пока пробовал разобраться самостоятельно с коррекцией кода возник один вопрос, как сымитировать обычное нажатие на клавишу? Т.е. назначить клавишу хоткеем выполняющую тоже, что она бы выполняла на будучи им. (Нужно для того, к примеру, что бы добавить ей изменение какой-нибудь глобальной переменной, но при этом не теряя ее оригинальной функции).
]]>А вот если например во время цикла отпустить ctrl, то какое действие должно произойти? Полная остановка цикла?
Должно это как то повлиять на второй пункт?
2)
После нажатия клавиш q-d должно идти ожидание левой кнопки. После того как л.кнопка нажата скрипт должен повторно отправить ту клавишу которая вызвала ожидание л.кнопки, затем как клавиша от q-d отправлена ждать отжатие левой кнопки?
Или же пока не нажмется левая кнопка и будет нажиматься клавиши из белого списка, то после нажатия л.кнопки скрипт должен воспроизвести в том же порядке нажатые клавиши и подождать отжатие левой?
Нужен ли какой нибудь лимит времени ожидания левой кнопки мыши?
Правая кнопка мыши должна быть зажата все это время?
Или же во время ожидания левой кнопки мыши правую можно отпустить?
И связанный вопрос из певого пункта,второго подпункта. Если отжать ctrl то все просто должно отключится? Не чего не будет ждать все просто перейдет в стандартное положение?
1) Мне нужно, что бы повтор правой клавиши мыши работал при зажатом контроле(левом). Я пытался добавить его в список "клавиш исключений", но по непонятной мне причине скрипт не воспринимает его виртуальный код и все равно прерывает цикл.
2) И второе, посложнее. Касательно самого цикла повтора правой клавиши:
Как сделать, что бы при нажатии на q,w,e,a,s,d цикл бы приостанавливался, но при нажатии на левую кнопку мыши - возобновлялся. При том, что бы данные клавиши и левый клик отправляли бы сами себя, единожды за нажатие, без повтора при зажатии.
Если смотреть в контексте данной темы - этот вопрос выглядит глупо, ведь есть пример, по аналогии с которым можно добиться нужного результата, но нет, у меня не выходит, сколько бы я не пытался, за сим прошу помощи в данном вопросе.
]]>