Lisanslı Dosya Hazırlamak

Excel VBA kodlamaları ile yapılmış örnek dosyaları burdan izleyebilir ve paylaşabilirsiniz.

Lisanslı Dosya Hazırlamak

İleti#1)  Erhan Dinçer » 25 Haz 2008 19:44

Kodları:
Modüle içinde
Kod: Tümünü seç
Dim EndDate, StartDate As Date
Dim Licence As Double
Dim Lisans As Double
Dim FSO As Object, Surucu As Object
Dim HDDSeriNo
Dim Versiyon_No As Double
Dim Yapım_No As Double
Sub Auto_Open()
If GetSetting("ExcelVBA.Net", "ErhanD", "StartDate") = Empty Then
    SaveSetting "ExcelVBA.Net", "ErhanD", "StartDate", Format(Now, "dd.mm.yyyy")
    SaveSetting "ExcelVBA.Net", "ErhanD", "EndDate", Format(Now + 0, "dd.mm.yyyy")
    SaveSetting "ExcelVBA.Net", "ErhanD", "Licence Manager", 1
End If
    EndDate = DateValue(GetSetting("ExcelVBA.Net", "ErhanD", "EndDate"))
    Licence = GetSetting("ExcelVBA.Net", "ErhanD", "Licence Manager")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Surucu = FSO.GetDrive("C:")

HDDSeriNo = Surucu.serialnumber
Versiyon_No = Application.Version
Yapım_No = Application.Build
Lisans = HDDSeriNo + Versiyon_No + Yapım_No + 1 ' Burası size kalmış
Set Surucu = Nothing
Set FSO = Nothing

If Licence = 1 Then
    If EndDate < Now Then MsgBox "Demo Süresi bitmistir.":  frmLisans.Show: Exit Sub Else MsgBox "Demo Süresi devam etmektedir.": Exit Sub
End If
If Licence <> Lisans Then
    MsgBox "Ürünün kayıt numarası hatalı. Lütfen program yetkilisi ile görüşünüz. ", vbCritical + vbOKOnly, Başlık
    frmLisans.Show
Else
    frmANA.Show
End If
End Sub

frmLisans adında bir userform oluşturun ve içerine 4 adet Textbox ve 1 adet Commandbutton ekleyin. Kodları:
Kod: Tümünü seç
Dim EndDate, StartDate As Date
Dim Licence As Double
Dim Lisans As Double
Dim FSO As Object, Surucu As Object
Dim HDDSeriNo
Dim Versiyon_No As Double
Dim Yapım_No As Double

Private Sub CommandButton1_Click()
SaveSetting "ExcelVBA.Net", "ErhanD", "Licence Manager", TextBox4.Value
Licence = GetSetting("ExcelVBA.Net", "ErhanD", "Licence Manager")
Lisans = HDDSeriNo * Versiyon_No + Yapım_No + 1
If Licence <> Lisans Then MsgBox "Ürünün kayıt numarası hatalı. Lütfen program yetkilisi ile görüşünüz. ", vbCritical + vbOKOnly, Başlık: Exit Sub
MsgBox "KAYITLI KULLANICI"
End Sub

Private Sub TextBox4_Change()
If Not IsNumeric(TextBox4) Then MsgBox "Sayı olmalı": Exit Sub
End Sub

Private Sub UserForm_Initialize()
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Surucu = FSO.GetDrive("C:")
HDDSeriNo = Surucu.serialnumber
Set Surucu = Nothing
Set FSO = Nothing
Versiyon_No = Application.Version
Yapım_No = Application.Build
TextBox1 = Versiyon_No
TextBox2 = Yapım_No
TextBox3 = HDDSeriNo

End Sub
Sub ass()
Lisans = HDDSeriNo + Versiyon_No + Yapım_No + 1 ' Burası size kalmış
If GetSetting("ExcelVBA.Net", "ExcelVBA.Net", "StartDate") = Empty Then
    SaveSetting "ExcelVBA.Net", "ExcelVBA.Net", "StartDate", Format(Now, "dd.mm.yyyy")
    SaveSetting "ExcelVBA.Net", "ExcelVBA.Net", "EndDate", Format(Now + 30, "dd.mm.yyyy")
    SaveSetting "ExcelVBA.Net", "ExcelVBA.Net", "Licence Manager", 1
End If
EndDate = DateValue(GetSetting("ExcelVBA.Net", "ExcelVBA.Net", "EndDate"))
Licence = GetSetting("ExcelVBA.Net", "ExcelVBA.Net", "Licence Manager")
If Licence = 1 Then
    If EndDate < Now Then MsgBox "Demo Süresi bitmistir.": Exit Sub
Else
If Licence <> Lisans Then MsgBox "Ürünün kayıt numarası hatalı. Lütfen program yetkilisi ile görüşünüz. ", vbCritical + vbOKOnly, Başlık: Exit Sub
End If
MsgBox "KAYITLI KULLANICI"
End Sub

Son olarak frmANA adında bir userform oluşturun.
Resim
İndirmek için resme tıkla
En son Erhan Dinçer tarafından, 26 Haz 2008 09:58 tarihinde değiştirildi, toplamda 2 değişiklik yapıldı.
Türk gibi Türkçe konuş
Benim yaradılışımda fevkalâde bir şey varsa, Türk olarak dünyaya gelmemdir...
-M.K.ATATÜRK-
Kullanıcı avatarı
Erhan Dinçer
Siteye Alışmış
 
Adı Soyadı:Erhan DİNÇER
Kayıt: 15 Haz 2008 00:14
Konum: AYDIN,ANKARA
Meslek: Elektrik-Elektronik Yüksek Mühendisi
Yaş: 43
İleti: 144
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: AYDIN

Lisanslı dosya hazırlamak

İleti#2)  Tarkan VURAL » 25 Haz 2008 20:33

Emeğinize sağlık Erhan bey.

Şunu ekleyebilir miyiz ?

Kod: Tümünü seç
Now + 30,
yazan kısım 30 günlük demo sürümü olduğunu açıklıyor. Bunu 45 ya da 90 yaparsak Registry 'deki kayıt buna belirlediğimiz kadar izin verecek değil mi ? Bu kayıdın registry 'den crack yani kırılma ihtimaline karşılık yapabileceğimiz bir şey var mı ? Kod gizlemeyi de kırdıklarını farz edersek ? Kullanıcıya ilk etapta ürünün tam versiyonunu vermemek mi gerek, başka çözüm var mı acaba ?
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27420
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Lisanslı dosya hazırlamak

İleti#3)  Erhan Dinçer » 25 Haz 2008 21:49

ExceLord yazdı:Emeğinize sağlık Erhan bey.

Şunu ekleyebilir miyiz ?

Kod: Tümünü seç
Now + 30,
yazan kısım 30 günlük demo sürümü olduğunu açıklıyor. Bunu 45 ya da 90 yaparsak Registry 'deki kayıt buna belirlediğimiz kadar izin verecek değil mi ? Bu kayıdın registry 'den crack yani kırılma ihtimaline karşılık yapabileceğimiz bir şey var mı ? Kod gizlemeyi de kırdıklarını farz edersek ? Kullanıcıya ilk etapta ürünün tam versiyonunu vermemek mi gerek, başka çözüm var mı acaba ?


45 yada 90 yaparsanız o kadar demoya izin verecektir. Doğru söylüyorsunuz. Kırılırsa kodlarla tam sürüm elde edilebilir. Bunun için yapabilecek bir şey var tabiki. Farklı bir adreste dosya kaydetip o dosya ile kontrol sağlanabilir.
Türk gibi Türkçe konuş
Benim yaradılışımda fevkalâde bir şey varsa, Türk olarak dünyaya gelmemdir...
-M.K.ATATÜRK-
Kullanıcı avatarı
Erhan Dinçer
Siteye Alışmış
 
Adı Soyadı:Erhan DİNÇER
Kayıt: 15 Haz 2008 00:14
Konum: AYDIN,ANKARA
Meslek: Elektrik-Elektronik Yüksek Mühendisi
Yaş: 43
İleti: 144
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: AYDIN

Lisanslı dosya hazırlamak

İleti#4)  Tarkan VURAL » 26 Haz 2008 17:20

Bence bu kontrolu sağlamak için bilgisayardaki bir dosya adresini değil de; internetteki bir adrese yüklenecek bir veriyi kullanmak daha mantıklı.
Siz nasıl düşünüyorsunuz ?
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27420
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Lisanslı dosya hazırlamak

İleti#5)  Erhan Dinçer » 26 Haz 2008 19:14

ExceLord yazdı:Bence bu kontrolu sağlamak için bilgisayardaki bir dosya adresini değil de; internetteki bir adrese yüklenecek bir veriyi kullanmak daha mantıklı.
Siz nasıl düşünüyorsunuz ?

Güzel fikir,fakat interneti olmayabilir kişinin. Ama yinede en doğrusu internet adresine yazdırmak. :idea: ;)
Türk gibi Türkçe konuş
Benim yaradılışımda fevkalâde bir şey varsa, Türk olarak dünyaya gelmemdir...
-M.K.ATATÜRK-
Kullanıcı avatarı
Erhan Dinçer
Siteye Alışmış
 
Adı Soyadı:Erhan DİNÇER
Kayıt: 15 Haz 2008 00:14
Konum: AYDIN,ANKARA
Meslek: Elektrik-Elektronik Yüksek Mühendisi
Yaş: 43
İleti: 144
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: AYDIN

Cevap: Lisanslı dosya hazırlamak

İleti#6)  sw33tking » 13 Oca 2011 21:15

merhabalar,

uzun süredir sitenizi takip ediyorum. yaptığım bir bordro uygulamasında yukarıdaki lisanslamayı yapmayı düşünüyordum. uygulamaya çalıştım ama aşağıdaki kodta hata veriyor. hem module içinde hemde frmlisans içerisinde.

"Licence = GetSetting("ExcelVBA.Net", "ErhanD", "Licence Manager")

yardımlarınız için şimdiden teşekkürler
Kullanıcı avatarı
sw33tking
 
Adı Soyadı:Ömer Faruk KÖRÜKLÜ
Kayıt: 03 Ağu 2010 15:13
Yaş: 37
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Lisanslı dosya hazırlamak

İleti#7)  belerafon » 15 Oca 2011 11:00

Bunların yapılmış olduğu örnek bir çalışma dosyasını paylaşabilir misiniz lütfen? Yukarıda bir rapid linki var fakat çalışmıyor...
Kullanıcı avatarı
belerafon
 
Adı Soyadı:Fatih Ceylani
Kayıt: 15 Oca 2011 10:47
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: antalya / merkez

Cevap: Lisanslı dosya hazırlamak

İleti#8)  Tarkan VURAL » 16 Oca 2011 00:43

Bendeki örnek dosyayı ekliyorum.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27420
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Lisanslı dosya hazırlamak

İleti#9)  Osman AKYÜZ » 18 Ağu 2011 11:57

Tarkan bey örnek dosyanızı göremiyorum.Kontrol edebilirmisiniz... [mersi]
Kullanıcı avatarı
Osman AKYÜZ
Site Dostu
 
Adı Soyadı:OSMAN AKYÜZ
Kayıt: 09 Haz 2010 21:20
Meslek: Üretim Takip Program Yazılımı - Stok/Sipariş/Fatura/Cari Yazılım - İşlemleri - Muhasebe
Yaş: 33
İleti: 646
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TEKİRDAĞ/SÜLEYMANPAŞA

Cevap: Lisanslı Dosya Hazırlamak

İleti#10)  Tarkan VURAL » 18 Ağu 2011 14:12

Hangi konuda ekleyecektim de ekleyememişim hatırlayamadım. [ilginc]
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27420
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Lisanslı Dosya Hazırlamak

İleti#11)  Osman AKYÜZ » 18 Ağu 2011 22:44

Lisans kodu üreten örnek çalışmanızı ekleyecektiniz sanırım ... [ilginc]
Kullanıcı avatarı
Osman AKYÜZ
Site Dostu
 
Adı Soyadı:OSMAN AKYÜZ
Kayıt: 09 Haz 2010 21:20
Meslek: Üretim Takip Program Yazılımı - Stok/Sipariş/Fatura/Cari Yazılım - İşlemleri - Muhasebe
Yaş: 33
İleti: 646
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TEKİRDAĞ/SÜLEYMANPAŞA

Cevap: Lisanslı Dosya Hazırlamak

İleti#12)  Tarkan VURAL » 18 Ağu 2011 23:44

Yok. Örnek çalışma da bulunamadı. :) Acaba o anda bir örnek hazırladım da sonra kaydetmeyip kapattım mı ? [ilginc]
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27420
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Lisanslı Dosya Hazırlamak

İleti#13)  alican60 » 19 Ağu 2011 08:21

Osman Bey elimde benzer bir çalışma var nereden bulduğumu hatırlamıyorum.Umarım işinize yarar.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
alican60
Siteye Alışmış
 
Adı Soyadı:ali can
Kayıt: 14 Ağu 2011 11:18
Konum: Tokat
Meslek: İnşaat Teknikeri
Yaş: 41
İleti: 393
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Eskişehir

Cevap: Lisanslı Dosya Hazırlamak

İleti#14)  Arslanbey » 21 Ağu 2011 18:58

Tarkan hocam lisanslama ile ilgili sizden örnek dosya bekliyoruz.
Kullanıcı avatarı
Arslanbey
Site Dostu
 
Adı Soyadı:Süleyman Arslan
Kayıt: 15 Mar 2009 16:23
Konum: sağlık sektöründeyim
Meslek: laboratuvar teknikeriyim
Yaş: 38
İleti: 597
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Yozgat-Sorgun

Cevap: Lisanslı Dosya Hazırlamak

İleti#15)  Tarkan VURAL » 21 Ağu 2011 21:40

Dosya örneğim yok, bulamadım. Yenisini hazırlamak lazım.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27420
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Lisanslı Dosya Hazırlamak

İleti#16)  Arslanbey » 21 Ağu 2011 21:46

Tarkan hocam hazırlıya bilirmisiniz peki rica etsek bekleyen tek ben değilim.
Kullanıcı avatarı
Arslanbey
Site Dostu
 
Adı Soyadı:Süleyman Arslan
Kayıt: 15 Mar 2009 16:23
Konum: sağlık sektöründeyim
Meslek: laboratuvar teknikeriyim
Yaş: 38
İleti: 597
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Yozgat-Sorgun

Cevap: Lisanslı Dosya Hazırlamak

İleti#17)  Osman AKYÜZ » 22 Ağu 2011 11:11

Sn.Tarkan üstadım yorulmayın bir iki örnek incelemesi ve bir konuda şifreleme ile ilgili bir yazınız ilham kaynağı oldu vede kendi programımı yaptım.Faydalı olması dilağiyle....

Yorumlar ve geliştirebileceğimiz yönler hakkında dönüş yaparsanız memnun olurum...
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Osman AKYÜZ
Site Dostu
 
Adı Soyadı:OSMAN AKYÜZ
Kayıt: 09 Haz 2010 21:20
Meslek: Üretim Takip Program Yazılımı - Stok/Sipariş/Fatura/Cari Yazılım - İşlemleri - Muhasebe
Yaş: 33
İleti: 646
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TEKİRDAĞ/SÜLEYMANPAŞA

Cevap: Lisanslı Dosya Hazırlamak

İleti#18)  Osman AKYÜZ » 22 Ağu 2011 11:17

Öncelikle test çalışmasını açın lisans kayıtlı olmadığı için uyarı verecektir.
Açılan lisans etkinleştir penceresindeki seriali kopyalayın diğer çalışmayı açın ve düğmeye tıklayın.
açılan formda yazılı seriali silin ve kopyaladığınız seriali yapıştırın.Serial ürete tıklayın
alt kısıma üretilen seriali kopyalayın ve test çalışmasındaki lisans aktifleştirme formuna 2. textbox a
yapıştırın ve olay tamamdır.Kodları inceleyip kendinize uyarlayabilirsiniz...
Kullanıcı avatarı
Osman AKYÜZ
Site Dostu
 
Adı Soyadı:OSMAN AKYÜZ
Kayıt: 09 Haz 2010 21:20
Meslek: Üretim Takip Program Yazılımı - Stok/Sipariş/Fatura/Cari Yazılım - İşlemleri - Muhasebe
Yaş: 33
İleti: 646
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TEKİRDAĞ/SÜLEYMANPAŞA

Cevap: Lisanslı Dosya Hazırlamak

İleti#19)  Osman AKYÜZ » 22 Ağu 2011 13:46

Bir şey daha ilk lisanslama yaptığınızda 10 gün demo kullanacaksınız.10 gün sonra tekrar lisanslama yaparak 365 gün yani 1 yıl kullanabileceksiniz.
Kullanıcı avatarı
Osman AKYÜZ
Site Dostu
 
Adı Soyadı:OSMAN AKYÜZ
Kayıt: 09 Haz 2010 21:20
Meslek: Üretim Takip Program Yazılımı - Stok/Sipariş/Fatura/Cari Yazılım - İşlemleri - Muhasebe
Yaş: 33
İleti: 646
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TEKİRDAĞ/SÜLEYMANPAŞA

Cevap: Lisanslı Dosya Hazırlamak

İleti#20)  Arslanbey » 22 Ağu 2011 18:29

Öncelikle örneğiniz çok güzel emeğinize sağlık peki bunu internetden istediğimiz adrese nasıl yönlendirebiliriz lisans alması için.
Kullanıcı avatarı
Arslanbey
Site Dostu
 
Adı Soyadı:Süleyman Arslan
Kayıt: 15 Mar 2009 16:23
Konum: sağlık sektöründeyim
Meslek: laboratuvar teknikeriyim
Yaş: 38
İleti: 597
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Yozgat-Sorgun

Sonraki

Forum Örnek Dosyalar

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe