+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=17431)
الى كل خبير ومبتدأ نقاش بخصوص جعل البرنامج نسخة تجريبية - 0theghost0 - 24-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 SubRE: الى كل خبير ومبتدأ نقاش بخصوص جعل البرنامج نسخة تجريبية - awidan76 - 30-11-16
لا اوعدك وانما سابحث عن البرنامج كان لدي
وان شاءالله اجده
شكرا