[aftfm]

وهذا كود آخر
منقول

كود :

Dim T As Boolean
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        T = False
        Dim RegX As Microsoft.Win32.RegistryKey
        RegX = Microsoft.Win32.Registry.CurrentUser

        Dim S As String() = RegX.GetSubKeyNames
        For Each A As String In S
            If A = "smp3" Then
                T = True
            End If
        Next
        If T = True Then RegX = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("smp3", True)
        Dim x As Integer = RegX.GetValue("val")
        x = x + 1
        RegX.SetValue("val", x)
        If x = 5 Or x > 5 Then
            MsgBox("لقد انتهت مدتك لاستخدام البرنامج , يرجى الاتصال بفريق الدعم لمعرفة كيفية الشراء")
            Application.Exit()

        Else

            RegX = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("smp3")
            RegX.SetValue("val", 1)
        End If

    End Sub