بحــث في الموقع

قسم منتديات VB.Net >> برامج مفتوحة ال ...

نسخة تجريبية لبرنامجك عبر الريجستري بلغة VB.Net

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

 

رابط تحميل السورس كود 

إنقر هنا 

 

طريقة إنشاء نسخة تجريبية لبرنامجك عبر الريجستري بلغة VB.Net

طريقة جميله جداً 

نتابع ...

مثلاً لدي برناج يحتوي على مجموعة من الاكواد

الشكل التالي 

 

 

سنقوم بعمل نسخة تجريبية لهذا البرنامج 

نقوم بتعريف متغييرين واسناد قيمهم من الرجيستري في العام

الرقم 3 الذي بالمتغير a هو عدد مرات استخدام النسخة التجريبية

Dim a = Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\ITFY-Edu", "t", "3")

Dim a_ = Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\ITFY-Edu", "A", "OFF")
 
 
 
بعد ذلك نذهب الى حدث Lodo بالواجهة الرئيسية للبرنامج ونقوم بإضافة 
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       
'إذا كان المتغير a_ فارغ اسند قية الى الريجستري A واجعلها OFF
        If a_ Is Nothing Then
            Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\ITFY-Edu", "A", "OFF")
        End If
 
' اذا كان المتغير a_ = OFF
        If a_ = "OFF" Then
 
' اذا كان المتغير a فارغ
            If a Is Nothing Then
 
'ارسل هذه القيم الى الريجستري
                Microsoft.Win32.Registry.CurrentUser.CreateSubKey("ITFY-Edu")
                Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\ITFY-Edu", "t", "10")
                Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\ITFY-Edu", "s", "1234")
                Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\ITFY-Edu", "A", "OFF")
' غير ذلك            
Else
' اذا كان a =0 
 
' الصفر وصل عدد مرات التشغيل التجريبي الى صفر
  If a = "0" Then
                    Me.Hide()
                    MsgBox("إنتهت فترة إستخدام البرنامج")
 
' إعرض واجهة ادخل السيريال نمبر واخفي هذه الواجهة
                    BuyOrginal.ShowDialog()
 
' غير ذلك
                Else
 
' قم بتنقيص واحد من القيمة المسموحة لاستخدام البرنامج وارسل القيمة الجديدة للريجستري
                    a = a - 1
                    Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\ITFY-Edu", "t", a)
                    MsgBox("باقي لك على إستخدام البرنامج  " & a & "مره")
                End If
            End If
        Else
        End If
    End Sub
 
 
 
بعد ذلك نقوم بإنشاء صفحة بإسم BuyOrginal
التي ستظهر عند انتهاء المرات التجريبية للظام 
وقم بتصميمها على الشكل التالي 
 
 
 
 
قمنا بتعريف متغييرين واسناد القيم من الريجستري 
الرقم 1234 الموجود في المتغير s هو السيريال نمبر
Dim s = Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\ITFY-Edu", "s", "1234")
Dim a = Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\ITFY-Edu", "A", "")
 
 
 
في حدث Click الخاص بالزر شراء من الموقع أضف كود الذهاب الى موقعك
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Process.Start("http://www.ITFY-Edu.com")
 End Sub
 
 
بعد ذلك في زر تأكيد أضف الكود التالي 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
' اذا كانت القيمة التي في Textbox1 = s 
        If TextBox1.Text = s Then
 
' اخبره ان السيريال صحيح 
            MessageBox.Show("تم تفعيل النظام بنجاح , شكراً لاستحدامك منتجات موفع تقنية المعلومات لاجلك", "نجاح السيريال", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
' واجعل قيمة a = on 
' وقم بإرسال القيمة الجديدة للريجستري
            a = "on"
            Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\ITFY-Edu", "A", a)
            Me.Hide()
        Else
 
' اذا كان السيريال خاطئ أعد المحاولة
            MessageBox.Show("السيريال خطأ يرجى المحاولة مجدداً", "سيريال خاطئ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            TextBox1.Text = ""
            TextBox1.Focus()
        End If
    End Sub

الكود كامل : 

Dim a = Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\ITFY-Edu", "t", "3")

Dim a_ = Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\ITFY-Edu", "A", "OFF")

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If a_ Is Nothing Then
            Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\ITFY-Edu", "A", "OFF")
        End If
        If a_ = "OFF" Then
            If a Is Nothing Then
                Microsoft.Win32.Registry.CurrentUser.CreateSubKey("ITFY-Edu")
                Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\ITFY-Edu", "t", "10")
                Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\ITFY-Edu", "s", "1234")
                Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\ITFY-Edu", "A", "OFF")
Else
  If a = "0" Then
                    Me.Hide()
                    MsgBox("إنتهت فترة إستخدام البرنامج")
                    BuyOrginal.ShowDialog()
                Else
                    a = a - 1
                    Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\ITFY-Edu", "t", a)
                    MsgBox("باقي لك على إستخدام البرنامج  " & a & "مره")
                End If
            End If
        Else
        End If
    End Sub

 

 

صفحة BuyOrginal : 

 

 

Dim s = Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\ITFY-Edu", "s", "1234")
Dim a = Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\ITFY-Edu", "A", "")

 

 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

 

 

        If TextBox1.Text = s Then
            MessageBox.Show("تم تفعيل النظام بنجاح , شكراً لاستحدامك منتجات موفع تقنية المعلومات لاجلك", "نجاح السيريال", MessageBoxButtons.OK, MessageBoxIcon.Information)
            a = "on"
            Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\ITFY-Edu", "A", a)
            Me.Hide()
        Else
            MessageBox.Show("السيريال خطأ يرجى المحاولة مجدداً", "سيريال خاطئ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            TextBox1.Text = ""
            TextBox1.Focus()
        End If
    End Sub

 

 

 

 

 

الان نقوم بالتنفيذ 

ونذهب الى الريجستري بالنقر على windows + R

واكتب داخل الواجهة التي ستظهر Regedit

 

 

تم إرسال القيم الى الريحستري بنجاح

 

 

الان أغلق البرنامج وشغله مره أخرى 

سيخبرك النظام بعدد المرات المتبقيه بإستخدام النظام

 

 

نذهب الى الريجستري ونتاكد 

 

 

عند إنتهاء عدد مرات التشغيل ستظهر هذه الشاشة

تخبرك انه انتهى عدد مرات استخدام النظام مجاني 

 

 

وعند النقر على موافق 

سيظهر شاشة إدخال السيريال نمبر نلاحظ 

 

 

 

سنقوم بإدخال السيريال نمبر الذي أنشأناه في البرنامج قبل قليل هو 1234 

وستظهر رسالة تأكيد التفعيل 

 

 

عند الذهاب الى الريجستري 

تلاحظ انه تم تغيير قيمة a من OFF الى on ولن تظهر شاشة النسخة التجريبية مره أخرى

 

 

 

لمشاهدة الشرح فيديو

 

 

 

رابط تحميل السورس كود 

إنقر هنا 

 

شكراً لزيارتكم موقعنا  

تقنية المعلومات لاجلك  

www.ITFY-Edu.com  

 

 

آخر أعمالنا

صفحة الفيسبوك