hamata00
03-18-2007, 10:08 PM
السلام عليكم و رحمة الله و بركاته
اما بعد :
فبعون الله تعالى توصلت إلى طرق عدة لحماية البرنامج برمجياً و إن شاء الله
سوف أقوم بشرحها كلها مع و ضع الأمثلة
الطريقة الاولى :
طريقة ملف الباتش patch
عندما تنظر إليها تحسبها صعبة و لكنها سهلة جداً و لن تستغرق في تعلمها خمس دقائق و الموجز :
أكتب هذا الكود في إجراء form_load طبعاً بعد إضافة أداة rechtextbox و تسميتها mok مثلاً
on error resume next
mok.filename="c:mok.txt"
if mok.text<>"1" then
end
msgbox"الرجاء نسخ ملفات الحماية"
else
msgbox"شكراً لاستخدامك البرنامج"
end if
و في برنامج الباتش
اضف نفس الأداة و سميها mm مثلاً
و اكتب هذا الكود في إجراء command1_click
mm.text="1"
mm.savefile (c:mok.txt)
أرجوا أن تكون الطريقة الأول مفهومة لدى الجميع
اما بعد :
فبعون الله تعالى توصلت إلى طرق عدة لحماية البرنامج برمجياً و إن شاء الله
سوف أقوم بشرحها كلها مع و ضع الأمثلة
الطريقة الاولى :
طريقة ملف الباتش patch
عندما تنظر إليها تحسبها صعبة و لكنها سهلة جداً و لن تستغرق في تعلمها خمس دقائق و الموجز :
أكتب هذا الكود في إجراء form_load طبعاً بعد إضافة أداة rechtextbox و تسميتها mok مثلاً
on error resume next
mok.filename="c:mok.txt"
if mok.text<>"1" then
end
msgbox"الرجاء نسخ ملفات الحماية"
else
msgbox"شكراً لاستخدامك البرنامج"
end if
و في برنامج الباتش
اضف نفس الأداة و سميها mm مثلاً
و اكتب هذا الكود في إجراء command1_click
mm.text="1"
mm.savefile (c:mok.txt)
أرجوا أن تكون الطريقة الأول مفهومة لدى الجميع