;Hotkey("shift LWin", "msg", "Hello, ", "World!")
;Hotkey("lctrl", "msg", "Hello, ", "World!")
;Hotkey("F1", "msg", "Hello, ", "World!")
;Hotkey("~ Ctrl + C", "msg", "Hello, ", "World!")
;Hotkey("~^vk43", "msg", "Hello, ", "World!")  ; Ctrl + C
Hotkey("shift lwin", "msg", "Hello, ", "World!")

msg(args*) {
   MsgBox % args[1] args[2]
}

Hotkey(hkNoAhk, fun, args*)  {
   static p1 := "(^[*~$!^+#<> ]+)?"
        , p2 := "(?:(l|r)?(ctrl|alt|shift|win)(?!$))?"
        , prefixes := { alt:   "!"
                      , shift: "+"
                      , ctrl:  "^"
                      , win:   "#" 
                      , l:     "<"
                      , r:     ">" }
   Loop {
      RegExMatch(hkNoAhk, "iO)" . p1 . p2, match, match[0] ? match.Pos[0] + match.Len[0] : 1)
      prefix .= StrReplace(match[1], " ") . prefixes[match[2]] . prefixes[match[3]]
   } until !match[0]

   RegExMatch(hkNoAhk, p1 . "(.*[ +])?(.+)", key)
   sc := Format("sc{:x}", GetKeySC(key3))
   funcObj := Func(fun).Bind(args*)
   Hotkey, % prefix . sc, % funcObj
}

Hotkey("lctrl", "msg", "Hello, ", "World!")
; Hotkey("F1", "msg", "Hello, ", "World!")
; Hotkey("~ Ctrl + C", "msg", "Hello, ", "World!")
; Hotkey("~^vk43", "msg", "Hello, ", "World!")  ; Ctrl + C

msg(args*) {
   MsgBox % args[1] args[2]
}

Hotkey(hkNoAhk, fun, args*)  {
   static patt1 := "^[*~$!^+#<>]+"
      , patt2 := "(l|r)?(ctrl|alt|shift|win)"
      , prefixes := { alt:   "!"
                    , shift: "+"
                    , ctrl:  "^"
                    , win:   "#" }
                      
   RegExMatch(hkNoAhk, patt1, ahkPrefixes)
   hkNoAhk := RegExReplace(hkNoAhk, patt1)
   
   if !RegExMatch(hkNoAhk, "i)^" . patt2 . "$", modifiedKey)  {
      start := -2                 
      while start := RegExMatch(hkNoAhk, "i)" . patt2 . "(?!$)", match, start += 3)
         prefix .= (match1 = "r" ? ">" : match1  = "l" ? "<" : "") . prefixes[match2]
      
      RegExMatch(hkNoAhk, "(.*[ +])?(.+)", key)
      modifiedKey := key2
   }
   sc := Format("sc{:x}", GetKeySC(modifiedKey))
   funcObj := Func(fun).Bind(args*)
   Hotkey, % ahkPrefixes . prefix . sc, % funcObj
}

myHK = lctrl + win + z
Hotkey(myHK, "msg", "Hy")
Hotkey("Alt Win Z", "msg", "Hello, ", "World!")
Hotkey("F1", "msg", "Hello, ", "World!")
Return

msg(args*) {
   MsgBox % args[1] args[2]
}

Hotkey(hkNoAhk, fun, args*)  {
   static prefixes := { alt:   "!"
                      , shift: "+"
                      , ctrl:  "^"
                      , win:   "#" }
   start := -2                 
   while start := RegExMatch(hkNoAhk, "i)(l|r)?(ctrl|alt|shift|win)", match, start += 3)
      prefix .= (match1 = "r" ? ">" : match1  = "l" ? "<" : "") . prefixes[match2]
   
   RegExMatch(hkNoAhk, "(.*[ +])?(.+)", key)
   sc := Format("sc{:x}", GetKeySC(key2))
   funcObj := Func(fun).Bind(args*)
   Hotkey, % prefix . sc, % funcObj
}

myHK = lctrl + win + z
Hotkey(myHK, "msg", "Hy")
Hotkey("Alt Win Z", "msg", "Hy", "world")
Return

msg(message, message2:="") {
	MsgBox % message " " message2
}

Hotkey(hkNoAhkFormat, fun, arg*) {
	Static funs := {}, args := {}
	if (hkNoAhkFormat="")
		Return
	hk:=StrToHK(hkNoAhkFormat)
	funs[hk] := Func(fun), args[hk] := arg
	Hotkey, % hk, Hotkey_Handle
	Return
	Hotkey_Handle:
		funs[A_ThisHotkey].(args[A_ThisHotkey]*)
		Return
}
StrToHK(Str) {
	Static LRPrefix := [["<^","LCtrl"],[">^","RCtrl"],["<!","LAlt"],[">!","RAlt"]
	,["<+","LShift"],[">+","RShift"],["<#","LWin"],[">#","RWin"]]
	, Prefix := [["^","Ctrl"],["!","Alt"],["+","Shift"],["#","Win"]]
	, EngSym := {"vkBB":"=","vkBC":",","vkBD":"-","vkBE":".","vkBF":"/","vkC0":"``","vkBA":"`;","vkDB":"[","vkDC":"\","vkDD":"]","vkDE":"'","vk41":"A","vk42":"B","vk43":"C","vk44":"D","vk45":"E","vk46":"F","vk47":"G","vk48":"H","vk49":"I","vk4A":"J","vk4B":"K","vk4C":"L","vk4D":"M","vk4E":"N","vk4F":"O","vk50":"P","vk51":"Q","vk52":"R","vk53":"S","vk54":"T","vk55":"U","vk56":"V","vk57":"W","vk58":"X","vk59":"Y","vk5A":"Z"}
	RegExMatch(Str, "i)(?<=\+|\s)[A-z=`;'\\,\./-]$", buttonLetter)
	StringReplace, Str, Str, +, @, All
	StringReplace, Str, Str, %A_Space%, @, All
	Loop % LRPrefix.MaxIndex()
		Str := RegExReplace(Str, LRPrefix[A_Index][2] "(?!$)", LRPrefix[A_Index][1])
	Loop % Prefix.MaxIndex()
		Str := RegExReplace(Str, Prefix[A_Index][2] "(?!$)", Prefix[A_Index][1])
	StringReplace, Str, Str, @, , All
	For key, value in EngSym
		If (value = buttonLetter)
			Str := RegExReplace(Str, "i)" value "$", key,, 1)
	Return Str
}

#SingleInstance Force

EngSym := {"vkBB":"=","vkBC":",","vkBD":"-","vkBE":".","vkBF":"/","vkC0":"``","vkBA":"`;"
		,"vkDB":"[","vkDC":"\","vkDD":"]","vkDE":"'","vk41":"A","vk42":"B","vk43":"C"
		,"vk44":"D","vk45":"E","vk46":"F","vk47":"G","vk48":"H","vk49":"I","vk4A":"J"
		,"vk4B":"K","vk4C":"L","vk4D":"M","vk4E":"N","vk4F":"O","vk50":"P","vk51":"Q"
		,"vk52":"R","vk53":"S","vk54":"T","vk55":"U","vk56":"V","vk57":"W","vk58":"X"
		,"vk59":"Y","vk5A":"Z"}

#IF Func()
#IF
Hotkey, IF, Func()
For K, V In EngSym 
	Hotkey, Esc & %K%, InputVK
Hotkey, IF
Return

InputVK:
	Key := SubStr(A_ThisHotkey, InStr(A_ThisHotkey, "&") + 2)
    SendInput, % "{Raw}" (GetKeyState("Shift", "P") ? "{" Key "}" : Key) . "   `; """ EngSym[Key] """"
	SendInput {Left 8}
    KeyWait, % Key
    Return
	
Func() {
	If (WinActive("ahk_class PX_WINDOW_CLASS") || WinActive("AHK_class Notepad++") || WinActive("ahk_class SciTEWindow") || WinActive("AHK_class Notepad"))
		Return 1
}

#If (WinActive("ahk_class PX_WINDOW_CLASS") || WinActive("AHK_class Notepad++") || WinActive("ahk_class SciTEWindow") || WinActive("AHK_class Notepad")) && GetKeyState("Esc", "P")
	vk51::Send vk51{End}{space}`;{vk51}{Left 3}
	vk57::Send vk57{End}{space}`;{vk57}{Left 3}
	vk45::Send vk45{End}{space}`;{vk45}{Left 3}
	vk52::Send vk52{End}{space}`;{vk52}{Left 3}
	vk54::Send vk54{End}{space}`;{vk54}{Left 3}
	vk59::Send vk59{End}{space}`;{vk59}{Left 3}
	vk55::Send vk55{End}{space}`;{vk55}{Left 3}
	vk49::Send vk49{End}{space}`;{vk49}{Left 3}
	vk4f::Send vk4f{End}{space}`;{vk4f}{Left 3}
	vk50::Send vk50{End}{space}`;{vk50}{Left 3}
	vkdb::Send vkdb{End}{space}`;{vkdb}{Left 3}
	vkdd::Send vkdd{End}{space}`;{vkdd}{Left 3}
	vk41::Send vk41{End}{space}`;{vk41}{Left 3}
	vk53::Send vk53{End}{space}`;{vk53}{Left 3}
	vk44::Send vk44{End}{space}`;{vk44}{Left 3}
	vk46::Send vk46{End}{space}`;{vk46}{Left 3}
	vk47::Send vk47{End}{space}`;{vk47}{Left 3}
	vk48::Send vk48{End}{space}`;{vk48}{Left 3}
	vk4a::Send vk4a{End}{space}`;{vk4a}{Left 3}
	vk4b::Send vk4b{End}{space}`;{vk4b}{Left 3}
	vk4c::Send vk4c{End}{space}`;{vk4c}{Left 3}
	vkba::Send vkba{End}{space}`;{vkba}{Left 3}
	vkde::Send vkde{End}{space}`;{vkde}{Left 3}
	vkdc::Send vkdc{End}{space}`;{vkdc}{Left 3}
	vk5a::Send vk5a{End}{space}`;{vk5a}{Left 3}
	vk58::Send vk58{End}{space}`;{vk58}{Left 3}
	vk43::Send vk43{End}{space}`;{vk43}{Left 3}
	vk56::Send vk56{End}{space}`;{vk56}{Left 3}
	vk42::Send vk42{End}{space}`;{vk42}{Left 3}
	vk4e::Send vk4e{End}{space}`;{vk4e}{Left 3}
	vk4d::Send vk4d{End}{space}`;{vk4d}{Left 3}
	vkbc::Send vkbc{End}{space}`;{vkbc}{Left 3}
	vkbe::Send vkbe{End}{space}`;{vkbe}{Left 3}
	sc35::Send vkbf{End}{space}`;{vkbf}{Left 3}
	sc29::Send sc29{End}{space}`;{sc29}{Left 3} ; Тут vk не справился, поэтому sc
	#If

Clipboard =
...
ClipWait, 1

#If WinActive("ahk_class Notepad++")
:*:`nvkA::`n`; A`nvk41
:*:vkA::vk41 `; A{Left 4}
:*:`nvkB::`n`; B`nvk42
:*:vkB::vk42 `; B{Left 4}
:*:`nvkC::`n`; C`nvk43
:*:vkC::vk43 `; C{Left 4}
:*:`nvkD::`n`; D`nvk44
:*:vkD::vk44 `; D{Left 4}
:*:`nvkE::`n`; E`nvk45
:*:vkE::vk45 `; E{Left 4}
:*:`nvkF::`n`; F`nvk46
:*:vkF::vk46 `; F{Left 4}
:*:`nvkG::`n`; G`nvk47
:*:vkG::vk47 `; G{Left 4}
:*:`nvkH::`n`; H`nvk48
:*:vkH::vk48 `; H{Left 4}
:*:`nvkI::`n`; I`nvk49
:*:vkI::vk49 `; I{Left 4}
:*:`nvkJ::`n`; J`nvk4A
:*:vkJ::vk4A `; J{Left 4}
:*:`nvkK::`n`; K`nvk4B
:*:vkK::vk4B `; K{Left 4}
:*:`nvkL::`n`; L`nvk4C
:*:vkL::vk4C `; L{Left 4}
:*:`nvkM::`n`; M`nvk4D
:*:vkM::vk4D `; M{Left 4}
:*:`nvkN::`n`; N`nvk4E
:*:vkN::vk4E `; N{Left 4}
:*:`nvkO::`n`; O`nvk4F
:*:vkO::vk4F `; O{Left 4}
:*:`nvkP::`n`; P`nvk50
:*:vkP::vk50 `; P{Left 4}
:*:`nvkQ::`n`; Q`nvk51
:*:vkQ::vk51 `; Q{Left 4}
:*:`nvkR::`n`; R`nvk52
:*:vkR::vk52 `; R{Left 4}
:*:`nvkS::`n`; S`nvk53
:*:vkS::vk53 `; S{Left 4}
:*:`nvkT::`n`; T`nvk54
:*:vkT::vk54 `; T{Left 4}
:*:`nvkU::`n`; U`nvk55
:*:vkU::vk55 `; U{Left 4}
:*:`nvkV::`n`; V`nvk56
:*:vkV::vk56 `; V{Left 4}
:*:`nvkW::`n`; W`nvk57
:*:vkW::vk57 `; W{Left 4}
:*:`nvkX::`n`; X`nvk58
:*:vkX::vk58 `; X{Left 4}
:*:`nvkY::`n`; Y`nvk59
:*:vkY::vk59 `; Y{Left 4}
:*:`nvkZ::`n`; Z`nvk5A
:*:vkZ::vk5A `; Z{Left 4}
:*:`nvk0::`n`; 0`nvk30
:*:vk0::vk30 `; 0{Left 4}
:*:`nvk1::`n`; 1`nvk31
:*:vk1::vk31 `; 1{Left 4}
:*:`nvk2::`n`; 2`nvk32
:*:vk2::vk32 `; 2{Left 4}
:*:`nvk3::`n`; 3`nvk33
:*:vk3::vk33 `; 3{Left 4}
:*:`nvk4::`n`; 4`nvk34
:*:vk4::vk34 `; 4{Left 4}
:*:`nvk5::`n`; 5`nvk35
:*:vk5::vk35 `; 5{Left 4}
:*:`nvk6::`n`; 6`nvk36
:*:vk6::vk36 `; 6{Left 4}
:*:`nvk7::`n`; 7`nvk37
:*:vk7::vk37 `; 7{Left 4}
:*:`nvk8::`n`; 8`nvk38
:*:vk8::vk38 `; 8{Left 4}
:*:`nvk9::`n`; 9`nvk39
:*:vk9::vk39 `; 9{Left 4}
:*:`nvk``::`n`; ```nvkC0
:*:vk``::vkC0 `; ``{Left 4}
:*:`nvk-::`n`; -`nvkBD
:*:vk-::vkBD `; -{Left 4}
:*:`nvk=::`n`; =`nvkBB
:*:vk=::vkBB `; ={Left 4}
:*:`nvk[::`n`; [`nvkDB
:*:vk[::vkDB `; [{Left 4}
:*:`nvk]::`n`; ]`nvkDD
:*:vk]::vkDD `; ]{Left 4}
:*:`nvk\::`n`; \`nvkDC
:*:vk\::vkDC `; \{Left 4}
:*:`nvk`;::`n`; `;`nvkBA
:*:vk`;::vkBA `; `;{Left 4}
:*:`nvk'::`n`; '`nvkDE
:*:vk'::vkDE `; '{Left 4}
:*:`nvk,::`n`; ,`nvkBC
:*:vk,::vkBC `; ,{Left 4}
:*:`nvk.::`n`; .`nvkBE
:*:vk.::vkBE `; .{Left 4}
:*:`nvk/::`n`; /`nvkBF
:*:vk/::vkBF `; /{Left 4}