Faire défiler les programmes après X minutes

Drunk Shark

Drunk Shark

8 secondes
Yo les gens,

Quelqu'un aurait une idée de comment je pourrais faire pour faire défiler deux programmes sur l'écran ?
Je m'explique, y a une télé connecté à un PC qui affiche un programme avec des stats mais j'ai également un PowerPoint que j'aimerais afficher.
Donc ce que je voudrais faire c'est que le PowerPoint s'affiche pendant 10min et ensuite le programme de stats pendant 10min et ainsi de suite, comme si que je faisais Alt+Tab chaque dix minutes quoi.
Une idée ?

Thx
 
1er
OP
Drunk Shark

Drunk Shark

8 secondes
Bon, je parle tout seul mais j'ai trouver un moyen encore plus simple que de télécharger des programmes.
Suffit de créer un fichier script .vbs avec le Bloc-notes en y mettant le code suivant :

Code: 
Option Explicit
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
Do
    WScript.Sleep 600000
    WshShell.SendKeys("%{TAB}")
Loop
On remplace les "600000" par ce qu'on veut (600000 = 600 secondes)
Et pour arrêter on fait kill le process wscript.exe dans le gestionnaire des tâches.

Wouala
 
Hyene

Hyene

💩
GG :) je vais me mettre ca de coté.
Par contre si tu a 3 soft d'ouvert et que tu ne veux un switch qu'entre 2 c'est pas possible du coup ?
MDR tu met le script a 1 sur le bureau d'un collègue :cool: pour avril ^^
 
gregsting

gregsting

Chat!
Nice, bonne idée, je vais taper ça sur le pc qui me sert de monitoring au boulot, ainsi il va alterner tout seul entre les différentes softs de monito, ça m'était jamais venu à l'idée... Encore des clics en moins, mais je vais bientôt me tourner les pouces à force d'automatiser :D
 
1er
OP
Drunk Shark

Drunk Shark

8 secondes
Hyene a dit:
GG :) je vais me mettre ca de coté.
Par contre si tu a 3 soft d'ouvert et que tu ne veux un switch qu'entre 2 c'est pas possible du coup ?
MDR tu met le script a 1 sur le bureau d'un collègue :cool: pour avril :p
Cliquez pour agrandir...
Possible, suffit de remplacer le code de Alt+Tab par un AppActivate, donc exemple :

Code: 
Option Explicit
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
Do
    WScript.Sleep 600000
    WshShell.AppActivate("Firefox")
    WScript.Sleep 600000
    WshShell.AppActivate("Calculatrice")
 
Loop
Par contre les deux progs ne doivent pas être réduit, ils doivent être "ouverts", juste superposé quoi et pas réduit dans la barre de tâche.


gregsting a dit:
Nice, bonne idée, je vais taper ça sur le pc qui me sert de monitoring au boulot, ainsi il va alterner tout seul entre les différentes softs de monito, ça m'était jamais venu à l'idée... Encore des clics en moins, mais je vais bientôt me tourner les pouces à force d'automatiser :D
Cliquez pour agrandir...
Hahahaha dis toi que c'est exactement pour faire ça que j'avais commencé à chercher ça :D Switcher entre quelques softs de stats sur nos ecrans de monitoring.
 
Hyene

Hyene

💩
:'(
Ça marche une fois sur 10.
genre pour test j'avais Outlook et Spotify
Outlook ouvert, il met spotify par dessus sans souci et reste comme ça.
mais le script tourne, car quand j'ouvre un "menu" après x temps le script le refaire, car il "change de page"
un peux comme si il fesai ALT+TAB puis juste TAB tab tab tab tab :p


Edit: C'est bon :)
 
Banshee

Banshee

Maniaco-dépressif
Autoit
 
gregsting

gregsting

Chat!
Ca marche nickel avec ton vbs, merci. En plus le fait que ça ne switche que entre les programmes "ouverts" pas ceux minimisé est hyper pratique aussi, ça permet de garder des trucs en tâche de fond...
 
Connectez-vous pour réagir !
Haut