Bonjour à tous,
J'aimerai modifier un script pour lancer des applications, que j'ai trouvé sur le net. J'aimerai ajouter une fonctionnalité que je pense être simple mais je n'y connais rien en VBscript :
- Vérifier si l'application que je souhaite démarrer n'est pas déjà lancée
- Si ce n'est pas le cas, lancer l'appli
- Si c'est le cas, fermer l'application, puis la relancer
Le but est de relancer une application avec des paramètres différents, puis de lancer d'autres applis, toujours avec un timing entre chaque.
Merci !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29 ' delay startup of applications, usefull for resident apps which start with windows ' this script is public domain ! Use it, modify it, do what you want with it ' list of applications (modify with your programs) myPrograms = Array( _ "%SystemRoot%\system32\notepad.exe", _ "%SystemRoot%\system32\calc.exe", _ "%SystemRoot%\system32\winmine.exe", _ "" ) ' main startup delay in seconds (set your own delay) iMainDelay = "120" ' delay between each program in seconds (set your own delay) iIntermediateDelay = "15" ' Set shell object Set WshShell = WScript.CreateObject("WScript.Shell" ) ' wait the main delay wScript.Sleep(iMainDelay * 1000) ' launch software For Each Program In myPrograms If Program <> "" Then WshShell.Run(Program) wScript.Sleep(iIntermediateDelay * 1000) End If Next
Guillaume
Partager