Uso de CPU, como obtenerlo con basic?

[yovaninu]

Me preguntaba si se puede obtener el uso del CPU para mostrarlo en por ejemplo una ventana de basic, si se puede ¿como se hace?, hay alguna API para esto?,  mi intencion es que un servidor de un troyano advierta al cliente si el uso del cpu de la pc remota es demasiado alto, para que en ese caso se haga algunas tareas.

Un Saludo.

[BenRu]

Código (vb) [Seleccionar] Expandir

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

[yovaninu]

gracias Benru...

encontré la fuente:

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/117-wmi-uso-cpu.htm

incluso muestra otro ejemplo que muestra mas info del procesador.

[BenRu]

gracias Benru...

encontré la fuente:

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/117-wmi-uso-cpu.htm

incluso muestra otro ejemplo que muestra mas info del procesador.

Mmm...lo tenia en el disco duro, no sabía la fuente.

Supongo que buscando un poco en google, saldrá.

Un saludo

[SERBice]

jaja, es curioso, hace un tiempo cuando necesitaba esto no lo encontraba....

¿alguein sabe com hacer para que no se pause el programa al obtener el porcentaje en uso del micro?

[yovaninu]

para no abrir otro tema, y ¿para ver el uso de PF?, algun code, es decir uso de RAM o del archivo de paginacion, por que eso significa PF o no?

saludos

[SERBice]

yo teng, en algun manual pro ahi guardado un code usando apis pra obtener e usod e ram, la ram total y no se que mas.... si queirs te lo busco, lo que no recuerdo es si funcionaba con la ram fisica, cno el PF o cno ambos juntos.