hd获取硬盘序列号_获取硬盘序列号的代码

sSerialNumber(19) As Byte

wBufferType As Integer

wBufferSize As Integer

wECCSize As Integer

sFirmwareRev(7) As Byte

sModelNumber(39) As Byte

wMoreVendorUnique As Integer

wDoubleWordIO As Integer

wCapabilities As Integer

wReserved1 As Integer

wPIOTiming As Integer

wDMATiming As Integer

wBS As Integer

wNumCurrentCyls As Integer

wNumCurrentHeads As Integer

wNumCurrentSectorsPerTrack As Integer

ulCurrentSectorCapacity(3) As Byte '这里只能用byte，因为VB没有无符号的LONG型变量

wMultSectorStuff As Integer

ulTotalAddressableSectors(3) As Byte '这里只能用byte，因为VB没有无符号的LONG型变量

wSingleWordDMA As Integer

wMultiWordDMA As Integer

bReserved(127) As Byte

End Type

Private Const ATTR_INVALID As Long = 0

Private Const ATTR_READ_ERROR_RATE As Long = 1

Private Const ATTR_THROUGHPUT_PERF As Long = 2

Private Const ATTR_SPIN_UP_TIME As Long = 3

Private Const ATTR_START_STOP_COUNT As Long = 4

Private Const ATTR_REALLOC_SECTOR_COUNT As Long = 5

Private Const ATTR_READ_CHANNEL_MARGIN As Long = 6

Private Const ATTR_SEEK_ERROR_RATE As Long = 7

Private Const ATTR_SEEK_TIME_PERF As Long = 8

Private Const ATTR_POWER_ON_HRS_COUNT As Long = 9

Private Const ATTR_SPIN_RETRY_COUNT As Long = 10

Private Const ATTR_CALIBRATION_RETRY_COUNT As Long = 11

Private Const ATTR_POWER_CYCLE_COUNT As Long = 12

Private Const PRE_FAILURE_WARRANTY As Long = &H1

Private Const ON_LINE_COLLECTION As Long = &H2

Private Const PERFORMANCE_ATTRIBUTE As Long = &H4

Private Const ERROR_RATE_ATTRIBUTE As Long = &H8

Private Const EVENT_COUNT_ATTRIBUTE As Long = &H10

Private Const SELF_PRESERVING_ATTRIBUTE As Long = &H20

Private Const NUM_ATTRIBUTE_STRUCTS As Long = 30

Private Const INVALID_HANDLE_VALUE As Long = -1

Private Const VER_PLATFORM_WIN32s As Long = 0

Private Const VER_PLATFORM_WIN32_WINDOWS As Long = 1

Private Const VER_PLATFORM_WIN32_NT As Long = 2

Private Type OSVERSIONINFO

dwOSVersionInfoSize As Long

dwMajorVersion As Long

dwMinorVersion As Long

dwBuildNumber As Long

dwPlatformId As Long

szCSDVersion As String * 128 ' Maintenance string for PSS usage

End Type

Private Const CREATE_NEW As Long = 1

Private Const GENERIC_READ As Long = &H80000000

Private Const GENERIC_WRITE As Long = &H40000000

Private Const FILE_SHARE_READ As Long = &H1

Private Const FILE_SHARE_WRITE As Long = &H2

Private Const OPEN_EXISTING As Long = 3

Private m_DiskInfo As IDSECTOR

Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long

Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As