شناسه ویژه هر فلش

[Ehsan.PHP]

سلام. مشخصه یا شماره ویژه و منحصر به فرد هر فلش (USB) چی هست و چی جوری میشه اون رو در ویژوال بیسیک به دست اورد؟

[Ehsan.PHP]

لطفا جواب بدید!

[butterfly8528]

سلام دوست عزیز .

فلش مموری های معمولی دارای شناسه یونیکی نیستند که بشه بدستش آورد . فقط میشه سریال یک درایو رو بدست آورد که با هربار فرمت شدن تغییر خواهد کرد :


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
Private Sub Form_Load()
Dim Serial As Long, VName As String, FSName As String
VName = String$(255, Chr$(0))
FSName = String$(255, Chr$(0))
GetVolumeInformation "c:\", VName, 255, Serial, 0, 0, FSName, 255
VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1)
FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1)
MsgBox "Volume name : " & VName & vbCrLf & "File system name : " & FSName & vbCrLf & "serial number : " + Trim(Str$(Serial))
End Sub



موفق باشید .