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
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
Kod:
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