Private Declare Function IsWinNT Lib "DiskID.DLL" () As Long Private Declare Function ReadPhysicalDrive9X Lib "DiskID.DLL" (driveID As Long, buffer As Long, bufLen As Long) As Long Private Declare Function ReadPhysicalDriveInNT Lib "DiskID.DLL" (driveID As Long, buffer As Long, bufLen As Long) As Long
Private Type DRIVER_INFO_OK ModalNumber(39) As Byte SerialNumber(19) As Byte ControlNum(7) As Byte DriveType As Long Cylinders As Long Heads As Long Sectors As Long End Type
Private Sub Command1_Click() Dim x As DRIVER_INFO_OK Dim i As Long If IsWinNT = 1 Then i = ReadPhysicalDriveInNT(ByVal 0, ByVal VarPtr(x), ByVal 256) Else i = ReadPhysicalDrive9X(ByVal 0, ByVal VarPtr(x), ByVal 256) End If
Dim s As String s = StrConv(x.ModalNumber, vbUnicode) s = Left(s, InStr(1, s, Chr(0)) - 1) MsgBox "硬件厂商代码为：" + s s = StrConv(x.SerialNumber, vbUnicode) s = Left(s, InStr(1, s, Chr(0)) - 1) MsgBox "硬盘序列号为：" + s End Sub
2.调用diskid32.dll实现：
Option Explicit Private Declare Function DiskID32 Lib "DiskID32.DLL" (ByRef DiskModel As Byte, ByRef DiskID As Byte) As Long
Private Sub Command1_Click() Dim DiskModel(31) As Byte, DiskID(31) As Byte, i As Integer, Model As String, ID As String If DiskID32(DiskModel(0), DiskID(0)) <> 1 Then MsgBox "get diskid32 err" Exit Sub End If For i = 0 To 31 If Chr(DiskModel(i)) <> Chr(0) Then Model = Model & Chr(DiskModel(i)) End If If Chr(DiskID(i)) <> Chr(0) Then
精品推荐