Feedback

Alle hängenden Prozesse beenden

VB - Tobias Lindner Dezember 8, 2007
1 Ratings 0/5

Sprache: VB

Die folgende Funktion beendet alle Prozesse, die nicht mehr reagieren.
''' <summary>
'''Beendet alle Prozesse, die nicht mehr reagieren.
''' </summary>
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
''' <summary>
'''Beendet alle Prozesse, die nicht mehr reagieren.
''' </summary>
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
Abgelegt unter Process

Alte URL: /snippet/alle-haengenden-prozesse-beenden/727

1 Kommentar

  1. Leider ist das nicht so ganz richtig. Hängende Prozesse die in einer hohen Priorität laufen (z.B. Realtime) kann man auf diese Art und weise nicht beenden.
    Hierzu muss man zuerst einmal die Priorität herunterstufen – dann kann man die Prozese beenden.

    Damit das auch gelingt, muss man allerdings über die entsprechenden Administativen Rechte verfügen.