Prepinani oken s casovym zpozdenim

Treba takhle:

Set WshShell=CreateObject("WScript.Shell")
While True
WshShell.SendKeys "%+{TAB}"
WScript.Sleep 5000
Wend

(prepina postupne po peti vterinach vsechny viditelne aplikace dostupne pres alt-tab; tj. musel bys je mit uz predem zmaximalizovane)

Tohle je presne ono! Jeste me zajimaji dve veci: Jak ten program vypnu a jestli to snese i vetsi cas, treba 10 minut?

Tak to je fajn
Snese to libovolnou dobu, zadny strachy, pobezi to treba pul roku .
(nebo jestli myslis maximalni pauzu mezi prepinanim - misto WScript.Sleep 5000 - tak to z hlavy nevim, ale kazdopadne tam muzes ten radek "WScript.Sleep pocetmilisekund" dat za sebou kolikrat chces ...)
Jestli to spoustis napriklad z commandlajny pres "cscript skript.vbs", tak se to vypne stisknutim "CTRL+C".

Myslel jsem prave tu max. prodlevu mezi prepnutim.

Prodleva by mela bejt bez problemu, v nejhorsim das za sebe nekolik radek "WScript.Sleep 600000" (kazda bude cekat 10 minut).

A jestli to spoustis rovnou kliknutim na skript.vbs (bez komandlajny a cscript.exe), tak to pak killnes v taskmanageru (bude to tam pod nazvem "wscript.exe").

jenže, a to vidím jako vadu krásy, ti pak bude cyklovat i samotné okno s cscript interpreterem...

Jak jsem napsal vyse - proto je lepsi spustit rovnou dvojkliknutim na skript (tj defaultne pres wscript => zadne okno navic tam nebude) a pro vypnuti killnout wscript.exe. Samozrejme se tam da udelat i nejaky normalni "vypinani", ale to je imho zbytecny.

Kdyz to spustim dvojklikem, tak tam zadne takove okno neni...

Tohle je "proof of concept" - cykluje to všechna aktuální okna 10x (dá se to předělat na "nekonečno"). Pokud bys měl přesný seznam aplikací, tak by to šlo udělat jen na přesný výčet těchto aplikací. Pokud bys chtěl, aby se "neaktivní" okna minimalizovala, odstraň komentáře ( řádky začínající znakem ' ). Pojmenuj jako soubor.vbs a poklikáním spusť.

Set Shell = WScript.CreateObject("Shell.Application")
set WshShell = WScript.CreateObject("WScript.Shell")
' Shell.MinimizeAll
For i = 1 To 10
	WshShell.SendKeys "%{TAB}"
	Wscript.Sleep 3000
	' Shell.MinimizeAll
	' Wscript.Sleep 500
Next

ale tohle bude prepinat jenom tam a zpatky mezi dvema aplikacema, ne?

ne, když se podíváš přesněji, tak je to prakticky totožné s tvým skriptem, s jedinou výjimkou, a to tou, že po odkomentování těch minimize se budou ty aplikačky minimalizovat. Přepíná to samozřejmě "celý rozsah" aplikací

nene, tvoje prepina jenom dve aplikace tam a zpatky, moje prepina celej rozsah aplikaci, vsak si to zkus
(rozdil mezi alt-tab a alt-shift-tab)