منتديات المنة

منتدى خاص بالأورجات شراء - بيع - تبادل أصوات
 
الرئيسيةالبوابةمكتبة الصورالتسجيلدخول

شاطر | 
 

 اجعل البرنامج يشتغل عدد معين من المرات ثم يطلب منك شراءه

اذهب الى الأسفل 
كاتب الموضوعرسالة
mefayed
مدير عام المنتدى
مدير عام المنتدى
avatar

عدد الرسائل : 495
تاريخ التسجيل : 07/11/2006

مُساهمةموضوع: اجعل البرنامج يشتغل عدد معين من المرات ثم يطلب منك شراءه   الخميس ديسمبر 07, 2006 6:00 pm

نسخة مشتركة من البرنامج تشتغل لعدد معين، ثم تطلب منك شراء النسخة الأصلية

Private Sub Form_Load()
retvalue = GetSetting("A", "0", "Runcount")
GD$ = Val(retvalue) + 1
SaveSetting "A", "0", "RunCount", GD$
If GD$ > 3 Then ' الرقم (3) يحدد عدد مرات التشغيل
MsgBox ("انتهت مدة تشغيل البرنامج ،،، قم بشراء النسخة الكاملة من المنتج")
Unload Me
End If
End Sub
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://mady.niceboard.com
 
اجعل البرنامج يشتغل عدد معين من المرات ثم يطلب منك شراءه
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتديات المنة :: قسم التكنولوجيا المتطورة :: منتدى الفيجوال بيزك-
انتقل الى: