#If CheckWin(WinExist("A"))   ; здесь нужная функция
SetHotkey("$q", "ProcFunc1")
SetHotkey("$ц", "ProcFunc2")
SetHotkey("$e", "ProcFunc3")
Return

ProcFunc1:
   MsgBox, TEST1
   Return

ProcFunc2:
   MsgBox, TEST2 
   Return

ProcFunc3:
   MsgBox, TEST3
   Return
   
CheckWin(hwnd)  {
   WinGetClass, WindowClass, ahk_id %hwnd%   ; здесь вместо этого любая проверка
   if (WindowClass = "Notepad")
      Return true
}
   
SetHotkey(hotkey, label)  {
   ChangeLayout(hotkey)
   Hotkey, % hotkey, % label
}

ChangeLayout(hotkey)  {
   static WM_INPUTLANGCHANGEREQUEST := 0x50, INPUTLANGCHANGE_SYSCHARSET := 1

   layout := RegExMatch(hotkey, "i)[а-я]") ? 0x4190419 : 0x4090409
   DllCall("SendMessage", Ptr, A_ScriptHwnd, UInt, WM_INPUTLANGCHANGEREQUEST, Ptr, INPUTLANGCHANGE_SYSCHARSET, Ptr, layout, Ptr)
}

MyKey1 = q

ChangeLayout(MyKey1)
Hotkey, % "$" MyKey1, ProcFunc1
return

ProcFunc1:
   WinGet, active_id, ID, A 
   if CheckWin(active_id)
      MsgBox, TEST1
   else
      Send {%MyKey1%}
Return

ChangeLayout(hotkey)  {
   static WM_INPUTLANGCHANGEREQUEST := 0x50, INPUTLANGCHANGE_SYSCHARSET := 1

   layout := RegExMatch(hotkey, "i)[а-я]") ? 0x4190419 : 0x4090409
   DllCall("SendMessage", Ptr, A_ScriptHwnd, UInt, WM_INPUTLANGCHANGEREQUEST, Ptr, INPUTLANGCHANGE_SYSCHARSET, Ptr, layout, Ptr)
}

Получается, что только при отправке надо определять какая раскладка и посылать нужный символ ?
Пожалуйста, подскажи как подправить ))

Hotkey, IfWinActive, ahk_class Notepad
SetHotkey("$q", "ProcFunc1")
SetHotkey("$ц", "ProcFunc2")
SetHotkey("$e", "ProcFunc3")
Return

ProcFunc1:
   MsgBox, TEST1
   Return

ProcFunc2:
   MsgBox, TEST2 
   Return

ProcFunc3:
   MsgBox, TEST3
   Return
   
SetHotkey(hotkey, label)  {
   ChangeLayout(hotkey)
   Hotkey, % hotkey, % label
}

ChangeLayout(hotkey)  {
   static WM_INPUTLANGCHANGEREQUEST := 0x50, INPUTLANGCHANGE_SYSCHARSET := 1

   layout := RegExMatch(hotkey, "i)[а-я]") ? 0x4190419 : 0x4090409
   DllCall("SendMessage", Ptr, A_ScriptHwnd, UInt, WM_INPUTLANGCHANGEREQUEST, Ptr, INPUTLANGCHANGE_SYSCHARSET, Ptr, layout, Ptr)
}

А как сделать, чтобы отсылалась клавиша текущей раскладки, когда окно не Notepad ?

MyKey1 = q
Send {%MyKey1%}

Т.е. если ENG то в окно посылается "q", если РУС, то "й"

MyKey1 = q
MyKey2 = ц
MyKey3 = e

ChangeLayout(MyKey1)
Hotkey, % "$" MyKey1, ProcFunc1

ChangeLayout(MyKey2)
Hotkey, % "$" MyKey2, ProcFunc2

ChangeLayout(MyKey3)
Hotkey, % "$" MyKey3, ProcFunc3
return

ProcFunc1:
   IfWinActive, ahk_class Notepad
      MsgBox, TEST1
   else
      Send {%MyKey1%}
Return

ProcFunc2:
   IfWinActive, ahk_class Notepad
      MsgBox, TEST2
   else
      Send {%MyKey2%}  
Return

ProcFunc3:
   IfWinActive, ahk_class Notepad
      MsgBox, TEST3
   else
      Send {%MyKey3%}  
Return

ChangeLayout(hotkey)  {
   static WM_INPUTLANGCHANGEREQUEST := 0x50, INPUTLANGCHANGE_SYSCHARSET := 1

   layout := RegExMatch(hotkey, "i)[а-я]") ? 0x4190419 : 0x4090409
   DllCall("SendMessage", Ptr, A_ScriptHwnd, UInt, WM_INPUTLANGCHANGEREQUEST, Ptr, INPUTLANGCHANGE_SYSCHARSET, Ptr, layout, Ptr)
}

Ну или запускайте ваш скрипт из другого, который предварительно переключит "текущую раскладку".

Проблема в языке самого скрипта, а он соответствует языку ввода по умолчанию, установленному в системных настройках. Хотя в 8, помнится, не всё так однозначно.

В WinXP и Win7 - соответствует языку ввода по умолчанию
В Win8 - языку текущей раскладки

Вот и требуется решение задачи для Win8 !!!

Так что лучшее решение всё-таки vk.

KeyMy =  z

Hotkey, % "$" KeyMy, ProcFunc

return

ProcFunc:
   MsgBox, TEST
Return

Если стоит русская раскладка, то скрипт выдаёт ошибку.

Если ставлю в начале строку кода, чтобы переключал раскладку - всё равно не помогает (как-будто не успевает преключиться):

PostMessage, 0x50,, 0x4090409,, A   ; На английский

KeyMy =  z

Hotkey, % "$" KeyMy, ProcFunc

return

ProcFunc:
   MsgBox, TEST
Return

Как быть для Win8?

p.s.
Клавиши "vk" не предлагать )