南强小屋 Design By 杰米
复制代码 代码如下:
Public Sub getCpuId()
Try
Dim mc As Management.ManagementClass
Dim moc As Management.ManagementObjectCollection
Dim mo As Management.ManagementObject
mc = New Management.ManagementClass("win32_processor")
moc = mc.GetInstances()
For Each mo In moc
strCpuId = mo.Properties("processorid").Value.ToString()
Next mo
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Public Sub getCpuId()
Try
Dim mc As Management.ManagementClass
Dim moc As Management.ManagementObjectCollection
Dim mo As Management.ManagementObject
mc = New Management.ManagementClass("win32_processor")
moc = mc.GetInstances()
For Each mo In moc
strCpuId = mo.Properties("processorid").Value.ToString()
Next mo
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
标签：
硬件信息,CPU序列号
南强小屋 Design By 杰米
广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！ 如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！ 如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
南强小屋 Design By 杰米
暂无.net获取硬件信息_CPU序列号的评论...