Programm überwachen mit Procress.Responding

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Programm überwachen mit Procress.Responding

    Hallo,

    falls mein Hauptprogramm sich mal aufhängen sollte, habe ich ein Nebenprogramm laufen, was auf diesen Fehler reagieren soll.

    Code Nebenprogramm:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    2. Option Explicit On
    4. Public Class Menue
    6. Private ProzHome As Process
    7. Private Sekunden As Integer
    8. Private SekSet As Integer
    10. Private Sub Menue_Load(sender As Object, e As EventArgs) Handles Me.Load
    12. Visible = False
    13. Opacity = 0
    14. Visible = True
    16. CenterToScreen()
    18. With Timer_Pruefung
    19. .Enabled = False
    20. .Interval = 5000
    21. End With
    23. With Timer_Aktion
    24. .Enabled = False
    25. .Interval = 1000
    26. End With
    28. SekSet = 120
    30. Sekunden = SekSet
    32. ProzHome = New Process
    33. Dim Programm() As Process = Process.GetProcessesByName("MBHome")
    35. If Not Programm.Count = 0 Then
    36. ProzHome = Programm(0)
    37. ProzHome.StartInfo.FileName = "C:\MBHome\Intern\Programm\MBHome.exe"
    38. Timer_Pruefung.Enabled = True
    39. End If
    41. End Sub
    43. Private Sub Timer_Pruefung_Tick(sender As Object, e As EventArgs) Handles Timer_Pruefung.Tick
    45. If Not ProzHome.Responding Then
    46. Aktion()
    47. End If
    49. End Sub
    51. Private Sub Aktion()
    53. Sekunden = SekSet
    54. Button_Neustart.Text = "Neustart in " & Sekunden.ToString & " Sekunden"
    55. Timer_Pruefung.Enabled = False
    56. Opacity = 1
    57. Timer_Aktion.Enabled = True
    59. End Sub
    61. Private Sub Timer_Aktion_Tick(sender As Object, e As EventArgs) Handles Timer_Aktion.Tick
    63. Sekunden -= 1
    65. Button_Neustart.Text = "Neustart in " & Sekunden.ToString & " Sekunden"
    67. If Sekunden = 1 Then
    68. Timer_Aktion.Enabled = False
    69. Neustart()
    70. End If
    72. End Sub
    74. Private Sub Neustart()
    76. Opacity = 0
    77. ProzHome.Kill()
    78. Threading.Thread.Sleep(3000)
    79. ProzHome.Start()
    80. Threading.Thread.Sleep(3000)
    82. ProzHome = New Process
    83. Dim Programm() As Process = Process.GetProcessesByName("MBHome")
    85. If Not Programm.Count = 0 Then
    86. ProzHome = Programm(0)
    87. ProzHome.StartInfo.FileName = "C:\MBHome\Intern\Programm\MBHome.exe"
    88. Timer_Pruefung.Enabled = True
    89. End If
    91. End Sub
    93. Private Sub Button_Neustart_Click(sender As Object, e As EventArgs) Handles Button_Neustart.Click
    95. Timer_Aktion.Enabled = False
    96. Neustart()
    98. End Sub
    100. Private Sub Button_Deaktivieren_Click(sender As Object, e As EventArgs) Handles Button_Deaktivieren.Click
    102. Timer_Aktion.Enabled = False
    103. Sekunden = SekSet
    104. Opacity = 0
    105. Timer_Pruefung.Enabled = True
    107. End Sub
    109. Private Sub Button_Beenden_Click(sender As Object, e As EventArgs) Handles Button_Beenden.Click
    110. Close()
    111. End Sub
    112. End Class




    Nun startet dieses Nebenprogramm sporadisch ohne ersichtlichen Grund, dass Hauptprogramm neu.
    Ist Responding für mein Vorhaben nicht geeignet oder mache ich im Code einen Fehler?
    Gruß Markus

    @Westerwälder Was tut das Programm, was soll es tun?
    Kannst Du das verbal beschreiben?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hallo Rod,

    wie schon oben geschrieben, soll dieses Programm ein anderes Programm überwachen, d.h.
    hängt sich das zu überwachende Programm auf, soll das Überwachungsprogramm das
    Hauptprogramm (was sich aufgehängt hat) beenden und wieder neu starten.
    Gruß Markus

    @Westerwälder Wie erkennt das überwachende Programm, dass das überwachte hängt?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @Westerwälder Wie äußert sich das beim überwachten Programm?
    Wenn da wegen einem Thread die GUI klemmt, wird es also rausgeschmissen?
    Um Dir zu helfen, muss ich das reproduzieren.

    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Passiert regelmäßig in einer Sub, die ein Excelblatt erstellt und anschließend ausdruckt.
    Dieser Vorgang wird in einem BGW ausgeführt.
    Drucke alle meine Dokumente auf diese Weise.
    Führe ich den Druckvorgang in der IDE aus, funktioniert alles wie gewünscht.
    In der Exe friert dann die Form ein.
    Gruß Markus

    Da stimmt dann aber was nicht - wenn man vom BGW absieht, der ziemlich obsolet ist. Wenn das Nebenläufige richtig implementiert ist, ist das Form ganz normal ansprechbar. Wenn es bei Dir frostet, dann läuft im GUI-Thread was Arbeitsintensives ab.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Westerwälder schrieb:

    Die Form friert ein.
    Starte das Programm im Debugger und mach ein Break um festzustellen, wo es klemmt.
    Mach desweiteren Console-Ausgaben, um den Ablauf zu verfolgen:
    Kommunikation zwischen Console und Form
    Angehängte Console kann nicht direkt geschlossen werden.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende