Commande Shell, et ses retours

Bonjour,

Je fais mes premiers essais en vb 2010 (et vb tout court !) :oops:, 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:

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:

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

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

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:

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

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

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 ?

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

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:

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:

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

Code:

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

ca serait pas plutot

Code:

AddHandler Proc.Exited, AddressOf monProcend

???

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

Hélas non :

Code:

AddHandler Proc.Exited, AddressOf monProcend

et

Code:

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

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

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)