[Mina Botros]

  مشاهدة ممتعة

وجدت العديد من التساؤلات هنا وهناك عن كيفية جعل البرنامج ذو مدة تجريبية

تنتهي بعد مدة معينة من الزمن ... وذلك لحفظ الحقوق لصاحبه



ثم قررت بعون الله تقديم هذا الشرح المتكامل عن كيفية عمل مدة تجريبية (Trial)

تعتمد بطريقة عملها علي عدد تشغيل البرنامج من قبل المستخدم ثم توقف البرنامج

عن العمل الا إذا أدخلت بيانات للتسجيل فيه (بس الله يستر ما يكسره أحد من 

هؤلاء الكراكرز المناحيس ....) 


طبعا البرنامج أتعبني كثيرا بجمله الشرطية حتي توافق البرنامج بشكل كامل مع

العمل ... ثم اني ربطته ببرنامج خيالي وهو ما سيكون برنامجك الذي تحاول ان

تقوم ببنائه

وعلي بركة الله نبدأ




الفكرة العامة التي سوف نعمل بها هي كالتالي :



سنقوم ببناء فورمين :

الأول : سيكون لنافذة الإقلاع للبرنامج (المدة التجريبية)



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

أو كمسجل ببيانات كاملة



الثاني : برنامجك الأساسي وهو المحمي بالنسخة التجريبية وبيانات التسجيل



والآن لطريقة العمل ...
قم بعمل مشروع جديد وسميه ما تشاء




قم بتغيير اسم الفورم كما أسميته (Trial) أو كما تشاء



ثم من خلال اسم مشروعك كلك يمين ثم اختار اسم الفورم الثاني وهو ما

سيكون برنامجك أنت


[/url]


والآن لعملية إدخال الأدوات بالمشروع :

ثم نقوم بتغيير أسماء الأزرار والجروب بوكس ... الخ







من خلال My Project سنذهب Settings ونضيف واحد للمدة التجريبية
وآخر لبيانات التسجيل








نقوم بانشاء فورم جديد وهو ما يمثل برنامج الذي تود عمل مدة تجريبية
وبيانات تسجيل له

الاكواد
- علي زر الخروج ... دبل كلك وأدخل هذا الكود :

PHP كود :

Me.Close() 


- علي زر تجريبي :

PHP كود :

If My.Settings.Trial = "0" = True Then 
Button1.Enabled = False
        Else
            My.Settings.Trial -= 1
            My.Settings.Save()
            MyProgram.Show()
        End If
        Label2.Text = My.Settings.Trial
        Me.Hide() 


[b]- وعلي زر التسجيل :[/b]

PHP كود :

If TextBox1.Text = "الاسم" And TextBox2.Text = "السريال" = True Then  
y.Settings.Register = "Yes"
            MsgBox("تم التسجيل بنجاح ... شكرا لك")
            My.Settings.Save()
            MyProgram.Show()
        Else
            MsgBox("التسجيل خاطيء ... يرجي المحاولة مرة أخري", vbCritical)
        End If 


[b][b]- دبل كلك علي الفورم نفسه :[/b][/b]

PHP كود :

Label2.Text = My.Settings.Trial  
If My.Settings.Trial = "0" = True Then
            Label2.Text = "للأسف انتهت صلاحية استخدامك للبرنامج"
            Button1.Enabled = False
        End If
        If My.Settings.Register = "Yes" = True Then
            MyProgram.ShowDialog()
            Me.Close()
        End If 


شغل برنامجك الآن ستجد بأنه وبكل مرة تشغله فيه ستنقص مرات التشغيل واحد



وعند تشغيله لمدة 25 مرة وهو عدد المرات المسموح لك فيها تشغيل البرنامج


الي ان تصل الي 0 هنا تظهر رسالة تخبرك بعدم قدرتك استئناف استعمال




البرنامج الا عند التسجيل ثم يصبح زر "تجريبي" معطل أمامك


[url=https://1.bp.blogspot.com/-y4hJIQsI6_c/WTQDGMej5WI/AAAAAAAAAIQ/XVUSbS2eysIo9x15zj3tazTyqvmmCn_cQCLcB/s1600/23.png]
الشكر يكفى

[سعود]

بارك الله  فيك وجزاك عن كل عضو او زائر خير الجزاء

[Mina Botros]

(02-07-17, 08:09 PM)سعود كتب :

بارك الله  فيك وجزاك عن كل عضو او زائر خير الجزاء

[IBRA939]

جميل جدا جزاك الله خيرا

[Mina Botros]

(28-07-17, 01:50 PM)IBRA939 كتب : جميل جدا جزاك الله خيرا

انا سعيد   ان الموضوع عجبك

[Ali-Othmane]

شكرا أخي جزاك الله خيرا

[sirnon]

كيف يمكن عمل كود تفعيل 
البرنامج لا يعمل الا بعد ادخال كود التفعيل 
ويتم التحقق من كود التفعيل من خلال الانترنت

[elgokr]

(05-07-18, 03:45 AM)sirnon كتب : كيف يمكن عمل كود تفعيل 
البرنامج لا يعمل الا بعد ادخال كود التفعيل 
ويتم التحقق من كود التفعيل من خلال الانترنت

بخصوص امور التفعيل للبرنامج

يمكنك الاطلاع على الرابط التالى

http://vb4arb.com/vb/showthread.php?tid=25540

وبخصوص ربط كود التحقق من خلال الانترنت

راجع المواضيع التالية من حيث تشابه الفكرة ويمكنك الاستفادة منها

http://vb4arb.com/vb/showthread.php?tid=25411

وكذلك

http://vb4arb.com/vb/showthread.php?tid=...#pid119538

تحياتى لك

وتمنياتى لك التوفيق

[ابو روضة]

بارك الله فيك اخى الكريم لكن اعتقد ان هذا الشرح ملك للأخ أبو فهمى من بوابة داماس

[Hussein Essam]

شكرااااااا جدااااااااااااا تسلم يا كبيييييير