تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[نقاش] الى كل خبير ومبتدأ نقاش بخصوص جعل البرنامج نسخة تجريبية
#1
السلام عليكم

اعذروني شباب اذا قمت بالإسائة أو تطاولت على أحد منكم خبرتي في الفيجوال بيسك بسيطة واتمنى اني ابدع في البرمجة بحيث اكون قد حققت حلمي .

في الحقيقة لقد فتحت باب النقاش في هذا الموضوع لكثرة تعجبي من الاكواد والطرق الغريبة واكثر الطرق يقال عنها ضعيفة ويستطيعون كسرها بسهولة .

ولكني لا اطمح بحصولي على كود معقد وانما مفهوم وسهل الاستيعاب للكل وليس فقط لي . حتى الكل يفهم ويطبق المثال ليستفيد في صناعة برامج تجريبية ليحصل على افكار لتطوير برامجهم .

طلب مني احد الزبائن بان يحصل على نسخة تجريبية من إحدى برامجي ليتعرف على خصائصه اكثر فقمت بإضافة كود يحسب عد ضغطات فتح البرنامج لانه الوحيد الذي لدي .

وبعد ما طلبت من الاخوى المساعدة اعطوني كود يزع ملف في الرجستري .

المهم أريد افكاركم والاكواد الذي تستعملونها لجعل البرنامج نسخة تجريبية لايستطيعون اختراقها او بسيطة .

اضع بين ايديكم كود الذي استعملته :

كود :
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
الرد }}}
تم الشكر بواسطة:
#2
لا اوعدك وانما سابحث عن البرنامج كان لدي
وان شاءالله اجده
شكرا
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد }}}
تم الشكر بواسطة:



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


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