Prozesskiller wenn "... Prozess funktioniert nicht mehr" angezeigt wird

Mikebazz · 31. Juli 2019, 10:35

Sehr geehrte Community,
ich habe es bisher geschafft mittels Code eine Prozesskontrolle quasi durchzuführen. Wenn Prozess vorhanden dann Panel grün sonst rot.

Nun der Hintergrund sollte aber wie folgt aussehen:
Ich habe einen Sender und einen Empfänger gebastelt. Der Empfänger ist unser "Admintool" welches uns mittels Panelfarbe rot oder grün zeigen soll ob der Prozess existiert und oder hängt.
Wenn der Prozess sagen wir der Prozess "X" nicht mehr funktioniert oder nicht mehr reagiert (lt. Windows: "Prozess X funktioniert nicht mehr und muss beendet werden." soll das bei uns im Admintool sofort als rotes Licht angezeigt werden am Empfänger. Hier soll noch kein Prozess.kill statt finden. Prozess.kill wird von Empfänger am Sender dann quasi gesendet wenn wir das so wollen und entscheiden.

Gibt es hier Aushilfe für mich? Wie kann ich mittels VB Code hängende Prozesse ermitteln und ABER AUCH ggf. killen/killen lassen?

Beste Grüße,
Mikebazz

RodFromGermany · 31. Juli 2019, 10:44

@Mikebazz Schau mal hier rein: Prüfen von Prozessen

Mikebazz · 31. Juli 2019, 10:47

RodFromGermany schrieb:

Schau mal hier rein

Danke für deine Antwort

Das sieht ja schon gut aus!

VB.NET-Quellcode

Sub QuitAllNotRespondingProcesses()
Dim p As Process
Dim processes As Process()
processes = Process.GetProcesses()
For Each p In processes
If Not p.Responding Then
p.Kill()
End If
Next
End Sub

Und wo kann ich hier in den Code zB definieren das er nur den Prozess "X" oder "Y" checken soll? So wie der Code nun aktuell da steht sieht es so aus als würde er alles checken.

Grüße,
Mikebazz

*Vollzitat entfernt* ~NoFear23m

RodFromGermany · 31. Juli 2019, 10:54

@Mikebazz Befass Dich mal mit der Process-Klasse:
docs.microsoft.com/de-de/dotne…ess?view=netframework-4.8
docs.microsoft.com/de-de/dotne…ame?view=netframework-4.8
Da sollten Beispiele dabei sein, die Dein Problem lösen.

Sekki · 1. August 2019, 08:39

C#-Quellcode

Sub QuitAllNotRespondingProcesses()
Dim p As Process
Dim processes As Process()
processes = Process.GetProcesses()
For Each p In processes
If Not p.Responding And p.ProcessName = "XYZ" Then
p.Kill()
End If
Next
End Sub

So um den Dreh. Ist nun aus dem Kopf, hoffentlich ist es richtig.

Mikebazz · 1. August 2019, 17:43

Sehr geehrte Community,
mit dem obigen "Code" konnte meine Software das leider nicht erkennen. Im Admintool war noch grünes Licht für quasi den ELSE Bereich also "responding". Das Programm war aber schon lange auf der Standart Microsoft Meldung: "Das Programm XYZ funktioniert nicht mehr und muss beendet werden."

Ich habe aber auch selbst muss ich gestehen zu diesen Zeitpunkt den Prozess gar nicht erst bei "Details" in den Task-Manager gefunden. Wo der Prozess zu diesem Zeitpunkt war ist ne gute Frage weil offen war es ja eigentlich noch durch die Mic. Meldung. Und gerade das wichtige ist, wenn der Prozess quasi nicht mehr reagiert, wegen der obigen Meldung von Mic. das wir auf unseren FTP in dem Fall, Wert 0 hochgeladen bekommen wobei unsere Adminsoftware Wert 0 als "rot" interpretiert.

Grüße,
Mike

*Vollzitat entfernt da unnötig* ~NoFear23m

RodFromGermany · 2. August 2019, 05:11

@Mikebazz Da wir Dein Problem so nicht nachstellen können, solltest Du parallel zum Task-Manager intensiv mit der Process-Klasse experimentieren, um Deinen Fall zunächst darstellen und dann auch lösen zu können.
Vielleicht schreibst Du noch, mit welchen Betriebssystemen Du arbeitest.

Mikebazz · 2. August 2019, 08:32

Guten Tag,
der Administrative Client läuft auf Windows 10 Pro. Der Sender oder in meinen Fall reden wir vom "ServerEye" rennt auf Windows Server 2012 R2 (lizenziert).

Das Ihr einen besseren Eindruck gewinnen könnt ist hier der aktuelle Code der eingesetzt wird natürlich wurde FTP sowie der eigentliche Prozessname zensiert.
Der unten stehende Code ist der der am ServerEye oder auch vom "sender" ausgehend.

VB.NET-Quellcode

Dim p As Process
Dim processes As Process()
processes = Process.GetProcessesByName("XYZ")
For Each p In processes
If Not p.Responding Then
Try
Dim web As New WebClient With {
.Credentials = New NetworkCredential("****", "****")
}
web.UploadString("ftp://****", "0")
Catch ex As Exception
End Try
Else
Try
Dim web As New WebClient With {
.Credentials = New NetworkCredential("****", "****")
}
web.UploadString("ftp://****", "1")
web.UploadString("ftp://****", My.Computer.Clock.LocalTime)
Catch ex As Exception
End Try
End If
Next

Im Administrativen Client ist der Code recht simpel den brauche ich hier nicht einblenden denke ich.
Einfach ein web.downloadstring vom FTP. IF 1 oder else mit 0 eben.

Das Problem ist das ServerEye erkennt scheinbar den Prozess, alles scheint normal. Aber sobald die Microsoft abgestürzt Meldung kommt, sagt er noch immer alles im grünen Bereich. Absoluter non-sense.

Grüße,
Mikebazz

VaporiZed · 2. August 2019, 09:16

1. Ist die Zielapp eine Konsolenanwendung? Dann kommt immer True zurück. Nur Apps mit GUI können laut Mikrosaft mit False antworten. → welcher Apptyp ist es?
2. Sobald das "XYZ funktioniert nicht mehr"-Fenster kommt, bekomme ich 2 Antworten! Ein False für die App und ein True für die Meldung, die unter dem gleichen Prozessnamen läuft und somit auch bei GetProcessesByName auftaucht. Vielleicht reicht das als Info, mehr hab ich momentan auch nicht. → Grätscht Dir das vielleicht rein?

Mikebazz · 2. August 2019, 09:31

VaporiZed schrieb:

Vielleicht reicht das als Info, mehr hab ich momentan auch nicht.

1) Also mein Projekt ist vb und die Applikation um welche es sich handelt ist definitiv keine Konsole.
2) Die Frage wäre jetzt, wie bekomme ich das ordentlich hin, das mir das quasi angezeigt wird oder ausgewertet wird wenn der Prozess diesen Status eben hat. (XYZ funktioniert nicht mehr"-Fenster) Gibt es hierzu was?

*Vollzitat korrigiert* ~NoFear23m

Mikebazz · 2. August 2019, 12:16

€dit:
Ich habe gerade den Prozess bzw. die Anwendung um was es sich handelt zum abstürzen gebracht. (gewollt)
Also zur Fehlermeldung: "Der prozess funktioniert nicht mehr".

Im Taskmanager verwandelt sich beim betreffenden Prozess der "Status" zu "Inaktiv". Kann man mittels VB-Code das hinten bei Details auslesen? Also wenn zB dort inaktiv steht das wir einen restart durchführen?
(dieses Bild unten ist ein Bild "ergoogelt" - es handelt sich nicht um mein Projekt, es wäre aber auch interessant zb die Abfrage auf die "Status" Tabelle zu beziehen)

@VaporiZed @Sekki

VaporiZed · 2. August 2019, 12:17

Ich weiß nicht, ob UploadString bzw die FTP-Gegenstelle neue Infos an auf dem Server bestehende anhängt oder überschreibt. Mach es mal testweise so (geschrieben aus dem Kopf heraus):

VB.NET-Quellcode

Dim AllProcessesRespond = Process.GetProcessesByName("XYZ").All(Function(x) x.Responding)
If Not AllProcessesRespond Then
Try
Dim web As New WebClient With {
.Credentials = New NetworkCredential("****", "****")
}
web.UploadString("ftp://****", "0")
Catch ex As Exception
End Try
Else
'wie bisher

Wie oft wird dieser Testcode eigentlich durchlaufen? Und: Was wird gemeldet, wenn der Prozess/die App überhaupt nicht läuft.

Mikebazz schrieb:

mein Projekt ist vb

Das ist interessant, aber irrelevant.

Mikebazz schrieb:

die Applikation um welche es sich handelt ist definitiv keine Konsole.

Sondern?

btw: Bitte Option Strict On, da UploadString mit Strings arbeitet, aber My.Computer.Clock.LocalTime (besser Date.Now mit seinen Funktionen .ToString, .ToShortTimeString, .ToLongTimeString verwenden) vom Typ Date ist und daher dort nicht verwendet werden dürfte.
Und: Fange nur Exceptions ab, die Du kennst und sinnvoll bearbeiten kannst.

Mikebazz · 2. August 2019, 12:39

Den Code habe ich jetzt mal in das "ServerEye" übernommen. Mal sehen was er jetzt sagt, Update folgt.
Der "Testcode" lauft einmal beim klick auf "Start ServerEye" durch und dann alle 30 Minuten einmal. (Timer)

Aktuell eigentlich gar nichts, weil kein Code überprüft ob der Prozess existiert, es wird ja quasi nur überprüft ob er aktiv ist oder nicht. Also das sollte eigentlich so sein aber irgendwie hat es bisher halt nicht geklappt.
Der Prozess wird ja von mir oder vom Kollegen manuell auf allen Servern 1x gestartet, mit dem Code siehe oben wollen wir den Prozess wirklich nur Monitoren wie wahrscheinlich und wie oft er abstürzt. Das sehen wir dann ohne auf unseren 23 Servern raufgehen zu müssen in unseren Admintool. (Panelfarbe)

Komischerweise wenn ich OptionStrict: On mache dann kann ich nicht mehr debuggen. Weil das ServerEye benötigt auch Adminausführung.

€dit 12:45: @VaporiZed der Code von dir scheint nun zu funktionieren, darf ich von dir erfahren was der unterschied zu meinem ist? Das ich das verstehen kann.

Grüße,
Mike

*Vollzitat komplett entfernt da unnötig* ~NoFear23m

VaporiZed · 2. August 2019, 15:48

Mikebazz schrieb:

wenn ich OptionStrict: On mache dann kann ich nicht mehr debuggen

Was meinst Du damit? Wie äußert sich das? Ich kann mir nur vorstellen, dass zig Fehler dort angezeigt werden, wo vorher scheinbar keine waren.
Der Unterschied zwischen unseren beiden Codes ist: Du gehst jeden einzelnen Zielprozess durch. Wenn der zu prüfende nicht antwortet, wird eine Rot-Nachricht an den Server geschickt. Wenn einer antwortet, dann Grün. Wie erwähnt, hast Du durch die Microsoft-Nachricht einen Zielprozess mehr, der reagiert. Für den wird also Grün gemeldet. Wenn erst Rot gemeldet wird und dann gleich Grün, kann es sein, dass der Server nur das Grün sieht. Keine Ahnung. Spekulatius.
Mein Code hingegen sagt: Dim AllProcessesRespond = Process.GetProcessesByName("XYZ").All(Function(x) x.Responding) -> "Nimm alle Zielprozesse und schreib True in die zurück, wenn alle Zielprozesse 'responden'". Also: Wenn auch nur ein einziger nicht responded, wird False in die Variable geschrieben. Und nur die Variable wird ausgewertet. Also nicht jeder Prozess einzeln, sondern quasi das Gesamtpaket wird ausgewertet.

Nofear23m · 2. August 2019, 21:08

@Mikebazz unterlasse das mit den Vollzitaten bitte, dies ist nicht erlaubt (siehe meine Edits) und versuche außerdem nur dann zu Zitieren wenn dies notwendig erscheint, das bedeutet wenn du in deiner Antwort auf einen gewissen Teil des Posts eingehen möchtest.

Mikebazz · 8. August 2019, 12:05

@Nofear23m ok

@VaporiZed Danke für deine Erläuterung!
Ich habe nun das "Update" auf allen Servern bei mir aufgespielt.
Was würde oder soll laut deinen "Code" passieren wenn der Prozess gar nicht gestartet ist oder nicht existiert in diesen Moment?

Weil auf einen Server da habe ich das Programm mit deinen ergänzten Code ebenso gestartet, er macht mir aber ein "grünes Licht" also Wert 1. Auf diesen gennanten Server lauft der Prozess aber gar nicht erst.
Der Code ist ja eigentlich auf all responding ausgelegt, aber wenn der Prozess nicht existiert was responded dann? Wegen Wert 1.

Grüße

VaporiZed · 8. August 2019, 13:03

Wenn nichts passieren soll, wenn es den Prozess nicht gibt, dann eben als Anfang:

VB.NET-Quellcode

Dim AllTargetProcesses = Process.GetProcessesByName("XYZ")
If AllTargetProcesses.Count = 0 Then Return
Dim AllProcessesRespond = AllTargetProcesses.All(Function(x) x.Responding)
If Not AllProcessesRespond Then
'und sonst wie bisher

Prozesskiller wenn "... Prozess funktioniert nicht mehr" angezeigt wird

Prozesskiller wenn "... Prozess funktioniert nicht mehr" angezeigt wird

RodFromGermany schrieb:

VB.NET-Quellcode

C#-Quellcode

VB.NET-Quellcode

VaporiZed schrieb:

VB.NET-Quellcode

Mikebazz schrieb:

Mikebazz schrieb:

Mikebazz schrieb:

VB.NET-Quellcode

Ähnliche Themen

5 Benutzer haben hier geschrieben