ConfigList = :Общий|XBMC.exe:XBMC|notepad++.exe:Блокнот|notepad.exe:notepad
Config_Arr := {} , ConfigArrIndex := "0"
    loop, Parse, ConfigList, |:
        Mod(A_Index, 2) ? key := A_LoopField : Config_Arr.Insert(key, A_LoopField) ConfigArrIndex += 2  ,  FirstConfig := A_Index = 2 ? A_LoopField : FirstConfig
Config := FirstConfig
1::
    d_1 =
    loop, Parse, ConfigList, |:
        {   d_1 := !Mod(A_Index, 2) && A_LoopField == Config ? A_Index+2 : d_1
        If (d_1 = A_Index || d_1 > ConfigArrIndex)
            Config := d_1 > ConfigArrIndex ? FirstConfig : A_LoopField , d_1 := 0
        }  Until d_1 = 0
    tooltip  %Config%
    return

ConfigList = :Общий|XBMC.exe:XBMC|notepad++.exe:Блокнот|notepad.exe:notepad
Config_Arr := {} , ConfigList_Arr := {} , ConfigArrIndex = 0

loop, Parse, ConfigList, |:
Mod(A_Index, 2) ? key := A_LoopField : Config_Arr.Insert(key, A_LoopField)  ConfigList_Arr.Insert(A_LoopField) ConfigArrIndex += 1
1::
Config := ConfigList_Arr[Index := (!Index) || (Index>=ConfigArrIndex) ? 1 : Index+1]
For Index, Value in ConfigList_Arr
Continue 
Until Value = Config
tooltip  %Config%
return

b1 := []  , ConfigList := "Общий|Блокнот|XBMC|notepad"
loop, Parse, ConfigList, |
b1.Insert(A_LoopField) MaxIndex := A_Index , FirstConfig := A_Index = 1 ? A_LoopField : FirstConfig , Config := FirstConfig
1::
d_1 = 
loop, Parse, ConfigList, |
{ d_1 := A_LoopField == Config ? A_Index+1 : d_1
If (d_1 = A_Index || d_1 > MaxIndex)
      Config := d_1 > MaxIndex ? FirstConfig : A_LoopField , d_1 := 0
}  Until d_1 = 0
tooltip  %Config%
Return

ConfigList := "Общий|Блокнот|XBMC|notepad|"
loop, Parse, ConfigList, |
FirstConfig := A_Index = 1 ? A_LoopField : FirstConfig , Config := FirstConfig
1::
loop, Parse, ConfigList, |
{ d_1 := A_LoopField == Config ? A_Index+1 : d_1 , d_2 := 1
If (d_1 = A_Index || !A_LoopField)
      Config := !A_LoopField ? FirstConfig : A_LoopField , d_2 := 0
}  Until d_2 = 0
tooltip  %Config%
Return

ProcessConfigList := " XBMC.exe : XBMC |  notepad++.exe : Блокнот | notepad.exe : notepad "
StringSplit, ProcessConfigList, ProcessConfigList, |, %A_Space%
Process = notepad++.exe
MsgBox % IsConfig(Process)  ;%
Return

IsConfig(Process)
{
Global
Loop, %ProcessConfigList0%
{
If RegExMatch( ProcessConfigList%a_index%, "S)^\Q" Process "\E \: (.*+)", a)
Return a1
}
Return ""
}

ConfigList = Общий|Блокнот|XBMC|notepad
StringSplit, ConfigList, ConfigList, |
Config = НеConfig
Return

1::
Loop, %ConfigList0%
{
If (ConfigList%a_index% == Config)
{
a := A_Index+1
Config := A_Index = ConfigList0 ? ConfigList1 : ConfigList%a%
break
}
If A_Index = %ConfigList0%
Config = %ConfigList1%
}
tooltip  %Config% 
Return

WindowList := {"XBMC.exe": "XBMC","notepad++.exe": "Блокнот","notepad.exe": "notepad"}
b1 := ["Общий","Блокнот","XBMC","notepad"] 
Config := b1[a1]
Config := "Блокнот"
For a1, value in b1
Continue 
Until value = Config

ВклОбщий = 1
Loop
{
WinGet, Process, ProcessName, A
WinGet, PID, PID, A
If (PID = "" || Process = "")
Continue
Result := % WindowList[Process]       ;%

If (ВклОбщий = 1 && Result = "")
{
    If Config = Общий
    {
    WinWaitNotActive, ahk_pid %PID%
    Continue
    }
 Config = Общий
 For a1, value in b1
 Continue 
 Until value = Config
tooltip  %Config%
 WinWaitNotActive, ahk_pid %PID%
 Continue
}

If (Result = Config || Result = "")
{
WinWaitNotActive, ahk_pid %PID%
Continue
}

Config = %Result%
For a1, value in b1
Continue 
Until value = Config
tooltip  %Config%
WinWaitNotActive, ahk_pid %PID%
}
Return

1::
Config := b1[a1 :=  (!a1) ||  (a1>=b1.MaxIndex()) ? 1 : a1+1]
For a1, value in b1
Continue 
Until value = Config
tooltip  %Config% x %a1%  
Return