'要將Cpuinf32.dll拷到system32里面或與exe擺在一起,沒(méi)有這個(gè)dll的人可從網(wǎng)上下載

'添加 Command1

Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
Private Declare Function cpunormspeed Lib "CpuInf32.dll" () As Long
Private Type MEMORYSTATUS
    dwLength As Long
    dwMemoryLoad As Long
    dwTotalPhys As Long
    dwAvailPhys As Long
    dwTotalPageFile As Long
    dwAvailPageFile As Long
    dwTotalVirtual As Long
    dwAvailVirtual As Long
End Type
Dim MemInfo As MEMORYSTATUS

Private Sub Command1_Click()
    Call GlobalMemoryStatus(MemInfo)
    mbytes = MemInfo.dwTotalPhys / 1024 / 1024
    MsgBox CStr(Int(mbytes)) & " M     " & CStr(cpunormspeed()) & " MHz"
End Sub