Rus := ["ё","й","ц","у","к","е","н","г","ш","щ","з","х","ъ","ф","ы","в","а","п","р","о","л","д","ж","э","я","ч","с","м","и","т","ь","б","ю"]
Eng := ["sc29","q","w","e","r","t","y","u","i","o","p","sc1A","sc1B","a","s","d","f","g","h","j","k","l","sc27","sc28","z","x","c","v","b","n","m","sc33","sc34"]

F2::
Name = Testing...
Gui 2: Color, % Color
Gui 2: Add ,Text, x10 y10, Загрузка данных...
Gui 2: Show,W200 H100, % Name


Loop, 1000
{
 A_Lang := InputLayout(Name)
 If A_Lang = Russian
; If !(A_Lang = "English")
 {
  ToolTip, Смена языка ввода: [Rus] --> [Eng]`nПопытка номер: %A_Index% %A_Lang% ,0,-100
  PostMessage, 0x50,, 0x4090409,, A	; [Eng]
;  PostMessage, 0x50, 2,,, A  ; Переключить язык.
  Sleep, 100
 }
 Else
  Break
 Sleep, 100
}
Return


;21:55 14.08.2019	Функция определения языка ввода (если не указано окно - текущее)
;If InputLayout() = Russian
InputLayout(window := "A") {
   If !(hWnd := WinExist(window))
      Return
   WinGetClass, Class
   if (Class == "ConsoleWindowClass"){
       WinGet, consolePID, PID
       DllCall("AttachConsole", Ptr, consolePID)
       VarSetCapacity(buff, 16)
       DllCall("GetConsoleKeyboardLayoutName", Str, buff),
       DllCall("FreeConsole")
       langID := "0x" . SubStr(buff, -3)
   }
   Else langID := DllCall("GetKeyboardLayout", Ptr, DllCall("GetWindowThreadProcessId", Ptr, hWnd, UInt, 0, Ptr), Ptr) & 0xFFFF
   Size := (DllCall("GetLocaleInfo", UInt, langID, UInt, 0x1001, UInt, 0, UInt, 0) * 2)   ; LOCALE_SENGLANGUAGE := 0x1001
   VarSetCapacity(localeSig, Size, 0)
   DllCall("GetLocaleInfo", UInt, langID, UInt, 0x1001, Str, localeSig, UInt, Size)
   Return localeSig
}

FormatHotkey(Hotkey) {
	RegExMatch(Hotkey, "S)^([\^\+!]*)(.*?)$", K)
	If (StrLen(K2) = 1)
		Return K1 . Format("sc{:X}", GetKeySC(K2))
	Return Hotkey
} 

Rus := ["й","ц","у","к","е","н","г","ш","щ","з","х","ъ","ф","ы","в","а","п","р","о","л","д","ж","э","я","ч","с","м","и","т","ь","б","ю"]
Eng := ["q","w","e","r","t","y","u","i","o","p","[","]","a","s","d","f","g","h","j","k","l",";","'","z","x","c","v","b","n","m",",","."]
Hotkey1 := "привет"
loop % Rus.Length()
{
    Hotkey1 := StrReplace(Hotkey1, Rus[A_Index], Eng[A_Index])
}
msgbox % Hotkey1

MsgBox, , , % A_ThisLabel "`n" A_ThisHotkey, 0.3