Processor Speed 例子

Emily · 发表于 2002-12-28 19:05

從外地取得的 Processor Speed 例子 Sub ProcessorSpeed() Dim objWMI As Object Dim Cpu As Object Set objWMI = GetObject("WinMgmts:").instancesOf("Win32_Processor") '// Don't forget the computer maybe multiprocessor! For Each Cpu In objWMI MsgBox Cpu.Name & " " & Cpu.CurrentClockSpeed & " Mhz", _ vbInformation Next Set objWMI = Nothing End Sub

aa5331921 · 发表于 2007-4-20 18:11

看不懂，

不知道是什么东西，

FENGJUN · 发表于 2007-4-25 12:48

QUOTE:

以下是引用aa5331921在2007-4-20 18:11:00的发言：

看不懂，

不知道是什么东西，

检测你的机器CPU速度

happy79 · 发表于 2007-5-4 17:05

不懂

paipaitemp · 发表于 2008-1-5 14:24

怎么使用呢?

Alex_aaa · 发表于 2008-4-25 10:37

还行，测试一下。

亡者天下 · 发表于 2009-11-13 12:37

太深奥了！！！！

pt98 · 发表于 2009-11-15 10:22

'确实能用
Option Explicit
Sub ProcessorSpeed()
Dim objWMI As Object
Dim Cpu As Object
Set objWMI = GetObject("WinMgmts:").instancesOf("Win32_Processor")
For Each Cpu In objWMI
MsgBox Cpu.Name & " " & Cpu.CurrentClockSpeed & " Mhz", vbInformation
Next
Set objWMI = Nothing
End Sub

[ 本帖最后由 pt98 于 2009-11-15 10:23 编辑 ]

renqiang851224 · 发表于 2010-8-23 17:55

看不懂，

不知道是什么东西，

bibisin · 发表于 2010-8-24 21:24

1/8楼太强大了，测出了我的CPU及目前工作频率

		自动登录	找回密码
密码			免费注册

[VBA程序开发] Processor Speed 例子

回复 1楼 Emily 的帖子