CPU-Last eines bestimmten Prozesses ermitteln

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

   Dim cpuCounter = New PerformanceCounter("Processor", "% Processor Time", "_Total")
    Dim procCounter = New PerformanceCounter("Process", "% Processor Time", "firefox")

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Value = CInt(cpuCounter.NextValue())
        ProgressBar2.Value = CInt(procCounter.NextValue())
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Timer1.Interval = 100
        Me.Timer1.Stop()

    End Sub

  
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub