DESCOBRIR MHZ

USUARIO.EXCLUIDOS 27/05/2005 00:53:45
#85407
Pela segunda vez,

alguém sabe como posso pegar o clock (mhz) do processador ?

Obrigado,
DIOGENES.DIAS 27/05/2005 16:02:27
#85523
Para qual propósitop deseja fazer isto?
Está querendo criar uma interface?
DANIELCPAETE 27/05/2005 17:37:59
#85558
Voce Pode capturar essa informação nas chaves de registro

'em um modulo

Option Explicit

Public Function GetCPUSpeedMHz() As Long
  Dim Temp As Long
  Dim Reg As Object
  Set Reg = CreateObject("WScript.Shell")
  Temp = CLng(Reg.regread("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0\~MHz"))
  Set Reg = Nothing
  GetCPUSpeedMHz = Temp
End Function

Sub main()
  MsgBox "CPU Speed is " & CStr(GetCPUSpeedMHz) & " MHz", vbInformation, "Mhz"
End Sub
USUARIO.EXCLUIDOS 28/05/2005 01:01:31
#85588
Puxar isso do registro só funfa com o XP...

é que tow fazendo um front-end prum jogo, então o programa irá auto-configurar de acordo com a potência do pc..
Tópico encerrado , respostas não são mais permitidas
Voltar