AHK: переключение раскладок клавиатуры по произвольным клавишам

Ctrl::
    WinExist("A")
    ControlGetFocus, CtrlFocus
    PostMessage, 0x50, 0, 0x4190419, %CtrlFocus%
Return

~RCtrl Up::
    If (A_PriorKey = "RControl" && !Mouse) {
        WinExist("A")
        ControlGetFocus, CtrlFocus
        PostMessage, 0x50, 0, 0x4190419, %CtrlFocus%
    }
    Mouse := 0
Return

~LCtrl Up::
    If (A_PriorKey = "LControl" && !Mouse) {
        WinExist("A")
        ControlGetFocus, CtrlFocus
        PostMessage, 0x50, 0, 0x4090409, %CtrlFocus%
    }
    Mouse := 0
Return

~^LButton:: Mouse := 1

;
; ================ переключить раскладку по нажатию на левый CTRL 2 раза по 0.1 сек с таким же промежутком
; паузу между нажатиями компенсируем в длительности второго нажатия (или sleep(50 - ms))
;
~LControl::
KeyWait, LControl, T0.1
if ErrorLevel = 1                                        ; если уложились в 0.1 сек
    Return    
KeyWait, LControl, D T0.2                        ; ждем второго быстрого нажатия
if ErrorLevel = 0    
    PostMessage, 0x50, 2,,, A                    ; переключаем раскладку
Return

layoutNumber := DllCall("GetKeyboardLayoutList", "Int", 0, "Ptr", 0)
VarSetCapacity(buff, A_PtrSize * layoutNumber)
DllCall("GetKeyboardLayoutList", "Int", layoutNumber, "Ptr", &buff)
Loop % layoutNumber
   layoutList .= Format("{:#x}", NumGet(&buff + A_PtrSize*(A_Index - 1), "UInt")) . "`n"
MsgBox, % layoutList

~vkA3 Up::
If (A_PriorKey = "RControl"  && !Mouse)
	{
    WinExist("A")
    ControlGetFocus, CtrlFocus
    PostMessage, 0x50, 0, 0x4190419, %CtrlFocus%
    kbd_msg("RU") 
	}

#SingleInstance,Force
#NoEnv
AutoTrim,Off
CoordMode,Mouse,Screen
CoordMode,ToolTip
CoordMode,Caret,Screen
DetectHiddenWindows,On
SendMode,Input
SetBatchLines,-1
SetControlDelay,-1
SetKeyDelay,-1
SetTitleMatchMode,2
SetWinDelay,-1



~vkA3 Up::
If (A_PriorKey = "RControl"  && !Mouse)
  SwitchInputLayout("Rus")
return

RemoveToolTip:
tooltip,,,,3
return


SwitchInputLayout(switch="")
{
  static Locale_RU:=0x04190419, Locale_EN:=0x04090409
  ControlGetFocus,CtrlFocus,A
  ControlGet,id,hwnd,,%CtrlFocus%,A
  MouseGetPos,DF_X,DF_Y
  if !id
    ID:=WinExist("A")
  ThreadID:=DllCall("GetWindowThreadProcessId",Ptr,id,Int,0,ptr)
  Locale:=GetLayot(ThreadID)
  if (switch="Eng")
    Locale:=Locale_RU
  else if (switch="Rus")
    Locale:=Locale_EN
  sendMessage,0x50,,% Locale=Locale_RU ? Locale_EN : Locale_RU,,ahk_id %ID%
  if (Locale=GetLayot(ThreadID))
  {
    send,{alt down}{shift down}{alt up}{shift up}
    sleep,10
    if (Locale=GetLayot(ThreadID))
    {
      if !isWindowFullScreen()
      {
        ToolTip,Невозможно переключить раскладку.,% A_CaretX=0 ? DF_X : A_CaretX+10,% A_CaretY=0 DF_Y ? : A_CaretY-20,3
        SetTimer,RemoveToolTip,-1100
      }
      return 1
    }
  }
  if !isWindowFullScreen()
  {
    ToolTip,% GetLayot(ThreadID)=Locale_RU ? "Русский" : "Английский",% A_CaretX=0 ? DF_X : A_CaretX+10,% A_CaretY=0 DF_Y ? : A_CaretY-20,3
    SetTimer,RemoveToolTip,-1100
  }
}
GetLayot(ThreadID)
{
  return DllCall("GetKeyboardLayout",ptr,ThreadID,ptr)
}

isWindowFullScreen(WinID="")
{
  if !WinID
    WinGet,WinID,id,A
;  WinGet,WinMinMax,MinMax,ahk_id %WinID%
  WinGetPos,WinX,WinY,WinW,WinH,ahk_id %WinID%
;tooltip,% (WinMinMax=0) "`n" WinX "`n" WinY "`n" WinW "`n" WinH
  if ((WinX=0 and WinY=0 and (WinW>=A_ScreenWidth-1 and WinW<=A_ScreenWidth+1) and (WinH>=A_ScreenHeight-1 and WinH<=A_ScreenHeight+1))) ; or WinMinMax!=0)
  {
    WinGetClass,WinClass,ahk_id %WinID%
    WinGet,WinProcessName,ProcessName,ahk_id %WinID%
    SplitPath,WinProcessName,,,WinProcessExt
    if (WinClass!="Progman" and WinClass!="WorkerW" and WinProcessExt!="scr")
      return 1
  }
  return 0
}

#SingleInstance,Force
#NoEnv
AutoTrim,Off
CoordMode,Mouse,Screen
CoordMode,ToolTip
CoordMode,Caret,Screen
DetectHiddenWindows,On
SendMode,Input
SetBatchLines,-1
SetControlDelay,-1
SetKeyDelay,-1
SetTitleMatchMode,2
SetWinDelay,-1



~vkA3 Up::
If (A_PriorKey = "RControl"  && !Mouse)
  SwitchInputLayout("Rus")
return

RemoveToolTip:
tooltip,,,,3
return


SwitchInputLayout(switch="")
{
  static Locale_RU:=0x04190419, Locale_DE:=0x0407
  ControlGetFocus,CtrlFocus,A
  ControlGet,id,hwnd,,%CtrlFocus%,A
  MouseGetPos,DF_X,DF_Y
  if !id
    ID:=WinExist("A")
  ThreadID:=DllCall("GetWindowThreadProcessId",Ptr,id,Int,0,ptr)
  Locale:=GetLayot(ThreadID)
  if (switch="DE")
    Locale:=Locale_RU
  else if (switch="Rus")
    Locale:=Locale_DE
  sendMessage,0x50,,% Locale=Locale_RU ? Locale_DE : Locale_RU,,ahk_id %ID%
  if (Locale=GetLayot(ThreadID))
  {
    send,{alt down}{shift down}{alt up}{shift up}
    sleep,10
    if (Locale=GetLayot(ThreadID))
    {
      if !isWindowFullScreen()
      {
        ToolTip,Невозможно переключить раскладку.,% A_CaretX=0 ? DF_X : A_CaretX+10,% A_CaretY=0 DF_Y ? : A_CaretY-20,3
        SetTimer,RemoveToolTip,-1100
      }
      return 1
    }
  }
  if !isWindowFullScreen()
  {
    ToolTip,% GetLayot(ThreadID)=Locale_RU ? "Русский" : "Немецкий",% A_CaretX=0 ? DF_X : A_CaretX+10,% A_CaretY=0 DF_Y ? : A_CaretY-20,3
    SetTimer,RemoveToolTip,-1100
  }
}
GetLayot(ThreadID)
{
  return DllCall("GetKeyboardLayout",ptr,ThreadID,ptr)
}

isWindowFullScreen(WinID="")
{
  if !WinID
    WinGet,WinID,id,A
;  WinGet,WinMinMax,MinMax,ahk_id %WinID%
  WinGetPos,WinX,WinY,WinW,WinH,ahk_id %WinID%
;tooltip,% (WinMinMax=0) "`n" WinX "`n" WinY "`n" WinW "`n" WinH
  if ((WinX=0 and WinY=0 and (WinW>=A_ScreenWidth-1 and WinW<=A_ScreenWidth+1) and (WinH>=A_ScreenHeight-1 and WinH<=A_ScreenHeight+1))) ; or WinMinMax!=0)
  {
    WinGetClass,WinClass,ahk_id %WinID%
    WinGet,WinProcessName,ProcessName,ahk_id %WinID%
    SplitPath,WinProcessName,,,WinProcessExt
    if (WinClass!="Progman" and WinClass!="WorkerW" and WinProcessExt!="scr")
      return 1
  }
  return 0
}