jump to navigation

Velocidad de tu CPU Abril 30, 2008

Posted by erik in : General , add a comment 

Private 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 Cheesy

Intelium - La programación… Abril 30, 2008

Posted by erik in : General , 1 comment so far

Intelium.BlogHostal.Es, es un nuevo blog de programación, scripts, tutoriales, aplicaciones e información.
Lenguages como, PHP, Javascript, HTMl, CSS, Batch, VB, C/C++,C#,  ActionScript  y más.