Question

求一段获取系统CPU使用率的代码！！！急！！在线等～

在下用VB2008写一个小程序的时候需要获取CPU使用率～～但不知道怎么弄～～～尝试过API函数不过因为VB2008不再支持VarPtr(), LenB(）这两个函数而失败了～～请问哪位大虾有别的方法？？？先给50分～代码能用再加50分～～谢谢大家啦！！！！！！！

Answer 1

你可以把pc定义为全局变量，然后添加一个定时器刷新读取之。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim pc As New System.Diagnostics.PerformanceCounter( _
"Processor", "% Processor Time", "_Total")

MsgBox(pc.NextValue().ToString)

End Sub

Answer 2

http://blog.blueshop.com.tw/hammerchou/archive/2006/06/21/30004.aspx

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