Yeni Kayıt
Konudaki Resimler
|
Hızlı 
Bildirim
Lisans Oluşturma
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
2 Misafir - 2 Masaüstü
Giriş
Mesaj
-
-
öncelikle veritabanında yeni bir tablo oluşturun ben örnek teşkil etmesi açısından şöyle bir tablo oluşturdum ve 1 veri ekledim:
daha sonra ise programının her açılışında çalışacak bir if sorgusu oluşturarak şuanki tarih saat bilgilerini çekip veritabanındaki tarih saat bilgileri ile eşit olup olmadıklarını kontrol ederek süreli lisans kodları ekliyebilirsiniz.
-
daha basit olarak registry ye programın kurulduğu tarihi yazdır. lisans süresini yazdır. programın her açılışında splash screen ile kontrol ettir. şöyleki
Option Explicit
Private Sub Form_Load()
Dim a
a = GetSetting("mayhem", "mayhemious", "zaman")
If a = "" Then
SaveSetting "mayhem", "mayhemious", "zaman", DateAdd("d", 21, Now)
MsgBox "Deneme Süreniz Başlamıştır... Lütfen programı satın alınız.", vbInformation, "mayhemious"
Else
b = DateDiff("d", a, Now)
MsgBox "Deneme Süreniz " & b & " gün kaldı...! Lütfen programı satın alınız.", vbInformation, "mayhemious"
End If
End Sub -
quote:
Orijinalden alıntı: mayhemious
daha basit olarak registry ye programın kurulduğu tarihi yazdır. lisans süresini yazdır. programın her açılışında splash screen ile kontrol ettir. şöyleki
Option Explicit
Private Sub Form_Load()
Dim a
a = GetSetting("mayhem", "mayhemious", "zaman")
If a = "" Then
SaveSetting "mayhem", "mayhemious", "zaman", DateAdd("d", 21, Now)
MsgBox "Deneme Süreniz Başlamıştır... Lütfen programı satın alınız.", vbInformation, "mayhemious"
Else
b = DateDiff("d", a, Now)
MsgBox "Deneme Süreniz " & b & " gün kaldı...! Lütfen programı satın alınız.", vbInformation, "mayhemious"
End If
End Sub
registry kullanarak yaparsa program çok kolay hacklenebilir. 3.kullanıcı direk registry verilerini elle değiştirerek sürekli olarak lisans süresini uzatabilir. ha registry'de bir değiştirme koruması yada farklı bir önlem almak için kullanılabilecek bir yöntem varsa bilemiyorum.
ben yinede en sağlamı veritabanından lisans numarasının son kullanma tarihini çekerek, şuanki tarihle karşılaştırması yapılarak ve buna göre ekrana çıktı verilerek daha güvenli olacağına inanıyorum. yinede seçim senin tabi, hangisini istiyorsan onu kullan.
-
quote:
Orijinalden alıntı: mayhemious
daha basit olarak registry ye programın kurulduğu tarihi yazdır. lisans süresini yazdır. programın her açılışında splash screen ile kontrol ettir. şöyleki
yani basit olarak registry dedim. programında database yoksa sadece lisanslama için DB hazırlamak da iş tabi :) ama en sağlam yöntem Database oluşturup tarihi oraya gömmek katılıyorum. iş program kırmaya gelince benim kadar bilgisi olan bi adam her türlü istediği programı kırar :) ama işi zorlaştırmak bakımında DB yöntemi çok sağlam. daha farklı bir yöntem olarak programınızın oluşturma tarihini baz alabilirsiniz. Şöyle ki
Option Explicit
Private Sub Command1_Click()
Dim a, b
a = FileDateTime(App.Path & "\" & App.EXEName & ".exe")
b = DateAdd("d", 21, a)
MsgBox "Deneme Süreniz " & DateDiff("d", Now, b) & " gün kaldı...! Lütfen programı satın alınız.", vbInformation, "mayhemious"
End Sub
< Bu mesaj bu kişi tarafından değiştirildi mayhemious -- 6 Haziran 2012; 20:57:01 >
-
quote:
Orijinalden alıntı: mayhemious
quote:
Orijinalden alıntı: mayhemious
daha basit olarak registry ye programın kurulduğu tarihi yazdır. lisans süresini yazdır. programın her açılışında splash screen ile kontrol ettir. şöyleki
yani basit olarak registry dedim. programında database yoksa sadece lisanslama için DB hazırlamak da iş tabi :) ama en sağlam yöntem Database oluşturup tarihi oraya gömmek katılıyorum. iş program kırmaya gelince benim kadar bilgisi olan bi adam her türlü istediği programı kırar :) ama işi zorlaştırmak bakımında DB yöntemi çok sağlam. daha farklı bir yöntem olarak programınızın oluşturma tarihini baz alabilirsiniz. Şöyle ki
Option Explicit
Private Sub Command1_Click()
Dim a, b
a = FileDateTime(App.Path & "\" & App.EXEName & ".exe")
b = DateAdd("d", 21, a)
MsgBox "Deneme Süreniz " & DateDiff("d", Now, b) & " gün kaldı...! Lütfen programı satın alınız.", vbInformation, "mayhemious"
End Sub
evet şimdi bende katılıyorum sana, Database işi daha sağlam yapar ama kırılamaz diye bişe yoktur tabikide :) ne programlar kırılıyor internette keygenleri dolaşıyor bizim yaptıklarımız elbetteki kırılır ama işte dediğim gibi Database işi daha sağlam yapar sadece o kadar.
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
