Alexei Gretchaninov

Моя сокращённая версия, которая перебивает только знаки препинания и букву ё:

;==============================================================
;Корректное отображение символов в соответсвии с RU/ENG Apple Keyboard
;==============================================================

$+4::CheckRus("%","$") ; Двоеточие через Shift+4
$+5::CheckRus(":","%") ; Двоеточие через Shift+5
$+6::CheckRus(",","^") ; Запятая через Shift+6
$+7::CheckRus(".","?") ; Точка через Shift+7
$+8::CheckRus(";","*") ; Точка с запятой через Shift+8
$+/::CheckRus("?","/") ; Вопрос через /
$+?::CheckRus("?","?") ; Вопрос через Shift+/?
$\::CheckRus("ё","\") ; Вопрос через \
$+\::CheckRus("Ё","|") ; Вопрос через Shift+\

CheckRus(rus,eng)
{
WinID:=WinGetID("A")
ThreadID:=DllCall("GetWindowThreadProcessId", "Int", WinID, "Int", 0)
InputLocaleID:=DllCall("GetKeyboardLayout", "Int", ThreadID)
if(InputLocaleID == "0x4190419")
{
Send "{Raw}" rus
}
if(InputLocaleId == "0x4090409")
{
Send "{Raw}" eng
}
Return
}

Огромное спасибо за этот пример!