#SingleInstance Force
#HotkeyInterval 0
#KeyHistory 0
#UseHook
#NoEnv
SetBatchLines -1
ListLines Off 
AutoTrim, Off
CoordMode, ToolTip	;	, Window

Sleep := 700		;	Задержка исчезновения после отпускания клавиши
Del := " > "		;	Разделитель между именами клавиш
Mouse := 1			;	Определять нажатия мыши
PrefixHotkey = *~	;	Префикс горячей клавиши для команды Hotkey
BanKeys := ""		;	Список запрещённых клавиш
NumPadEqual := 0	;	Если равно нулю, выводить имена Numpad клавиш в зависимости от состояния NumLock

  ;	---------

Str := Del, oArr := {}
LenPrefix := StrLen(PrefixHotkey) + 1
NotUp:= "vk9C|vk9D|vk9E|vk9F" 
Extended := "scF|sc7c|sc2B|sc56"
NotVk := "sc11C|sc147|sc148|sc149|sc14B|sc14D|sc14F|sc150|sc151|sc152|sc153"
ScNum := "sc53|sc52|sc4F|sc50|sc51|sc4B|sc4D|sc47|sc48|sc49|sc4C|sc59"
oScToName := {sc53:"NumpadDot",sc52:"Numpad0",sc4F:"Numpad1",sc50:"Numpad2",sc51:"Numpad3",sc4B:"Numpad4"
				, sc4D:"Numpad6",sc47:"Numpad7",sc48:"Numpad8",sc49:"Numpad9",sc4C:"Numpad5",sc59:"Numpad5"}
If !Mouse
	BanKeys .= "|vk1|vk2|vk4|vk5|vk6|vk9C|vk9D|vk9E|vk9F"

Loop % 0xFF
{
	Key := Format("vk{:x}", A_Index)
	if InStr("|" BanKeys "|", "|" Key "|") || InStr("|" NotUp "|", "|" Key "|") 
		Continue
	Try Hotkey, % PrefixHotkey . Key . " Up", HotkeysUp, On
	Try Hotkey, % PrefixHotkey . Key, Hotkeys, On
}
Loop, Parse, % Extended "|" NotVk "|" ScNum, |
{
	if InStr("|" BanKeys "|", "|" A_LoopField "|") || InStr("|" NotUp "|", "|" A_LoopField "|")
		Continue
	Try Hotkey, % PrefixHotkey . A_LoopField . " Up", HotkeysUp, On
	Try Hotkey, % PrefixHotkey . A_LoopField, Hotkeys, On
}
Loop, Parse, % NotUp, |
{
	if InStr("|" BanKeys "|", "|" A_LoopField "|")
		Continue
	Try Hotkey, % PrefixHotkey . A_LoopField, HotkeysNotUp, On  
}
Return

Esc::ExitApp

HotkeysNotUp:
	Critical
	KeyName := GetKeyName(SubStr(A_ThisHotkey, LenPrefix))
	Str .= KeyName . Del
	ToolTip % Str, 5, 5, 2
	funcobj := Func("KeyDelete").Bind(KeyName)
	SetTimer, % funcobj, -%Sleep% 
	Return

Hotkeys:
	If (oArr[A_ThisHotkey] != "")
		Return
	ThisHotkey := SubStr(A_ThisHotkey, LenPrefix)
	If !NumPadEqual && oScToName[ThisHotkey] && GetKeyState("Numlock", "T")
		KeyName := oScToName[ThisHotkey]
	Else
		KeyName := GetKeyName(ThisHotkey)
	Str .= (oArr[A_ThisHotkey] := KeyName) . Del
	ToolTip % Str, 5, 5, 2
	Return

HotkeysUp:
	Critical
	funcobj := Func("KeyDelete").Bind(oArr.Delete(SubStr(A_ThisHotkey, 1, -3)))
	SetTimer, % funcobj, -%Sleep% 
	Return 
	
KeyDelete(name) {
	Global Str, Del
	Str := StrReplace(Str, Del name Del, Del, , 1)
	ToolTip % Str, 5, 5, 2 
	If (Str = Del)
		ToolTip, , , , 2 
}

#SingleInstance Force
#NoEnv
ListLines Off
SetBatchLines -1
AutoTrim, Off
CoordMode, ToolTip

Global Str := " > "
oArr := {}
Sleep := 500

#If !oArr[A_ThisHotkey]
~1::
~2::
~3::
~4::
	name := SubStr(A_ThisHotkey, 2)
	oArr[A_ThisHotkey] := 1
	Str .= name " > "
	ToolTip % Str, 5, 5, 2
	Return
#If

~1 Up::
~2 Up::
~3 Up::
~4 Up:: 
	name := SubStr(A_ThisHotkey, 1, -3)
	oArr[name] := 0   
	funcobj := Func("KeyDelete").Bind(SubStr(name, 2))
	SetTimer, % funcobj, -%Sleep% 
	Return  

KeyDelete(name) { 
	Str := StrReplace(Str, " > " name " > ", " > ", , 1)
	ToolTip % Str, 5, 5, 2 
	If (Str = " > ")
		ToolTip, , , , 2 
}

#SingleInstance Force
#NoEnv
ListLines Off
SetBatchLines -1
AutoTrim, Off
CoordMode, ToolTip

DllCall("PostMessage", "Ptr", A_ScriptHWND, "UInt", 0x50, "UInt", 0, "UInt", 0x409) ; eng layout

hHookKeybd := DllCall("SetWindowsHookEx"
	, Int, WH_KEYBOARD_LL := 13
	, Ptr, RegisterCallback("LowLevelKeyboardProc", "Fast")
	, Ptr, DllCall("GetModuleHandle", UInt, 0, Ptr)
	, UInt, 0, Ptr)
OnExit(Func("Exit").Bind(hHookKeybd))
Return

Esc::ExitApp

Exit(hHookKeybd)  {
	DllCall("UnhookWindowsHookEx", Ptr, hHookKeybd)
}
   
LowLevelKeyboardProc(nCode, wParam, lParam)  {
	static oMem := [], lpData, size := VarSetCapacity(lpData, 16 + A_PtrSize*2, 0)

	DllCall("RtlMoveMemory", Ptr, &lpData, Ptr, lParam, Ptr, size)
	oMem.Push([wParam, &lpData])
	timer := Func("EventHandling").Bind(oMem)  ; во избежание фризов клавиатуры обработка событий должна
	SetTimer, % timer, -10                     ; происходить обязательно по таймеру, а не в теле этой функции
	Return DllCall("CallNextHookEx", Ptr, 0, Int, nCode, Ptr, wParam, Ptr, lParam)
}

EventHandling(oMem)  {
	static oMembers := ["vk", "sc", "flags"]
		, oFlagOffsets := {LLKHF_EXTENDED: 0, LLKHF_UP: 7}
		, oArr := {}, Str := " > ", Sleep := 500
		
	if !isobject(oMem)
		goto KeyDelete
		
	while (oMem[1] != "")   {
		key := oMem.RemoveAt(1)
		lp := key[2]
		for k, v in oMembers
			%v% := NumGet(lp + (k - 1)*4, "UInt")
		for k, v in oFlagOffsets
			%k% := (flags >> v) & 1  
		sc |= LLKHF_EXTENDED << 8
		vkCode := Format("vk{:X}", vk) 
		scCode := Format("sc{:X}", sc)
		If !LLKHF_UP && (oArr[vkCode . scCode] = "")
		{
			Str .= (oArr[vkCode . scCode] := GetKeyName(vkCode . scCode)) " > "
			SetTimer, KeyState, -1
		}
		ToolTip % Str, 5, 5, 2
	}
	Return
	
	KeyState:  
		If !oArr.Count()
		{
			SetTimer, KeyState, Off
			Return
		}
		For key, name in oArr
		{
			If GetKeyState(name, "P")
				Continue
			oArr.Delete(key)
			funcobj := Func("EventHandling").Bind(name)
			SetTimer, % funcobj, -%Sleep%
		}
		SetTimer, KeyState, -1 
		Return  
		
	KeyDelete: 
		Str := StrReplace(Str, " > " oMem " > ", " > ", , 1)
		ToolTip % Str, 5, 5, 2 
		If (Str = " > ")
			ToolTip, , , , 2 
		Return
}