高分求助，高手进来看看啊~

Question

机器码本身是不存在的，通常是通过查找某个硬件的唯一ID来作为机器码，或几个硬件的唯一ID作为机器码，如硬盘，cpu，网卡等，但不会选择内存，声卡等常换设备。

Answer 1

Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal 
nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long 
取得硬盘的ID号

Answer 2

上面是声明，现在是程序。
程序:Private Sub Form_Load()
　　Dim sDriveLetter As String 
　　Dim RetVal As Long 
　　Dim lpName As String 
　　Dim nSize As Long 
　　Dim nSerial As Long 
　　Dim lpMaxComp As Long 
　　Dim nFileFlags As Long 
　　Dim lpFileName As String 
　　lpName = Space(255)
　　lpFileName = Space(255)
　　nSize = 255　　sDriveLetter = "a:\" ’这里你可以指定任何盘号　　RetVal = GetVolumeInformation(sDriveLetter, lpName, _
　　　nSize, nSerial, lpMaxComp, nFileFlags, lpFileName, nSize)
　　'你可以看出,不仅能得到序列号,还可以得到其他很多信息　　If RetVal = 0 Then 
　　　　'这里是你的错误处理代码
　　　　Exit Sub 'Quit the subroutine
　　Else 
　　　　lblDriveSerial.Caption = CStr(nSerial) 
　　　　'假定你已经建立了这个标签,将在标签上显示序列号.
　　End If
End Sub

Answer 3

一般 是 通过 取得 硬盘的 物理序列号 （不是 楼上取得的那种）
还有就 网卡的 MAC Address 来作为 所谓的 机器码。

Answer 4

CUP序列号；
硬盘序列号；
网卡MAC地址；
。

Answer 5

http://nowcan.yeah.net
CUP序列号； 
硬盘序列号； 
网卡MAC地址； 

Answer 6

已在 此回答了
http://www.csdn.net/expert/topic/568/568496.xml?temp=.8400232