Question

VB如何获取机器码（硬盘码、主板码等)

VB编写软件时，需要根据计算机硬件获取机器码，如何获取硬盘等硬件的机器码呢？有源码的能提供源码最好。
感谢1楼的回答，但是我要的是可以加在自己开发的软件上的代码 或 实现上述功能的方法。

Answer 1

'引用api获得硬盘序列号
Private Declare Function MymachineC 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

Private Sub Form_Load()
Dim AA, 硬盘序列号, Maxlen, Sysflag As Long: Dim VolName, FsysName As String
AA = MymachineC("c:\", VolName, 256, 硬盘序列号, Maxlen, Sysflag, FsysName, 256)
msgbox "C硬盘序列号-机器码啦-(16制): " & Hex(硬盘序列号)
End Sub

这样就搞定了

Answer 2

如果你是要保护你编写的程序，有软件可以实现，你可以不用花时间在保护程序上花时间，把时间放在实现功能上。