Цикличное переключение окон на сенсорном мониторе

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("", 60, 60, 0, 0,-1,$WS_EX_TOPMOST)
$Button1 = GUICtrlCreateButton("", 0, 0, 60, 60)

GUISetState(@SW_SHOW)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            Send("{ALTDOWN}")
			Send("{TAB}")
			Sleep(10)
			Send("{ALTUP}")

    EndSwitch
WEnd

#include <WinAPI.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>


Const $WS_EX_NOACTIVATE = 0x08000000
Global $iWin = 0, $aWin[1], $hGUI, $iButton1

$hGUI = GUICreate('TaчОкно', 60, 60, @DesktopWidth - 60, 0, $WS_POPUPWINDOW, BitOR($WS_EX_TOPMOST, $WS_EX_NOACTIVATE))
$iButton1=GUICtrlCreateLabel("", 0, 0, 60, 60)



GUISetState(@SW_SHOW, $hGUI)

zap()
While 1
	$msg = GUIGetMsg()
	Select
		Case $msg = $GUI_EVENT_CLOSE
			Exit
		Case $msg = $iButton1
			sw()
			zap()
	EndSelect
	Sleep(50)
WEnd

Func zap()
	Local $aList, $iAll = 0
	$aList = WinList()
	ReDim $aWin[1]
	If $aList[0][0] Then
		For $i = 1 To $aList[0][0]
			$sClass = _WinAPI_GetClassName($aList[$i][1])
			If $sClass <> 'Progman' And $sClass <> 'Shell_TrayWnd' And $sClass <> 'Button' Then
				If $aList[$i][0] Then
					If BitAND(WinGetState($aList[$i][1]), 2) Then
						If Not WinActive($aList[$i][1]) And $hGUI <> $aList[$i][1] Then
							$iAll += 1
							ReDim $aWin[$iAll]
							$aWin[$iAll - 1] = $aList[$i][1]
						EndIf
					EndIf
				EndIf
			EndIf
		Next
	EndIf
;~ 	For $i = 1 To UBound($aWin) - 1
;~ 		ConsoleWrite(WinGetTitle($aWin[$i]) & ' ' & _WinAPI_GetClassName($aWin[$i]) & @LF)
;~ 	Next
EndFunc   ;==>zap

Func sw()
	$iWin += 1
	If $iWin > UBound($aWin) - 1 Then $iWin = 1
	WinActivate($aWin[$iWin], '')
EndFunc   ;==>sw