Discussion :

[Gunner4902]

Bonjour,

J'utilise le bout de code suivant pour lancer un programme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Set wshell=CreateObject("WScript.Shell")
wshell.Run"movamp.exe"
WScript.Sleep(2000)
wshell.Run "C:\Progra~1\Opera\opera.exe"

Ceci lance en 1) l'environnement Apache / PHP Movamp
puis en 2 le navigateur Opera

Souvent je ferme Opera, et je clique machinalement sur le script VBS ce qui me relancer une seconde fois movamp…
Est-ce qu'il est possible de soit fermer movamp s'il est déjà ouvert, ou bien d'ignorer son "ouverture" s'il est déjà ouvert ?

[ced600]

il suffit de détecter sa présence dans la liste des process par son nom de process.

Le mieux serait de lancer movamp à l'aide de WMI en tant que process, récupérer son PID, le stocker quelque part où tes différentes instances du programme pourrait le récupérer, vérifier s'il est encore présent, et le lancer ou non en fonction de sa présence.

Inspire toi de cela :
http://msdn.microsoft.com/en-us/libr...99(VS.85).aspx

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = 'Notepad.exe'")
For Each objProcess in colProcessList
    objProcess.Terminate()
Next

[Gunner4902]

Merci

[ced600]

Non testé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Erreur, PID, Adresse_IP
Dim path_executable  'le cemin de ton process
Adresse_IP = "127.0.0.1" 'l'adresse IP d'un PC local ou distant.
path_executable = "c:\windows\system32\notepad.exe"
Set objWMIService = GetObject("winmgmts:\\" & Adresse_IP & "\root\cimv2:Win32_Process")
Erreur = objWMIService.Create(path_executable, path_executable, null, PID)
Set objWMIService = Nothing
 
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objSWbemLocator.ConnectServer(Adresse_IP, "root\CIMV2")
Set colProcessList = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE ProcessID = '" & PID & "'")
If colProcessList.count = 0 Then
   'L'exe n'est pas présent, alors tu peux le lancer.
End If