直接从RING3获取硬盘序列号

re use.  Must be zero.
End Type

Private Type TSENDCMDINPARAMS
    cBufferSize As Long   ''Buffer size in bytes
    irDriveRegs As TIDEREGS   ''Structure with drive register values.
    bDriveNumber As Byte   ''Physical drive number to send  ''command to (0,1,2,3).
    bReserved(2) As Byte   ''Reserved for future expansion.
    dwReserved(3) As Long   ''For future use.
    ''''BYTE  bBuffer(1)   ''Input buffer.
End Type

Private Type TDRIVERSTATUS
    bDriverError As Byte  ''Error code from driver, ''or 0 if no error.
    bIDEStatus  As Byte  ''Contents of IDE Error register.
           ''Only valid when bDriverError ''is SMART_IDE_ERROR.
    bReserved(1) As Byte   ''Reserved for future expansion.
    dwReserved(1) As Long   ''Reserved for future expansion.
End Type

Private Type TSENDCMDOUTPARAMS
    cBufferSize As Long      ''Size of bBuffer in bytes
    DRIVERSTATUS As TDRIVERSTATUS   ''Driver status structure.
    bBuffer(511) As Byte   ''Buffer of arbitrary length
             ''in which to store the data read from the drive.
End Type

''下面的结构是要从另一结构复制数据过来的，所以，必须是字节数与VC的完全一致
''而不能用兼容变量，但这里的我们还是用了兼容变量，Integer,因为此结构中这一
''类型的的变量程序中没有用到，如果要用到，建议改为Byte类型。因为VB没有USHORT

Private Type TIDSECTOR
    wGenConfig As Integer
    wNumCyls As Integer
    wReserved As Integer
    wNumHeads As Integer
    wBytesPerTrack As Integer
    wBytesPerSector As Integer
    wSectorsPerTrack As Integer
    wVendorUnique(2) As Integer
    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
    wN