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 şekil her pcde farklı kod oluyor. format atınca değişiyor. exeyi C de açarsak farklı değer buluyor D de açarsak farklı değer buluyor. Projede görünen değerin neyin seriali olduğunu ve o seriali değiştirmek istiyorum
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 şekil her pcde farklı kod oluyor. format atınca değişiyor. exeyi C de açarsak farklı değer buluyor D de açarsak farklı değer buluyor. Projede görünen değerin neyin seriali olduğunu ve o seriali değiştirmek istiyorum
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
Son düzenleme: