uygulamayı açtığımda program yapımcısına verilecek kod gelmiyor ekranıma Access 2003 kullanıyorum . programı windows 7 olan bilgisayardan aldım d sürücüsünün numarasının verilmemesi normal mi ?
kodun içerisinde ne demek istemiş
r = Mid(MD5String(Me.disk), 1, 8)
formun tüm kodları alttadır . lisans kodu veriyor 10 karakterli ve altınada uygulamayı yapan kişi aktivasyon giriyor .
Kod:
Private Sub Form_Load()
Dim wrkDefault As Workspace
Dim nesne, disk, k
Set nesne = CreateObject("Scripting.FileSystemObject")
Set disk = nesne.GetDrive(nesne.GetDriveName(nesne.GetAbsolutePathName("d:\")))
k = disk.SerialNumber
Me.disk = k
End Sub
Private Sub Komut0_Click()
Dim wrkDefault As Workspace
Dim nesne, disk, k
r = Mid(MD5String(Me.disk), 1, 8)
If asif = r Then
Set nesne = CreateObject("Scripting.FileSystemObject")
Set disk = nesne.GetDrive(nesne.GetDriveName(nesne.GetAbsolutePathName("d:\")))
k = disk.SerialNumber
Me.disk = disk.SerialNumber
klasor = CurrentProject.path & "/" & disk.SerialNumber & ".txt"
Open CurrentProject.path & "/" & disk.SerialNumber & ".txt" For Output As #1
Print #1, MD5String(disk.SerialNumber)
Close #1
DoCmd.OpenForm "başlangıç"
Else
10 MsgBox "HATALI ŞİFRE YENİNİDEN DENE"
End If
End Sub
Private Sub Komut8_Click()
On Error GoTo Err_Komut8_Click
DoCmd.Quit
Exit_Komut8_Click:
Exit Sub
Err_Komut8_Click:
MsgBox Err.Description
Resume Exit_Komut8_Click
End Sub