AutoHotkey Community

; Translates selected text RU<>EN, cycles input language
; How Punto Switcher
Pause::Translate() ; Hotkey - Pause button

Translate()
{
Send ^{Left}
Send +{End}

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

Send ^{Ins} ; Copy selection to clipboard
ClipWait
r =
Loop, parse, clipboard
{
   SendMessage, 0x50,, 0x4090409,, A ; Eng
   p := InStr(Eng, A_LoopField, true)
   if p > 0
      r := r . SubStr(Rus, p, 1)
   else
   {
      SendMessage, 0x50,, 0x4190419,, A ; Rus
      p := InStr(Rus, A_LoopField, true)
      if p > 0
         r := r . SubStr(Eng, p, 1)
      else
         r := r . A_LoopField
   }
}
PostMessage, 0x50, 2, 0,, A ; Switch lang to next
SendInput {Del}%r% ; Delete selection, print translated text
}

; How Punto Switcher
Pause::Translate() ; Hotkey - Pause button

Translate()
{
Send ^{Left}
Send +{End}
Send ^{sc02E} ; Copy selection to clipboard
Sleep 10

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


ClipWait
r =
Loop, parse, clipboard
{
   SendMessage, 0x50,, 0x4090409,, A ; Eng
   p := InStr(Eng, A_LoopField, true)
   if p > 0
      r := r . SubStr(Rus, p, 1)
   else
   {
      SendMessage, 0x50,, 0x4190419,, A ; Rus
      p := InStr(Rus, A_LoopField, true)
      if p > 0
         r := r . SubStr(Eng, p, 1)
      else
         r := r . A_LoopField
   }
}
PostMessage, 0x50, 2, 0,, A ; Switch lang to next
SendInput {Del}%r% ; Delete selection, print translated text
}

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

    Loop, parse, Clipboard
    {
        If found := InStr(char1, A_LoopField, 1)
            temp .= SubStr(char0, found, 1), lastFound := 1

        Else If found := InStr(char0, A_LoopField, 1)
            temp .= SubStr(char1, found, 1), lastFound := 0

        Else If found := InStr(symb%lastFound%, A_LoopField, 1)
            lastFound_invert := !lastFound, temp .= SubStr(symb%lastFound_invert%, found, 1)

        Else temp .= A_LoopField
    }

    return !!temp && Clipboard := temp
}