www.pudn.com > 取硬盘物理序列号.zip > Module1.bas

Attribute VB_Name = "Module1" 
Public Declare Function HDSerialNumRead Lib "HDSerialNumRead.dll" () As String 
 
Public 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 
Public Const VER_PLATFORM_WIN32s = 0 
Public Const VER_PLATFORM_WIN32_WINDOWS = 1 
Public Const VER_PLATFORM_WIN32_NT = 2 
Public Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long