[كود] وضع مدة تجريبية للتطبيق - نسخة قابلة للطباعة

PHP كود :

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       On Error Resume Next
       Dim KEY As String = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\MY_APP", "REG", "NULL")
       If (KEY <> "NULL") Then
           Dim index As Integer = Integer.Parse(KEY)
           Me.Label1.Text = index.ToString
           If (index = 5) Then ' هنا عدد المرات المسموحة بتشغيل التطبيق قبل التسجيل
               Me.Label1.Text = "التطبيق يتطلب التسجيل"
           Me.Text = Me.Text + " (يتطلب التسجيل)"


 ' هنا يمكنك أن تقوم بتقييد استخدام التطبيق مثلا تقوم بإخفاء بعض الأدوات أو تقوم بإلغاء بعض الميزات في التطبيق وبإمكانك أن


           Else
               index = index + 1 ' هنا نزود عدد في كل مرة يعمل فيها التطبيق
               My.Computer.Registry.SetValue("HKEY_CURRENT_USER\MY_APP", "REG", index.ToString)
           End If
       Else
           My.Computer.Registry.SetValue("HKEY_CURRENT_USER\MY_APP", "REG", "0")
       End If
   End Sub 

يمكنك أيضا أن تقوم بإظهار رسالة أنه تم إنتهاء المدة التجريبية وإغلاق البرنامج

PHP كود :

If (MsgBox("تم إنتهاء المدة التجريبية", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "التطبيق") = MsgBoxResult.Ok) Then
                   Application.Exit()
               End If

وهو أن تضعه مكان :

Me.Label1.Text = "التطبيق يتطلب التسجيل"
Me.Text = Me.Text + " (يتطلب التسجيل)"