#UseHook
#SingleInstance force
Delay = 700      ; задержка

*1::
*2::
*3::
*4::
*5::
*6::
*7::
*8::
*9::
*0::
*-::
*=::
*\::
*`::
; и т. д.
   if GetKeyState("Shift", "P")
   {
      Send, % SubStr(A_ThisHotkey, 2)
      Return
   }

   if (A_PriorHotkey = A_ThisHotkey && A_TimeSincePriorHotkey < Delay)
   {
      mod := Mod(++i, 3)
      Send, {BackSpace}
      if A_ThisHotkey = *1
         SendRaw, % mod = 1 ? "!" : mod = 2 ? "'" : 1
      else if A_ThisHotkey = *2
         SendRaw, % mod = 1 ? """" : mod = 2 ? "@" : 2
      else if A_ThisHotkey = *3
         SendRaw, % mod = 1 ? "№" : mod = 2 ? "#"  : 3
      else if A_ThisHotkey = *4
         SendRaw, % mod = 1 ? "`;" : mod = 2 ? "$" : 4
      else if A_ThisHotkey = *5
         SendRaw, % mod = 1 ? "%" : mod = 2 ? "{" : 5
      else if A_ThisHotkey = *6
         SendRaw, % mod = 1 ? ":" : mod = 2 ? "^" : 6
      else if A_ThisHotkey = *7
         SendRaw, % mod = 1 ? "?" : mod = 2 ? "&" : 7
      else if A_ThisHotkey = *8
         SendRaw, % mod = 1 ? "*" : mod = 2 ? "}" : 8
      else if A_ThisHotkey = *9
         SendRaw, % mod = 1 ? "(" : mod = 2 ? "[" : 9
      else if A_ThisHotkey = *0
         SendRaw, % mod = 1 ? ")" : mod = 2 ? "]" : 0
      else if A_ThisHotkey = *-
         SendRaw, % mod = 1 ? "_" : mod = 2 ? "<" : "-"
      else if A_ThisHotkey = *=
         SendRaw, % mod = 1 ? "+" : mod = 2 ? ">" : "="
      else if A_ThisHotkey = *\
         SendRaw, % mod = 1 ? "|" : mod = 2 ? "/" : "\"
      else if A_ThisHotkey = *``
         SendRaw, % mod = 1 ? "~" : mod = 2 ? "ё" : "``"
      ; и т. д.
   }
   else
   {
      Send, % SubStr(A_ThisHotkey, 2)
      i = 0
   }
   Return

#UseHook
Delay = 500      ; задержка

*2::
*3::
*4::
; и т. д.
   if GetKeyState("Shift", "P")
   {
      Send, % SubStr(A_ThisHotkey, 2)
      Return
   }

   if (A_PriorHotkey = A_ThisHotkey && A_TimeSincePriorHotkey < Delay)
   {
      mod := Mod(++i, 3)
      Send, {BackSpace}
      if A_ThisHotkey = *2
         SendRaw, % mod = 1 ? "@" : mod = 2 ? """" : 2
      else if A_ThisHotkey = *3
         SendRaw, % mod = 1 ? "#" : mod = 2 ? "№"  : 3
      else if A_ThisHotkey = *4
         SendRaw, % mod = 1 ? "$" : mod = 2 ? "`;" : 4
      ; и т. д.
   }
   else
   {
      Send, % SubStr(A_ThisHotkey, 2)
      i = 0
   }
   Return

; Example #3: Detection of single, double, and triple-presses of a hotkey. This
; allows a hotkey to perform a different operation depending on how many times
; you press it:
#c::
if winc_presses > 0 ; SetTimer already started, so we log the keypress instead.
{
    winc_presses += 1
    return
}
; Otherwise, this is the first press of a new series. Set count to 1 and start
; the timer:
winc_presses = 1
SetTimer, KeyWinC, 600 ; Wait for more presses within a 400 millisecond window.
return

KeyWinC:
SetTimer, KeyWinC, off
if winc_presses = 1 ; The key was pressed once.
{
SendInput 1 
;   Run, c:\  ; Open a folder.
}
else if winc_presses = 2 ; The key was pressed twice.
{
SendInput {Backspace}2
;    Run, c:\windows  ; Open a different folder.
}
else if winc_presses > 2
{
SendInput {Backspace}3
;    MsgBox, Three or more clicks detected.
}
; Regardless of which action above was triggered, reset the count to
; prepare for the next series of presses:
winc_presses = 0
return