window := "ahk_class Notepad"
toggleKey := "F1"

toggle := []

OnExit(Func("KeyboardHook").Bind(false))
handler := Func("ToggleKeyboardBlock").Bind(toggle)
Hotkey, % "$" . toggleKey, % handler, On

Loop {
   WinWaitActive, % window
   ( !toggle[1] && KeyboardHook(true) )
   WinWaitNotActive, % window
   ( !toggle[1] && KeyboardHook(false) )
}
Return

ToggleKeyboardBlock(toggle) {
   global window
   toggle[1] := !toggle[1]
   SoundBeep toggle[1] ? 900 : 600
   if WinActive(window)
      KeyboardHook( toggle[1] ? false : true )
}
   
KeyboardHook(set) {
   static hHook
   if !set
      (hHook && DllCall("UnhookWindowsHookEx", Ptr, hHook) && hHook := "")
   else
      hHook := DllCall("SetWindowsHookEx", Int, WH_KEYBOARD_LL := 13
                                         , Ptr, RegisterCallback("LowLevelKeyboardProc", "Fast")
                                         , Ptr, DllCall("GetModuleHandle", UInt, 0, Ptr)
                                         , UInt, 0, Ptr)
}

LowLevelKeyboardProc(nCode, wParam, lParam)
{
   global toggleKey
   static vkToggle
   ( !vkToggle && vkToggle := GetKeyVK(toggleKey) )
   vk := NumGet(lParam + 0, "UInt")
   Return vk != vkToggle ? 1 : DllCall("CallNextHookEx", Ptr, 0, Int, nCode, Ptr, wParam, Ptr, lParam)
}

window := "ahk_class Notepad"

OnExit(Func("KeyboardHook").Bind(false))

Loop {
   WinWaitActive, % window
   KeyboardHook(true)
   WinWaitNotActive, % window
   KeyboardHook(false)
}
   
KeyboardHook(set) {
   static hHook
   if !set
      (hHook && DllCall("UnhookWindowsHookEx", Ptr, hHook) && hHook := "")
   else
      hHook := DllCall("SetWindowsHookEx", Int, WH_KEYBOARD_LL := 13
                                         , Ptr, RegisterCallback("LowLevelKeyboardProc", "Fast")
                                         , Ptr, DllCall("GetModuleHandle", UInt, 0, Ptr)
                                         , UInt, 0, Ptr)
}

LowLevelKeyboardProc(nCode, wParam, lParam)
{
   Return 1
}

#If WinActive("ahk_class Notepad")
F1:: KeyBlockOn := !KeyBlockOn
#If WinActive("ahk_class Notepad") and KeyBlockOn
*q::
*w::
*e::
*r::
*t::
*y::
; добавить по вкусу
	Return

OnExit, Exit
hHookMouse := DllCall("SetWindowsHookEx"
   , Int, WH_MOUSE_LL := 14
   , Ptr, RegisterCallback("LowLevelMouseProc", "Fast")
   , Ptr, DllCall("GetModuleHandle", UInt, 0, Ptr)
   , UInt, 0, Ptr)
   
hHookKeybd := DllCall("SetWindowsHookEx"
   , Int, WH_KEYBOARD_LL := 13
   , Ptr, RegisterCallback("LowLevelKeyboardProc", "Fast")
   , Ptr, DllCall("GetModuleHandle", UInt, 0, Ptr)
   , UInt, 0, Ptr)
   
Sleep 5000
DllCall("UnhookWindowsHookEx", Ptr, hHookMouse), hHookMouse := ""
DllCall("UnhookWindowsHookEx", Ptr, hHookKeybd), hHookKeybd := ""
Return

Exit:
   (hHookMouse && DllCall("UnhookWindowsHookEx", Ptr, hHookMouse))
   (hHookKeybd && DllCall("UnhookWindowsHookEx", Ptr, hHookKeybd))
   ExitApp

LowLevelMouseProc(nCode, wParam, lParam)
{
   Return 1
}

LowLevelKeyboardProc(nCode, wParam, lParam)
{
   Return 1
}