كيفية جعل الأسطوانة Trial تعمل لعدد محدود من المرات



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

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



ولعمل هذه الحماية قم بفتح المشروع الذي تريد ولما تنتهي منه قم بما يلي:

إذهب إلى الأمر Project ثم إختر الأمر Actions

كما ترى



إختر On startup وقم بنسخ هذا الكود

الكود:

[left]times_allowed = 20;
times_run = Application.LoadValue("My Application", "Has Been Run");
times_run = String.ToNumber(times_run);
times_remaining = (times_allowed - times_run)
if times_run == "" then
 Application.SaveValue("My Application", "Has Been Run", "1");
else
 Application.SaveValue("My Application", "Has Been Run", (times_run + 1));
end

if times_run > times_allowed then
 Dialog.Message("رسالة تحذير", "إنتهت النسخة حبيبي حك جيبك لشراء نسخة أخرى");
 Application.Exit();
else
 Dialog.Message("تحذير", "باقي من وقت الأسطوانة "..times_remaining.." مـرة");
end[/left]

كما ترى في الصورة


فعند تشغيل الإسطوانــة أو معاينــة العمل سوف تخرج لك هذه النافذة
تفيد أنه باقـي على إغلاق النسخـة 20 تشغيلة أو عدد التشغيلات التي قمت بوضعها في الكود
وفي هذه الصورة بقي لي 3 تشغيلات


وعند إنتهاء عدد المرات التي تم وضعها في الكود تظهر هذه الصورة.



وتوجد طريقة أخرى عن طريق وضع وقت معين لتوقف التجميعة مثل البرامج التجريبية التي تمنح 15 يوم والتي سيتم شرحها في دروس مقبلة

وإلى درس آخر إن شاء الله