CPUx = "———————————处理器信息———————————" & vbCrLf
Set CPUs = WMI.InstancesOf("Win32_Processor")
Set Caches = WMI.InstancesOf("Win32_CacheMemory")
For Each ObjCPU In CPUs
MCS = ObjCPU.MaxClockSpeed :CCS = ObjCPU.CurrentClockSpeed
If ObjCPU.MaxClockSpeed Mod 2 = 1 Then MCS = CCS + 1
If ObjCPU.CurrentClockSpeed Mod 2 = 1 Then CCS = CCS + 1
OC = QOC(CCS,MCS)
If (OC-MCS) > 10 and (OC-MCS) > 0 Then OCLC = " 超频比率: " & FormatPercent((OC-MCS)/MCS)
If (OC-MCS) < -10 and (OC-MCS) < 0 Then OCLC = " 降频比率: " & FormatPercent((OC-MCS)/MCS)
CPUx = CPUx _
& "CPU 名称: " & Trim(ObjCPU.Name) & vbCrLf _
& "CPU 构架: " & ObjCPU.Description & vbCrLf _
& "制造厂商: " & ObjCPU.Manufacturer & vbCrLf _
& "接口规格: " & ObjCPU.SocketDesignation & vbCrLf _
& "CPU 数量: " & ObjCPU.CpuStatus & vbCrLf _
& "核心数量: " & ObjCPU.NumberOfCores & vbCrLf _
& "线程数量: " & ObjCPU.NumberOfLogicalProcessors & vbCrLf _
& "地址位宽: " & ObjCPU.AddressWidth & " Bit" & vbCrLf _
& "数据位宽: " & ObjCPU.DataWidth & " Bit" & vbCrLf _
& "CPU 电压: " & ObjCPU.CurrentVoltage / 10 & "V" & vbCrLf _
& "外部频率: " & ObjCPU.ExtClock & " MHz" & vbCrLf _
& "当前频率: " & OC & " MHz" & OCLC & vbCrLf _
& "原始频率: " & MCS & " MHz" & vbCrLf _
& "CPU 使用: " & ObjCPU.LoadPercentage & "%" & vbCrLf
Next
Function QOC(CCS,MCS)
If CCS = MCS Then
Set wReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
wReg.GetDWORDValue &H80000002,"HARDWARE\DESCRIPTION\System\CentralProcessor\0","~MHz",strValue
OC = strValue :Set wReg = Nothing
Else
OC = CCS
End If
QOC = OC :If QOC Mod 2 = 1 Then QOC = QOC + 1
End Function
For Each ObjCache In Caches
If objCache.MaxCacheSize > 0 Then
Select Case objCache.Purpose
case "L1-Cache"
CPUx = CPUx & "一级缓存: " & objCache.MaxCacheSize & "KB (L1数据＋L1缓存)" & vbCrLf
case "L2-Cache"
CPUx = CPUx & "二级缓存: " & objCache.MaxCacheSize & " KB" & vbCrLf
case "L3-Cache"
CPUx = CPUx & "三级缓存: " & objCache.MaxCacheSize & " KB" & vbCrLf
End Select
End If
Next
Set Caches = Nothing:Set CPUs = Nothing
Memx = "————————————内存信息————————————" & vbCrLf
Set Memorys = WMI.InstancesOf("Win32_PhysicalMemory")
Set MemKY = WMI.InstancesOf("Win32_OperatingSystem")
For Each aKY In MemKY
ZL = aKY.TotalVisibleMemorySize
KY = aKY.FreePhysicalMemory
Next
Mems = 0:Memc = 0
Types = Array("Unknown","Other","DRAM","Synchronous DRAM","Cache DRAM","EDO","EDRAM","VRAM","SRAM", "RAM", _
"ROM","Flash","EEPROM","FEPROM","EPROM","CDRAM","3DRAM","SDRAM","SGRAM","RDRAM","DDR","DDR2")
For Each Mem In Memorys
For i = 0 To UBound(Types)
If Mem.MemoryType = i Then MemType = Types(i) :End If
Next
For j = 0 To 6
Select Case Mem.Tag
case "Physical Memory " & j
Mems = Mems+(Mem.Capacity)
Memx = Memx &"插槽" & Mem.DeviceLocator & ": " & Round(Mem.Capacity/1048576) &" MB " _
& MemType & "-" & Mem.Speed & "MHz" & " 数据带宽" & Mem.DataWidth _
& "Bit" & " 总带宽" & Mem.TotalWidth &"Bit" & vbCrLf
End Select
Next
Next
Memx = Memx _
& "内存安装: "& Round(Mems/1048576)&" MB " & vbCrLf _
& "内存总量: "& Round(ZL/1024)& " MB" & vbCrLf _
& "内存可用: "& Round(KY/1024)& " MB" & vbCrLf _
& "内存使用率: " &FormatPercent((ZL-KY)/ZL)& vbCrLf
Set Memorys = Nothing:Set MemKY = Nothing
Vx= "———