#NoEnv 
SetWorkingDir %A_ScriptDir%
#SingleInstance, force
#MaxHotkeysPerInterval 500
Menu, Tray, Icon, shell32.dll, 39
SendMode Input

/*
Скрипт для быстрого исправления раскладки и регистра набранного текста
http://forum.script-coding.com/viewtopic.php?pid=115616#p115616

Pause - исправление раскладки набранного текста
RShift+Backspace - инверсия регистра текста (случайное нажатие Caps Lock)
RShift+_ - текст в нижнем регистре
RShift+= - текст в верхнем регистре
RShift+0 - первая буква заглавная
При наличии выделенного текста, для преобразования используется он.
При вставке по Ctrl+V возможно выделение и изменение регистра текста, как если бы он был только что набран.
Повторное нажатие клавиш после конвертации восстанавливает исходную строку, после чего возможно выделение и преобразование текста.
*/

key_pass:=300 ; время зажатия клавиши, необходимое для начала выделения "по словам"; короткое нажатие - начало посимвольного выделения (0 - без начальной задержки, посимволное выделение возможно только после первого слова) 
select_pause:=650 ; пауза перед выделением следующего "слова" при сохранении нажатия клавиши (0 - работа только с последним словом, как в Punto Switcher или старых весиях скрипта)
key_wait:=400 ; время ожидания повторного нажатия клавиши при посимвольном выделении до преобразования текста (0 - полное выключение посимвольного выделения; key_pass не учитывается)
symbolsel_speed:=3.5 ; скорость посимвольного выделения при постоянном нажатии клавиши, символов в секунду
stop_comb:="(\(""|, ?""|= ?"")" ; фрагмент регулярного выражения с вертикальными чертами в качестве разделителя, определяющего дополнительные точки остановки выделения
ttip_dy:=24 ; вертикальный сдвиг тултипа относительно каретки (0 - выключение тултипа)
endkeys:="{Enter}{NumpadEnter}{Tab}{LControl}{RControl}{LAlt}{RAlt}{LWin}{RWin}{Left}{Right}{Up}{Down}{Home}{End}{PgUp}{PgDn}{Del}{NumpadDel}{Ins}{NumpadIns}" ; завершающие клавиши команды Input, прерывающие запись символов и делающие невозможной отмену без выделения текста. Если убрать {Enter}{NumpadEnter}{Tab}, станет возможно преобразовывать текст, захватывающий несколько строк. В программистских редакторах, где начальный пробел или табуляция определяют отступ абзаца, многострочное преобразование будет давать ошибки в таких смещенных абзацах. При переназначении клавиш следует убрать используемую дополнительную клавишу из списка, если она там есть (например, {RControl})

; ================================================

Loop
{
	Input input_text, I V L500, % endkeys
	err:=ErrorLevel, text:=input_text, count+=StrLen(text)	
	If (err="NewInput") && mod
	{
		If (A_ThisHotkey=A_PriorHotkey) && !count && !restor && sel_text
		{
			Send % "{Bs " StrLen(sel_text) "}{Raw}" sel_text
			ControlGetFocus, CtrlFocus, A
			SendMessage, 0x50,, % lang_convert=1049 ? 0x4190419 : 0x4090409, % CtrlFocus, A
			restor:=1
		}
		else
		{
			If restor && !count && text_old
				text:=text_old
			If !restor && !count && text_new
				text:=text_new
			If (A_PriorHotkey="~^vk56") && Clipboard && !count
				text:=Clipboard
			lang_convert:=GetInputLangID("A")
			If mod=1
				conv_text:=Translate(Select(text))
			If mod=2
			{
				conv_text:=ChangeCase(Select(text),3)
				SetCapsLockState Off
			}
			If mod=3
				conv_text:=ChangeCase(Select(text),1)
			If mod=4
				conv_text:=ChangeCase(Select(text))
			If mod=5
				conv_text:=ChangeCase(Select(text),2)
			Send % "{Raw}" conv_text 
			text_new:=SubStr(text,1,StrLen(text)-StrLen(conv_text)) . conv_text
			text_old:=text, restor:=0 
		}
		Sleep 300
		KeyWait % masterkey, T2
		Hotkey % "*" masterkey, Block, Off
		count:=mod:=0
	}
}

>+0::
mod+=1
>+-::
mod+=1
>+=::
mod+=1
>+Bs::
mod+=1
Pause::
mod+=1
Input
return

~^vk56::count:=0

~+Left::
~*LButton::
~*RButton::
~*MButton::
Input
conv_text:=mod:=text:=text_old:=text_new:=""
Block:
return

Select(text)
{
	global
	masterkey:=RegExReplace(A_ThisHotkey,".*(\^|\+|!|#)")
	Hotkey % "*" masterkey, Block, On
	If text~="^\s*$"
	{
		clip_old:=Clipboard, Clipboard:=""
		Send ^{Ins}
		ClipWait 0.5
		If text:=Clipboard
		{
			Send {Del}			
			Clipboard:=clip_old
			return sel_text:=text
		}
		else
		{
			Tooltip Для преобразования`n выделите текст!!!, % A_CaretX-30, % A_CaretY-40
			Sleep 800
			ToolTip
			return
		}
	}
	ToolTip
	txt:=text, key_pass:=key_wait ? key_pass : 0
	key:=WinActive("ahk_class ConsoleWindowClass") ? "Bs" : "Left"
	KeyWait % masterkey, % "T" key_pass/1000
	If ErrorLevel
	{		
		While GetKeyState(masterkey,"P") && txt
		{
			txt_old:=txt			
			txt1:=RegExReplace(txt,"(^|\s+)\S+? {0,3}$")
			txt2:=RegExReplace(txt,stop_comb "\K\S+? {0,3}$", ,rep)
			txt:=(StrLen(txt2)>StrLen(txt1) && rep ? txt2 : txt1)
			Send % "{Shift down}{" key " " StrLen(txt_old)-StrLen(txt) "}{Shift up}"
			If txt
			{
				Sleep 50
				If ttip_dy
					ToolTip % "<< " StrLen(txt), % A_CaretX, % A_CaretY-ttip_dy
				KeyWait % masterkey, % "T" select_pause/1000-0.05
			}
		}
	}
	t_unpress:=A_TickCount	
	While A_TickCount-t_unpress<key_wait && txt
	{		
		Sleep 10
		If GetKeyState(masterkey,"P")
		{
			StringTrimRight txt, txt, 1
			Send {Shift down}{%key%}{Shift up}
			Sleep 50
			If ttip_dy
				ToolTip % "<< " StrLen(txt), % A_CaretX, % A_CaretY-ttip_dy
			KeyWait % masterkey, % "T" 1/symbolsel_speed-0.06
			t_unpress:=A_TickCount
		}
	}
	Sleep 50
	If !txt && ttip_dy
		ToolTip << 0 >>, % A_CaretX, % A_CaretY-ttip_dy
	KeyWait % masterkey, T2
	Sleep 100
	ToolTip
	Send {RShift up}{Del}	
	return sel_text:=SubStr(text,StrLen(txt)+1)
}	

Translate(text)
{
	Eng:="~QWERTYUIOP{}ASDFGHJKL:""ZXCVBNM<>?|``qwertyuiop[]asdfghjkl;'zxcvbnm,./@#$^&"
	Rus:="ЁЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ,/ёйцукенгшщзхъфывапролджэячсмитьбю.""№;:?"
	Loop, parse, text, ,`r
	{ 		
		If p:=InStr(GetInputLangID("A")=1033 ? Eng : Rus, A_LoopField, true) 
			r:=r . SubStr(GetInputLangID("A")=1033 ? Rus : Eng, p, 1)
		else
			r.=A_LoopField 
	}
	ControlGetFocus CtrlFocus, A
	SendMessage, 0x50, 2,, % CtrlFocus, A
	return r
}

ChangeCase(t,n="")
{	
	If !n
		StringLower t, t
	If n=1
		StringUpper t, t
	If n=2
		StringLower t, t, T
	If n<3
		return t
	StringCaseSense, Locale
	Loop % StrLen(t)
	{
		r:=SubStr(t,A_Index,1)
		If r is upper
			StringLower r, r
		else
			StringUpper r, r
		out.=r
	}
	return out
}

GetInputLangID(window)
{
    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 
    return langID
}