منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[مثال] وضع مدة تجريبية للتطبيق ( ) - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [مثال] وضع مدة تجريبية للتطبيق ( ) (/showthread.php?tid=10595)

وضع مدة تجريبية للتطبيق ( ) - Dev Saeed - 04-11-14

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

هذا المثال يوضح طريقة تحديد عدد مراة إمكانية تشغيل التطبيق إذا كان تجريبيًا ، وهو من خلال تخزين عدد مرات تشغيل التطبيق في الــ 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)   =  عدد المرات في الوضع التجريبي

_____________________________________________________________

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

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

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


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


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

__________________________________________________________

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

وشكرًا


RE: وضع مدة تجريبية للتطبيق ( ) - عمار عيثاوي - 24-11-14

عاشت ايدك يا بطل
بارك الله فيك