.net获取系统性能计数器数据

<< VB.Net 使用 PerformanceCounter 的寫法 >>

 

Imports System.Diagnostics ' 匯入System.Diagnostics 命名空間

 

Public Class Form1

 

    ' 宣告並建立"效能計數器元件" 類別

    ' New PerformanceCounter(CategoryName,CounterName,InstanceName)

    Private PfmcCounter As New PerformanceCounter("Processor", "% Processor Time", "_Total")

    ' CategoryName : 取得或設定這個效能計數器的效能計數器分類的名稱。

    ' CounterName : 取得或設定與這個PerformanceCounter 執行個體相關的效能計數器的名稱。

    ' InstanceName : 取得或設定這個效能計數器的執行個體名稱。

 

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

        Timer1.Interval = 900 ' Timer.Interval 屬性:  取得或設定引發Elapsed 事件的間隔。

        Timer1.Enabled = True ' 啟動Timer

    End Sub

 

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        ' PerformanceCounter.NextValue 方法: 取得計數器樣本，並為其傳回計算過的值。

        Label1.Text = PfmcCounter.NextValue.ToString & " %"

    End Sub

 

End Class

 

 

================================================================

 

 

<< VB.Net 使用 WMI 的寫法 >>

 

Dim objWMI As Object

 

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

    Timer1.Interval = 500

    Timer1.Enabled = True

    objWMI = GetObject("winmgmts:")

End Sub

 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ' Timer 事件

    CPU_Usage()

End Sub

 

Private Sub CPU_Usage() ' 用 WMI 取得 CPU 使用率

    Dim strCls, strCPU As String

    strCls = "Win32_Processor" ' WMI 類別

    strCPU = "CPU0" ' 當有多顆 CPU 時 , 可調整為 CPU1 , CPU2 .. 依此類推

    Debug.WriteLine(objWMI.InstancesOf(strCls)(strCls & ".DeviceID=""" & strCPU & """").LoadPercentage) ' 取得使用率

End Sub

转贴自 http://blog.blueshop.com.tw/HammerChou/