Imports System.IO
Imports System.Reflection
Imports System.Linq
Imports System.Xml.Linq
Public Class MainClass
Public Shared Sub Main
Dim pList = From proc In System.Diagnostics.Process.GetProcesses() _
Select ProcessName = proc.ProcessName, _
Size = (Format(proc.WorkingSet64 / 1000, "#,##0") & " KB"), _
Size64 = proc.WorkingSet64 _
Order By Size64 _
Take 5
Console.WriteLine("These 5 processes are using the most memory:")
For Each p In pList
Console.WriteLine(p.ProcessName & " - " & p.Size)
Next
End Sub
End Class
|