Yazdığınız Programı Demo Haline Getirin <OnimosReturns>

**OnimosReturns**

Merhaba.
Regedit işlemiyle gerçekleşmektedir demo.
Vb.nette Programınızı Demo yapmak istiyorsanız Buyrun ;

Kod:

Dim kalan As Integer

kalan = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("democu").GetValue("demo", 5)

Label3.Text = kalan & " Kullanım Hakkınız Kaldı"

kalan -= 1

If kalan < 0 Then

MsgBox("Demo hakkınız sona ermiştir.")

Application.Exit()

Else

Microsoft.Win32.Registry.CurrentUser.CreateSubKey("democu").SetValue("demo", kalan)

End If

End Sub

Bu Kod 5 Kullanım Olarak ayarlanmıştır . isterseniz siz değiştirebilirsiniz. 5 yazan yeri kaç yaparsanız programı o sayı kadar açabilir daha sonra açamaz.