SendInput, {Alt down}{shift}
Send {Alt up}
Exit 

SendInput, {Alt}
SendInput, {Shift}
Exit 

SendInput, {Alt shift}
Exit 

SetTitleMatchMode 2
DetectHiddenWindows On
SetKeyDelay -1

ToggleInputMethods:

#Persistent
Global list := {"Skype.exe":"ru", "atom.exe":"en"}

SetWinEventHook(EVENT_SYSTEM_FOREGROUND := 0x0003, EVENT_SYSTEM_FOREGROUND, 0, RegisterCallback("HookProc", "F"), 0, 0, 0)

HookProc(hWinEventHook, event, hwnd)  {
        WinGet, Process, ProcessName, ahk_id %hwnd%
        If (list.haskey(Process))  {
                ControlGetFocus, CtrlFocus, ahk_id %hwnd%
                PostMessage, WM_INPUTLANGCHANGEREQUEST := 0x50, , {"en":0x409,"ru":0x419}[list[Process]], %CtrlFocus%, ahk_id %hwnd%
        }
}

SetWinEventHook(eventMin, eventMax, hmodWinEventProc, lpfnWinEventProc, idProcess, idThread, dwFlags)  {
     Return DllCall("SetWinEventHook", UInt, eventMin , UInt, eventMax , Ptr, hmodWinEventProc
                        , Ptr, lpfnWinEventProc , UInt, idProcess , UInt, idThread, UInt, dwFlags, Ptr)
}

NewProgram:

#IfWinactive, ahk_exe vegas130.exe

Counts:
Count_F2 := 0

    ~F2:: ; Pause/Select Event/Select Loop
         F2:= ["{F2}", "+{F2}", "+^{[}{vk52}"], Period_F2 := 0250 ; Здесь третья переменная перестает срабатывать, при размещенном выше скрипте на автопереключение
         SendInput % F2[Count_F2 := Count_F2*((A_PriorHotkey = A_ThisHotkey)&&(A_TimeSincePriorHotkey<Period_F2))+1]
    Return