VB obtiene el código fuente del número de serie físico del disco duro

Lib "kernel32" Alias ​​​​"GetVolumeInformationA" _

(ByVal lpRootPathName como cadena _

ByVal lpszVolumeNameBuffer como cadena, _

ByVal lVolumeNameSize Mientras, _

lpVolumeSerialNumber Mientras, _

lpMaximumComponentLength Mientras, _

lpFileSystemFlags Mientras, _

ByVal lpszFileSystemNameBuffer As String,_

ByVal nFileSystemNameSize As Long) As Long

Función pública GetVolumeSerialNumber(ByVal RootPath As String) As String

Dim lpszVolumeNameBuffer As String

Dim lpszFileSystemFlags As Long

ByVal lpszFileSystemNameBuffer As String.lpszFileSystemNameBuffer As String

Dim lVolumeNameSize As Long

Dim lpVolumeSerialNumber Mientras

Dim lpMaximumComponentLength Mientras

Dim lpFileSystemFlags Mientras

DimnFileSystemNameSize Mientras

Dim lRetVal Mientras

lpVolumeSerialNumber = 0

lpMaximumComponentLength = 0

lpFileSystemFlags = 0

lpszVolumeNameBuffer = Space$(255)

.

lpszFileSystemNameBuffer = Espacio$(255)

lVolumeNameSize = Len(lpszVolumeNameBuffer)

nFileSystemNameSize = Len(lpszFileSystemNameBuffer)

lRetVal = GetVolumeInformation(RootPath,_

lpszVolumeNameBuffer, _

lVolumeNameSize, _

lpVolumeSerialNumber, _

lpMaximumComponentLength, _

lpFileSystemFlags, _

lpszFileSystemNameBuffer,_

nFileSystemNameSize)

GetVolumeSerialNumber = Hex$(lpVolumeSerialNumber)

Fin de función

Subcomando privado1_Click( )

Dim sRetVal As String

sRetVal = GetVolumeSerialNumber("C：

MsgBox "VolumeSerialNumber es: " & sRetVal

End Sub

Simplemente cree COMMAND1 en el formulario