Feedback

VB - Alle hängenden Prozesse beenden

Veröffentlicht von am 08.12.2007
(1 Bewertungen)
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
Abgelegt unter Process.

1 Kommentare zum Snippet

Volker Steitz schrieb am 09.12.2007:
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.
 

Logge dich ein, um hier zu kommentieren!