كيفية تحديد مدة زمنية للبرنامج ..!

هذا هو الكود لعمل البرنامج لمدة 30 يوم فقط ... وتستطع تمديد ذلك وتقليصه طبعا

Private Sub Form_Load()
Rvalue = GetSetting("A", "0", "Runcount")
GD$ = Val(Rvalue) + 1
SaveSetting "A", "0", "RunCount", GD$
If GD$ > 30 Then ' 
MsgBox "انتهت مدة تشغيل البرنامج .. عليك بشراء النسخة الاصلية" & vbCrLf & " تليفون الشركة55555 ", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "HnHn"
End
End If
End Sub

قليلة في حقك كلمة شكرا ....

الله يعطيك العافيه وألف مليون شكر .. :lol:

السلام عليكم ورحمة الله وبركاته

شكرا جزيلا ولكن أرجو شرح الكود :^) :^) :^)

ALAZHARY كتب:

السلام عليكم ورحمة الله وبركاته

شكرا جزيلا ولكن أرجو شرح الكود :^) :^) :^)

وانا بعد اقول ولو تشرحو الكود

وشكرا لكم على هذا الجهد

تسلم لي اخي الدبدوب الصغير

واهلا بك اخ asfora

وحاضر اخواني ALAZHARY و OOOMMM

العملية بتعتمد على تسجيل قيمة في الريجستر الخاص بالنظام المثبت عليه البرنامج ... ومع كل عملية تشغيل للبرنامج تضاف للقيمة المسجلة سابقا يعني التحكم في عدد مرات التشغيل ... وأنا بصراحة أفضل هذه الطريقة عن طريقة مقارنة تارخ التشغيل بتاريخ النظام

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

وشرح الكود كالتالي :

[1] قمت بعمل مجلد لتخزين القيمة بداخله في الريجستر .. بأسم Rvalue

[2] عرفت متغير بأسم GD$ لأخذا القيمة السابقة من المجلد نفسه مع اضافة العدد 1 (والذي يرمز لعمل البرنامج من جديد )

[3] قمنا بوضع شرط لكي نقارن القيمة المسجلة سابقا مع القيمة الآن

If GD$ > 30 Then '

فهل هي اكبر من المسموح به وعند حدوث ذلك تظهر الرسالة التي تخبر المستخدم بوجوب شراء البرنامج وأن كانت غير ذلك سيعل البرنامج دون مشاكل

طبعا هذا "A", "0", "RunCount", كقيم موجوده في المجلد المنشأ في الريجستر مع القيمة الافتراضية لعدد مرات تشغيل البرنامج ويمكن تغيير المسميات لها ولرؤية ذلك يمكنك الدخول على الريجستر من بدء التشغيل ثم اكتب REGEDIT ثم ابحث عن اسم المجلد المنشأ Rvalue وستجد بداخله هذه القيم وعدد مرات التشغيل للبرنامج

وبس B)