直接从RING3获取硬盘序列号

p;        s(8) = 0
          ChangeByteOrder s, 8
          
          StrOut = ByteArrToString(s, 8)
          
          hdid9x = hdid9x & vbCrLf & "Firmware rev:" & StrOut
          CopyMemory s(0), phdinfo.sSerialNumber(0), 20
          s(20) = 0
          ChangeByteOrder s, 20
          
          StrOut = ByteArrToString(s, 20)
          
          hdid9x = hdid9x & vbCrLf & "Serial Number:" & StrOut
          
          CopyMemory s(0), phdinfo.ulTotalAddressableSectors(0), 4
          
          s(5) = 0
          Dim dblStrOut As Double
          dblStrOut = ByteArrToLong(s)
          hdid9x = hdid9x & vbCrLf & "Capacity:" & dblStrOut / 2 / 1024 & "M"
      End If
Next j

''Close handle before quit
CloseHandle (h)
CopyRight

End Function

Private Function hdidnt() As String
Dim hd As String * 80
Dim phdinfo As TIDSECTOR
Dim s(40) As Byte
Dim StrOut As String

hdidnt = ""
''We start in NT/Win2000