Merhaba
Bu fonksiyondaki serial numarası tam olarak nerenin serial numarası olduğunu anliyamadım tonla program denedim hiçbiri değiştirmedi bütün serialleri kontrol ettim buna benzer bir serial yok yardımcı olabilecek var mı.
Bu fonksiyondaki serial numarası tam olarak nerenin serial numarası olduğunu anliyamadım tonla program denedim hiçbiri değiştirmedi bütün serialleri kontrol ettim buna benzer bir serial yok yardımcı olabilecek var mı.
Kod:
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
Function SeriNoAl(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))
SeriNoAl = SerialNum
End Function
Private Sub Command1_Click()
Call MsgBox(SeriNoAl("C:\"))
End Sub
