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

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

91 - Obtener la velocidad del Cpu

Este ejemplo lo que hace es leer desde la rama:

HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0\~MHz

... el valor de la velocidad del Cpu.

Para leer este dato del registro de windows, en este caso utilizamos la referencia a Windows Scripting Host ( Wmi ) , usando el método RegRead. Tambie´n lo podemos hacer con las apis para acceder el registro

msgbox para ver la velocidad del procesador

Nota: otra forma de obtener información es mediante Wmi . En este enlace Información de Cpu con wmi podés ver como obetner la velocidad del procesador y otra información

Código fuente en el formulario

Private Sub Form_Load() Const RAMA_RAGISTRO As String = "HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\" & _ "System\CentralProcessor\0\~MHz" 'variable de retorno para el valor de la velocidad Dim ret As Long 'variable para el objeto Wsh Dim Reg As Object 'Nueva instancia para usar Windos scripting Host Set Reg = CreateObject("WScript.Shell") 'Leemos el valor ret = CLng(Reg.regread(RAMA_RAGISTRO)) 'Eliminamos la variable Set Reg = Nothing 'Mostramos el valor de la velocodad del CPU MsgBox "La velocidad del Cpu es: " & CStr(ret) & " MHz", vbInformation, "" End Sub

Recursos vb 6.0 - Enlaces relacionados

Programa para obtener información del sistema

Buscar en Recursos vb