Discussion :

[MilouTux]

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 :

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

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 !

[pc75]

Bonjour,

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

[MilouTux]

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 :

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

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 !

[MilouTux]

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

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

[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 :

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

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.

[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à !

[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é.

[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.