ShareWare Deneme sürümü hazırlamak

[oerbas]

Herkese saygı ve selamlarımla

Arkadaşlar Visual Basic 6.0 kitabından aldığım kod Sharvare deneme sürümü hazırlamayla alakalı. Merakımdan dolayı bu kodu yazdım. Deneme programı yapmak istiyorum. ( UserForm ) Örneğin program açıldıktan 10 gün sonra yada 5 gün sonra farketmez kullanıcı deneme süresi dolmuştur diye uyarıldıktan sonra program ya kapatılsın yada bazı kodlar silinsin. Yardımlarınıza şimdiden teşekkürler

Aşağıdaki kod bu tür uygulamalar için bir örnek Ama bu Visual Basic 6.0 için excel UserForm üzerinde olabilirmi

Private Sub UserForm_Load()
On Local Error Resume Next
Dim d, x, y
d = GetStetting("Bizim ShareWare", "Ayarlar", "İlk Giriş", "")
If d = "" Then 'Bu bilgisayarda ilk defa çalışıyor. Tarihi kaydet

SaveSetting "Bizim ShareWare", "Ayarlar", "İlk Giriş", Date
Else
If (Date - CDate(d)) > 15 Then '15 gün doldumu
MsgBox ("Programı deneme süreniz doldu.Beğendiyseniz 0536 671 30 30 nolu telefondan sipariş verebilirsiniz")
Unload Me 'Programı kapat
Else
x = GetSetting("Bizim ShareWare", "Ayarlar", "Son Çıkış Tarihi", "")
'Bugünün tarihi son çıkış tarihinden küçükse tarih geri alınmış
If CVDate(x) > Date Then
MsgBox ("Programı deneme süreniz doldu lutfen ısrar etmeyin")
End 'Programı kapat
y = GetSetting("Bizim ShareWare", "Son Çıkış Saati", "")
If CVDate(x) = Date And (CVDate(y) > Time) Then
'Tarih Her Girişte Geri alınıyor olabilir o zaman saatide kontrol et
MsgBox ("Programı deneme süreniz doldu lutfen ısrar etmeyin")
End
End If
End If
x = GetSetting("Bizim ShareWare", "Ayarlar", "Sayı", "1")
MsgBox ("Programı " & x & ".defa çalıştırıyorsunuz")
SaveSetting "Bizim ShareWare", "Ayarlar", "Sayı", x + 1
End If
End If
End Sub

Privte Sub UserForm_Load(Cancel As Integer)
SaveSetting "Bizim ShareWare", "Ayarlar", "Son Çıkış Tarihi", Date
SaveSetting "Bizim ShareWare", "Ayarlar", "Son Çıkış Saati", Time
End Sub

 

[Haluk]

İlk kodu "UserForm_Initialize" altına yazın, ikinci kodu da "UserForm_QueryClose" altına yazın.

İlk koddaki yazım hatası olan "GetStetting" ifadesini de, "GetSetting" olarak değiştirin.

 

[oerbas]

Halukbey bu kadar hızlı cevap için çok teşekkür ediyorum. Mesai bitimine kadar önerinizi uygulamaya çalışacağım

 

[oerbas]

Haluk bey işlerin yoğunluğu nedeni ile kodu test edememiştim, şimdi denedim. Kod çalıştı, teşekkür ederim.

 

[Zeki Gürsoy]

..

..

 

[Zeki Gürsoy]

shareware2

kodlar ekte.

 

[teknik]

Peki sayın anemos programın kullanım süresi dolduktan sonra açılışta bir şifre veya serial istemesi ve doğru seriali girdikten sonra programın çalışması için bir eklenti yapılamaz mı? eğer öyle olursa gerçekten kullanışlı bir kod olacak. ben denedim şu anki hali çalışıyor.

 

[oerbas]

Sayın anemos verdiğiniz bilgiler için teşekkür ederim

 

[Zeki Gürsoy]

bir inputbox ile elbette yapılabilir. bu çalışmam da vardı, yanlışlıkla sildim galiba.