surveiller un processus et le relancer

Question

Bonjour,

Voila j'ai un programme  qui est censé tourner constamment
mais bon comme rien n'est fiable je cherche un moyen de surveiller cet exe et de le relancer dans le cas ou il planterai(ne reponds aps etc...)
par contre je ne sais pas du tout par ou commencer alors si quelqu'un peut me guider un peu ca serait génial!
Merci!

cs_Gammacronosios · Answer

Je peux commencer par t'aider (je pense) en te disant qu'il existe une classe "Process" qui contient les proriétés et les fonctions dont tu as besoins.

Dim _process as System.Diagnostic.Process

LaTatadu91 · Answer

j'ai trouver ceci:

Sub VerifRtopProcess()
      'Vérifie la présence d'outloo, si le process n'est pas présent on lance Outlook.
      Dim proc As New Process

      Try
         'Vérification de l'existence du process (on le trouve dans le gestionnaire des taches ^^)
         If UBound(Diagnostics.Process.GetProcessesByName("RtopServerCORUS_RAIL")) < 0 Then
            'Si il n'est pas déjà lancé on le lance donc manuellement
            proc.StartInfo.FileName = "C:\C07-03-04 DEV I4\RtopServerCORUS_RAIL\Release\RtopServerCORUS_RAIL.exe"
            'Définition du style de la fenêtre (maximisé, minimisé, normal, caché)
            proc.StartInfo.WindowStyle = ProcessWindowStyle.Normal
            'Démarrage du process
            proc.Start()
         End If
      Catch err As Exception
         MsgBox(err.ToString(), MsgBoxStyle.Critical, "Erreur !")
      End Try
   End Sub

ca te semble bien?
faut juste que je fasse un appel a cette fonction sur un timer avec sleep etc... non?

LaTatadu91 · Answer

ca marche si le processus n'est pas lancé mais je ne sais pas si ca marchera si le processus plante...

LaTatadu91 · Answer

bon comme prévu ca ne marche aps qd le processus est planté
je pense que je me rapproche de la vérité :-)
mais bon c'est pas exactement ce que je veux
si mon processus dans le gestionnaire des taches marque " ne repond pas"
ben j'aimerais le kill et relancer ....

je sais pas comment détecter le " reponds pas"

Kristof_Koder · Answer

Pour continuer dans la lancée de notre ami grammacronosios, je peux te dire que cette même classe System.diagnostic.Process possède une propriété Responding, valant False si l'interface utilisateur d'un process ne répond pas !
Pas testé, mais rien qu'à lire l'aide en ligne, ca sent bon pour toi ça, non ?

LaTatadu91 · Answer

salut 
merci pr l'info

j'ai test ceci mais il tombe en exception ...
Dim proc As New Process
      Try
 If proc.Responding Then
            Console.WriteLine("Status:  Responding to user interface")
         Else
            Console.WriteLine("Status:  Not Responding")
            proc.Kill()
            'Si il n'est pas déjà lancé on le lance donc manuellement
            proc.StartInfo.FileName = "C:\C07-03-04 DEV I4\RtopServerCORUS_RAIL\Release\RtopServerCORUS_RAIL.exe"
            'Définition du style de la fenêtre (maximisé, minimisé, normal, caché)
            proc.StartInfo.WindowStyle = ProcessWindowStyle.Normal
            'Démarrage du process
            proc.Start()
         End If
      Catch err As Exception
         MsgBox(err.ToString(), MsgBoxStyle.Critical, "Erreur !")
      End Try
franchement je ne vois pas trop!
erreur : aucun processus n'est associé a cet objet!

LaTatadu91 · Answer

ouais normal en fait a aucun moment je lui dis quel est le process a surveiller
mais comment faire pour que proc = mon application?

LaTatadu91 · Answer

re,

j'ai testé ceci :

 Dim proc As New Process
      Dim myProcesses() As Process
      myProcesses = Process.GetProcessesByName("RtopServerCORUS_RAIL.exe")
      Try
         'Vérification de l'existence du process 
         If UBound(Diagnostics.Process.GetProcessesByName("RtopServerCORUS_RAIL")) < 0 Then
            'Si il n'est pas déjà lancé on le lance donc manuellement
            proc.StartInfo.FileName = "C:\C07-03-04 DEV I4\RtopServerCORUS_RAIL\Release\RtopServerCORUS_RAIL.exe"
            'Définition du style de la fenêtre (maximisé, minimisé, normal, caché)
            proc.StartInfo.WindowStyle = ProcessWindowStyle.Normal
            'Démarrage du process
            proc.Start()
         End If
         If myProcesses(0).Responding Then
            Console.WriteLine("Status:  Responding to user interface")
         Else
            Console.WriteLine("Status:  Not Responding")
            myProcesses(0).Kill()
            'Si il n'est pas déjà lancé on le lance donc manuellement
            proc.StartInfo.FileName = "C:\C07-03-04 DEV I4\RtopServerCORUS_RAIL\Release\RtopServerCORUS_RAIL.exe"
            'Définition du style de la fenêtre (maximisé, minimisé, normal, caché)
            proc.StartInfo.WindowStyle = ProcessWindowStyle.Normal
            'Démarrage du process
            proc.Start()
         End If
      Catch err As Exception
         MsgBox(err.ToString(), MsgBoxStyle.Critical, "Erreur !")
      End Try

mais il me dit que l'indice est en dehors des limites du tableau!

LaTatadu91 · Answer

je crois que c'est bon : deux erreurs: 
1/ pas mettre .exe dans le nom du process
2/apriori vaut mieux mettre CloseMainWindow que kill ...

cs_Gammacronosios · Answer

Effectivement, il ne faut pas mettre de ".exe".
La methode "Kill" est mieux approprié pour arrété un processus car il arrête instantanément le processus alors que "CloseMainWindow" utilise la methode "Close" de la fenêtre principale du  processus (Dans ce cas imaginons que dans le programme on empêche la fermeture de la fanêtre si elle est fermé par le gestionnaire des taches : sa ne marche pas)

Ton problème d'index hors tableau est peut-être du au fait que le processus "RtopServerCORUS_RAIL" n'existe pas ou plus (donc vb retourne un tableau de process null). Essaye comme ça :

      Dim myProcesses() As Process
      myProcesses = Process.GetProcessesByName("RtopServerCORUS_RAIL.exe")
      If myprocesses is nothing then
         exit sub
      Else
         'continue avec ton code
      End if

LaTatadu91 · Answer

ouais c'est vrai que mieux vaut mettre une sécurité Merci!

Surveiller un processus et le relancer

11 réponses

Votre réponse

Discussions similaires