Imports System.Diagnostics
Public Class Tester
Public Shared Sub Main
Dim pid As Integer = 12345
Dim p As Process = Process.GetProcessById(pid)
If p Is Nothing Then Return
Try
Console.WriteLine(p.Id.ToString())
Console.WriteLine(p.ProcessName)
Console.WriteLine(p.StartTime.ToLongTimeString())
Console.WriteLine(p.PriorityClass.ToString())
Console.WriteLine(p.VirtualMemorySize64.ToString())
Console.WriteLine(p.WorkingSet64.ToString())
If p.MainModule IsNot Nothing Then
Console.WriteLine(p.MainModule.FileName)
Console.WriteLine(p.MainModule.FileVersionInfo.FileDescription)
Console.WriteLine(p.MainModule.FileVersionInfo.FileVersion)
End If
Catch ex As Exception
Console.WriteLine(ex.Message)
Finally
p.Close()
End Try
End Sub
End Class
|