1,486
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
nettt 2010-07-20
- 打赏
- 举报
就是成功了
haokoo 2010-07-16
- 打赏
- 举报
3楼的答案是什么？
cbm6666 2010-01-09
- 打赏
- 举报
Private Sub Command1_Click()
MsgBox GetCpu
End Sub
Public Function GetCpu() As String
On Error Resume Next
Dim TmpCode$
Dim objWMIService As Object, objItem As Object, colItems As Object
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor", , 48)
For Each objItem In colItems
TmpCode = "CPU名称:" & Trim(objItem.Name) & vbCrLf & Chr(10) & "CPU系列号:" & objItem.ProcessorId & vbCrLf & Chr(10) & objItem.LoadPercentage & "%"
Next
GetCpu = TmpCode
End Function
MsgBox GetCpu
End Sub
Public Function GetCpu() As String
On Error Resume Next
Dim TmpCode$
Dim objWMIService As Object, objItem As Object, colItems As Object
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor", , 48)
For Each objItem In colItems
TmpCode = "CPU名称:" & Trim(objItem.Name) & vbCrLf & Chr(10) & "CPU系列号:" & objItem.ProcessorId & vbCrLf & Chr(10) & objItem.LoadPercentage & "%"
Next
GetCpu = TmpCode
End Function
threenewbee 2010-01-09
- 打赏
- 举报
频率可以靠CPU指令计数器获得，不过也必须Pentium Pro以上才行。
threenewbee 2010-01-09
- 打赏
- 举报
使用汇编 cpuid，就可以获得cpu bound string，不过只有 Pentium III 1AGHz+ Celeron 900A+ Athlon64+ 才支持。
nettt 2010-01-09
- 打赏
- 举报
感谢三楼的朋友
