Mensajes

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

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

Vean este, es buenisimo  :

[youtube=425,350]
http://es.youtube.com/watch?v=7NE1MpryLTc[/youtube]

La primera vez que voy a usar las etiquetas de youtube   

[youtube=425,350]http://es.youtube.com/watch?v=5twq_WEXPrs[/youtube]


[youtube=425,350]http://es.youtube.com/watch?v=Z29GSdPMl-w[/youtube]


Y como no podia faltar 
[youtube=425,350]
http://es.youtube.com/watch?v=JsxwmdOvC4g[/youtube]

Gracias por la respuesta^^, pero no lo acabo de entender bien...
Podris poner un ejemplo de cambiar los permisos a un archivo de texto?¿?

Gracias.

Salu2^^

Depende del gestor ftp que tengas.

La mayoria de las veces, haces click derecho en el archivo, te vas a permisos o propiedades y lo pones en 777

Un saludo

Todo tiene un porqué:

http://www.fortunecity.es/poetas/poemas/141/rosa_azul_leyenda.htm

Lastima que no capto  es la mejor frase que oido 

Bueno tengo 18  y nop soy gay 

El rosa me empezo a gustar para joder a mi papa por que decia que no era de hombres  y le dije que sip a  mi me encanta  termino pintando las paredes de mi cuarto de rosa    y bueno aun creo que es lindo    aunque ya ni hablo con mi papa 

Sin palabras...

NYU, eres un tio?

Juas, pensaba que eras una tia...con tus avatares rosas y tu miau....


xDDDDDDDDDDDDDDDDDDDDDDDDD

Mmm...no lo entendí....

Alguien puede explicarme que es esto o su utilidad?

"A ser preferible, lo segundo"....


Un saludo

Pfff...menuda frikada....

Si le dices eso a una tia, pensarás que estas enfermo