Mislim da ovo trazis :
Postavi Command1 (dugme) na formu i u njega prekopiaj sve ovo sto sam ti ispod napisao :
Code:'Project: Get the HD serial number.
'Date: 10 March 2002
'Programmer: Wayne Alec de Bruin
'Contact:
[email protected]
'
Option Explicit
'
'HD Serial Number.
Private Declare Function GetVolumeInformation Lib "kernel32.dll" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Integer, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Private Sub Command1_Click()
'
'
'HD serial number. * See: Function GetSerialNumber & Declarations.
MsgBox "" & GetSerialNumber("C:\"), vbOKOnly, "HD Serial Number"
'
'
End Sub
Function GetSerialNumber(strDrive As String) As Long
'
'
Dim SerialNum As Long
Dim Res As Long
Dim Temp1 As String
Dim Temp2 As String
'
Temp1 = String$(255, Chr$(0))
Temp2 = String$(255, Chr$(0))
Res = GetVolumeInformation(strDrive, Temp1, _
Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2))
'
GetSerialNumber = SerialNum
'
End Function
radi 100% provjereno
Pozdrav
Marko_L : Dodati code tagovi