Alle hängenden Prozesse beenden

1
2
3
4
5
6
7
8
9
10
11
12
13
14

''' <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