网页功能: 加入收藏 设为首页 网站搜索  
获取CPU的ID
发表日期:2002-09-13作者:李立华[原创] 出处:  

'引用Microsoft VMI s cripting 1.1 Library

'在窗体上建一个Text,命名为Text1,并且

'Text1.MultiLine = True

下面是全部代码

Private Sub GetProcessorID()

 Dim a As SWbemServices

 Dim b As SWbemObjectSet

 Dim c As SWbemObject

 Dim d As SWbemPropertySet

 Dim e As SWbemProperty

 

 Set a = GetObject("winmgmts:")

 Set b = a.InstancesOf("Win32_Processor")

 For Each c In b

   With c

    If .Properties_.Count > 0 Then

     Set d = .Properties_

    

     For Each e In d

      Text1 = Text1 & e.Name & ": " & e.Value & vbCrLf

     Next

    End If

   End With

 Next

End Sub

Private Sub Form_Load()

 GetProcessorID

End Sub

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 获取CPU的ID
本类热点文章
  在VB中使用WMI获取系统硬件和软件有关信..
  在VB中使用WMI获取系统硬件和软件有关信..
  将繁体中文字转化成简体中文
  将繁体中文字转化成简体中文
  获取CPU的ID
  获取CPU的ID
  在vb程序中如何获取剪贴板中所复制的文..
  在vb程序中如何获取剪贴板中所复制的文..
  更新桌面图片
  更新桌面图片
  VB编程破解Windows屏幕保护密码
  让程序的鼠标支持滚轮
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2022 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00389