Parsi Coders
بدست اوردن سریال هارد دیسک - نسخه قابل چاپ

+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: بدست اوردن سریال هارد دیسک (/showthread.php?tid=1038)



بدست اوردن سریال هارد دیسک - Amin_Mansouri - 10-14-2011

با سورس زیر میتونید سریال درایو c رو بدست بیارید .

کد:
'Win32 API needed
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

'Function to get the serial number
Public Function GetHDDSerial(ByVal drive As String) As String
    Dim serial As Long
    Dim str As String
    
    'First get the serial number
    serial = GetVolumeInformation(drive, vbNullString, 0, GetHDDSerial, ByVal 0&, ByVal 0&, vbNullString, 0)
    
    'Convert the serial number to hexidecimal format
    str = Hex$(serial)
    
    'Add 0's (zeros) to the left
    str = Right("00000000" & str, 8)
    
    'Put a hyphen in the middle
    str = Left$(str, 4) & "-" & Right$(str, 4)
    
    'Return the value
    GetHDDSerial = str
End Function

در زیر روش استفاده رو از تابع ذکر کردم
کد:
'Example usage
Label1.Caption = GetHDDSerial("C:\")