Procédure de reprise
Question
Réponses
-
EhJoe,
Nous sommes dans une communauté d'entre aides où nous participons, partageons des idées, sur des réalisations.
Chacun fait comme il veut en fonction des solutions proposer, ce n'est pas parce que vous êtes l'auteur de la plus par des idées qu'il faut être familier et un tantinet moqueur sur des solutions qui ne son pas vos idées.
Donc mon idée n'a rien d'une usine à gaz
Je pars sur le principe que l'application principale plante ou l'application n'est pas en cause mais plutôt le système ou une autre application qui ferait planté pour X raison!
Le code ci dessous est a amélioré, c'est juste une idée de départ :- Application Principale
Imports System.IO
Public Class Form1
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
'Travail courant de l'application
Label1.Text = Now
End Sub
Private Sub Form1_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
Try
' Creation du fichier pour la fermeture
Dim CloseApp As New StreamWriter("C:\temp\CloseAppPrincipal.txt")
CloseApp.Close()
Catch ex As Exception
MsgBox("Error :" & ex.Message) 'l'ecriture de fichier n'est peut etre pas possible
Application.Restart() ' Relance l'application
End Try
End Sub
Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Try
'Si le fichier existe au load on le supprime
If File.Exists("C:\temp\CloseAppPrincipal.txt") = True Then File.Delete("C:\temp\CloseAppPrincipal.txt")
' Lance l'autre application au demarrage
Dim AppPathPrinc = Path.Combine(Application.StartupPath, "AppSecondaire.exe")
Process.Start("cmd.exe", "/c " & """" & Path.Combine(Application.StartupPath, "AppSecondaire.exe") & """")
Catch ex As Exception
MsgBox(ex.Message) 'application secondaire introuvable
End Try
End Sub
End Class
- L'application Secondaire
Imports System.IO
Public Class Form1
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
If Process.GetProcessesByName("AppPrincipal").Length = 0 Then
Process.Start(Path.Combine(Application.StartupPath, "AppPrincipal.exe"))
End If
If File.Exists("C:\temp\CloseAppPrincipal.txt") = True Then Me.Close()
End Sub
End ClassA bientot
Cordialement,
Xavier TALOUR
Alias Troxsa SendMail
- Marqué comme réponse maxkun mercredi 7 décembre 2011 12:11
Toutes les réponses
-
Bonjour,
Pour ce qui me concerne je favoriserai le BackgroundWorker "ou" dans l’événement RunWorkerCompleted on pourrais intercepté les erreurs (les exception inconnu) qui ce trouve dans le DoWork alors on pourrais facilement prévoir "le quoi faire" dans le cas ou il rencontre une erreur (exceptions), par exemple redémarrer l'application ...
Il est relativement facile a comprendre comment ça fonctionne quand on met le nez dedans ...
Nous seront, dans tout les cas, là pour vous aidésA bientôt
Cordialement,
Xavier TALOUR
Alias Troxsa SendMail
-
Est-ce que vous avez réussi à résoudre votre problème en utilisant les informations reçues ? Dans l’affirmative, pouvez-vous svp marquer les messages qui vous ont aidé avancer en utilisant l’option « Marquer comme réponse » ?
Merci de tenir la communauté informée sur la suite de vos démarches.
Cordialement,
Cipri
Ciprian DUDUIALA, MSFT
•Nous vous prions de considérer que dans le cadre de ce forum on n’offre pas de support technique et aucune garantie de la part de Microsoft ne peut être offerte.
-
Maxkun,
A ma connaissance je connais aucun moyen fiable sous forme de code qui permet de faire la détection.
Mais nous pouvons voir le problème autrement en créant un autre programme qui va vérifier l’exécution de l'autre
Voilà, comment je vois la chose
Le programme principal va lancer le programme secondaire qui va faire la vérification du programme principal
Si le programme principal plante sans créer de fichier c'est que l'application a bien planté et donc le programme secondaire relancera l'application principal.
Si le fichier existe l'application principal c'est fermé correctement alors on quitte les deux applications.Je pense que c'est relativement facile a réaliser ...
Cordialement,
Xavier TALOUR
Alias Troxsa SendMail
-
EhJoe,
Nous sommes dans une communauté d'entre aides où nous participons, partageons des idées, sur des réalisations.
Chacun fait comme il veut en fonction des solutions proposer, ce n'est pas parce que vous êtes l'auteur de la plus par des idées qu'il faut être familier et un tantinet moqueur sur des solutions qui ne son pas vos idées.
Donc mon idée n'a rien d'une usine à gaz
Je pars sur le principe que l'application principale plante ou l'application n'est pas en cause mais plutôt le système ou une autre application qui ferait planté pour X raison!
Le code ci dessous est a amélioré, c'est juste une idée de départ :- Application Principale
Imports System.IO
Public Class Form1
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
'Travail courant de l'application
Label1.Text = Now
End Sub
Private Sub Form1_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
Try
' Creation du fichier pour la fermeture
Dim CloseApp As New StreamWriter("C:\temp\CloseAppPrincipal.txt")
CloseApp.Close()
Catch ex As Exception
MsgBox("Error :" & ex.Message) 'l'ecriture de fichier n'est peut etre pas possible
Application.Restart() ' Relance l'application
End Try
End Sub
Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Try
'Si le fichier existe au load on le supprime
If File.Exists("C:\temp\CloseAppPrincipal.txt") = True Then File.Delete("C:\temp\CloseAppPrincipal.txt")
' Lance l'autre application au demarrage
Dim AppPathPrinc = Path.Combine(Application.StartupPath, "AppSecondaire.exe")
Process.Start("cmd.exe", "/c " & """" & Path.Combine(Application.StartupPath, "AppSecondaire.exe") & """")
Catch ex As Exception
MsgBox(ex.Message) 'application secondaire introuvable
End Try
End Sub
End Class
- L'application Secondaire
Imports System.IO
Public Class Form1
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
If Process.GetProcessesByName("AppPrincipal").Length = 0 Then
Process.Start(Path.Combine(Application.StartupPath, "AppPrincipal.exe"))
End If
If File.Exists("C:\temp\CloseAppPrincipal.txt") = True Then Me.Close()
End Sub
End ClassA bientot
Cordialement,
Xavier TALOUR
Alias Troxsa SendMail
- Marqué comme réponse maxkun mercredi 7 décembre 2011 12:11
-
Maxkun,
- Pour répondre a votre question suivante :
Es possible de gérer l'application principal à partir du processus, je m'explique. Quand je lance ma première application, un processus est créer, ma deuxième application peut-elle retrouver ce processus, et le relancer si jamais ce dernier se coupe??
Oui c'est possible avec process ou Win32_Process (WMI) pour retrouver le chemin d’où il a été exécuté.
Si votre programme doit sans cesse tourné pourquoi ne pas faire un service Windows ?
Cordialement,
Xavier TALOUR
Alias Troxsa SendMail
-
Ne vous lancez pas dans la programmation de service si vous ne savez pas faire, puis du moment que votre programme tourne comme ça c'est le principale.
Vu que ce Thread (poste, ou fil de discussion) est résolut si vous avez d'autre question sur le "comment faire" n’hésitez pas a en ouvrir un autre.
A bientôt
Cordialement,
Xavier TALOUR
Alias Troxsa SendMail
