Foro de elhacker.net

 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