\u7f51\u4e0a\u6709\u5f88\u591a\u83b7\u53d6\u786c\u76d8\u5e8f\u5217\u53f7\u7684\u4ee3\u7801\uff0c\u4f46\u5927\u90e8\u5206\u90fd\u53ea\u80fd\u53d6\u5f97\u903b\u8f91\u5206\u533a\u7684\u5e8f\u5217\u53f7\uff0c\u800c\u4e0d\u80fd\u53d6\u5f97\u786c\u76d8\u7684\u7269\u7406\u5e8f\u5217\u53f7\u3002\u6211\u4eec\u77e5\u9053\uff0c\u903b\u8f91\u5206\u533a\u7684\u5e8f\u5217\u53f7\u662fFORMAT\u65f6\u4ea7\u751f\u7684\uff0c\u91cd\u65b0FORMAT\u5c06\u4f1a\u6539\u53d8\u3002\u8fd9\u5bf9\u4e8e\u8981\u6c42\u552f\u4e00\u8bc6\u522b\u7801\u7684\u7a0b\u5f0f\u6765\u8bf4\u662f\u81f4\u547d\u7684\u3002\u8fd9\u6bb5\u4ee3\u7801\u5229\u7528API\u53ef\u4ee5\u53d6\u5f97\u7269\u7406\u786c\u76d8\u7684\u5f88\u591a\u7279\u6027\uff0c\u5305\u62ec\u786c\u76d8\u51fa\u5382\u65f6\u7684\u552f\u4e00\u7f16\u53f7\u3002\u8fd9\u6bb5\u4ee3\u7801\u6211\u662f\u4eceCSDN\u8bba\u575b\u83b7\u5f97\uff0c\u539f\u4f5c\u8005\u4e0d\u8be6\u3002\u6211\u5c06\u5176\u7a0d\u505a\u4fee\u6539\u548c\u589e\u6dfb\uff0c\u72ec\u7acb\u51fa\u4e24\u4e2a\u5e38\u7528\u7684\u51fd\u6570\uff1aGetDiskVolume \u3001GetHardDiskInfo\u00a0 ……<\/p>\n
‘============================================
\n‘\u6a21\u5757\u529f\u80fd: \u53d6\u5f97\u786c\u76d8\u7684\u4fe1\u606f
\n‘\u7f16\u00a0\u00a0\u00a0 \u7a0b\uff1a\u6765\u81ea\u4e92\u8054\u7f51\uff0c\u963f\u52c7\u4fee\u6539
\n‘\u66f4\u65b0\u65e5\u671f\uff1a2005\/7\/8
\n‘\u8c03\u7528\u65b9\u6cd5:
\n‘\u00a0\u00a0 GetDiskVolume() \u53d6\u5f97\u903b\u8f91\u76d8\u7684\u5e8f\u5217\u53f7
\n‘\u00a0\u00a0 GetHardDiskInfo() \u53d6\u5f97\u7269\u7406\u76d8\u7684\u578b\u53f7\u6216\u5e8f\u5217\u53f7
\n‘============================================<\/p>\n
Private Const MAX_IDE_DRIVES As Long = 4\u00a0\u00a0 ‘ Max number of drives assuming primary\/secondary, master\/slave topology
\nPrivate Const READ_ATTRIBUTE_BUFFER_SIZE As Long = 512
\nPrivate Const IDENTIFY_BUFFER_SIZE As Long = 512
\nPrivate Const READ_THRESHOLD_BUFFER_SIZE As Long = 512
\nPrivate Const DFP_GET_VERSION As Long = &H74080
\nPrivate Const DFP_SEND_DRIVE_COMMAND As Long = &H7C084
\nPrivate Const DFP_RECEIVE_DRIVE_DATA As Long = &H7C088<\/p>\n
Private Type GETVERSIONOUTPARAMS
\n\u00a0\u00a0\u00a0 bVersion As Byte\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘ Binary driver version.
\n\u00a0\u00a0\u00a0 bRevision As Byte\u00a0\u00a0\u00a0\u00a0\u00a0 ‘ Binary driver revision.
\n\u00a0\u00a0\u00a0 bReserved As Byte\u00a0\u00a0\u00a0\u00a0\u00a0 ‘ Not used.
\n\u00a0\u00a0\u00a0 bIDEDeviceMap As Byte\u00a0 ‘ Bit map of IDE devices.
\n\u00a0\u00a0\u00a0 fCapabilities As Long\u00a0 ‘ Bit mask of driver capabilities.
\n\u00a0\u00a0\u00a0 dwReserved(3) As Long\u00a0 ‘ For future use.
\nEnd Type<\/p>\n
Private Const CAP_IDE_ID_FUNCTION As Long = 1\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘ ATA ID command supported
\nPrivate Const CAP_IDE_ATAPI_ID As Long = 2\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘ ATAPI ID command supported
\nPrivate Const CAP_IDE_EXECUTE_SMART_FUNCTION As Long = 4\u00a0\u00a0\u00a0 ‘ SMART commannds supported<\/p>\n
Private Type IDEREGS
\n\u00a0\u00a0\u00a0 bFeaturesReg As Byte\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘ Used for specifying SMART “commands”.
\n\u00a0\u00a0\u00a0 bSectorCountReg As Byte\u00a0\u00a0\u00a0 ‘ IDE sector count register
\n\u00a0\u00a0\u00a0 bSectorNumberReg As Byte\u00a0\u00a0 ‘ IDE sector number register
\n\u00a0\u00a0\u00a0 bCylLowReg As Byte\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘ IDE low order cylinder value
\n\u00a0\u00a0\u00a0 bCylHighReg As Byte\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘ IDE high order cylinder value
\n\u00a0\u00a0\u00a0 bDriveHeadReg As Byte\u00a0\u00a0\u00a0\u00a0\u00a0 ‘ IDE drive\/head register
\n\u00a0\u00a0\u00a0 bCommandReg As Byte\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘ Actual IDE command.
\n\u00a0\u00a0\u00a0 bReserved As Byte\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘ reserved for future use.\u00a0 Must be zero.
\nEnd Type<\/p>\n
Private Type SENDCMDINPARAMS
\n\u00a0\u00a0\u00a0 cBufferSize As Long\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘ Buffer size in bytes
\n\u00a0\u00a0\u00a0 irDriveRegs As IDEREGS\u00a0\u00a0\u00a0\u00a0 ‘ Structure with drive register values.
\n\u00a0\u00a0\u00a0 bDriveNumber As Byte\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘ Physical drive number to send
\n\u00a0\u00a0\u00a0 ‘ command to (0,1,2,3).
\n\u00a0\u00a0\u00a0 bReserved(2) As Byte\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘ Reserved for future expansion.
\n\u00a0\u00a0\u00a0 dwReserved(3) As Long\u00a0\u00a0\u00a0\u00a0\u00a0 ‘ For future use.
\n\u00a0\u00a0\u00a0 bBuffer(0) As Byte\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘ Input buffer.
\nEnd Type<\/p>\n
Private Const IDE_ATAPI_ID As Long = &HA1\u00a0 ‘ Returns ID sector for ATAPI.
\nPrivate Const IDE_ID_FUNCTION As Long = &HEC\u00a0 ‘ Returns ID sector for ATA.
\nPrivate Const IDE_EXECUTE_SMART_FUNCTION As Long = &HB0\u00a0 ‘ Performs SMART cmd.
\nPrivate Const SMART_CYL_LOW As Long = &H4F
\nPrivate Const SMART_CYL_HI As Long = &HC2<\/p>\n
Private Type DRIVERSTATUS
\n\u00a0\u00a0\u00a0 bDriverError As Byte\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘ Error code from driver,
\n\u00a0\u00a0\u00a0 bIDEStatus As Byte\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘ Contents of IDE Error register.
\n\u00a0\u00a0\u00a0 bReserved(1) As Byte\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘ Reserved for future expansion.
\n\u00a0\u00a0\u00a0 dwReserved(1) As Long\u00a0\u00a0\u00a0\u00a0\u00a0 ‘ Reserved for future expansion.
\nEnd Type<\/p>\n
Private Const SMART_NO_ERROR As Long = 0\u00a0 ‘ No error
\nPrivate Const SMART_IDE_ERROR As Long = 1\u00a0 ‘ Error from IDE controller
\nPrivate Const SMART_INVALID_FLAG As Long = 2\u00a0 ‘ Invalid command flag
\nPrivate Const SMART_INVALID_COMMAND As Long = 3\u00a0 ‘ Invalid command byte
\nPrivate Const SMART_INVALID_BUFFER As Long = 4\u00a0 ‘ Bad buffer (null, invalid addr..)
\nPrivate Const SMART_INVALID_DRIVE As Long = 5\u00a0 ‘ Drive number not valid
\nPrivate Const SMART_INVALID_IOCTL As Long = 6\u00a0\u00a0 ‘ Invalid IOCTL
\nPrivate Const SMART_ERROR_NO_MEM As Long = 7\u00a0 ‘ Could not lock user’s buffer
\nPrivate Const SMART_INVALID_REGISTER As Long = 8\u00a0 ‘ Some IDE Register not valid
\nPrivate Const SMART_NOT_SUPPORTED As Long = 9\u00a0 ‘ Invalid cmd flag set
\nPrivate Const SMART_NO_IDE_DEVICE As Long = 10 ‘ Cmd issued to device not present<\/p>\n
Private Type SENDCMDOUTPARAMS
\n\u00a0\u00a0\u00a0 cBufferSize As Long\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘ Size of bBuffer in bytes
\n\u00a0\u00a0\u00a0 drvStatus As DRIVERSTATUS\u00a0 ‘ Driver status structure.
\n\u00a0\u00a0\u00a0 bBuffer(0) As Byte\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘ Buffer of arbitrary length in which to store the data read from the\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘ drive.
\nEnd Type<\/p>\n
Private Const SMART_READ_ATTRIBUTE_VALUES As Long = &HD0\u00a0\u00a0\u00a0 ‘ ATA4: Renamed
\nPrivate Const SMART_READ_ATTRIBUTE_THRESHOLDS As Long = &HD1\u00a0\u00a0\u00a0 ‘ Obsoleted in ATA4!
\nPrivate Const SMART_ENABLE_DISABLE_ATTRIBUTE_AUTOSAVE As Long = &HD2
\nPrivate Const SMART_SAVE_ATTRIBUTE_VALUES As Long = &HD3
\nPrivate Const SMART_EXECUTE_OFFLINE_IMMEDIATE As Long = &HD4\u00a0\u00a0\u00a0 ‘ ATA4
\nPrivate Const SMART_ENABLE_SMART_OPERATIONS As Long = &HD8
\nPrivate Const SMART_DISABLE_SMART_OPERATIONS As Long = &HD9
\nPrivate Const SMART_RETURN_SMART_STATUS As Long = &HDA<\/p>\n
Private Type DRIVEATTRIBUTE
\n\u00a0\u00a0\u00a0 bAttrID As Byte\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘ Identifies which attribute
\n\u00a0\u00a0\u00a0 wStatusFlags As Integer\u00a0\u00a0\u00a0 ‘ see bit definitions below
\n\u00a0\u00a0\u00a0 bAttrValue As Byte\u00a0\u00a0\u00a0\u00a0 ‘ Current normalized value
\n\u00a0\u00a0\u00a0 bWorstValue As Byte\u00a0\u00a0\u00a0 ‘ How bad has it ever been?
\n\u00a0\u00a0\u00a0 bRawValue(5) As Byte\u00a0\u00a0 ‘ Un-normalized value
\n\u00a0\u00a0\u00a0 bReserved As Byte\u00a0\u00a0\u00a0\u00a0\u00a0 ‘ …
\nEnd Type<\/p>\n
Private Type ATTRTHRESHOLD
\n\u00a0\u00a0\u00a0 bAttrID As Byte\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘ Identifies which attribute
\n\u00a0\u00a0\u00a0 bWarrantyThreshold As Byte ‘ Triggering value
\n\u00a0\u00a0\u00a0 bReserved(9) As Byte\u00a0\u00a0\u00a0\u00a0\u00a0 ‘ …
\nEnd Type<\/p>\n
Private Type IDSECTOR
\n\u00a0\u00a0\u00a0 wGenConfig As Integer
\n\u00a0\u00a0\u00a0 wNumCyls As Integer
\n\u00a0\u00a0\u00a0 wReserved As Integer
\n\u00a0\u00a0\u00a0 wNumHeads As Integer
\n\u00a0\u00a0\u00a0 wBytesPerTrack As Integer
\n\u00a0\u00a0\u00a0 wBytesPerSector As Integer
\n\u00a0\u00a0\u00a0 wSectorsPerTrack As Integer
\n\u00a0\u00a0\u00a0 wVendorUnique(2) As Integer
\n\u00a0\u00a0\u00a0 sSerialNumber(19) As Byte
\n\u00a0\u00a0\u00a0 wBufferType As Integer
\n\u00a0\u00a0\u00a0 wBufferSize As Integer
\n\u00a0\u00a0\u00a0 wECCSize As Integer
\n\u00a0\u00a0\u00a0 sFirmwareRev(7) As Byte
\n\u00a0\u00a0\u00a0 sModelNumber(39) As Byte
\n\u00a0\u00a0\u00a0 wMoreVendorUnique As Integer
\n\u00a0\u00a0\u00a0 wDoubleWordIO As Integer
\n\u00a0\u00a0\u00a0 wCapabilities As Integer
\n\u00a0\u00a0\u00a0 wReserved1 As Integer
\n\u00a0\u00a0\u00a0 wPIOTiming As Integer
\n\u00a0\u00a0\u00a0 wDMATiming As Integer
\n\u00a0\u00a0\u00a0 wBS As Integer
\n\u00a0\u00a0\u00a0 wNumCurrentCyls As Integer
\n\u00a0\u00a0\u00a0 wNumCurrentHeads As Integer
\n\u00a0\u00a0\u00a0 wNumCurrentSectorsPerTrack As Integer
\n\u00a0\u00a0\u00a0 ulCurrentSectorCapacity(3) As Byte\u00a0\u00a0\u00a0 ‘\u8fd9\u91cc\u53ea\u80fd\u7528byte\uff0c\u56e0\u4e3aVB\u6ca1\u6709\u65e0\u7b26\u53f7\u7684LONG\u578b\u53d8\u91cf
\n\u00a0\u00a0\u00a0 wMultSectorStuff As Integer
\n\u00a0\u00a0\u00a0 ulTotalAddressableSectors(3) As Byte\u00a0\u00a0 ‘\u8fd9\u91cc\u53ea\u80fd\u7528byte\uff0c\u56e0\u4e3aVB\u6ca1\u6709\u65e0\u7b26\u53f7\u7684LONG\u578b\u53d8\u91cf
\n\u00a0\u00a0\u00a0 wSingleWordDMA As Integer
\n\u00a0\u00a0\u00a0 wMultiWordDMA As Integer
\n\u00a0\u00a0\u00a0 bReserved(127) As Byte
\nEnd Type<\/p>\n
Private Const ATTR_INVALID As Long = 0
\nPrivate Const ATTR_READ_ERROR_RATE As Long = 1
\nPrivate Const ATTR_THROUGHPUT_PERF As Long = 2
\nPrivate Const ATTR_SPIN_UP_TIME As Long = 3
\nPrivate Const ATTR_START_STOP_COUNT As Long = 4
\nPrivate Const ATTR_REALLOC_SECTOR_COUNT As Long = 5
\nPrivate Const ATTR_READ_CHANNEL_MARGIN As Long = 6
\nPrivate Const ATTR_SEEK_ERROR_RATE As Long = 7
\nPrivate Const ATTR_SEEK_TIME_PERF As Long = 8
\nPrivate Const ATTR_POWER_ON_HRS_COUNT As Long = 9
\nPrivate Const ATTR_SPIN_RETRY_COUNT As Long = 10
\nPrivate Const ATTR_CALIBRATION_RETRY_COUNT As Long = 11
\nPrivate Const ATTR_POWER_CYCLE_COUNT As Long = 12<\/p>\n
Private Const PRE_FAILURE_WARRANTY As Long = &H1
\nPrivate Const ON_LINE_COLLECTION As Long = &H2
\nPrivate Const PERFORMANCE_ATTRIBUTE As Long = &H4
\nPrivate Const ERROR_RATE_ATTRIBUTE As Long = &H8
\nPrivate Const EVENT_COUNT_ATTRIBUTE As Long = &H10
\nPrivate Const SELF_PRESERVING_ATTRIBUTE As Long = &H20<\/p>\n
Private Const NUM_ATTRIBUTE_STRUCTS As Long = 30
\nPrivate Const INVALID_HANDLE_VALUE As Long = -1<\/p>\n
Private Const VER_PLATFORM_WIN32s As Long = 0
\nPrivate Const VER_PLATFORM_WIN32_WINDOWS As Long = 1
\nPrivate Const VER_PLATFORM_WIN32_NT As Long = 2<\/p>\n
Private Type OSVERSIONINFO
\n\u00a0\u00a0\u00a0 dwOSVersionInfoSize As Long
\n\u00a0\u00a0\u00a0 dwMajorVersion As Long
\n\u00a0\u00a0\u00a0 dwMinorVersion As Long
\n\u00a0\u00a0\u00a0 dwBuildNumber As Long
\n\u00a0\u00a0\u00a0 dwPlatformId As Long
\n\u00a0\u00a0\u00a0 szCSDVersion As String * 128\u00a0\u00a0\u00a0\u00a0\u00a0 ‘\u00a0 Maintenance string for PSS usage
\nEnd Type<\/p>\n
Private Const CREATE_NEW As Long = 1
\nPrivate Const GENERIC_READ As Long = &H80000000
\nPrivate Const GENERIC_WRITE As Long = &H40000000
\nPrivate Const FILE_SHARE_READ As Long = &H1
\nPrivate Const FILE_SHARE_WRITE As Long = &H2
\nPrivate Const OPEN_EXISTING\u00a0 As Long = 3<\/p>\n
Private m_DiskInfo As IDSECTOR<\/p>\n
Private Declare Function GetVersionEx Lib “kernel32” Alias “GetVersionExA” (lpVersionInformation As OSVERSIONINFO) As Long
\nPrivate 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 Long) As Long
\nPrivate Declare Function DeviceIoControl Lib “kernel32” (ByVal hDevice As Long, ByVal dwIoControlCode As Long, lpInBuffer As Any, ByVal nInBufferSize As Long, lpOutBuffer As Any, ByVal nOutBufferSize As Long, lpBytesReturned As Long, ByVal lpOverlapped As Long) As Long
\nPrivate Declare Function CloseHandle Lib “kernel32” (ByVal hObject As Long) As Long
\nPrivate Declare Sub CopyMemory Lib “kernel32” Alias “RtlMoveMemory” (Destination As Any, Source As Any, ByVal Length As Long)<\/p>\n
Private Declare Function GetVolumeInformation Lib “kernel32” Alias “GetVolumeInformationA” (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long<\/p>\n
‘\u4fe1\u606f\u7c7b\u578b\u679a\u4e3e
\nEnum eumInfoType
\n\u00a0\u00a0\u00a0 hdmodelsn = 0
\n\u00a0\u00a0\u00a0 hdOnlyModel = 1
\n\u00a0\u00a0\u00a0 hdOnlySN = 2
\nEnd Enum<\/p>\n
‘\u78c1\u76d8\u901a\u9053\u679a\u4e3e
\nEnum eumDiskNo
\n\u00a0\u00a0\u00a0 hdPrimaryMaster = 0
\n\u00a0\u00a0\u00a0 hdPrimarySlave = 1
\n\u00a0\u00a0\u00a0 hdSecondaryMaster = 2
\n\u00a0\u00a0\u00a0 hdSecondarySlave = 3
\nEnd Enum<\/p>\n
‘\u53d6\u5f97\u903b\u8f91\u76d8\u5e8f\u5217\u53f7 (\u975e\u552f\u4e00)
\nFunction GetDiskVolume(Optional ByVal strDiskName = “C”) As String
\n\u00a0\u00a0\u00a0 Dim TempStr1 As String * 256, TempStr2 As String * 256
\n\u00a0\u00a0\u00a0 Dim TempLon1 As Long, TempLon2 As Long, GetVal As Long
\n\u00a0\u00a0\u00a0
\n\u00a0\u00a0\u00a0 Dim tmpVol As String
\n\u00a0\u00a0\u00a0
\n\u00a0\u00a0\u00a0 Call GetVolumeInformation(strDiskName & “:\/”, TempStr1, 256, GetVal, TempLon1, TempLon2, TempStr2, 256)
\n\u00a0\u00a0\u00a0 If GetVal = 0 Then
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 tmpVol = “”
\n\u00a0\u00a0\u00a0 Else
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 tmpVol = Hex(GetVal)
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 tmpVol = String(8 – Len(tmpVol), “0”) & tmpVol
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 tmpVol = Left(tmpVol, 4) & “-” & Right(tmpVol, 4)
\n\u00a0\u00a0\u00a0 End If
\n\u00a0\u00a0\u00a0 GetDiskVolume = tmpVol
\nEnd Function<\/p>\n
‘\u53d6\u5f97\u786c\u76d8\u4fe1\u606f\uff1a\u578b\u53f7\/\u7269\u7406\u7cfb\u5217\u53f7\uff08\u552f\u4e00\uff09
\nFunction GetHardDiskInfo(Optional ByVal numDisk As eumDiskNo = hdPrimaryMaster, Optional ByVal numType As eumInfoType = hdOnlySN) As String<\/p>\n
\u00a0\u00a0\u00a0 If GetDiskInfo(numDisk) = 1 Then
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Dim pSerialNumber As String, pModelNumber As String
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 pSerialNumber = StrConv(m_DiskInfo.sSerialNumber, vbUnicode)
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 pModelNumber = StrConv(m_DiskInfo.sModelNumber, vbUnicode)
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Select Case numType
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Case hdOnlyModel\u00a0 ‘\u4ec5\u578b\u53f7
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 GetHardDiskInfo = Trim(pModelNumber)
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Case hdOnlySN\u00a0 ‘\u4ec5\u7cfb\u5217\u53f7
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 GetHardDiskInfo = Trim(pSerialNumber)
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Case Else\u00a0\u00a0 ‘\u578b\u53f7,\u7cfb\u5217\u53f7
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 GetHardDiskInfo = Trim(pModelNumber) & “,” & Trim(pSerialNumber)
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 End Select
\n\u00a0\u00a0\u00a0\u00a0 End If<\/p>\n
End Function<\/p>\n
Private Function OpenSMART(ByVal nDrive As Byte) As Long
\n\u00a0 Dim hSMARTIOCTL As Long
\n\u00a0 Dim hd As String
\n\u00a0 Dim VersionInfo As OSVERSIONINFO<\/p>\n
\u00a0\u00a0\u00a0 hSMARTIOCTL = INVALID_HANDLE_VALUE End Function<\/p>\n Private Function DoIDENTIFY(ByVal hSMARTIOCTL As Long, pSCIP As SENDCMDINPARAMS, pSCOP() As Byte, ByVal bIDCmd As Byte, ByVal bDriveNum As Byte, lpcbBytesReturned As Long) As Boolean \u00a0\u00a0\u00a0 pSCIP.irDriveRegs.bFeaturesReg = 0 \u00a0\u00a0\u00a0 pSCIP.irDriveRegs.bDriveHeadReg = &HA0 Or ((bDriveNum And 1) * 2 ^ 4) End Function<\/p>\n Private Function DoEnableSMART(ByVal hSMARTIOCTL As Long, pSCIP As SENDCMDINPARAMS, pSCOP As SENDCMDOUTPARAMS, ByVal bDriveNum As Byte, lpcbBytesReturned As Long) As Boolean \u00a0\u00a0\u00a0 pSCIP.irDriveRegs.bFeaturesReg = SMART_ENABLE_SMART_OPERATIONS \u00a0\u00a0\u00a0 DoEnableSMART = CBool(DeviceIoControl(hSMARTIOCTL, DFP_SEND_DRIVE_COMMAND, _ End Function<\/p>\n ‘——————————————————————— \u00a0 Dim i As Integer \u00a0\u00a0\u00a0 For i = 0 To uscStrSize – 1 Step 2 End Sub<\/p>\n Private Sub DisplayIdInfo(pids As IDSECTOR, pSCIP As SENDCMDINPARAMS, ByVal bIDCmd As Byte, ByVal bDfpDriveMap As Byte, ByVal bDriveNum As Byte)<\/p>\n \u00a0\u00a0\u00a0 ChangeByteOrder pids.sModelNumber, UBound(pids.sModelNumber) + 1<\/p>\n \u00a0\u00a0\u00a0 ChangeByteOrder pids.sFirmwareRev, UBound(pids.sFirmwareRev) + 1<\/p>\n \u00a0\u00a0\u00a0 ChangeByteOrder pids.sSerialNumber, UBound(pids.sSerialNumber) + 1<\/p>\n End Sub<\/p>\n Public Function GetDiskInfo(ByVal nDrive As Byte) As Long<\/p>\n \u00a0 Dim hSMARTIOCTL As Long \u00a0\u00a0\u00a0 m_DiskInfo = uDisk \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Call DeviceIoControl(hSMARTIOCTL, DFP_GET_VERSION, ByVal 0, 0, VersionParams, Len(VersionParams), cbBytesReturned, 0)<\/p>\n \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 If Not (VersionParams.bIDEDeviceMap \/ 2 ^ nDrive And &H10) Then \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ReDim scop(LenB(OutCmd) + IDENTIFY_BUFFER_SIZE – 1) As Byte End Function<\/p>\n","protected":false},"excerpt":{"rendered":" \u7f51\u4e0a\u6709\u5f88\u591a\u83b7\u53d6\u786c\u76d8\u5e8f\u5217\u53f7\u7684\u4ee3\u7801\uff0c\u4f46\u5927\u90e8\u5206\u90fd\u53ea\u80fd\u53d6\u5f97\u903b\u8f91\u5206\u533a\u7684\u5e8f\u5217\u53f7\uff0c...<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[21],"tags":[],"class_list":["post-323","post","type-post","status-publish","format-standard","hentry","category-vb"],"_links":{"self":[{"href":"https:\/\/www.01xj.net\/index.php?rest_route=\/wp\/v2\/posts\/323","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.01xj.net\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.01xj.net\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.01xj.net\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.01xj.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=323"}],"version-history":[{"count":2,"href":"https:\/\/www.01xj.net\/index.php?rest_route=\/wp\/v2\/posts\/323\/revisions"}],"predecessor-version":[{"id":325,"href":"https:\/\/www.01xj.net\/index.php?rest_route=\/wp\/v2\/posts\/323\/revisions\/325"}],"wp:attachment":[{"href":"https:\/\/www.01xj.net\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=323"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.01xj.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=323"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.01xj.net\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=323"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
\n\u00a0\u00a0\u00a0 VersionInfo.dwOSVersionInfoSize = Len(VersionInfo)
\n\u00a0\u00a0\u00a0 GetVersionEx VersionInfo
\n\u00a0\u00a0\u00a0 Select Case VersionInfo.dwPlatformId
\n\u00a0\u00a0\u00a0\u00a0\u00a0 Case VER_PLATFORM_WIN32s
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 OpenSMART = hSMARTIOCTL
\n\u00a0\u00a0\u00a0\u00a0\u00a0 Case VER_PLATFORM_WIN32_WINDOWS
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 hSMARTIOCTL = CreateFile(“\/\/.\/SMARTVSD<\/a>“, 0, 0, 0, CREATE_NEW, 0, 0)
\n\u00a0\u00a0\u00a0\u00a0\u00a0 Case VER_PLATFORM_WIN32_NT
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 If nDrive < MAX_IDE_DRIVES Then
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 hd = “\/\/.\/PhysicalDrive<\/a>” & nDrive
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 hSMARTIOCTL = CreateFile(hd, GENERIC_READ Or GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, 0, OPEN_EXISTING, 0, 0)
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 End If
\n\u00a0\u00a0\u00a0 End Select
\n\u00a0\u00a0\u00a0 OpenSMART = hSMARTIOCTL<\/p>\n
\n\u00a0\u00a0\u00a0 pSCIP.cBufferSize = IDENTIFY_BUFFER_SIZE<\/p>\n
\n\u00a0\u00a0\u00a0 pSCIP.irDriveRegs.bSectorCountReg = 1
\n\u00a0\u00a0\u00a0 pSCIP.irDriveRegs.bSectorNumberReg = 1
\n\u00a0\u00a0\u00a0 pSCIP.irDriveRegs.bCylLowReg = 0
\n\u00a0\u00a0\u00a0 pSCIP.irDriveRegs.bCylHighReg = 0<\/p>\n
\n\u00a0\u00a0\u00a0 ‘
\n\u00a0\u00a0\u00a0 pSCIP.irDriveRegs.bCommandReg = bIDCmd
\n\u00a0\u00a0\u00a0 pSCIP.bDriveNumber = bDriveNum
\n\u00a0\u00a0\u00a0 pSCIP.cBufferSize = IDENTIFY_BUFFER_SIZE
\n\u00a0\u00a0 DoIDENTIFY = CBool(DeviceIoControl(hSMARTIOCTL, DFP_RECEIVE_DRIVE_DATA, _
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 pSCIP, 32, _
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 pSCOP(0), 528, _
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 lpcbBytesReturned, 0))<\/p>\n
\n\u00a0\u00a0\u00a0 pSCIP.cBufferSize = 0<\/p>\n
\n\u00a0\u00a0\u00a0 pSCIP.irDriveRegs.bSectorCountReg = 1
\n\u00a0\u00a0\u00a0 pSCIP.irDriveRegs.bSectorNumberReg = 1
\n\u00a0\u00a0\u00a0 pSCIP.irDriveRegs.bCylLowReg = SMART_CYL_LOW
\n\u00a0\u00a0\u00a0 pSCIP.irDriveRegs.bCylHighReg = SMART_CYL_HI
\n\u00a0\u00a0\u00a0 pSCIP.irDriveRegs.bDriveHeadReg = &HA0 Or ((bDriveNum And 1) * 2 ^ 4)
\n\u00a0\u00a0\u00a0 pSCIP.irDriveRegs.bCommandReg = IDE_EXECUTE_SMART_FUNCTION
\n\u00a0\u00a0\u00a0 pSCIP.bDriveNumber = bDriveNum<\/p>\n
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 pSCIP, LenB(pSCIP) – 1, _
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 pSCOP, LenB(pSCOP) – 1, _
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 lpcbBytesReturned, 0))<\/p>\n
\n‘———————————————————————
\nPrivate Sub ChangeByteOrder(szString() As Byte, ByVal uscStrSize As Integer)<\/p>\n
\n\u00a0 Dim bTemp As Byte<\/p>\n
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 bTemp = szString(i)
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 szString(i) = szString(i + 1)
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 szString(i + 1) = bTemp
\n\u00a0\u00a0\u00a0 Next i<\/p>\n
\n\u00a0 Dim cbBytesReturned As Long
\n\u00a0 Dim VersionParams As GETVERSIONOUTPARAMS
\n\u00a0 Dim scip As SENDCMDINPARAMS
\n\u00a0 Dim scop() As Byte
\n\u00a0 Dim OutCmd As SENDCMDOUTPARAMS
\n\u00a0 Dim bDfpDriveMap As Byte
\n\u00a0 Dim bIDCmd As Byte\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘ IDE or ATAPI IDENTIFY cmd
\n\u00a0 Dim uDisk As IDSECTOR<\/p>\n
\n\u00a0\u00a0\u00a0 ‘
\n\u00a0\u00a0\u00a0 ‘
\n\u00a0\u00a0\u00a0 hSMARTIOCTL = OpenSMART(nDrive)
\n\u00a0\u00a0\u00a0 If hSMARTIOCTL <> INVALID_HANDLE_VALUE Then<\/p>\n
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 If DoEnableSMART(hSMARTIOCTL, scip, OutCmd, nDrive, cbBytesReturned) Then
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 bDfpDriveMap = bDfpDriveMap Or 2 ^ nDrive
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 End If
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 End If
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 bIDCmd = IIf((VersionParams.bIDEDeviceMap \/ 2 ^ nDrive And &H10), IDE_ATAPI_ID, IDE_ID_FUNCTION)<\/p>\n
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 If DoIDENTIFY(hSMARTIOCTL, scip, scop, bIDCmd, nDrive, cbBytesReturned) Then
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 CopyMemory m_DiskInfo, scop(LenB(OutCmd) – 4), LenB(m_DiskInfo)
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Call DisplayIdInfo(m_DiskInfo, scip, bIDCmd, bDfpDriveMap, nDrive)
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 CloseHandle hSMARTIOCTL
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 GetDiskInfo = 1
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Exit Function ‘>—> Bottom
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 End If
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 CloseHandle hSMARTIOCTL
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 GetDiskInfo = 0
\n\u00a0\u00a0\u00a0\u00a0\u00a0 Else ‘NOT HSMARTIOCTL…
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 GetDiskInfo = -1
\n\u00a0\u00a0\u00a0 End If<\/p>\n