VB獲取電腦機器碼

很難達到妳的要求的,VB好像是獲取不到硬盤的物理序列號的,只能獲取到某壹個分區的序列號.不過可以調用其它的程序寫的獲取硬盤物理序列號的dll來獲取,CPU的序列號我用的是wmi.VB本來對底層方面就不是很好

引用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

上一篇:求，股價放量突破30日均線，的選股公式，具體在大智慧軟件上，該如何設置，才能使用

下一篇:網絡爬蟲程序的專業搜索引擎的爬蟲策略