Re: AHK: Break и Shift+Break как в пунто свитчере
Вот так, вроде, без глюков работает:
SetBatchLines, -1
SetKeyDelay, 0
Cyr = ЁЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮёйцукенгшщзхъфывапролджэячсмитьбю
Lat = ~QWERTYUIOP{}ASDFGHJKL:"ZXCVBNM<>``qwertyuiop[]asdfghjkl;'zxcvbnm,.
CyrArray := [], LatArray := []
Loop, parse, Cyr
CyrArray[A_Index] := A_LoopField
Loop, parse, Lat
LatArray[A_Index] := A_LoopField
F11::
Critical
TempClipboard := ClipboardAll
Clipboard =
SendInput, ^{vk43}
ClipWait, 0
SelText := ErrorLevel ? GetWord() : Clipboard
Loop, parse, SelText
{
found =
for k, v in CyrArray
if (A_LoopField == v)
NewText .= LatArray[k], lastfound := found := 1
if !found
for k, v in LatArray
if (A_LoopField == v)
NewText .= CyrArray[k], lastfound := found := 2
if !found
NewText .= A_LoopField
}
Clipboard := NewText
SendInput, ^{vk56}
Sleep, 200
Clipboard := TempClipboard
NewText =
;переключаем раскладку
VarSetCapacity(List, 8)
DllCall("GetKeyboardLayoutList", Int, 2, UInt, &List)
Locale1 := NumGet(List)
If SubStr(Locale2 := NumGet(List, 4), -3) = 0409
En := Locale2, Ru := Locale1
Else
En := Locale1, Ru := Locale2
WinGet, WinID,, A
ThreadID := DllCall("GetWindowThreadProcessId", UInt, WinID, UInt, 0)
InputLocaleID := DllCall("GetKeyboardLayout", UInt, ThreadID, UInt)
SendMessage, WM_INPUTLANGCHANGEREQUEST := 0x50,, lastfound = 2 ? Ru : En,, A
Return
GetWord()
{
While A_Index < 100
{
Clipboard =
SendInput, +{Left}
SendInput, ^{vk43}
ClipWait, 0
if ErrorLevel
Return
Len := StrLen(Clipboard)
if (Len = PrevLen)
Return Clipboard
PrevLen := Len
s := SubStr(Clipboard, 1, 1)
if (s = A_Space || s = A_Tab || s = "`n" || s = "`r")
{
SendInput, +{Right}
s := SubStr(Clipboard, 1, 2)
Return SubStr(ClipBoard, RegExMatch(s, "[\n\r]{2}") ? 3 : 2)
}
}
}
