ط¹ظ…ظ„ ظ†ط³ط®ط© ظ…ظ† ط¨ط±ظ†ط§ظ…ط¬ظƒ طھط¬ط±ظٹط¨ظٹط© طھط·ظ„ط¨ ط§ظ„طھط³ط¬ظٹظ„ ط¨ط¹ط¯ ط¹ط¯ط© ظ…ط±ط§طھ


حماية برمجياتك ، عمل نسخة من برنامجك تجريبية تطلب التسجيل بعد عدة مرات


بسم الله الرحمن الرحيم

درس مفصلنا اليوم هو طريقة عمل صلاحية للبرنامج

بحيث يعمل البرنامج لمدة 5 مرات

فائدة الكود code :

لحماية برمجياتك ، كمثال البرامج التجريبية
فهو يطلب شراء النسخة كاملة عند اكتمال 5 مرات









اترككم مع الكود code

يتم وضهع في Forum_Load
رمز Code:
' XpressLayer , Eng. Hazem Ali retvalue = GetSetting("A", "0", "Runcount&quot GD$ = Val(retvalue) + 1 SaveSetting "A", "0", "RunCount", GD$ If GD$ > 5 Then MsgBox ("انتهت مدة عمل البرنامج ، رجاء شراء النسخة الاصلية&quot Unload Me End If
تحياتي


المصدر: :: XpressLayer :: - من قسم: قسم Visual Basic









©المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى©