СhangedKeysLocale()
{
	Static Chars := "ЁЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮёйцукенгшщзхъфывапролджэячсмитьбю,.""№;?"
				.   "~QWERTYUIOP{}ASDFGHJKL:""ZXCVBNM<>``qwertyuiop[]asdfghjkl;'zxcvbnm,.?/@#$&"
	SelText := GetWord(TempClipboard)
	Loop, parse, SelText
      NewText .= (found := InStr(Chars, A_LoopField, 1))
         ? SubStr(Chars, found - 72, 1) : A_LoopField
	If (SelText = "" || NewText = "" || SelText == NewText)
		Return 1, Clipboard := TempClipboard
	Clipboard := NewText
	SendInput, ^{vk56}
	Sleep, 100
	Clipboard := TempClipboard
	ToggleLocale()
}

ToggleLocale()
{
	Static WM_INPUTLANGCHANGEREQUEST := 0x50
	InputLocale := (DllCall("GetKeyboardLayout", "Int"
	, DllCall("GetWindowThreadProcessId", "Ptr", WinExist("A"), "Int", "0")) & 0x0000FFFF)
	ControlGetFocus, CtrlFocus
	PostMessage, WM_INPUTLANGCHANGEREQUEST, 0, InputLocale = 0x409 ? 0x419 : 0x409, %CtrlFocus%
}

transformTextLayout(textContainer)
{
	en := "``qwertyuiop[]asdfghjkl;'zxcvbnm,./~@#$^&QWERTYUIOP{}|ASDFGHJKL:""ZXCVBNM<>?"
	ru := "ёйцукенгшщзхъфывапролджэячсмитьбю.Ё""№;:?ЙЦУКЕНГШЩЗХЪ/ФЫВАПРОЛДЖЭЯЧСМИТЬБЮ,"
	textContainer ~= "i)[a-z]" ? (layoutIn := en, layoutOut := ru) : (layoutIn := ru, layoutOut := en)
	Loop, Parse, textContainer
	{
		IfNotInString, layoutIn, %A_LoopField%
			newChar := A_LoopField
		Else
			StringReplace, newChar, A_LoopField, %A_LoopField%, % SubStr(layoutOut, InStr(layoutIn, A_LoopField, True), 1)
		outputStr .= newChar
	}
	Return outputStr
}

<^<+Space::KeyWait("Конвертировать_весь_текст", "LCtrl|LShift|Space")

; если не надо ждать, то кнопки неуказывать 
; <^<+Space::KeyWait("Конвертировать_весь_текст")     будет как Gosub
; или можно указать одну кнопку, или до кучи ту которой нет в комбинации, но мешается под рукой :)

; \|/\|/\|/\|/\|/\|/\|/\|/\|/ где-то глубоко \|/\|/\|/\|/\|/\|/\|/\|/\|/

Конвертировать_весь_текст:
    MsgBox ok     
    Return


KeyWait(Label, Buttons = "") {
    Loop, Parse, Buttons, |
        KeyWait, %A_LoopField%
    Gosub, %Label%
}

KeyWait, % LTrim( A_ThisHotkey, "+|^|#|>|$|<|!")

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
StringCaseSense, On
#SingleInstance, Force
SetBatchLines, -1
SetKeyDelay, 10

en := "``qwertyuiop[]asdfghjkl;'zxcvbnm,./~@#$^&QWERTYUIOP{}|ASDFGHJKL:""ZXCVBNM<>?"
ru := "ёйцукенгшщзхъфывапролджэячсмитьбю.Ё""№;:?ЙЦУКЕНГШЩЗХЪ/ФЫВАПРОЛДЖЭЯЧСМИТЬБЮ,"

; Transform all text
$>^>+Space::
KeyWait RCtrl
KeyWait RShift
KeyWait Space
savedClip := Clipboard
Sleep 1
Send ^{vk41}^{vk43}
Sleep 1
Clipboard := transformTextLayout(Clipboard)
Sleep 1
Send ^{vk56}
Clipboard := savedClip
savedClip := ""
Return

; Transform only last line (full line)
$>+Space::
KeyWait RShift
KeyWait Space
savedClip := Clipboard
Sleep 1
Send {End}+{Home}^{vk43}
Sleep 1
Clipboard := transformTextLayout(Clipboard)
Sleep 1
Send ^{vk56}
Clipboard := savedClip
savedClip := ""
Return

; Transform only (left) part of a line (from the beginning of the line to the caret)
$>^Space::
KeyWait RCtrl
KeyWait Space
savedClip := Clipboard
Sleep 1
Send +{Home}^{vk43}
Sleep 1
Clipboard := transformTextLayout(Clipboard)
Sleep 1
Send ^{vk56}
Clipboard := savedClip
savedClip := ""
Return

; Transform only (right) part of a line (from the beginning of the line to the caret)
$>^>!Space::
KeyWait RCtrl
KeyWait RAlt
KeyWait Space
savedClip := Clipboard
Sleep 1
Send +{End}^{vk43}
Sleep 1
Clipboard := transformTextLayout(Clipboard)
Sleep 1
Send ^{vk56}
Clipboard := savedClip
savedClip := ""
Return

; Transform only last word
$>!Space::
KeyWait RAlt
KeyWait Space
savedClip := Clipboard
Sleep 1
Loop
{
    If GetKeyState("Esc", "P")
        Exit
    Send ^+{Left}
    If A_LoopField = 1
        Continue
    Else
        Send ^{vk43}
    Sleep 1
    IfInString, Clipboard, %A_Space%
    {
        Send ^+{Right}^{vk43}
        Sleep 1
        Break
    }
}
Clipboard := transformTextLayout(Clipboard)
Sleep 1
Send ^{vk56}
Clipboard := savedClip
savedClip := ""
Return

transformTextLayout(textContainer)
{
    Global en, ru
    textContainer ~= "i)[a-z]" ? (layoutIn := en, layoutOut := ru) : (layoutIn := ru, layoutOut := en)
    Loop, Parse, textContainer
    {
        IfNotInString, layoutIn, %A_LoopField%
            newChar := A_LoopField
        Else
            StringReplace, newChar, A_LoopField, %A_LoopField%, % SubStr(layoutOut, InStr(layoutIn, A_LoopField, True), 1)
        outputStr .= newChar
    }
    textContainer := outputStr
    outputStr := layoutIn := layoutOut := newChar := ""
    Return textContainer
}

Gosub, SwitchLocale

SwitchLocale:
WinGet,ID,id,A
ThreadID:=DllCall("GetWindowThreadProcessId", UInt, ID, UInt, 0)
InputLocaledID:=DllCall("GetKeyboardLayout", UInt, ThreadID, UInt)
if % InputLocaledID=Localed1
  SendMessage,0x50,0,%Localed2%,,ahk_id %ID%
else if % InputLocaledID=Localed2
  SendMessage,0x50,0,%Localed1%,,ahk_id %ID%
else
  SendMessage,0x50,0,%Localed2%,,ahk_id %ID%
MouseGetPos,x,y
InputLocaledID:=DllCall("GetKeyboardLayout", UInt, ThreadID, UInt)
CoordMode,tooltip,Relative
if % InputLocaledID=Localed1
  ToolTip,Английский,A_CaretX+10,A_CaretY-20,3
else if % InputLocaledID=Localed2
  ToolTip,Русский,A_CaretX+10,A_CaretY-20,3
CoordMode,tooltip,Screen
SetTimer,RemoveToolTip,1000
return

#SingleInstance,Force
AutoTrim,Off
CoordMode,Mouse,Screen
CoordMode,ToolTip
Menu,Tray,UseErrorLevel
SendMode,Input
SetBatchLines,-1
SetControlDelay,0
SetKeyDelay,0
SetTitleMatchMode,2
SetWinDelay,-1
SetWorkingDir,%A_ScriptDir%
StringCaseSense,On

Cyr = ЁЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮёйцукенгшщзхъфывапролджэячсмитьбю
Lat = ~QWERTYUIOP{}ASDFGHJKL:"ZXCVBNM!=``qwertyuiop[]asdfghjkl;'zxcvbnm,.
Localed1=0x4090409  ; Английский
Localed2=0x4190419 ; Русский

+Break::
Break::
if work=0
  return
keywait,Break
if A_TimeSinceThisHotkey>200
  return
Critical
TempClipboard:=ClipboardAll
Clipboard=
NewText=
SelText=
if (a_thishotkey="+break")
{
  SendInput,^{vk43}
  ClipWait,1
  SelText:=Clipboard
}
else
{
  SendInput,^{vk43}
  sleep,1
  if Clipboard!=
    if Clipboard not contains `n,`r
      SelText:=Clipboard
  if SelText=
    loop,33
    {
      Clipboard=
      SendInput,{shift down}
      tooltip
      SendInput,{Left}
      tooltip
      SendInput,{shift up}
      tooltip
      loop,5
      {
        SendInput,^{vk43}
        ClipWait,0
        if clipboard!=
          break
      }
      if Clipboard=
        break
      Len:=StrLen(Clipboard)
      if (Len = PrevLen)
      {
        SelText:=Clipboard
        break
      }
      PrevLen:=Len
      swd:=SubStr(Clipboard,1,1)
      if A_Index>32
        swd=`n
      if swd in %A_Space%,%A_Tab%,`n,`r
      {
        SendInput,{shift down}
        SendInput,{right}
        SendInput,{shift up}
        swd:=SubStr(Clipboard,1,2)
        SelText:=SubStr(ClipBoard,RegExMatch(swd,"[\n\r]{2}") ? 3 : 2)
        break
      }
    }
}
Loop,parse,SelText
{
  found=
  if found:=InStr(Lat, A_LoopField, 1)
    NewText.=SubStr(Cyr, found, 1)
  if !found
    if found:=InStr(Cyr, A_LoopField, 1)
      NewText.=SubStr(Lat, found, 1)
  if !found
    NewText.=A_LoopField
}
Clipboard:=NewText
Sleep,1
SendInput,^{vk56}
Sleep,300
Clipboard:=TempClipboard
TempClipboard:=SelText:=
gosub,SwitchLocale
return

; //////////Переключение языка____________________________HOTKEYS_________________________
Ctrl::
if work=0
  return
keywait,ctrl,T0.2
if errorlevel=1
  return
SwitchLocale:
WinGet,ID,id,A
ThreadID:=DllCall("GetWindowThreadProcessId", UInt, ID, UInt, 0)
InputLocaledID:=DllCall("GetKeyboardLayout", UInt, ThreadID, UInt)
if % InputLocaledID=Localed1
  SendMessage,0x50,0,%Localed2%,,ahk_id %ID%
else if % InputLocaledID=Localed2
  SendMessage,0x50,0,%Localed1%,,ahk_id %ID%
else
  SendMessage,0x50,0,%Localed2%,,ahk_id %ID%
MouseGetPos,x,y
InputLocaledID:=DllCall("GetKeyboardLayout", UInt, ThreadID, UInt)
CoordMode,tooltip,Relative
if % InputLocaledID=Localed1
  ToolTip,Английский,A_CaretX+10,A_CaretY-20,3
else if % InputLocaledID=Localed2
  ToolTip,Русский,A_CaretX+10,A_CaretY-20,3
CoordMode,tooltip,Screen
SetTimer,RemoveToolTip,1000
return

RemoveToolTip:
SetTimer,RemoveToolTip,off
loop,20
  tooltip,,,,%A_index%
return