Discussion :

[spamitovic]

Bsr

A partir de mon programme j'exécute un autre processus nommé checkserverstatus.exe
J'aimerai savoir comment puis-je faire pour que mon programme test en continue que le processus est actif... s'il est actif la fenetre de mon programme doit rester ouverte si j'arrete ledit processus, mon programme doit le savoir et passer à la form suivante automatiquement.

J'ai testé un code qui a été posté sur le forum, mais il ne fait pas ce que je veux. Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim trouve As Boolean = False
        For Each pr As Process In System.Diagnostics.Process.GetProcesses
            If pr.ProcessName = "nom du processus" Then
                trouve = True
                Exit For
            End If
        Next
        If Not trouve Then
            Application.Exit()
        End If
 
 
    End Sub

[Pol63]

si c'est toi qui l'execute tu as raté quelque chose :

Code :

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

1
2
3
4
 
dim p as proces
p = process.Start("chemin exe")
addhandler p.[je sais plus le nom de l'evenement mais il doit surement y en avoir un qui dit que le processus s'arrete], addressof une_sub

dans le pire des cas avec un timer tu déclares p en variable de classe et

Code :

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

 if p.hasexited then me.dispose

[spamitovic]

Emmmmm stp peux m'expliquer d'avantage ?

Merci

[StormimOn]

Pol63 fait référence à l'événement Process.Exited je pense

[tobba]

le code que tu travail avec est bon , j'ai déjà travailler avec :

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
 
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim trouve As Boolean = False
        For Each pr As Process In System.Diagnostics.Process.GetProcesses
            If pr.ProcessName = "nom du processus" Then
                trouve = True
                Exit For
            End If
        Next
        If Not trouve Then
            Application.Exit()
        End If
 
 
 End Sub

mé tu ne doit pa mettre le ".exe" à la fin du nom de processus , et essaye de vérifier que tu as démarrer le timer après avoir lancer le processus