http://www.dzbatna.com/images/icons/iconrote.gif ط¹ظ…ظ„ ظ†ط³ط®ط© ظ…ظ† ط¨ط±ظ†ط§ظ…ط¬ظƒ طھط¬ط±ظٹط¨ظٹط© طھط·ظ„ط¨ ط§ظ„طھط³ط¬ظٹظ„ ط¨ط¹ط¯ ط¹ط¯ط© ظ…ط±ط§طھ
حماية برمجياتك ، عمل نسخة من برنامجك تجريبية تطلب التسجيل بعد عدة مرات
بسم الله الرحمن الرحيم
درس مفصلنا اليوم هو طريقة عمل صلاحية للبرنامج
بحيث يعمل البرنامج لمدة 5 مرات
فائدة الكود code :
لحماية برمجياتك ، كمثال البرامج التجريبية
فهو يطلب شراء النسخة كاملة عند اكتمال 5 مرات
http://up.xpresslayer.net/uploads/xp...2944879941.jpg
اترككم مع الكود code
يتم وضهع في Forum_Load
رمز Code:
' XpressLayer , Eng. Hazem Ali retvalue = GetSetting("A", "0", "Runcount") GD$ = Val(retvalue) + 1 SaveSetting "A", "0", "RunCount", GD$ If GD$ > 5 Then MsgBox ("انتهت مدة عمل البرنامج ، رجاء شراء النسخة الاصلية") Unload Me End If
تحياتي http://www.xpresslayer.net/vb/aricons/detective2.gif
المصدر: :: XpressLayer :: - من قسم: قسم Visual Basic
https://fbcdn-sphotos-d-a.akamaihd.n...93518507_n.png
©المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى©