Серый форум — AHK: Задание условия на нажатие клавиши

Re: AHK: Задание условия на нажатие клавиши

2018-03-06T09:33:41Z

Директивы выделяются символом #.

Re: AHK: Задание условия на нажатие клавиши

2018-03-05T21:44:42Z

Malcev, какие параметры данного скрипта являются директивами?

Re: AHK: Задание условия на нажатие клавиши

2018-03-02T19:36:47Z

За компьютером буду нескоро. Можете попробовать вынести из функции переменную count в начало скрипта и обьявить ее глобальной. Ну и директивы тоже вынести.

Re: AHK: Задание условия на нажатие клавиши

2018-03-02T19:16:44Z

Malcev, он, по всей видимости, работает без учета нюансов, которые были описаны позже. Последний вариант невозможно заключить в ф-ию?

Re: AHK: Задание условия на нажатие клавиши

2018-03-02T19:11:27Z

Используйте за основу код из 60 поста.

Re: AHK: Задание условия на нажатие клавиши

2018-03-02T07:22:12Z

Malcev, хочу назначить мультинажатие на множество клавиш, дабы не копировать многократно основную массу кода.

Re: AHK: Задание условия на нажатие клавиши

2018-03-01T23:42:12Z

Не подскажу, так как не понимаю, что вы хотите добиться и чем вас не устраивает вариант без функции.

Re: AHK: Задание условия на нажатие клавиши

2018-03-01T21:02:19Z

Malcev, подскажите, пожалуйста, как добавить последний вариант в ф-ию? Ниже нерабочая попытка.

#SingleInstance Force

f2:: 
MultikeyReset("{vk4B}", "{vk44}+{5}+{9}+{3}", "{vk58}^+{vk41}")
return

MultikeyReset(arr1, arr2, arr3){
#InstallKeybdHook
#InstallMouseHook
   count := 0
arr:=[arr1, arr2, arr3]
If (A_PriorKey != A_ThisHotkey)
   count := 0
array := arr[Count := Count*((A_PriorHotkey = A_ThisHotkey))+1]
loop, parse, array, `,
{
   SendInput % A_LoopField
   sleep 200
}
if (count  = arr.Length())
{
   count := 0
   KeyWait % A_ThisHotkey
   return
}
}
return

Re: AHK: Задание условия на нажатие клавиши

2016-06-15T22:15:49Z

Malcev, спасибо, работает!

А зачем нужна эта строчка?

К сожалению, не знаю.

Re: AHK: Задание условия на нажатие клавиши

2016-06-07T20:27:08Z

#SingleInstance Force
#InstallKeybdHook
#InstallMouseHook
Count := 0
f1::
arr:=["1,1_1,1_2", "2,2_1", "3"]
If (A_PriorKey != A_ThisHotkey)
   count := 0
array := arr[Count := Count*((A_PriorHotkey = A_ThisHotkey))+1]
loop, parse, array, `,
{
   gosub % A_LoopField
   sleep 200
}
if (count  = arr.Length())
{
   count := 0
   KeyWait % A_ThisHotkey
   return
}
return

1:
ToolTip % a_thislabel
return
1_1:
ToolTip % a_thislabel
return
1_2:
ToolTip % a_thislabel
return
2:
ToolTip % a_thislabel
return
2_1:
ToolTip % a_thislabel
return
3:
ToolTip % a_thislabel
return

А зачем нужна эта строчка?

if (A_TimeSincePriorHotkey < 50) and (A_TimeSincePriorHotkey != -1) and (count = arr.Length())
   return

Re: AHK: Задание условия на нажатие клавиши

2016-06-07T18:34:52Z

Malcev, спасибо! Только при зажатии клавиши метки проверяются циклично. Необходимо остановится на последней, т.е. в данном случае, на метке "3".

Re: AHK: Задание условия на нажатие клавиши

2016-06-07T15:52:35Z

Если брать за основу код из 69 поста, то можно так:

#SingleInstance Force
#InstallKeybdHook
#InstallMouseHook
Count := 0
f1::
arr:=["1,1_1,1_2", "2,2_1", "3"]
if (A_TimeSincePriorHotkey < 50) and (A_TimeSincePriorHotkey != -1) and (count = arr.Length())
   return
If (A_PriorKey != A_ThisHotkey) or (count = arr.Length())
   count := 0
array := arr[Count := Count*((A_PriorHotkey = A_ThisHotkey))+1]
loop, parse, array, `,
{
   gosub % A_LoopField
   sleep 500
}
return

1:
ToolTip % a_thislabel
return
1_1:
ToolTip % a_thislabel
return
1_2:
ToolTip % a_thislabel
return
2:
ToolTip % a_thislabel
return
2_1:
ToolTip % a_thislabel
return
3:
ToolTip % a_thislabel
return

Re: AHK: Задание условия на нажатие клавиши

2016-06-07T15:22:46Z

Malcev, в приведенном варианте каждое нажатие горячей клавиши переходит к определенной (одной) метке. Необходима возможность устанавливать неограниченное кол-во меток на каждое нажатие. При этом, по-прежнему, при зажатии горячей клавиши, сценарий должен пройти поочередно все метки и остановиться на последней.

Gosub не подходит, т.к. в моем случае будет множество дублирований практически одного и того же. Т.к. для каждой мультизадачной горячей клавиши будет необходимо создавать уникальные метки. Хотелось бы, чтобы метки универсально использовались для разных горячих клавиш.

Re: AHK: Задание условия на нажатие клавиши

2016-06-07T14:47:46Z

Мне лично ничего не понятно.
Почему не подходит GoSub?

Re: AHK: Задание условия на нажатие клавиши

2016-06-06T19:21:39Z

Подскажите, пожалуйста, как, например, ко второму нажатию горячей клавиши добавить выполнение метки "4", следом за меткой "2"?

#SingleInstance Force
#InstallKeybdHook
#InstallMouseHook
1::
arr:=["1", "2", "3"]
if (A_TimeSincePriorHotkey < 50) and (A_TimeSincePriorHotkey != -1) and (count = arr.Length())
   return
If (A_PriorKey != A_ThisHotkey) or (count = arr.Length())
   count := 0
gosub % arr[Count := Count*((A_PriorHotkey = A_ThisHotkey))+1]
return

1:
2:
3:
ToolTip % a_thislabel
return

4:
MsgBox % a_thislabel
return

Такой вариант не подходит:

2:
gosub 4
ToolTip % a_thislabel
return

+ Для чего это нужно:

В следующем примере в результате зажатия горячей клавиши, как и задумывалось, выполнение сценария останавливается на последней метке:

1::
arr:= ["1", "2", "3"]
if (A_TimeSincePriorHotkey < 50) and (A_TimeSincePriorHotkey != -1) and (count = arr.Length())
   return
If (A_PriorKey != A_ThisHotkey) or (count = arr.Length())
   count := 0
gosub % arr[Count := Count*((A_PriorHotkey = A_ThisHotkey))+1]
return

1:
2:
3:
ToolTip % a_thislabel
return

А так в результате зажатия метки выполняются по кругу (где метка "Analyze" должна выполняться на ряду с меткой "1"):

1::
arr:= ["1", "2", "3"]
if (A_TimeSincePriorHotkey < 50) and (A_TimeSincePriorHotkey != -1) and (count = arr.Length())
   return
If (A_PriorKey != A_ThisHotkey) or (count = arr.Length())
   count := 0
gosub % arr[Count := Count*((A_PriorHotkey = A_ThisHotkey))+1]
gosub Analyze
return

1:
2:
3:
ToolTip % a_thislabel
return

Analyze:
MouseGetPos, FXClipX, FXClipY
ImageSearch, AnalyzeX, AnalyzeY, 0, 0, A_ScreenWidth, A_ScreenHeight, %A_ScriptDir%\Analyze.png
If ErrorLevel = 0
	MouseClick, , %AnalyzeX%, %AnalyzeY%, 1 ,0.5
MouseMove, %FXClipX%, %FXClipY%, 0.5
return