Futó processzek listája

A megoldáshoz szükséges osztály neve: Process. Rögtön a programunk indulásakor a Form1 konstruktorában le is kérjük az éppen futó alkalmazások listáját. Ehhez a Process osztály GetProcesses függvényét kell meghívnunk, mely egy tömböt ad vissza, melynek minden eleme Process típusú. Ennek tárolásához létrehozunk egy globális változót processList névvel.

Private ProcessList() As Process

A GetProcesses hívása után egy ciklussal rögtön fel is töltjük a Form-on lévő ListBox komponenst a processzek neveivel. Hogy hány eleme lett a tömbnek, azt a tömb változó GetUpperBound metódusával határozzuk meg. A Process osztály ProcessName property-je tárolja az alkalmazások neveit, melyet most felsorolunk a ListBox-ban.

Public Sub New()
    MyBase.New()
    InitializeComponent()
    ProcessList = Process.GetProcesses()
    Dim i As Integer
    For i = 0 To ProcessList.GetUpperBound(0) - 1 Step i + 1
        ListBox1.Items.Add(ProcessList(i).ProcessName)
    Next
End Sub

Amikor a felhasználó rákattint a ListBox valamely elemére, akkor jön létre a SelectedIndexChanged esemény. Ezt felhasználva megváltoztatjuk a Form-on lévő Label-ek értékét lekérdezve a Process egy-egy tulajdonságát.

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
    Dim i As Integer = ListBox1.SelectedIndex
    Label1.Text = "StartTime: " + ProcessList(i).StartTime.ToString()
    Label2.Text = "BasePriority: " + ProcessList(i).BasePriority.ToString()
    Label3.Text = "ID: " + ProcessList(i).Id.ToString()
    Label4.Text = "PriorityClass: " + ProcessList(i).PriorityClass.ToString()
    Label5.Text = "ProcessName: " + ProcessList(i).ProcessName
    Label6.Text = "HandleCount: " + ProcessList(i).HandleCount.ToString()
    Label7.Text = "TotalProcessorTime: " + ProcessList(i).TotalProcessorTime.ToString()
    Label8.Text = "VirtualMemorySize: " + ProcessList(i).VirtualMemorySize.ToString()
    Label9.Text = "UserProcessorTime: " + ProcessList(i).UserProcessorTime.ToString()
End Sub