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.
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?

1H6WPWW-10AFA-1H6WQJ4 DevHome için bir numara verin kontrol edelim.

(10/12/2015, 22:57)alpeki99 yazdı: 1H6WPWW-10AFA-1H6WQJ4 DevHome için bir numara verin kontrol edelim.

aktivasyon kodu oluşturucu ektedir.

sayın kesoka,

modSerial modülündeki VerifierLicence kodunda sıkıntı var gibi görünüyor.

VerifierLicence kodundaki ilgili kısmı aşağıdaki ile değiştirerek deneyiniz.

   

If Serial = "" Or kullanici = "" Then



       SerialOK = False

       VerifierLicence = True

       

       DoCmd.OpenForm "SERİALFORMU"

       DoCmd.Close acForm, "FKullaniciGiris1"

   Else



       SerialOK = True

       VerifierLicence = True

       RetrieveTimeLimit Serial, kullanici, Delivre, Expire, NombreJour

       DoCmd.OpenForm "kisiler"

       If Format(strDate, "mm.yyyy") > Format(Date, "mm.yyyy") Then



           If vAffMsg = True Then MsgBox "LİSANS BİTİŞ TARİHİNİZ " & Format(Expire, "dd mmmm yyyy") & " SİSTEM TARİHİ İLE OYNANDIĞI İÇİN LİSANSINIZ İPTAL EDİLMİŞTİR", vbInformation, "SİSTEM TARİHİ İLE OYNANMIŞ."

           SerialOK = False

           DoCmd.OpenForm "SERİALFORMU"

           DoCmd.Close acForm, "kisiler"

           Exit Function

       Else

           WriteRegistry "HKCU", "Software\MicroSoft", "SONGİRİS", "S", Date

       End If

       

       If Delivre > Now Then

           If vAffMsg = True Then MsgBox "SİSTEM TARİHİ İLE OYNANDIĞI İÇİN LİSANSINIZ İPTAL EDİLMİŞTİR." & Format(Delivre, "dd mmmm yyyy") & ".", vbOKOnly + vbCritical, "LİSANS İPTALİ"

           SerialOK = False



         DoCmd.OpenForm "SERİALFORMU"

           DoCmd.Close acForm, "kisiler"

       End If

       

       If Expire < Now Then

           If vAffMsg = True Then MsgBox "LİSANS BİTİŞ TARİHİ " & Format(Expire, "dd mmmm yyyy") & " LÜTFEN YENİ BİR LİSANS KODU EDİNİN.", vbInformation, "LİSANSINIZ BİTMİŞ"

           SerialOK = False

         DoCmd.OpenForm "SERİALFORMU"

           DoCmd.Close acForm, "kisiler"

       End If          

   End If

Ben aynı uygulamayı Polsotta kullanıyorum, herhangi bir sorun yok.

sayın ozanakkaya verdiğiniz kodu programdaki ile değiştirdim. fakat kati sonucu ocak ayında programı ilk açtığımda alıcam. siz kendi uygulamanızda kullanıyorsanız ve benim belirttiğim her ay lisans sorma uyarısı ile karşılaşmıyorsanız zaten sorun çözülmüştür. aynı modül ile ilgili olduğu için bir sorum daha var yeni konu açmak yerine burda belirtmeyi uygun gördüm çünkü aynı kod ile ilgili

modserial modülünde bulunan verifierlicence kodunda bulunan 

If Delivre > Now Then

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

            SerialOK = False

            VerifierLicence = False

             DoCmd.Close acForm, "FKullaniciGiris1"
alanındaki kodda lisans bitmeye yakın uyarı verdirme olayı yokmudur? yada bu kodun içine nasıl bir kod eklemeliyizki lisansın bitmesine 7 gün kaladan itibaren her açılıştı lisansınızın bitmesine ... gün kalmıştır şeklinde bir msgbox uyarısı verdirilebiliriz.

Modülde VerifierLicence fonksiyonu var.


Bu fonksiyonda 

RetrieveTimeLimit Serial, Kullanici, Delivre, Expire, NombreJour 

kodunun hemen altına

KalanGun = Expire - Date





If KalanGun < 7 Then

MsgBox ("lisansın bitmesine " & KalanGun & " Gün Kaldı")

End If

kodu ekleyiniz.

Daha önce belirttiğim gibi, bu kodları bende kendi uygulamamda kullanıyorum. Ancak yapan arkadaş basit işlemleri fazla fazla kod ekleyerek iyice karıştırmış. Kodların normalize edilmesi gerekli