her formattan sonra yeni Key gerektiğinden
ben bu sistemi terk ettim ama, "kullanırım"
diyenler için -
HDD Serial lisanslamaSelamlar
Not:VB (exe) Seri No bulma alıntıdır ( paylaşım )
Keygen:okileturc
exe dosyası ile HDD Serial i okuyun, Keygen formundaki
üst denetime serial i yazıp Enter a basın
Uygulamanın her açılışında Serial okumak için:
Kod ile HDD Serial
Kod:
Option Explicit
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
