VBS CPU 基准测试+信息查询，好玩又防奸商 - 中国DOS联盟论坛

无聊瞎凑合的，就当练代码


'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 ]

第1楼　fastslz	发表于 2008-02-21 15:55
铂金会员　发帖 2,315　积分 5,493　来自上海
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 ]

第2楼　suntb	发表于 2008-02-21 18:59
高级用户　发帖 277　积分 581
强悍啊fastslz兄

第3楼　xmi	发表于 2008-02-21 20:59
初级用户　发帖 56　积分 125
Originally posted by fastslz at 2008-2-21 03:55 PM: 无聊瞎凑合的，就当练代码 'CPU 基准测试+信息查询，好玩又防奸商，去电脑城选电脑带上一个吧！CPU信息一目了然。 'BY: fastslz http://bbs.cn-dos ... 超強的文件, 多謝fastslz兄的無私分享.... 另想請教fastslz兄, 代碼中那段程式可令電腦發出'登'一聲?

第4楼　fastslz	发表于 2008-02-21 21:13
铂金会员　发帖 2,315　积分 5,493　来自上海
Originally posted by xmi at 2008-2-21 20:59: 超強的文件, 多謝fastslz兄的無私分享.... 另想請教fastslz兄, 代碼中那段程式可令電腦發出'登'一聲? MsgBox "测试" , vbInformation '简化 MsgBox "测试" , 64

第5楼　xmi	发表于 2008-02-21 21:17
初级用户　发帖 56　积分 125
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???