تقييم الموضوع :
  • 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
الكود به إيرور كثيرة أرجو التاكد ..
هل هو يحدد عدد الايام للتشغيل ؟؟
كما هو بالسؤال .
---
أرجو التوضيح وحل للإيرور
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف اخلي البرنامج يشتغل بدون نت فروم ورك و طريقة اختيار النت فروم ورك hassan 10 4,989 أمس, 08:04 AM
آخر رد: hatem555
  [VB.NET] اريد كود حفظ العمل على البرنامج ؟؟ عامر الجبوري 4 93 16-05-17, 12:54 PM
آخر رد: عامر الجبوري
  يظهر خطاء بعد تنصيب البرنامج ساعدوني samawi 5 120 15-05-17, 04:08 AM
آخر رد: samawi
  [SQL] التاريخ في البرنامج العواد الصغير 7 189 14-05-17, 06:17 PM
آخر رد: العواد الصغير
  اخطاء في البرنامج zinab ali 1 49 08-05-17, 12:44 AM
آخر رد: zinom
  [VB.NET] كيفية فتح البرنامج اكتر من مرة بشروط معينة الماجيك مسعد 6 129 07-05-17, 04:15 AM
آخر رد: الماجيك مسعد
  كود حماية البرنامج من النسخ والسرقة ramimohammed 2 121 01-05-17, 03:39 PM
آخر رد: أسامة السالمي
  كيفية ربط البرنامج مع الاكسس اللي موجود علي ال Share point khaled12345 0 48 17-04-17, 05:55 PM
آخر رد: khaled12345
  كيف اجعل برنامجي هو البرنامج الافتراضي؟ Incubus 2 147 07-04-17, 12:36 AM
آخر رد: Ratchinko
  كيفية فتح البرنامج ب resolution معين OakenShield 1 77 05-04-17, 12:01 PM
آخر رد: OakenShield

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


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