;Реверс всего текста неверной раскладки по левый контрол+ капслук
LControl & CapsLock::
{
    ;hModule := DllCall("LoadLibrary", "str", "AHKHelper.dll")

    ;clipSave:=clipAnsi()
    ;send ^{Insert}
    ;sleep,50


    ;text:="qwerty"
    ;clipAnsi()



    ;Result := DllCall("AHKHelper.dll\SetDllString1", "Str", "qwert")
    ;msgbox, %Result%
    ;Result := DllCall("AHKHelper.dll\GetDllString1", "Str", "qwert")
    ;msgbox, %Result%

;   StrPut(strA, %Result%, 2)
;   msgbox, %strA%
;  SendInput, ^{sc01E}



  ;runwait, HelperForAHK_c.exe " /recodepls" ,PIDD
  ;FileRead, fBuff, buf
  ;msgbox, %fBuff%


   SendInput, ^{sc01E}
  LangSwitch(1)
  sleep, 50
  RecodeTextENRU()
  Return


  ;LangSwitch()
  ;sleep, 50
  ;RecodeTextENRU()
  ;rec()

  ;RecodeTextENRU()

}
;реверс текста


RecodeTextENRU()
{
    StringCaseSense On
    AutoTrim,Off

    clipSave:=clipAnsi()
    send ^{Insert}
    sleep,50

    dest=
    text:=clipAnsi()
    StringCaseSense,On
    prevCharToEN=0
    ;       АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ
    RUtoEN=F<DULT:PBQRKVYJGHCNEA{WXIO}SM">Zf,dult;pbqrkvyjghcnea[wxio]sm'.z
    RUtoSP1=хъжэбюХЪЖЭБЮ.,/"№;:?
    RUtoSP2=[];',.{}:"<>/?|@#$^&
    ;"       ABCDEFGHIJKLMNOPQRSTUVWXYZ
    ENtoRU=ФИСВУАПРШОЛДЬТЩЗЙКЫЕГМЦЧНЯфисвуапршолдьтщзйкыегмцчня

    loop,parse,text
    {
        destChar=%A_LoopField%

        ; check explicit (non punctuations) ranges
        ifGreaterOrEqual,A_LoopField,А
            prevCharToEN=1
        else if A_LoopField between A and Z
            prevCharToEN=0
        else if A_LoopField between a and z
            prevCharToEN=0

        ; to Russian
        ifEqual,prevCharToEN,0
        {   StringGetPos,i,RUtoEN,%A_LoopField%
            ifEqual,ErrorLevel,0
                Transform,destChar,chr,% i + 0xC0
            else
            {   StringGetPos,i,RUtoSP2,%A_LoopField%
                ifEqual,ErrorLevel,0
                    StringMid,destChar,RUtoSP1,% i+1, 1
            }
        }

        ; to English because nothing changed
        ifEqual,destChar,%A_LoopField%
        {
            StringGetPos,i,ENtoRU,%A_LoopField%
            ifEqual,ErrorLevel,0
                Transform,destChar,chr,% i + (i>=26 ? 71 : 65)
            else ; check .,;':"[]{}
            {   StringGetPos,i,RUtoSP1,%A_LoopField%
                ifEqual,ErrorLevel,0,StringMid,destChar,RUtoSP2,% i+1, 1
            }
            ifNotEqual,destChar,%A_LoopField%
                prevCharToEN=1
        }
        dest=%dest%%destChar%
    }

    ; decide compatibility of unicode clipboard
    WinGetClass,cls,A
    if cls in TMsgEditor,wndclass_desked_gsk
    {
        ControlGetFocus,cls,A
        ifInString,cls,TXTRichEdit
            clipSetUnicode(dest)
        else
            Clipboard=%dest%
    }
    else
        clipSetUnicode(dest)
    sleep,50
    send +{Insert}
    sleep 50

    clipSetUnicode(clipSave)
    LangSwitch()
}

; read unicode clipboard into ansi string
clipAnsi()
{
    StringLen,L,Clipboard
    L:=(L+1)*4
    transform,ca_Clip,unicode
    varSetCapacity(ca_WideText,L,0)
    varSetCapacity(ca_AnsiText,L,0)
    ; Convert UTF-8 to UTF-16.  CP_UTF8=65001
    if dllCall("MultiByteToWideChar",uint,65001, uint,0, str,ca_Clip
                  , uint,-1, str,ca_WideText, uint,L/2)
        dllCall("WideCharToMultiByte",uint,0, uint,0, str,ca_WideText
                  , uint,-1, str,ca_AnsiText, uint,L/2, uint,0, uint,0)
        ; Convert UTF-16 to ANSI.  CP_ACP=0
    return ca_AnsiText
}

;--------------------------------------------------------------
; copy ansi string to clipboard in unicode mode
clipSetUnicode(cu_AnsiText)
{
    StringLen,L,cu_AnsiText
    L:=(L+1)*4
    varSetCapacity(cu_WideText,L,0)
    varSetCapacity(cu_UTFtext,L,0)
    ; ANSI to UTF-16.   CP_ACP=0
    if dllCall("MultiByteToWideChar",uint,0, uint,0, str,cu_AnsiText
                  , uint,-1, str,cu_WideText, uint,L/2)
        dllCall("WideCharToMultiByte",uint,65001, uint,0, str,cu_WideText
                  , uint,-1, str,cu_UTFtext, uint,L/2, uint,0, uint,0)
        ; Convert UTF-16 to UTF-8.  CP_UTF8=65001
    transform,clipboard,unicode,%cu_UTFtext%
}