AHK: Скрипт от ложных нажатий клавиатуры

delay := 200

Loop 249 {
   key := Format("*vk{:X}", A_Index + 6)
   Hotkey, If, TimeTest(delay)
   Hotkey, % key, Stop, On
}

Stop() {
}

TimeTest(delay) {
   static prevKey, prevTime
   time := A_TickCount
   if (A_ThisHotkey = prevKey && (time - prevTime) < delay)
      stop := true
   prevKey := A_ThisHotkey, prevTime := time
   Return stop
}

#If TimeTest(delay)

!c:: MsgBox, % A_ThisHotkey

Hotkey, !c, Label, On
Return

Label:
   MsgBox, % A_ThisHotkey
   Return

#If WinActive("ahk_class Notepad")
!c:: MsgBox, % A_ThisHotkey

Hotkey, If, WinActive("ahk_class Notepad")
Hotkey, !c, Label, On
Return

Label:
   MsgBox, % A_ThisHotkey
   Return
   
#If WinActive("ahk_class Notepad")

delay := 200

Hotkey, If, TimeTest(delay) ; создаём контекст для всех созданных ниже горячих клавиш
                            ; контекст заключается в том, что клавиши будут срабатывать
                            ; только если функция TimeTest() вернёт true
Loop 249 { ; создаём горячие клавиши на все возможные виртуальные коды, т. е. на всю клавиатуру
   key := Format("*vk{:X}", A_Index + 6)
   Hotkey, % key, Stop, On ; если выполнится вышеуказанный контекст
}                          ; горячая клавиша выполит свою метку Stop и больше ничего не будет делать

Stop() { ; метка Stop, которая ничего не делает, т. е. просто блокирует клавишу
}

TimeTest(delay) { ; функция, проверяющая, прошёл ли таймаут с прошлого нажатия
   static prevKey, prevTime
   time := A_TickCount
   if (A_ThisHotkey = prevKey && (time - prevTime) < delay)
      stop := true ; если таймаут не прошёл, stop будет равно true, если прошёл — пустому значению
   prevKey := A_ThisHotkey, prevTime := time
   Return stop
}

#If TimeTest(delay) ; запись контекта в обычной форме (требование синтаксиса)

delay := 300 ; промежуток времени c предыдущего нажатия, в котором следующее нажатие считается повторным
nFalseRepeat := 2 ; кол-во повторных нажатий после первого, которые будут отфильтрованы
for k in concatenateAssocArrays(range(6, 158), range(160, 190)) { ; диапазоны vk-кодов клавиатуры
	Hotkey If, isFalsePressRepeat()
	Hotkey % Format("*vk{:X}", k), Block
}
Return

#If isFalsePressRepeat()
isFalsePressRepeat() {
	global nFalseRepeat, delay
	static pressCount := 0, _PriorHotkey, _TimeSincePriorHotkey := A_TickCount
	if ((_PriorHotkey = A_ThisHotkey) && (A_TickCount-_TimeSincePriorHotkey < delay))
		block := inRange(1, ++pressCount, nFalseRepeat) ? true : false
	else
		pressCount := 0
	_PriorHotkey := A_ThisHotkey, _TimeSincePriorHotkey := A_TickCount
	Return block
}

Block() {
}

inRange(rangeLow, x, rangeHigh) {
	Return (x>=rangeLow && x<=rangeHigh)
}

concatenateAssocArrays(arrs*) {
	sumArr := []
	for index, arr in arrs
		for k, v in arr
			sumArr.InsertAt(k, v)
	Return sumArr
}

range(start, stop:="", step:=1) {
	static range := { _NewEnum: Func("_RangeNewEnum") }
	if !step
		throw "range(): Parameter 'step' must not be 0 or blank"
	if (stop == "")
		stop := start, start := 0
	; Formula: r[i] := start + step*i ; r = range object, i = 0-based index
	; For a postive 'step', the constraints are i >= 0 and r[i] < stop
	; For a negative 'step', the constraints are i >= 0 and r[i] > stop
	; No result is returned if r[0] does not meet the value constraint
	if (step > 0 ? start < stop : start > stop) ;// start == start + step*0
		return { base: range, start: start, stop: stop, step: step }
}
_RangeNewEnum(r) {
	static enum := { "Next": Func("_RangeEnumNext") }
	return { base: enum, r: r, i: 0 }
}
_RangeEnumNext(enum, ByRef k, ByRef v:="") {
	stop := enum.r.stop, step := enum.r.step
	, k := enum.r.start + step*enum.i
	if (ret := step > 0 ? k < stop : k > stop)
		enum.i += 1
	return ret
}