Feedback

VB - Hängende Processe beenden

Veröffentlicht von am 09.12.2007
(6 Bewertungen)
Ich hatte ja im vorhergehenden Code bemängelt, dass man auf diese Art nicht alle Processe einfach beenden kann.

Der Nachfolgende Code ist lediglich einen kleine Erweiterung. Es wird versucht die Prozesspriorität auf den niedrigsten Wert zu setzen, dann der folgt der Versuch, den Prozess zu beenden.

Der User wird über das Ergebnis informiert.
GFU-Schulungen  [Anzeige]

JavaScript für .NET-Entwickler

Sie sind .NET-Entwickler und nun stehen Sie vor der Aufgabe, JavaScript in Ihre Arbeit einzubinden. Die Schulung vermittelt Ihnen die JavaScript Grundlagen und die Funktionen der Scriptsprache. Sie wissen, wie objektorientierte Programmierung in JavaScript funktioniert und lernen abschließend Best Practicies Fälle kennen.

C# Komplett

Sie kennen sich in objektorientierter Programmierung aus. Sie schreiben C++ oder Java? Und nun stehen Sie vor der Aufgabe, in C# Anwendungen zu erstellen. Das C# Komplett-Seminar verschafft Ihnen umfassende Programmierkenntnisse in dieser Sprache. Nach der Schulung entwickeln Sie selbständig Anwendungen mit C#. Sie kennen die Datentypen und Klassenbibliotheken der objektorientierten Programmiersprache C#. Der Komplettkurs setzt bei den Grundlagen von C# ein. Sie arbeiten mit Variablen und konvertieren Typen. Multithreading, Delegates, Generics sind nach dem Seminar für Sie kein Geheimnis mehr.

  ''' <summary>
    '''Beendet alle Prozesse, die nicht mehr reagieren.
    ''' </summary>
    Private Function QuitAllNotRespondingProcesses() As String
        Dim p As Process
        Dim processes As Process()
        Dim sb As New StringBuilder
        processes = Process.GetProcesses()

        For Each p In processes
            If Not p.Responding Then
                Try
                    p.PriorityClass = ProcessPriorityClass.Idle
                    Thread.Sleep(1000)
                    p.Kill()
                    sb.AppendLine(p.ProcessName.ToString & " wurde beendet")
                Catch ex As Exception
                    sb.AppendLine(p.ProcessName.ToString & " konnte nicht beendet werden")
                End Try

            End If
        Next

        Return sb.ToString
    End Function
Abgelegt unter Thread, Process.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!