Question

VB获取电脑机器码

程序运行流程
运行程序----获取电脑机器码(唯一物理信息）-------复制获取的机器码到剪切板--------写入序列数据到xu.txt-----结束（整个运行过程没有界面显示）

重点获取电脑机器码：
最好是硬盘物理序列+CPU序列组合
总之目的就是为了不重复。之前使用过cpu序列，发现很多相同的。
可以掉用一些dll来实现。
或者有跟好的办法也可以。
获取的是物理硬件信息，不会受到重装系统和硬盘格式化 影响
源码打包发送到 achao07@qq.com 谢谢

Answer 1

Private Shared Function GetHWInfo() As String
Dim sCpuID As String = ""
Dim sDiskID As String = ""
Dim cpu As System.Management.ManagementObjectSearcher
Dim disk As System.Management.ManagementObjectSearcher
Dim obj As System.Management.ManagementObject

cpu = New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_Processor")
For Each obj In cpu.Get
Try
sCpuID = obj("ProcessorID")
Exit For
Catch ex As Exception
End Try
Next

disk = New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
For Each obj In disk.Get
Try
sDiskID = obj("Signature")
Exit For
Catch ex As Exception
End Try

Next

Return sCpuID & sDiskID
End Function

Answer 2

其实这个问题不难啊，前几天我还碰到一个类似的问题，来百度提问几天了很多人回答我，但是都不对啊 ，。今天去bchwy提问了，期待里面的高手为我解决啊

希望楼主也去论坛试试 看 百度下吧 bcwhy

Answer 3

我给你发，计得给分```
发都发了，怎么没分？？

Answer 4

占个位,其实我也想知道...
我只会得到物理网卡地址...