تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مثال] وضع مدة تجريبية للتطبيق ( )
#1
بسم الله الرحمن الرحيم

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


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

__________________________________________________________

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

وشكرًا


الملفات المرفقة
.rar   تسجيل التطبيق.rar (الحجم : 61.47 ك ب / التحميلات : 530)
الرد }}}
تم الشكر بواسطة:
#2
عاشت ايدك يا بطل
بارك الله فيك
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم