24-09-16, 07:55 AM
السلام عليكم
اعذروني شباب اذا قمت بالإسائة أو تطاولت على أحد منكم خبرتي في الفيجوال بيسك بسيطة واتمنى اني ابدع في البرمجة بحيث اكون قد حققت حلمي .
في الحقيقة لقد فتحت باب النقاش في هذا الموضوع لكثرة تعجبي من الاكواد والطرق الغريبة واكثر الطرق يقال عنها ضعيفة ويستطيعون كسرها بسهولة .
ولكني لا اطمح بحصولي على كود معقد وانما مفهوم وسهل الاستيعاب للكل وليس فقط لي . حتى الكل يفهم ويطبق المثال ليستفيد في صناعة برامج تجريبية ليحصل على افكار لتطوير برامجهم .
طلب مني احد الزبائن بان يحصل على نسخة تجريبية من إحدى برامجي ليتعرف على خصائصه اكثر فقمت بإضافة كود يحسب عد ضغطات فتح البرنامج لانه الوحيد الذي لدي .
وبعد ما طلبت من الاخوى المساعدة اعطوني كود يزع ملف في الرجستري .
المهم أريد افكاركم والاكواد الذي تستعملونها لجعل البرنامج نسخة تجريبية لايستطيعون اختراقها او بسيطة .
اضع بين ايديكم كود الذي استعملته :
اعذروني شباب اذا قمت بالإسائة أو تطاولت على أحد منكم خبرتي في الفيجوال بيسك بسيطة واتمنى اني ابدع في البرمجة بحيث اكون قد حققت حلمي .
في الحقيقة لقد فتحت باب النقاش في هذا الموضوع لكثرة تعجبي من الاكواد والطرق الغريبة واكثر الطرق يقال عنها ضعيفة ويستطيعون كسرها بسهولة .
ولكني لا اطمح بحصولي على كود معقد وانما مفهوم وسهل الاستيعاب للكل وليس فقط لي . حتى الكل يفهم ويطبق المثال ليستفيد في صناعة برامج تجريبية ليحصل على افكار لتطوير برامجهم .
طلب مني احد الزبائن بان يحصل على نسخة تجريبية من إحدى برامجي ليتعرف على خصائصه اكثر فقمت بإضافة كود يحسب عد ضغطات فتح البرنامج لانه الوحيد الذي لدي .
وبعد ما طلبت من الاخوى المساعدة اعطوني كود يزع ملف في الرجستري .
المهم أريد افكاركم والاكواد الذي تستعملونها لجعل البرنامج نسخة تجريبية لايستطيعون اختراقها او بسيطة .
اضع بين ايديكم كود الذي استعملته :
كود :
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