كود :
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
أنت تجيبها على الجرح
لكني نسخته وطلع لي خطوط حمراء أنت عرفت مكتبات ..؟
معي شكري لمجهودك أبو عمر
ولكن لنفرض ان لدي خبره في الريجستري وأستطيع التعديل
هنا لن ينفع الأمر
----------------
هل هناك حلول اخرى لتفعيل البرنامج عند الشراء بدون التعامل مع الريجستري
--------
أنا اقترح ان يتم تحديد عدد السجلات في البرنامج في الوضع التجريبي
ان كانت اكثر من ٥٠ سجل ولم يتم شراء البرنامج لا يتم حفظ او اضافة بيانات جديده
-------
السؤال ماهي أفضل طريقة لتفعيل البرنامج بعد الشراء
هل ربطه مع رقم الهاردسك
اورقم المعالج
او مع موقع خارجي ( في حال كان الجهاز يتصل بالإنترنت )
أتمنى نقاش مفيد
مسألة الحماية غير مجدية ،،، ولا ننسأ تم كسر حماية ويندوز في جميع اصداراته أيضاً اوفيس بجميع اصداراته ،، اذا مايكروسوفت عجزت عن حماية نفسها فكيف تحمي نفسك وانت تشتغل على منتجهم ؟
افضل حل حدد سعر لبرنامجك بسعر معقول فسوف يتم شراءه .