تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
إقفال البرنامج بعد عدد ايام معينة
#1
هذا الكود يوم بإقفال البرنامج بعد تشغيل البرنامج ..
أكثر من 10  مرات ..
---
أريد تغيير البرنامج الى إقفال البرنامج بعد عدد ايام معينة ..
ارجو المساعدة بالتعديل ..
=====
      Dim GD As String
       Dim retvalue As Object
       retvalue = GetSetting("A", "0", "Runcount")
       GD = CStr(Val(retvalue) + 1)
       SaveSetting("A", "0", "RunCount", GD)
       If CDbl(GD) > 2 Then ' الرقم (10) يحدد عدد مرات التشغيل
           MsgBox("انتهت مدة تشغيل البرنامج ،،، قم بشراء النسخة الكاملة من المنتج")
           Me.Close()
       End If
   End Sub
الرد
تم الشكر بواسطة:
#2
كود :
امجك حيث يعمل عدد من المرات (تحددها بنفسك)
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 FRM '
End If
End Sub



If GD$ > 3 Then ' الرقم (3) يحدد عدد مرات التشغيل

هنا رقم 3 نقوم بتغييره الى عدد المرات التي يقوم برنامجك بتشغيل فقط [ اي بعد ثلاث مرات من تشغيل برنامج بعدها تضهر رسال للمستخدم [ نتهت مدة تشغيل البرنامج .. عليك بشراء النسخة الاصلية++++++ ]__________________________________________________

اتمنى اني افدك اخي الفاضل
الرد
تم الشكر بواسطة:
#3
أخي 0theghost0
الكود به إيرور كثيرة أرجو التاكد ..
هل هو يحدد عدد الايام للتشغيل ؟؟
كما هو بالسؤال .
---
أرجو التوضيح وحل للإيرور
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [VB.NET] اصطياد رسالة الخطأ دون يتوقف البرنامج sniperjawadino 0 7 منذ 5 ساعة مضت
آخر رد: sniperjawadino
  هل البرنامج له عدد معين من الفورم Emam emam 10 165 19-02-19, 07:09 PM
آخر رد: حريف برمجة
  [VB.NET] اريد ربط البرنامج مع xampp 0theghost0 2 118 06-02-19, 09:04 PM
آخر رد: aljzazy
Question [سؤال] كيفية عمل بحث كل 30 ثانية بدون مشكلة فى عمل البرنامج alims 1 138 04-02-19, 02:45 PM
آخر رد: sendbad100
  [سؤال] ما السبيل لمعرفة لوحة مفاتيح معينة عند اتصال خمس لوحات مفاتيح بالحاسب؟ السندبااد 0 103 02-02-19, 01:05 PM
آخر رد: السندبااد
  مشكله في كود البرنامج mohammad nour 1 99 29-01-19, 12:06 AM
آخر رد: عبد العزيز البسكري
  [سؤال] ايقاف البرنامج تلقائي بعد فترة ثلاث ايام من الانتاج soloxocf1 8 402 27-01-19, 01:40 AM
آخر رد: ابو ليلى
  [VB.NET] مشكلة عند تحويل البرنامج الى exe _M.Nasser 6 247 26-01-19, 03:27 AM
آخر رد: sendbad100
  [سؤال] حول كود فتح ملف وورد من البرنامج mh66 5 195 23-01-19, 03:27 PM
آخر رد: elgokr
  مسح صورة من الملف الموجود في البرنامج hassan 14 23 767 08-01-19, 01:50 PM
آخر رد: hassan 14

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم