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.


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
Merci !

Guillaume