Comment créer une fenêtre simple, comment attendre qu'un processus se termine ?

Version imprimable

Bonjour,

Je souhaiterais créer une fenêtre toute simple, qui contiendrait un message et un bouton. Une fois le bouton pressé, le script lance un programme .exe, attend la fin de son exécution et lance un autre script.
Mes questions sont :
- Comment créer une fenêtre toute simple avec un message et un bouton ?
- Comment récupérer la "pression sur le bouton" ?

- J'ai pu voir dans la FAQ qu'une commande permettait de lister les processus. Cependant, comment récupérer un processus de cette liste (et je ne veut pas afficher la liste dans des fenêtres comme le fait le code ci-dessous) ?
Code:

1 2 3 4 5 6 Set objWMI = GetObject("winmgmts:root\cimv2") sQuery = "Select * from Win32_process" For Each oproc In objWMI.execquery(sQuery) Wscript.echo oproc.Name & " = " & oproc.ExecutablePath Next Set objWMI = Nothing
- Comment attendre que le processus se termine pour lancer une autre commande ?

Merci !

02/05/2007, 13h00
pc75

Bonjour,

Tu peux déjà regarder du coté de InputBox

Finalement j'ai téléchargé l'aide indiquée par la FAQ. Voici le code permettant de faire une petite fenêtre avec un message, deux boutons, ok et annuler. Lorsque l'on clique sur ok cela exécute un autre programme.
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim MyFrame MyFrame = MsgBox ("En cliquant sur ok, un logiciel sera installer,"+VbCrLf+"après l'installation, le logiciel bidul"+VbCrLf+"sera lancé.", vbOKCancel+vbInformation, "Installation bidul") If MyFrame = 1 Then Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run "LittleGUI.exe", 0, true End If
En ce qui concerne l'attente de la fin d'un processus, je continue de chercher !:D

Bon j'ai finalement trouvé comment attendre qu'un processus se termine voici le code avec les commentaires :

Code:

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
30
31
' on intitialise quelques valeurs
strComputer = "."
intI = 1

' Un script WMI utilisant la classe Win32_process pour obtenir 
' la liste des processus actifs
' morceau de code pris de la FAQ dans "Comment tuer un processus?"
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colProcessList = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = 'notepad.exe'")

' je fais une boucle qui continue à faire une liste tant que
' la liste précédente n'est pas vide
' soit : tant que le processus voulu est dans la liste
' si intI vaut 0, cela signifie que le processus est terminé
While intI > 0
        ' on initialise la variable de comptage à chaque fois
	intI = 0
	Set colProcessList = objWMIService.ExecQuery _
	("Select * from Win32_Process Where Name = 'notepad.exe'")
        ' on compte le nombre de fois qu'apparait le processus voulu dans la
        ' liste
	For Each oproc In colProcessList
        	intI = intI + 1
        Next
WEnd

'mettre ici que l'on veut faire après la fin du processus

Voilà, je pense qu'il y a une manière plus simple ... Sinon j'espère que ça servira à quelqu'un !

07/05/2007, 10h30
abertaud

Peux-tu donner davantge de précision sur ta "fin de processus". Je ne suis pas sûr d'avoir bien compris

La ligne de code que tu as mises :

Code:

WshShell.Run "LittleGUI.exe", 0, true

permet justement de "bloquer" ton script jusqu'a ce que LittleGUI.exe ait totalement terminé son routine d'exécution.
09/05/2007, 13h24
MilouTux

Oui, en ce qui concerne la ligne où j'ai marqué "LittleGUI.exe", c'était juste pour montrer comment je faisais une fenêtre simple. Pour ce qui est du code qui attend qu'un processus se termine, tout est marqué ci-dessus avec les commentaires de chaques lignes.

Voilà !
28/05/2007, 14h57
Lanyaid

Bonjour,
le fait de mettre "true" en paramètre de ta commande "WshShell.run" va attendre que LittleGUI.exe soit finit avant de continuer, je ne vois pas trop a quoi sert le bout de code que tu as ajouté.
29/05/2007, 10h37
MilouTux

Bonjour,

Oui le 'true' attend que le processus 'LittleGUI.exe' soit finit, mais avec cette petite fenêtre je lance un autre programme c'est pourquoi j'ai ajouté l'autre morceau de code. :D