请教大侠，怎样获得电脑的唯一识别号，我想用来给软件加密！

Question

我过段时间，做硬盘号读取和对磁盘读写VXD
但在NT下不是很清楚。
有没有哪位朋友能指点一下。
上面的朋友，以后可以用我的或其它朋友的。

Answer 1

都格式化硬盘了，你的软件还有么？后面装的软件还能读到格式化硬盘以前你建立的信息么？所以用Api读取每次格式化建立的硬盘ID就可以了，具体内容去vb的网站看看，例子很多

Answer 2

用这个例子试试，其中的145558878用你的电脑上检测到的dwReserved来替换。
Private Type SYSTEM_INFO
    dwOemID As Long
    dwPageSize As Long
    lpMininumApplicationAddress As Long
    lpMaximumApplicationAddress As Long
    dwActiveProcessorMask As Long
    dwNumberOfProcessors As Long
    dwProcessorType As Long
    dwAllocationGranularity As Long
    dwReserved As Long
End TypePrivate Declare Sub GetSystemInfo Lib "kernel32" _
    (lpSystemInfo As SYSTEM_INFO)
    
Public Function IsValidComputer() As Boolean
Dim sysinfo As SYSTEM_INFO
GetSystemInfo sysinfoIf sysinfo.dwReserved = 145558878 Then 
    IsValidComputer = True
Else
    IsValidComputer = False
End If
End Function