求助，关于生成软件机器码的问题

Question

采用那种会让机器码不那么容易变呢？1。采用硬盘系列号！可当硬盘重新进行分区时，机器码又变了！
2。网卡地址：有软件可以修改，这么注册一个其它机器都可用了
3。CPUID 好像有些CPU都没ID的````````还有其它的吗？
有的代码的话，麻烦也贴下代码，谢谢`

Answer 1

参考一下:
http://www.mndsoft.com/blog/article.asp?id=424&keyword=%E7%A1%AC%E7%9B%98

Answer 2

cpu没ID，不是吧，，通过wmi可以获取cpu唯一id。

Answer 3

http://www.pconline.com.cn/pcedu/empolder/gj/vb/0402/305202.html

Answer 4

http://www.google.com/search?hl=en&newwindow=1&rls=com.microsoft%3Aen-US&q=Serial+Number+DeviceIoControl+vb6&btnG=Search

Answer 5

谢谢各位，昨天自己也找到了```
贴一下吧`
Function machinecode()
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS", , 48)
For Each objItem In colItems
    Text1.Text = Text1.Text & Left(objItem.ReleaseDate, 8) 'bios日期
Next
Set colItems = objWMIService.ExecQuery("Select * from Win32_DiskDrive", , 48)
For Each objItem In colItems
    Text1.Text = Text1.Text & objItem.Signature '硬盘系号
    Exit For
Next
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor", , 48)
For Each objItem In colItems
    Text1.Text = Text1.Text & objItem.ProcessorId 'CPUID
    Exit For
Next
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration", , 48)
For Each objItem In colItems
    Text1.Text = Text1.Text & objItem.MACAddress   '网卡地址
    Exit For
Next
End FunctionPrivate Sub Command1_Click()
machinecode
End Sub