Bir projeye bu kodaları eklediğimizde istediğimiz sayıda açılmasını sağlayabiliyoruz. Fakat sayının tutulduğu alanı bulmak ve değiştirmek çok kolay. Bu kayıtlara müdahelenin engellenmesi mümkün mü. Ya da demo yapmada güvenli bir yöntem varmı?
On Local Error Resume Next
Dim x
x = GetSetting("deneme", "Ayarlar", "sayı", "1")
MsgBox ("Bu programı lisanssız olarak 100 defa açabilirsiniz.Şu anda " & x & ". defa çalistiriyorsunuz.")
SaveSetting "deneme", "Ayarlar", "sayı", x + 1
If (x) > 100 Then
MsgBox ("Bu programı lisanssız olarak 100 defa açabilirsiniz.Programı kullanmaya devam etmek için lütfen bizi arayınız”)
DoCmd.Quit acExit
End If
On Local Error Resume Next
Dim x
x = GetSetting("deneme", "Ayarlar", "sayı", "1")
MsgBox ("Bu programı lisanssız olarak 100 defa açabilirsiniz.Şu anda " & x & ". defa çalistiriyorsunuz.")
SaveSetting "deneme", "Ayarlar", "sayı", x + 1
If (x) > 100 Then
MsgBox ("Bu programı lisanssız olarak 100 defa açabilirsiniz.Programı kullanmaya devam etmek için lütfen bizi arayınız”)
DoCmd.Quit acExit
End If