;--------------  Рамка
TH = 6   ; толщина рамки

   SetWinDelay, 0
   Gui, +LastFound +ToolWindow -Caption +AlwaysOnTop +Disabled
   WinGet, ID
   Gui, Color, Yellow

   SetTimer, Frame, 50
   Return

Frame:
   WinGetPos, X, Y, W, H, A
   if (X = XPrev && Y = YPrev && W = WPrev && H = HPrev)
      Return

   XPrev := X, YPrev := Y, WPrev := W, HPrev := H
   X -= TH, Y -= TH, W += 2*TH, H += 2*TH

   Gui, Show, x%X% y%Y% w%W% h%H% Hide
   Options := "0-0 " W "-0 " W "-" H " 0-" H " 0-0 " TH "-" TH
      . " " W-TH "-" TH " " W-TH "-" H-TH " " TH "-" H-TH " " TH "-" TH
   DetectHiddenWindows, On
   WinSet, Region, % Options, ahk_id %ID%
   Gui, Show, NA
   Return

WinArray.1

   Capacity = 10   ; сколько окон запоминать

   WinArray := []
   Loop
   {
      WinGet, ID,, A
      if (!ChangeActiveHotkey && ID != WinArray.1)
      {
         WinArray.Insert(1, ID)
         WinArray.Remove(Capacity + 1)
         CurrentWin = 1
      }
      ChangeActiveHotkey =
      WinWaitNotActive, ahk_id %ID%
   }
   Return

^Left::
^Right::
   limit := A_ThisHotkey = "^Left" ? WinArray.MaxIndex() : 1
   if (CurrentWin = limit)
      Return
      
   ChangeActiveHotkey = 1
   CurrentWin := A_ThisHotkey = "^Left" ? ++CurrentWin : --CurrentWin
   WinActivate, % "ahk_id " WinArray[CurrentWin]
   Return

MAX_WINDOWS := 3 ;сколько окон запоминаем
stop		:= 0

;обнуляем все дескрипторы
i:=0
while i<=MAX_WINDOWS
{
	window%i%:=0
	i:=i+1
}

WinGet, cur, ID, A
window1:=cur
while stop==0
{
	;ждём пока текущее окно не потеряет фокус
	WinWaitNotActive ahk_id%cur%
	;получаем дескриптор нового активного окна
	WinGet, cur, ID, A
	;если получить не удалось, то ждём 1/20 секунды и пробуем снова.
	;Если и тогда не получится, то переходим к следующему витку цикла
	if cur=
	{
		sleep 50
		WinGet, cur, ID, A
		if cur=
			continue
	}
	;ищем текущее окно в сохранённых
	i := 1
	while i<= MAX_WINDOWS
	{
		if(cur=window%i%)
		{
			break
		}
		i:=i+1
	}
	;если нету, то будем менять последний
	if(i>MAX_WINDOWS)
	{
		i:=MAX_WINDOWS
	}
	;меняем
	while i > 1
	{
		k := i-1
		window%i% := window%k%
		i := k
	}
	window1 := cur
}
;===========================================

F2::
	;если окно ещё существует, то показываем его, иначе выводим сообщение
	ifWinExist ahk_id%window2%
		WinActivate ahk_id%window2%
	else
		msgbox Окна уже нет
return
F3::
	ifWinExist ahk_id%window3%
		WinActivate ahk_id%window3%
	else
		msgbox Окна уже нет
return
F12:: 
	;прервать слежку за окнами после смены этого окна
	stop := 1
return