تشغيل البرنامج بعدد مرات محددة " توضيح"

[ربيع]

السلام عليكم ورحمة الله وبركاته
لتوضيح هذا الإجراء أكثر
01 - التصريح بعدد مرات استعمال البرنامج هنااا تم اختيار 3 مرات
kiss = 3
02 - قراءة قيمة في الريجستري بتسمية معينة مع تحويل التعامل مع القيمة كرقم و ليست نص و هذا ما يوضحه السطر الثاني
result = Registry.GetValue(HKEY_LOCAL_MACHINE, "Software\\My Application", "bel", true);
result = String.ToNumber(result);
03 - نكنب شرط اذا كانت القيمة المقروءة سابقا من الريجستري تساوي صفر و هذا طبيعي عند تشغيل البرنامج لأول وهلة
if result==0 then
04 - ماذا يحدث ؟؟؟ سيكتب البرنامج هذا المفتاح الذي لم يجده سابقا و بالتالي قيمته 0 و يعطيه القيمة 1
Registry.SetValue(HKEY_LOCAL_MACHINE, "Software\\My Application", "bel",1);

05- جيد اذا تحقق شرط أن هذه القيمة أكبر من 0 وهذا طبيعي بعد الاستعمال الاول وكذلك سنحددالقيمة بأن تكون أقل من عدد المرات
elseif result>0 and result<kiss then
06 - سيقوم برنامج بقراءة القيمة ويضيف لها واحد
y = Registry.GetValue(HKEY_LOCAL_MACHINE, "Software\\My Application", "bel", true);
e = y +1

07-ثم يسجلها مكان الاولى و هكذا تستمر العملية لغاية ؟؟؟
Registry.SetValue(HKEY_LOCAL_MACHINE, "Software\\My Application", "bel", e);
Dialog.Message("Notice","عدد المرات المتبقية لاستعمال البرنامج تجريبيا:"..kiss+1 - e);

08-تحقق قيمة الريجستري تساوي تماما لعدد المرات المختار في بداية الكود
elseif result == kiss then
09-ليخبرنا البرنامج على انتهاء المهلة التجريبية و يغلق
Dialog.Message("Notice", "انتهت المدة التجريبية عليك بشراء البرنامج");
Application.Exit(0);
10- نغلق الاكواد الان :
end

انتهى جمع الاكواد تحت بعضها في on startup وعاين مشروعك ليخبرك بعد المعاينة الثالثة
أن المهلة التجريبية انتهت انتهى و السلام عليكم :abc_138:


ملاحظة : إجراءات التعامل مع الريجستري تتطلب أن يكون البرنامج مسؤول
بدون ذلك لن تظهر النتائج

[عبود عبود]

إلى الأمام فغيرك ينتظر المزيد

بالتوفيق إن شاء الله :abc_022:

[ياسرهتهت]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
بارك الله فيك اخي الكريم
شرح رائع ومرتب وواضح
سلمت يداك وننتظر منك شروحات اخري
موفق بإذن الله ... لك مني أجمل تحية .
:abc_152::abc_152::abc_152:

[أبو يوسف]

جزاك الله خيرا وبارك الله فيك اخانا الكريم

.

[أبو فارس]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[خادم المسلمين]

ربى يوفقك لكل خير
ولكن اخى تواجهنى مشكلة ظهور النص على شكل علامات استفهام
http://im76.gulfup.com/M06NEe.gif (http://www.gulfup.com/?Xf1jNB)
حاولت ادخل اعدادات اللغة واضبطها للعربى ومع ذلك

http://im76.gulfup.com/tCoCdi.gif (http://www.gulfup.com/?6bRBel)

[abohmam]

بارك الله فيك

وفى انتظار حل لمشكلة اظهار اللغة التى حدثت للأخ خادم المسلمين

موفق بإذن الله ... لك مني أجمل تحية .

[ربيع]

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

أخي خادم المسلمين واضح من الرسالة أن الفترة التجريبية انتهت
تستطيع وضع زر و كتابة فيه :
Registry.DeleteValue(HKEY_LOCAL_MACHINE, "Software\\My Application", "bel");


ليتم مسح المفتاح و إعطاء للبرنامج ثلاث محاولات أخرى

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

لا أملك حلا لكن هناك حل سريع للتأكد وهو ازالة البرنامج و إعادة تثبيته

[خادم المسلمين]

بالنسبة لمشكلة اللغة تم حلها ولكن انا جربت البرنامج والان يظهر لافتة انتهت الفترة التجريبية ويختفى البرنامج وبالتالى لااتمكن من فتحه

[ربيع]

موفق بإذن الله ... لك مني أجمل تحية .