'在窗体上建一个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
End Sub
Private Sub Form_Load()
GetProcessorID
关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放 / 友情链接 Copyright ©2001-2006 Lihuasoft.net webmaster(at)lihuasoft.net 网站编程QQ群 京ICP备05001064号 页面生成时间:0.00198