Cześć, znalazłem taki skrypt napisany w Virtual Basic pod konsole, ale potrzebuje go w aplikacji okienkowej.
Skrypt ma za zadanie wypisać wszystkie procesy i wyświetlić czas ile pracują.
Imports System.Diagnostics
Module Module1
Sub Main()
Dim AllProcesses() As Process = Process.GetProcesses()
For idx = 0 To AllProcesses.Length - 1
Try
Dim ProcessTime As TimeSpan = New DateTime(Now.Year, Now.Month, Now.Day, Now.Hour, Now.Minute, Now.Second) - AllProcesses(idx).StartTime 'Obliczenie czasu pracy procesu (Czas który jest teraz - czas startu procesu)
Console.Write(AllProcesses(idx).ProcessName & " ")
Console.WriteLine(ProcessTime)
Catch Ex As ComponentModel.Win32Exception
Console.WriteLine(AllProcesses(idx).ProcessName & " brak dostępu!")
End Try
Next
Console.ReadKey(True)
End Sub
End Module