منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
إقفال البرنامج بعد عدد ايام معينة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : إقفال البرنامج بعد عدد ايام معينة (/showthread.php?tid=17213)

إقفال البرنامج بعد عدد ايام معينة - abdulla2 - 07-09-16

هذا الكود يوم بإقفال البرنامج بعد تشغيل البرنامج ..
أكثر من 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

RE: إقفال البرنامج بعد عدد ايام معينة - 0theghost0 - 07-09-16

كود :
امجك حيث يعمل عدد من المرات (تحددها بنفسك)
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 نقوم بتغييره الى عدد المرات التي يقوم برنامجك بتشغيل فقط [ اي بعد ثلاث مرات من تشغيل برنامج بعدها تضهر رسال للمستخدم [ نتهت مدة تشغيل البرنامج .. عليك بشراء النسخة الاصلية++++++ ]__________________________________________________

اتمنى اني افدك اخي الفاضل

RE: إقفال البرنامج بعد عدد ايام معينة - abdulla2 - 07-09-16

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