ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[Osman AKYÜZ]

Denermisiniz...

[Arslanbey]

Denedim ilk bügünün tarihinde açtım olmadı sonra 31.08.2011 tarihinde denedim yine olmadı lisans sormuyor ilk açılışda userfrom1 geliyor.

[Osman AKYÜZ]

Serial test programınızı açın.Thisworkbook kod satırındaki sayıları 365 ve 10 olarak düzeltin.

Bu kodu herhangi bir excel dosyasında çalıştırın.

Kod: Tümünü seç

Sub sil()
    SaveSetting "ProV1", "V1", "StartDate", ""
    SaveSetting "ProV1", "V1", "EndDate", ""
    SaveSetting "ProV1", "V1", "Licence Manager", ""
    SaveSetting "ProV1", "V1", "Serial", ""
    SaveSetting "ProV1", "V1", "SerialKontrol", ""

End Sub


Test programınızı tekrar açın ve lisanslayın.Şu an 10 günlük demo sürümünüz oluşmuş olacak.

Sistem tarihinizi 11 gün ileri alın.Test programınızı çalıştırın.Lisans isteyecek.Bu sefer lisanslama yaparsanız , program 365 gün boyunca sorunsuz çalışacak.
Hızlı dönüş yaparsanız şu an için , cevap verebilirim.Sonrasında uykuda olacağım...

[Arslanbey]

Yanlız dediğiniz gibi yaptım oldu fakat lisans süreniz doldu ilgili siteyi açamk istermisiniz dediği zaman hayır tıkladıgın zaman program kapanmıyor userfromdaki açıklama geliyor hayır tıkladığın zaman program kapanması gerekmezmi. birde iligi siteye açmak istermisiniz dediği zaman evet dediğimizde tekrar lisans sayfası açılması gerekmezmi sonuçda tekrar lisanslamak için ilgili siteye bağlanıyor.

[Osman AKYÜZ]

Çalışmanızın Thisworkbook kod sayfasında bu kodları bulun.
Dim iResult, Satir As Integer
iResult = MsgBox("Lisans süreniz doldu ilgili siteye yölendirilmek istermisiniz ?", vbYesNo, "Lisans süresi doldu...")
If iResult = vbYes Then
'Soru sorulduğunda "EVET" dedikten sonra programa ne yaptırmak istiyorsanız , o kadları bu satıra yazınız.
'ShellExecute GetActiveWindow(), "Open", "http://www.excelvba.net/", "", 0&, 1
'Exit Sub
End If
End If
If iResult = vbNo Then
'Soru sorulduğunda "HAYIR" dedikten sonra programa ne yaptırmak istiyorsanız , o kadları bu satıra yazınız.
'ThisWorkbook.Save
'ThisWorkbook.Close
Exit Sub

[Arslanbey]

Özür dilerim ama bu kodları nereye yazacagım bir örnek verebilirmisiniz lütfen.

[Arslanbey]

Dediklerinizi yaptım fakat şöyle br durum oluştu lisans aktif hale getirdikdikten sonra program sayfası gelmiyor rica etsem örnek bir program verebilirmisiniz.

[Arslanbey]

Konu hala güncelliğini koruyor.

[Osman AKYÜZ]

Siz örnek bir dosya ekleyin.Kodları dosyanıza göre uyarlamasını yapalım.Sonrasında siz kodları inceler , anlayamadığınız bir yer olunca tekrar sorarsınız.Bu şekilde ne yaptığınızı , hangi kodu nereye yazdığınızı , bilmeden görmeden kesin sonuç çıkmaz.En temizi örnek dosya...

[Arslanbey]

Örneği ekledim ilgilenirseniz sevinirim.

[Osman AKYÜZ]

Dosyanız kullanıma hazır ...

[Arslanbey]

İlk öncelikle teşekkür ederim ilginizden dolayı. Her şey gayet güzel çalışıyor, fakat burada demek istediğim lisans süresi doldu. Bizi ilgili web sayfasına yolladı. Oradan lisansı aldık, lisansı aktif hale getirdik ve tamam dedikdikten sonra ilgili userform açılmıyor. Yani excel sayfası açık kalıyor, yani her işlemi yattıkdan sonra userform gelmiyor.

[Osman AKYÜZ]

LisansAktif formunun , commandbutton1_click kod bloğunun , en altında unload LisansAktif ten önce , açılmasını istediğiniz (buaçılsın.show) forunuzu yazınız sorun kalmayacaktır.

[Arslanbey]

Dediğinizi yaptım userfrom açılıyor yanıt vermedi diyor excel sayfasıda userfromda kapanıyor.

[Osman AKYÜZ]

Yazdığınız kod satırını eklermisiniz.

[Arslanbey]

Osman bey sizede çok zahmet verdik kusura bakmayın örneği ekliyorum.benim demek istediğim lisans süresi doldu ilgili sayfaya yönlendiriyor ilgili sayfamızdan lisans programı aldık diyelim lisansı girdikten sonra programın arslanbey adlı userfrom açılması istiyorum.

[Osman AKYÜZ]

Süleyman bey hayırlı bayramlar.Çalışmanızı tekrar denermisiniz.

deneme-1.rar

[Arslanbey]

Teşekkür ederim tam isteğim gibi olmuş çok emek harcadınız teşekkür ederim iyi bayramlar.

[teskes]

tesekkürler

[Tarkan VURAL]

Ayrıca yapmış olduğum örnekler var.Bunu da ekliyorum.Umarım ihtiyacı olanların işlerini görür.Ekteki dosya da çeşitli versiyonlar mevcut.

Mustafa bey, örneklerinizden paylaşmaya devam, durmayın, birşeyler eklemeye devam ...