Bonjour,

Débutant en VB, je viens vous solliciter !

Le but étant d'installer de manière silencieuse un certains nombre de logiciel. L'utilisateur coche via une checkbox les logiciels à installer, puis clique sur un bouton qui lance les opérations.
Ne sachant pas comment les lancer avec des paramètres de cette façon en VB, je lance des fichiers .bat qui installe des soft (firefox, thunderbird...)

Ce que je n’arrive pas à faire, c'est que VB attende le premier logiciel soit installé avant de continuer les opérations. Autrement dit, qu'il attende que la fenêtre DOS 1 se ferme car la commande est terminée, avant de passer à l'exécution du deuxième .bat.

Merci d'avance pour votre aide !

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
 Private Sub BT_INSTALL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_INSTALL.Click
 
        Dim palier As Integer
        palier = ProgressBar1.Value
 
        'Installation de Net.framework 4
        'Shell("net_framework_4.bat")
        ' ProgressBar1.Value = ProgressBar1.Value + 1
 
        'Installation de Firefox
        If Me.CBOX_FF.Checked Then
            Shell("firefox.bat")
        End If
        ProgressBar1.Value = ProgressBar1.Value + 1
 
        'Installation de Thunderbird
        If Me.CBOX_TD.Checked Then
            Shell("thunderbird.bat")
        End If
        ProgressBar1.Value = ProgressBar1.Value + 1
 
        'Installation de PDFcreator
        If Me.CBOX_PDF.Checked Then
            Shell("pdfcreator.bat")
        End If
        ProgressBar1.Value = ProgressBar1.Value + 1
 
        'Installation d'Office complet
        If Me.CBOX_OFFICE_COMPLET.Checked Then
            Shell("office_2007_complet.bat")
        End If
        ProgressBar1.Value = ProgressBar1.Value + 1
 
        'Installation d'Office sans outlook
        If Me.CBOX_OFFICE_SANS_OUTLOOK.Checked Then
            Shell("office_2007_sans_outlook.bat")
        End If
        ProgressBar1.Value = ProgressBar1.Value + 1
 
        'Installation de SaveAsPDF
        If Me.CBOX_SAVEASPDF.Checked Then
            Shell("saveaspdf.bat")
        End If
        If ProgressBar1.Value <= ProgressBar1.Maximum Then
            ProgressBar1.Value = ProgressBar1.Maximum
        End If
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            MsgBox("installation terminée !")
        End If
    End Sub