cod*_*zen 20
Import Namespace System.Diagnostics
' ...
Dim cpu as New PerformanceCounter()
With cpu
.CategoryName = "Processor"
.CounterName = "% Processor Time"
.InstanceName = "_Total"
End With
' ...
myLabel.Text = cpu.NextValue()
Run Code Online (Sandbox Code Playgroud)
| 归档时间: |
|
| 查看次数: |
24144 次 |
| 最近记录: |