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
1 Kommentare zum Snippet