PerformanceCounterでCPU使用率をゲッツ!

Option Strict On

Module PerformanceCounter

    Sub Main()

        ' PerformanceCounterクラスのインスタンスを作成
        Dim pc As New System.Diagnostics.PerformanceCounter()

        ' プロパティを設定
        With pc

            .CategoryName = "Processor"
            .CounterName = "% Processor Time"
            .InstanceName = "_Total"

        End With

        ' 1秒おきに測定
        Do

            ' 得られた値を百分率にする
            Dim value As Single = pc.NextValue() / 100.0F

            ' 表示
            Console.WriteLine("{0:P2}", value)

            System.Threading.Thread.Sleep(1000)

        Loop

    End Sub

End Module

Option Strict On

Module PerformanceCounter

    Sub Main()

        ' PerformanceCounterクラスのインスタンスを作成
        Dim pc1 As New System.Diagnostics.PerformanceCounter()
        Dim pc2 As New System.Diagnostics.PerformanceCounter()

        ' プロパティを設定
        With pc1

            .CategoryName = "Processor"
            .CounterName = "% Processor Time"
            .InstanceName = "_Total"

        End With

        With pc2

            .CategoryName = "Processor"
            .CounterName = "% Idle Time"
            .InstanceName = "_Total"

        End With

        ' 1秒おきに測定
        Do

            ' 得られた値を百分率にする
            Dim value1 As Single = pc1.NextValue() / 100.0F
            Dim value2 As Single = pc2.NextValue() / 100.0F

            ' 使用率[%] = 1.0 - 非使用率[%]
            value2 = 1.0F - value2

            ' 表示
            Console.WriteLine("{0:P2}, {1:P2}", value1, value2)

            System.Threading.Thread.Sleep(1000)

        Loop

    End Sub

End Module

Option Strict On

Module PerformanceCounter

    Sub Main()

        ' PerformanceCounterクラスのインスタンスを作成
        Dim pc1 As New System.Diagnostics.PerformanceCounter()
        Dim pc2 As New System.Diagnostics.PerformanceCounter()

        ' プロパティを設定
        With pc1

            .CategoryName = "Processor"
            .CounterName = "% Processor Time"
            .InstanceName = "0"

        End With

        With pc2

            .CategoryName = "Processor"
            .CounterName = "% User Time"
            .InstanceName = "0"

        End With

        ' 1秒おきに測定
        Do

            ' 得られた値を百分率にする
            Dim value1 As Single = pc1.NextValue() / 100.0F
            Dim value2 As Single = pc2.NextValue() / 100.0F

            ' 表示
            Console.WriteLine("{0:P2}, {1:P2}", value1, value2)

            System.Threading.Thread.Sleep(1000)

        Loop

    End Sub

End Module

Option Strict On

Module PerformanceCounter

    Sub Main()

        ' PerformanceCounterクラス
        Dim handle As System.Diagnostics.PerformanceCounter
        Dim threads As System.Diagnostics.PerformanceCounter
        Dim processes As System.Diagnostics.PerformanceCounter

        ' インスタンスを作成
        handle = New System.Diagnostics.PerformanceCounter("Process", "Handle Count", "_Total")
        threads = New System.Diagnostics.PerformanceCounter("System", "Threads", "")
        processes = New System.Diagnostics.PerformanceCounter("System", "Processes", "")

        ' 項目名を表示
        Console.WriteLine("ハンドル スレッド プロセス")

        ' 1秒おきに測定
        Do

            Dim h As Integer = CInt(handle.NextValue())
            Dim th As Integer = CInt(threads.NextValue())
            Dim p As Integer = CInt(processes.NextValue())

            ' 表示
            Console.WriteLine(" {0:D5}    {1:D3}      {2:D3}", h, th, p)

            System.Threading.Thread.Sleep(1000)

        Loop

    End Sub

End Module

Option Strict On

Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows フォーム デザイナで生成されたコード "
#End Region

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

        Dim timer As New Timer()

        timer.Interval = 1000
        AddHandler timer.Tick, AddressOf timer_Tick

        timer.Start()

    End Sub

    Private Sub timer_Tick(ByVal sender As Object, ByVal e As EventArgs)

        Dim value As Double = performanceCounter.NextValue / 100.0F

        labelPerformance.Text = "CPU使用率(合計): " + value.ToString("P2")

    End Sub

End Class