|
fastslz
铂金会员
DOS一根葱
积分 5493
发帖 2315
注册 2006-5-1
来自 上海
状态 离线
|
 『楼 主』:
VBS CPU 基准测试+信息查询，好玩又防奸商
无聊瞎凑合的，就当练代码
'CPU 基准测试+信息查询，好玩又防奸商，去电脑城选电脑带上一个吧！CPU信息一目了然。
'BY: fastslz http://bbs.cn-dos.net
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set CPUs = objWMIService.InstancesOf("Win32_Processor")
Set Caches = objWMIService.InstancesOf("Win32_CacheMemory")
For Each ObjCache In Caches
Select Case objCache.Level
case 3
aUsage = "一级缓存: " & objCache.MaxCacheSize & "KB (一级数据＋L1缓存)"
case 4
aUsage = aUsage & vbCrLf & "二级缓存: " & objCache.MaxCacheSize & "KB"
case 5
aUsage = aUsage & vbCrLf & "三级缓存: " & objCache.MaxCacheSize & "KB"
End Select
Next
For Each ObjCPU In CPUs
Usage = "CPU 名称: " & ltrim(ObjCPU.Name) & Chr(9) & vbCrLf _
& "CPU 构架: " & ObjCPU.Description & vbCrLf _
& "制造厂商: " & ObjCPU.Manufacturer & vbCrLf _
& "接口规格: " & ObjCPU.SocketDesignation & vbCrLf _
& "地址位宽: " & ObjCPU.AddressWidth & " Bit" & vbCrLf _
& "数据位宽: " & ObjCPU.DataWidth & " Bit" & vbCrLf _
& "CPU 电压: " & ObjCPU.CurrentVoltage / 10 & "V" & vbCrLf _
& "主频速度: " & ObjCPU.CurrentClockSpeed & "MHZ" & vbCrLf _
& "总线速度: " & ObjCPU.ExtClock & "MHZ" & vbCrLf & aUsage
Next
MsgBox Usage ,vbInformation ,"CPU 信息"
Dim I,T1,T2,Tempvalue,aRunTime,bRunTime
T1 = Timer()
For I = 1 To 200000
Tempvalue= 2^0.5
Next
T2 = Timer()
aRunTime = Formatnumber((T2-T1)*1000,2)
MsgBox "CPU 200万次开方计算所需时间：" &aRunTime&" 毫秒" &Chr(9), vbInformation ,"CPU 基准测试"
T1 = Timer()
For I = 1 To 2000000
Tempvalue= 1 + 1
Next
T2 = Timer()
bRunTime = Formatnumber((T2-T1)*1000,2)
MsgBox "CPU 200万次加法计算所需时间："&bRunTime&" 毫秒" &Chr(9), vbInformation ,"CPU 基准测试" [ Last edited by fastslz on 2008-2-21 at 04:06 PM ]
此帖被 +8 点积分 点击查看详情 | 评分人：【 lxmxn 】 | 分数： +8 | 时间：2008-2-21 16:12 |
|
|
第一高手 第二高手
我的小站
 |
|
 2008-2-21 15:55 |
|
|
suntb
高级用户
积分 581
发帖 277
注册 2006-12-23
状态 离线
|
|
|
2008-2-21 18:59 |
|
|
xmi
初级用户
积分 125
发帖 56
注册 2008-2-20
状态 离线
|
『第
3 楼』:
| Quote: | Originally posted by fastslz at 2008-2-21 03:55 PM:
无聊瞎凑合的，就当练代码
[code]
'CPU 基准测试+信息查询，好玩又防奸商，去电脑城选电脑带上一个吧！CPU信息一目了然。
'BY: fastslz http://bbs.cn-dos ... |
|
超強的文件, 多謝fastslz兄的無私分享....
另想請教fastslz兄, 代碼中那段程式可令電腦發出'登'一聲?
|
|
|
2008-2-21 20:59 |
|
|
fastslz
铂金会员
DOS一根葱
积分 5493
发帖 2315
注册 2006-5-1
来自 上海
状态 离线
|
『第
4 楼』:
| Quote: | Originally posted by xmi at 2008-2-21 20:59:
超強的文件, 多謝fastslz兄的無私分享....
另想請教fastslz兄, 代碼中那段程式可令電腦發出'登'一聲? |
|
MsgBox "测试" , vbInformation
'简化
MsgBox "测试" , 64
|
第一高手 第二高手
我的小站
|
|
|
2008-2-21 21:13 |
|
|
xmi
初级用户
积分 125
发帖 56
注册 2008-2-20
状态 离线
|
『第
5 楼』:
MsgBox Usage ,vbInformation ,"CPU 信息"
Dim I,T1,T2,Tempvalue,aRunTime,bRunTime
T1 = Timer()
For I = 1 To 200000
Tempvalue= 2^0.5
Next
T2 = Timer()
aRunTime = Formatnumber((T2-T1)*1000,2)
MsgBox "CPU 200萬次開方計算所需時間：" &aRunTime&" 毫秒" &Chr(9), vbInformation ,"CPU 基準測試"
T1 = Timer()
For I = 1 To 2000000
Tempvalue= 1 + 1
Next
T2 = Timer()
bRunTime = Formatnumber((T2-T1)*1000,2)
MsgBox "CPU 200萬次加法計算所需時間："&bRunTime&" 毫秒" &Chr(9), vbInformation ,"CPU 基準測試"
是不是把所有vbinformation改成64???
|
|
|
2008-2-21 21:17 |
|
|
