Discussion :

[will1902]

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

[Pol63]

http://msdn.microsoft.com/fr-fr/libr...=vs.90%29.aspx

le problème va être ensuite que ton appli va freezer, il ne faut pas de code long à exécuter sur le thread principal, mais en faire un autre
=> backgroundworker

[will1902]

Merci pour ta réponse.
J'ai bien lu le lien que tu as mis. Cependant, cela ne va pas toujours me lancer tous les .bat en même temps ?

[Graffito]

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.

Code :

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

1
2
3
4
5
// "C:\Temp\MyBatch.bat" est le batch à lancer
Process prc = Process.Start(@"C:\Temp\MyBatch.bat"); // lancement
prc.WaitForExit(); // attente de fin d'exécution

[will1902]

Ou dois-je le mettre ?

Est-ce que ceci est correct :

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
 
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
                Process prc = Process.Start(@"firefox.bat"); // lancement
                prc.WaitForExit(); // attente de fin d'exécution
        End If
        ProgressBar1.Value = ProgressBar1.Value + 1

Merci pour votre aide ! Je n'ai commencé à m’intéresser au VB.net que très récemment. Donc désolé pour les questions dont les réponses peuvent sembler logiques pour vous.

[Graffito]

Est-ce que ceci est correct :

Oui, j'espère que ça fonctionnera comme tu le souhaites .

[will1902]

Une dernière chose !

J'ai un petit point d'exclamation juste devant "Process" et "prc", me proposant de "Générer un sub de méthode pour process dans FORM1"

Je fais quoi ?

En cliquant dessus, il me génère les sub suivants :

Code :

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

1
2
3
4
5
6
7
 Private Sub Process(ByVal p1 As Object)
        Throw New NotImplementedException
    End Sub
 
    Private Function prc() As Object
        Throw New NotImplementedException
    End Function

[Graffito]

"Process prc" est une syntaxe C# (désolé)
En vb.net, ce serait "Dim prc As Process"

[Pol63]

J'ai bien lu le lien que tu as mis. Cependant, cela ne va pas toujours me lancer tous les .bat en même temps ?

si tu avais bien lu tu aurais vu qu'on pouvait mettre le paramètre wait à true
et donc shell attendra la fin de l'exécution avant de passer à la ligne de code suivante