Sección de códigos , trucos y ejemplos para visual basic

117 - Ejemplos para obtener el consumo del CPU

Contenido

Ejemplo utilizando Wmi
Ejemplo 2 con Wmi
Utilizando la Api de windows
Enlaces relacionados

Con Wmi

El siguiente código fuente muestra como obtener por medio de Windows Management Instrumentation - Wmi , el porcentaje de uso o consumo del CPU

Controles

Para el ejemplo colocar

Un Timer
y un Label donde se visualiza el porcentaje.

Código en un formulario

Option Explicit 'Función que consulta el porcentaje de uso Private Function USO_CPU() As Integer Dim obj_WMI As Object, obj_INFO_CPU As Object, Porcentaje As Integer Set 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 Set obj_WMI = Nothing Set obj_INFO_CPU = Nothing End If USO_CPU = Porcentaje Exit Function End Function Private Sub Form_Load() Timer1.Interval = 1000 Label1.Caption = " Uso del CPU: " End Sub Private Sub Timer1_Timer() 'Mostramos el porcentaje de consumo del CPU Label1.Caption = Label1.Caption & USO_CPU & " %" End Sub

Ejemplo 2 con Wmi

Este otro ejemplo mas completo hecho por Microsoft, también usa Wmi y permite listar en un control ListBox la velocidad, la caché, la descripción, la marca y otra información .

Descargar

formulario con la información del procesador

Utilizando la Api de windows

Este es un código fuente publicado en el sitio web Visual basic Forums , que muestra como recuperar el uso de CPU y visualizar el valor en el systray. Al hacer clic despliega un formulario para visualizar el porcentaje de uso, y funciona también para sistemas dual core.

Para ello utiliza las siguientes apis de windows : PdhCollectQueryData, PdhOpenQuery, PdhVbAddCounter, PdhVbGetDoubleCounterValue, PdhLookupPerfNameByIndex y la función GetSystemInfo entre otras, que permite obtener información del sistema.

Ver artículo ( incluye el código fuente )

Vista previa del programa

Enlaces relacionados

Buscar en Recursos vb