2009-04-28 2 views

ответ

19
Import Namespace System.Diagnostics 

' ... 
Dim cpu as New PerformanceCounter() 
With cpu 
    .CategoryName = "Processor" 
    .CounterName = "% Processor Time" 
    .InstanceName = "_Total" 
End With 

' ... 
myLabel.Text = cpu.NextValue() 
+0

thanx, который помог – Mark

+0

Прохладный, рад, что он это сделал. Рассмотрим в этом случае передовую? – codekaizen

+1

Как это не принятый ответ? – Neolisk

2

codekaizen сказал:

Import Namespace System.Diagnostics 

Dim cpu as New PerformanceCounter() 
With cpu 
    .CategoryName = "Processor" 
    .CounterName = "% Processor Time" 
    .InstanceName = "_Total" 
End With 

myLabel.Text = cpu.NextValue() 

В случае, если вы в конечном итоге с «0» (возможно, потому, что вы только что создали PerformanceCounter, а затем прямо использовали его) вам нужно добавить 2 строки, так как PerformanceCounter нужно некоторое время для работы:

System.Threading.Thread.Sleep(1000) 
myLabel.Text= cpu.NextValue 

Чтобы избежать этого сна, вы можете захотеть объявить PerformanceCounter в своем классе вместо своей Sub/Function и задать проблемы в событии загрузки форм.

Смежные вопросы