slm mayhemious yani bu senin değin demo programlarda olanların aynısı gibi bişey dimi

güzelmiş eline sağlık bunu saat olarak hesaplayıp yapabilirmiyiz hani bazı programların kullanım süreli oluyor  ya

tesekkurlewr

programa + olarak 1 buton ve 1 text kutusu ekleyin

Private Sub Command1_Click()
If Text1.Text = "mayhem" Then SaveSetting "sınır", "sınırla", "kbel", "mayhem"
End Sub

Private Sub Form_Load()
Dim kbel As String
kbel = GetSetting("sınır", "sınırla", "kbel", 0)
If kbel = "mayhem" Then GoTo mayhem
If kbel >= 5 Then 'Burdaki 5 rakamını isterseniz yükseltebilirsiniz bu rakam programın kaç kere çalışacağını belirtiyor.
SaveSetting "sınır", "sınırla", "kbel", 111111
MsgBox "Programın kullanım süresi bitti", vbOKOnly, "Uyarı'"
Unload Me
End
Else
kbel = kbel + 1
SaveSetting "sınır", "sınırla", "kbel", kbel
Label1.Caption = kbel
End If
mayhem:
End Sub

**************


text kutusuna mayhem yazılıp buton tıklanınca regedit e mayhem şeklinde bir kayıt yapılıyor. program açılışında regediti kontrol ediyor regeditte mayhem isimli bir kayıt varsa tüm sayma işlemini atlayıp programı çalıştırıyor. eğer bu kayıt yoksa 5 çalıştırma sonunda program hata mesajı verip kapanıyor. KLASİK SERIAL METODU

çok sağol  süper kod bu programlarıma deniyecem

süper ya
emeğine sağlık