Medidor de uso de CPU

[AnonymousKesha 11]

Código tirado de um site gringo!

 

Primeiro vá na aba Projeto>Adicionar referencia...>System.Management

 

Imports que deve ser feito :

Imports System.Management

 

Código

Private Function USO_CPU() As Integer

Dim obj_WMI As Object, obj_INFO_CPU As Object, Porcentaje As Integer

 

obj_WMI = GetObject("winmgmts:").InstancesOf("Win32_Processor")

For Each obj_INFO_CPU In obj_WMI

If obj_WMI.Count > 1 Then

Porcentaje = Porcentaje + obj_INFO_CPU.LoadPercentage

Else

Porcentaje = obj_INFO_CPU.LoadPercentage

End If

Next

 

If obj_WMI.Count > 1 Then

Porcentaje = Porcentaje \ obj_WMI.Count

obj_WMI = Nothing

obj_INFO_CPU = Nothing

End If

 

USO_CPU = Porcentaje

Exit Function

 

End Function

 

Código timer :

ListBox2.Items.Add(USO_CPU)

ListBox2.Items.Add("Verificando....")

 

Ajustes :

 

Timer deve ficar com o intervalo de 5000, porque quando é feito a verificação do uso a aplicação trava, se for menos de 5000 a aplicação vai travar e não poderá ser fechada!

 

Créditos ??????

 

Meu projeto

 

Baixar :

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Scan :

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se