lisanslama örneği olarak kullandığım güzel bir uygulama var. gayet başarılı ama ufak bir sorun yaşıyorum.

örnek ektedir. açtığınızda 10 günlük demo sürüm kullanı seçerek lisans olayını geçebilirsiniz. veya ekte aktivasyon oluşturucuda vardır. ordan oluşturabilirsiniz.


sorunum şu şekilde
program için kullanıcı adını kullanarak istediğim sürede lisans oluşturabiliyorum. mesela 1 yıllık lisans kodu oluşturdum ve bunu programa girerek 1 yıllık lisansı kaydettirdim. fakat her ay döndüğünde program lisansınız bitmiştir uyarısı verip serial formunu açıyor. tekrar lisans anahtarı girmeye gerek yok sadece onayla diyerek geçilebiliyor. ama işte sıkıntı her ay döndüğünde sanki programın lisansı bitmiş gibi uyarı verip serial formunu açması. yani her ay programı ilk açtığımızda bu uyarı ile karşılaşıyorsunuz. kodlamaları inceledim fakat bunu yaptıran kodu bulamadım.
yapmaya çalıştığım kaç aylık lisans oluşturulup girilmişse o süre bittiğinde bitti diye uyarı verip serial formunu açması. yani her ay verdiği uyarıyı nasıl kapatabiliriz?

Sn kesoka;
Lisans kodu uretilen kodun icinde baslama tarihi gizlenmekte, SERİALFORMU ile lisans numarasi esnasinda baslama ile bitis tarihleri arasinda ki gun farkini Registry'a SURE ile kaydedilmesi ile lisans sorgulama prosedurunde baslangic tarihi + SURE toplamindan bilgisayar tarihi buyuk oldugunda lisanslama kontrol satirlarina devam etsin, degil ise kisiler formunu acsin yontemi ile ay degisimlerinden etkilenmeden isleme devam etmis olusunuz.

Public Function VerifierLicence(vAffMsg As Boolean) As Boolean
...
ReadRegistry "HKCU", "Software\Microsoft", "SURE", "S", Empty, Zaman
...
RetrieveTimeLimit Serial, Kullanici, Delivre, Expire, NombreJour
If DateAdd("d", Zaman, Delivre) < Date Then
DoCmd.OpenForm "kisiler"
....
DoCmd.Close acForm, "kisiler"
Exit Function
End If
Else
'Enregistre la date pour la dernière entrée
WriteRegistry "HKCU", "Software\MicroSoft", "SONGİRİS", "S", Date
DoCmd.OpenForm "kisiler"
End If

If Delivre > Now Then
If vAffMsg = True Then MsgBox "LİSANS BİTMESİ " & Format(Delivre, "dd mm yyyy") & ".", vbOKOnly + vbCritical, "GÜNDÜR"
...
End Function

Private Sub TAMAM_Click()
Dim Zmn As Long
Zmn = IIf(Me.ACTİVE <> "", DateDiff("d", Format(Me.NUMARA.Caption, "mm\/dd\/yyyy"), Format(Me.ESNUMARA.Caption, "mm\/dd\/yyyy")), 1)

If SerialOK = True Then
WriteRegistry "HKCU", "Software\Microsoft", "KULLANICI", "S", Me.AD
WriteRegistry "HKCU", "Software\Microsoft", "SERİAL", "S", Me.ACTİVE
WriteRegistry "HKCU", "Software\Microsoft", "SONGİRİS", "S", Format(Now, "dd-mm-yyyy")
WriteRegistry "HKCU", "Software\Microsoft", "SURE", "S", Zmn
End If
...
end sub

  lisanslama örnek.rar (Boyut: 68,9 KB / İndirilme: 119)

ilginize teşekkürler syn sezgin şuan deneme fırsatım yok verdiğiniz kodları uyguladım sanırım kati sonucuay döndüğünde yani ocak ayında programı ilk açtığımda alıcam. teşekkürler tekrardan.