title image


Smiley Seriennummer eines USB Sticks
Hallo





mit dem folgenden Tool kann man die Seriennummer der Festplatte auslesen.



-Kann man den Code so modifizieren, daß die Seriennummer eines USB Sticks

ausgelesen wird?



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 strRootPath As String, strVolName As String, lngVolSerialNumber As Long

Dim lngMaxComp As Long, lngFSFlags As Long, strFSName As String, lngDummy As Long



strRootPath = "C:\"

strVolName = Space$(256)

lngFSFlags = 0

strFSName = Space$(256)

lngDummy = GetVolumeInformation(strRootPath, _

strVolName, _

Len(strVolName), _

lngVolSerialNumber, _

lngMaxComp, _

lngFSFlags, strFSName, Len(strFSName))



Caption = Hex(lngVolSerialNumber)

End Sub
 Die von mir vorgeschlagenen Lösungen wurden unter VB6 getestet (Betriebssystem: Windows 98 SE)
Meine Microsite


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: