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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تصدير صفوف معينة للاكسيل محمد اسماعيل 8 78 أمس, 03:28 AM
آخر رد: محمد اسماعيل
  [VB.NET] مشكلة في كود تغيير لغة البرنامج ay.alhaj 13 198 09-10-18, 08:52 PM
آخر رد: ay.alhaj
  سؤال عن تفعيل البرنامج عن طريق الفلاش ميمورى asemshahen5 7 200 07-10-18, 09:48 PM
آخر رد: %Eman%
  بخصوص حماية البرنامج وتفعيله salah mansour 2 63 06-10-18, 11:31 PM
آخر رد: asemshahen5
  ربطت مشروع على قاعدة بيانات mysql على استضافتي لكن البرنامج بطيء جدا essawq 10 227 03-10-18, 04:54 PM
آخر رد: essawq
  سؤال فى تفعيل البرنامج salah mansour 1 67 02-10-18, 12:10 AM
آخر رد: Hazem1
  إضافة البرنامج التنفيذي لزر الفارة الايمن العيدروس 5 172 17-09-18, 02:37 PM
آخر رد: DK-x
  فتح ملف بي دي إف على صفحة معينة waelalmsry75 19 471 03-09-18, 07:04 AM
آخر رد: elgokr
  [VB.NET] تحديد مسار قاعدة بيانات أكسس Access اثناء تشغيل البرنامج VB.net كريم جودي 3 193 30-08-18, 01:57 PM
آخر رد: elgokr
  مشكلة عند تشغيل البرنامج salah mansour 21 537 20-08-18, 08:10 PM
آخر رد: elgokr

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


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