^!vk45::
var = Ctrl+Alt+E
MsgBox % var
return

#SingleInstance, Force

Global aCommand_Title := "Открыть блокнот"



Gui, Font, cFFFFFF s10 bold, Arial
Gui, Add, Text, x10  y25 w70 h20, Клавиша
Gui, Add, Text, x105 y25 w280 h20, Что делает


	Gui, Add, Hotkey, x5   y25 w90  h20 vHot1, % 1
	Gui, Add, Edit,   x105 y25 w440 h20 vWhatToDo1, % aCommand_Title
	GuiControl, Disable, WhatToDo1


Gui, Add, Button, x256 y390 w80 h20 gAccept, Применить
Gui, Show, h420 w624 Center, AutoHotKey
Return



F5::Reload

Accept:
	Hotkey, % Hot1, Off, UseErrorLevel
	HotKey("Off")

	GuiControlGet, Hot1
	aHotkey1 := Hot1
	Hotkey, % Hot1, HotKeyy, On, UseErrorLevel
	HotKey("On")
return

HotKeyy:
	If(A_ThisHotkey = aHotkey1)
		HotKey(1)
Return


HotKey(aIndex)
{
	If(aIndex = 1) ;Открыть блокнот
		Run, calc.exe
}


GuiClose:
ExitApp

	CoordMode, ToolTip
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, 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 oMsg := {0x100: "WM_KEYDOWN", 0x101: "WM_KEYUP", 0x104: "WM_SYSKEYDOWN", 0x105: "WM_SYSKEYUP"}
        , oMembers := ["vk", "sc", "flags", "time"]
        , oFlagOffsets := {LLKHF_EXTENDED: 0, LLKHF_LOWER_IL_INJECTED: 1, LLKHF_INJECTED: 4, LLKHF_ALTDOWN: 5, LLKHF_UP: 7}

   while (oMem[1] != "")   {
      key := oMem.RemoveAt(1)
      wp := key[1], lp := key[2]

      msg := wp
      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
      
; текстовые значения в oMembers и названия ключей в oFlagOffsets являются
; названиями переменных, в которых теперь находятся соответствующие значения:
      ToolTip % "Message = "   . oMsg[msg]           . "`n"
              . "vkCode = "    . Format("{:#x}", vk) . "`n"
              . "scCode = "    . Format("{:#x}", sc) . "`n"
              . "pressed = "   . !LLKHF_UP           . "`n"
              . "Time = "      . time                . "`n"
              . "Injected = "  . LLKHF_INJECTED      . "`n"
              . "Lower_IL_Injected = " . LLKHF_LOWER_IL_INJECTED, 0, 0
   } 
}