Windows Keyboard Mapping Fixes

WindowsKeyboardFixes.ahk

#SingleInstance force

/*
#InstallKeybdHook

$VKE2::Send, {``}
$+VKE2::Send, {~}

$VKC0::Send, {\}
$+VKC0::Send, {|}

Top Left Tilde Codes
VKC0
SC029

Bottom Left Tilde Codes
VKE2
SC056

Ю
ю

Ч
ч

*/

LAlt & VKC0::Send, {Alt Down}{Shift Down}{Shift Up}{Alt Up}

$VKE2::
LangID := % DllCall("GetKeyboardLayout", Int,DllCall("GetWindowThreadProcessId", int,WinActive("A"), Int,0))
if ( LangID = -256965630 )
{
    Send, {ч}
}
else if ( LangID = 67699721 )
{
    Send, {``}
}
else
{
    MsgBox % LangID
}
return

$+VKE2::
LangID := % DllCall("GetKeyboardLayout", Int,DllCall("GetWindowThreadProcessId", int,WinActive("A"), Int,0))
if ( LangID = -256965630 )
{
    Send, {Ч}
}
else if ( LangID = 67699721 )
{
    Send, {~}
}
else
{
    MsgBox % LangID
}
return

$VKC0::
LangID := % DllCall("GetKeyboardLayout", Int,DllCall("GetWindowThreadProcessId", int,WinActive("A"), Int,0))
if ( LangID = -256965630 )
{
    Send, {ю}
}
else if ( LangID = 67699721 )
{
    Send, {\}
}
else
{
    MsgBox % LangID
}
return

$+VKC0::
LangID := % DllCall("GetKeyboardLayout", Int,DllCall("GetWindowThreadProcessId", int,WinActive("A"), Int,0))
if ( LangID = -256965630 )
{
    Send, {Ю}
}
else if ( LangID = 67699721 )
{
    Send, {|}
}
else
{
    MsgBox % LangID
}
return