Treba takhle:
(prepina postupne po peti vterinach vsechny viditelne aplikace dostupne pres alt-tab; tj. musel bys je mit uz predem zmaximalizovane)Set WshShell=CreateObject("WScript.Shell")
While True
WshShell.SendKeys "%+{TAB}"
WScript.Sleep 5000
Wend