vkArray := ["31", "32", "34", "35", "36", "43", "45", "46", "47", "51", "52", "54", "56", "58", "5A"]  ; vk-коды нужных клавиш
dalay := 50

for k, v in vkArray  {
   Hotkey, % "$vk" . v, handler, On
   Hotkey, % "$^vk" . v, handler, On
   Hotkey, % "$+vk" . v, handler, On
   Hotkey, % "$!vk" . v, handler, On
}
Return

handler:
   key := RegExReplace(A_ThisHotkey, "\$([\^+!])?(v.*)", "$1{$2}")
   While GetKeyState(SubStr(A_ThisHotkey, -3), "P")  {
      SendInput, % key
      Sleep, dalay
   }
   Return

for k, v in vkArray  {
   Hotkey, % "$vk" . v, handler, On
   Hotkey, % "$^vk" . v, handler, On
   Hotkey, % "$+vk" . v, handler, On
   Hotkey, % "$!vk" . v, handler, On
}
Return

#MaxHotkeysPerInterval 1000
SetBatchLines -1
SetKeyDelay -1
SetTimer t,1
Arr := []

Arr["$vk31"] :=  {Send:"{vk31}" , Time:50 }
Arr["$vk31"] :=  {Send:"{vk31}" , Time:50 }
Arr["$vk32"] :=  {Send:"{vk32}" , Time:50 }
Arr["$vk33"] :=  {Send:"{vk33}" , Time:50 }
Arr["$vk34"] :=  {Send:"{vk34}" , Time:50 }
Arr["$vk35"] :=  {Send:"{vk35}" , Time:50 }
Arr["$vk36"] :=  {Send:"{vk36}" , Time:50 }
Arr["$vk46"] :=  {Send:"{vk46}" , Time:50 }
Arr["$vk47"] :=  {Send:"{vk47}" , Time:50 }
Arr["$vk51"] :=  {Send:"{vk51}" , Time:50 }
Arr["$vk43"] :=  {Send:"{vk43}" , Time:50 }
Arr["$vk45"] :=  {Send:"{vk45}" , Time:50 }
Arr["$vk54"] :=  {Send:"{vk54}" , Time:50 }
Arr["$vk54"] :=  {Send:"{vk54}" , Time:50 }
Arr["$vk56"] :=  {Send:"{vk56}" , Time:50 }
Arr["$vk5A"] :=  {Send:"{vk5A}" , Time:50 }
Arr["$vk58"] :=  {Send:"{vk58}" , Time:50 }
Arr["$vk52"] :=  {Send:"{vk52}" , Time:50 }

for i, k in Arr
    Hotkey %i%,pressing,On
pressing:
return
t:
for i, k in Arr
    if GetKeyState((RegExMatch(i,"(vk..)",hk)+"") hk1,"p")
    and (A_TickCount > Arr[i].Timer) && (Arr[i].Timer := A_TickCount + k.Time)
        Send % k.Send
return

vk2D::
Suspend
Pause,,1
return

SetBatchLines, -1
delay := 50
vkArray := [delay, "31", "32", "34", "35", "36", "43", "45", "46", "47", "51", "52", "54", "56", "58", "5A"]  ; vk-коды нужных клавиш, не должно быть модификаторов

DllCall("SetWindowsHookEx"
   , Int, WH_KEYBOARD_LL := 13
   , Ptr, RegisterCallback("LowLevelKeyboardProc", "Fast", 3, ptr := Object(vkArray))
   , Ptr, DllCall("GetModuleHandle", UInt, 0, Ptr)
   , UInt, 0, Ptr)
ObjRelease(ptr)
Return

LowLevelKeyboardProc(nCode, wParam, lParam)
{
   static LLKHF_INJECTED := 0x10, keyArr := {}
      , oMsg := {0x100: "WM_KEYDOWN", 0x101: "WM_KEYUP"}
   
   msg := wParam   
   vk := NumGet(lParam + 0, "UInt")
   flags := NumGet(lParam + 8, "UInt")
   INJECTED := (flags & LLKHF_INJECTED) >> 4
   
   for k, v in Object(A_EventInfo)  {
      if (k = 1)  {
         delay := v
         continue
      }
      if ( vk = Format("{:u}", "0x" . v) && !INJECTED )  {
         if (oMsg[msg] = "WM_KEYUP")  {
            keyArr.Delete(v)
            handler := Func("Handler").Bind(v, false)
            SetTimer, % handler, -10
         }
         else if !keyArr.HasKey(v)  {
            keyArr[v] := true
            handler := Func("Handler").Bind(v, true, delay)
            SetTimer, % handler, -10
         }
         Return true
      }
   }
   Return DllCall("CallNextHookEx", Ptr, 0, Int, nCode, Ptr, wParam, Ptr, lParam)
}
   
Handler(vk, mode, delay := "")  {
   static timers := {}
   if mode  {
      timer := Func("Sender").Bind(vk)
      timers[vk] := timer
      Sender(vk)
      SetTimer, % timer, % delay
   }
   else  {
      timer := timers[vk]
      SetTimer, % timer, Delete
   }
}
      
Sender(vk)  {
   for k, v in { Alt: "!", Ctrl: "^", Shift: "+" }
      if GetKeyState(k, "P")
         modifier .= v
   
   SendPlay, % modifier . "{vk" vk "}"
}
   
Esc::ExitApp

vkArray := ["31", "32", "34", "35", "36", "43", "45", "46", "47", "51", "52", "54", "56", "58", "5A"]  ; vk-коды нужных клавиш
dalay := 50

for k, v in vkArray  {
   Hotkey, % "$vk" . v, handler, On
   Hotkey, % "$^vk" . v, handler, On
   Hotkey, % "$+vk" . v, handler, On
   Hotkey, % "$!vk" . v, handler, On
}
Return

handler:
   key := RegExReplace(A_ThisHotkey, "\$([\^+!])?(v.*)", "$1{$2}")
   While GetKeyState(SubStr(A_ThisHotkey, -3), "P")  {
      SendInput, % key
      Sleep, dalay
   }
   Return

vkArray := ["31", "32", "34", "35", "36", "43", "45", "46", "47", "51", "52", "54", "56", "58", "5A"]  ; vk-коды нужных клавиш
delay := 50

for k, v in vkArray
   Hotkey, % "*$vk" . v, handler, On
Return

handler:
   While GetKeyState(key := SubStr(A_ThisHotkey, -3), "P")  {
      SendInput, {%key%}
      Sleep, delay
   }
   Return