Velocidad de tu CPU Abril 30, 2008
Posted by erik in : General , trackbackPrivate Sub Form_Load()
Dim Regregistro As Long
Dim Registro As Object
Set Registro = CreateObject("WScript.Shell")
Regregistro = CLng(Reg.regread("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\~MHz"))
Set Registro = Nothing
MsgBox "La velocidad del CPU es: " & CStr(Regregistro) & " MHz", vbInformation, "Velocidad de tu CPU:"
End Sub
Con la variable registro, buscamos en los registros del ordenador la velocidad del CPU y lo declaramos en otra variable, luego borramos la variable que lo buscaba para posibles proximas busquedas y con un msgbox mostramos el resultado 
Comments»
no comments yet - be the first?