怎样得到CPU的型号,请以代码说明(简明)
解决方案 »
- 逻辑思维是否可以培养?
- 请问高手,在vb中如何判断某网页中是否存在某段文字????
- 高手来!!在VB调ADO时,用联接开始事务时老出错。提示:-2147168227错误号,错误描述:由于超出容量限制,不能创建新事务。
- 如何修改WMV文件的版权信息!
- 请教一个关于实现文字提示的问题
- 特急求助!(外地出差急用)vb+windows98/2000下怎么设置键盘鼠标钩子?各位,不管会不会帮个场也好啊!
- 如何让text控件里只能输入"20030721"的日期格式?如果不是则提示出错。
- 请问,在VB中,按钮有一个DEFAULT这个属性,在VB.NET中是哪一个?
- 倍儿菜在吗?我急需msdn!谢谢!!!
- 有关文件系统控件的问题,帮帮忙
- 两个数据库操作的小问题,可我不会啊!
- 请问一个很菜得问题!望高手解答!
http://www.sijiqing.com/vbgood/download/code/cpuinf.zip
'以下是获得CPU型号
Private Sub wmiProcessorInfo() Dim wmiObjSet As SWbemObjectSet
Dim obj As SWbemObject
Set wmiObjSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
InstancesOf("Win32_Processor")
On Local Error Resume Next
For Each obj In wmiObjSet
MsgBox obj.Name
Next
End SubPrivate Sub Command1_Click()
wmiProcessorInfo
End Sub可以看看我的文章
http://www.csdn.net/Develop/read_article.asp?id=23371
也就是世界上出产的每一颗都不同的?