Hängende Processe beenden

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

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