Discussion :

[olivierd77]

Bonjour,

Je fais mes premiers essais en vb 2010 (et vb tout court !) , aussi vais-je essayer d'être assez clair ...

Dans un Form, je lance un exe via une commande shell. Le code du form attend que ce programme se termine. Ensuite, j'aimerais que le code enchaîne sur l'affichage d'un textbox et d'un button.

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
 
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
 
 
        On Error GoTo erreur1
         Dim VarShellTest As String
 
        VarShellTest = Shell("C:\Program Files\CCleaner\ccleaner.exe", AppWinStyle.NormalFocus, True, 120)
        Label9.Visible = True
        TextBox1.Visible = True
        Label10.Visible = True
        TextBox2.Visible = True
        If VarShellTest > 0 Then
            TextBox1.Text = Now
            TextBox2.Text = "ici mes notes ... : "
        End If
        Teste_Programme(VarShellTest)
 
        Exit Sub
 
 
 
 
 
erreur1:
        MsgBox("Impossible de contacter le serveur", vbCritical, "Erreur de connexion")
    End Sub

Pour toute la première partie, ça fonctionne. En revanche, là où je sèche, c'est pour identifier le processus lancé, et comment déterminer s'il a été fermé, pour pouvoir afficher ensuite les infos complémentaires ...

J'ai essayé avec

Code :

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

oFoundProcess = System.Diagnostics.Process.GetProcessById(VarShellTest)

Mais je ne sais pas comment articuler la chose, et encore moins si un tel enchaînement est possible.

En espérant que vous pourrez m'apporter votre aide et quelques pistes ...

Merci d'avance !!

[Pol63]

utilises system.diagnotics.process à la place de shell, tu as un évènement pour la fin du processus

[olivierd77]

Merci Pol63 pour cette piste.

J'ai pu progresser un peu, et cela fonctionne si je lance un exe "classique" comme notepad ou ccleaner.

En revanche, je lance teamviewer, et il semble lancer lui-mêmeun process interne (pas un nouveau process). Du coup, mon code reçoit bien une fin, et continue.

Voici la partie de code concerné :

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
 
Try
            processInfo = New ProcessStartInfo("C:\Program Files\TeamViewer\Version5\teamviewer.exe")
            processInfo.WindowStyle = ProcessWindowStyle.Normal
            processInfo.Arguments = "-i " & posid & " --Password " & posmdp
            monproc = Process.Start(processInfo)
 
            ' Boucle tant que le processus n'est pas terminé
            While Not (monproc.HasExited)
                monproc.WaitForExit()
            End While
 
        Catch ex As Exception
            MsgBox("Impossible de lancer le programme" & vbCrLf & ex.Message)
        End Try
 
        Label11.Visible = True
        TextBox3.Text = Now
        TextBox3.Visible = True
        Button5.Visible = True
        TextBox2.Focus()

Est-ce qu'il y a un moyen de gérer cela ?

Merci d'avance ...

[Pol63]

il faudrait trouver le nom de ce processus le rechercher et s'abonner à l'event de celui là

[olivierd77]

Merci pour l'info. j'ai fait beaucoup de recherches sur le web, et dois bien reconnaître que là, je suis largué ...

Je connais le processus, mais je ne sais comment m'y abonner ...

Aurais-tu un petit boute de piste pour moi ?

[Pol63]

process.getprocessbyname je pense
ou si ca n'existe pas faire un for each sur process.getprocesses()
et une fois que tu as trouvé celui que tu veux tu addhandler dessus

[olivierd77]

alors ...

Je trouve bien le processus, et je pose un handhle dessus, sur l'évènement "exited" ...

Mais quand je ferme le programme, je ne passe pas par la méthode indiquée ...

Bon, j'ai déjà eu du mal à faire ce tout petit bout de machin, et le code n'est certainement pas très propre ...

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
 
        Try
 
            processInfo = New ProcessStartInfo("notepad.exe")
            processInfo.WindowStyle = ProcessWindowStyle.Minimized
 
            monproc = Process.Start(processInfo)
 
            Dim ProcessList As System.Diagnostics.Process()
            Dim Proc As System.Diagnostics.Process
            ProcessList = System.Diagnostics.Process.GetProcesses()
 
            For Each Proc In ProcessList
                If (Proc.ProcessName = "notepad") Then
                    MsgBox(Proc.ProcessName)
 
                    AddHandler System.Diagnostics.Process.GetCurrentProcess.Exited, AddressOf monProcend
                    MsgBox("handle ajouté")
                    monproc.WaitForExit()
                End If
            Next
 
           Catch ex As Exception
            MsgBox("Impossible de lancer notepad" & vbCrLf & ex.Message)
        End Try

Et voici la méthode toute simple (trop ?) appelée ...

Code :

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

1
2
3
4
 
Sub monProcend()
        MsgBox("Fermeture de notepad")
    End Sub

Si j'ai bien compris le cheminement ...

Je lance un processus. Je le trouve, j'y ajoute un handler. Le handler surveille la sortie du processus lancé. Si cette sortie est effective, cela devrait afficher la msgbox de la méthode appelée, puis continer le code de mon form.

C'est bien ça ?

Je suppose que soit mon handler est mal posé et/ou que la méthode n'est jamais appelée ...

merci pour votre patience

[Pol63]

Code :

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

AddHandler System.Diagnostics.Process.GetCurrentProcess.Exited, AddressOf monProcend

ca serait pas plutot

Code :

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

AddHandler Proc.Exited, AddressOf monProcend

???

[olivierd77]

Merci pour ta réponse rapide, et ta présence active !

Hélas non :

Code :

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

AddHandler Proc.Exited, AddressOf monProcend

et

Code :

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

AddHandler System.Diagnostics.Process.GetCurrentProcess.Exited, AddressOf monProcend

donnent le même résultat. Je ne passe pas par la méthode monProcend ...

[Pol63]

en effet l'event n'est pas déclenché ...

il reste une solution, soit avec un timer, soit un thread qui boucle avec un léger sleep et tester if leprocessus.hasexited then
je viens de tester ca marche
(ne pas rehercher le processus à chaque fois dans la liste, le garder en référence dans une variable)