'要将Cpuinf32.dll拷到system32里面或与exe摆在一起,没有这个dll的人可从网上下载
'添加 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