شرح وضع مدة تجريبية للتطبيق

admin · 12 أبريل 2021

بسم الله الرحمن الرحيم

هذا المثال يوضح طريقة تحديد عدد مراة إمكانية تشغيل التطبيق إذا كان تجريبيًا ، وهو من خلال تخزين عدد مرات تشغيل التطبيق في الــ Registry وإذا وصل عدد مراة تشغيل التطبيق لعدد معين تنتهي المدة التجريبية لإستخدام هذا التطبيق

هنا الكود :

كود:

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

في الكود السابق يمكنك تغيير التالي :

MY_APP = وهو اسم التطبيق

REG = وهو اختصار لكلمة تسجيل Registration ومعناه في الكود في الأعلى هو إنشاء مسار داخل MY_APP في الـــ Registry

(index=5) = عدد المرات في الوضع التجريبي

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

عن طريق استخدام الكود التالي :

كود:

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

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

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

في الكود السابق

أيضا المثال موجود في المرفقات :

وشكرًا
منقوووووووووول

شرح وضع مدة تجريبية للتطبيق

admin

عضو إداري

المرفقات