Fermeture
cs_fanfan61
Messages postés
27
Date d'inscription
mardi 13 avril 2004
Statut
Membre
Dernière intervention
28 juin 2004
-
29 avril 2004 à 14:24
berocca Messages postés 30 Date d'inscription lundi 21 juillet 2003 Statut Membre Dernière intervention 19 avril 2007 - 29 avril 2004 à 15:06
berocca Messages postés 30 Date d'inscription lundi 21 juillet 2003 Statut Membre Dernière intervention 19 avril 2007 - 29 avril 2004 à 15:06
1 réponse
berocca
Messages postés
30
Date d'inscription
lundi 21 juillet 2003
Statut
Membre
Dernière intervention
19 avril 2007
29 avril 2004 à 15:06
29 avril 2004 à 15:06
Je sais pas si c'est la meilleure solution, mais tu peux regarder dans les process si ton programme est toujours en train de tourner.
Private Sub controlProcess()
Dim myProcesses() As Process
Dim myProcess As Process
myProcesses = Process.GetProcesses()
For Each myProcess In myProcesses
If UCase(myProcess.ProcessName) = "TOTO.EXE" Then
MsgBox("Toto.exe tourne encore")
Else
MsgBox("Toto.exe ne tourne plus")
End If
Next
End Sub
... ou quelque chose du style...
Private Sub controlProcess()
Dim myProcesses() As Process
Dim myProcess As Process
myProcesses = Process.GetProcesses()
For Each myProcess In myProcesses
If UCase(myProcess.ProcessName) = "TOTO.EXE" Then
MsgBox("Toto.exe tourne encore")
Else
MsgBox("Toto.exe ne tourne plus")
End If
Next
End Sub
... ou quelque chose du style...
