Programınızı Demo Yapın

Programınızı Demo Yapın

Aşagıdaki kodda 3 kullanım hakkı verilmiştir.

kullanıcı 3 defa açtıktan sonra program kullanım hakkın bitti diye uyarı verip kapanacaktır.

"Microsoft.Win32.Registry.CurrentUser" de kendi isminde yer acmaktadır.

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim kalan As Integer
        kalan = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("Visual Basic").GetValue("Dersleri", 3)
        Label1.Text = kalan & " Kullanım Hakkın Kaldı"
    kalan -= 1
    If kalan < 0 Then
            MsgBox("Kullanım Hakkın Sona Erdi")
            Application.Exit()
    Else
            Microsoft.Win32.Registry.CurrentUser.CreateSubKey("Visual Basic").SetValue("Dersleri", kalan)
    End If
    End Sub
End Class

Paylaş :