مساعدة/ كيف أحمي برنامجي؟؟

فعلا يا اخي

كلامك زاقعي

وبصراحة ان حماية البرامج وخاصة التي تعد خصيصا لأحد الدوائر او المؤسسات

هو شئ اساسي

والا فليس للبرمجة معنى اذا تم اختراقها

اما هنا في المنتدى فلا اشكال على وضع

اي فكره من البرنامج ليستفيد منها اللغير

الأخوة الأعزاء .. السلام عليكم ورحمة الله وبركاته ..

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

--------------------------------------------------------------------------------------------------

بالنسبة لالغاء عمل الشيفت ، فيمكن التغلب عليه من خلال الامثلة التي ذكرها الاخوة سابقا

و لتعطيل عمل الشيفت بالكود

انشء وحدة نمطية جديدة وضع فيها هذا الكود كما هو :

Option Compare Database
Option Explicit
Private Const ErrPropNotFound As Long = 3270

Public Function SetAllowByPassKey()
Dim db As DAO.Database

   Dim prp As DAO.Property
   On Error Resume Next
   Set db = CurrentDb
  db.Properties("AllowBypassKey").Value = False
   If Err.Number = ErrPropNotFound Then
     Set prp = db.CreateProperty("AllowBypassKey", dbBoolean, False)
    db.Properties.Append prp
    End If
  Err.Clear
End Function

أنشيئ ماكرو باسم autoexec

و الماكرو بهذا الاسم يتم تنفيذه تلقائيا عند الفتح

و فيه استدع الدالة المسماة

=SetAllowByPassKey().

و السطر الثاني فيه لفتح الفورم

و بذلك تكون عطلت عمل الشيفت

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

Public Function del_shift_prop(mdb As String)

Dim db As DAO.Database
Dim prp As DAO.Property
Dim wrkJet As Workspace

On Error Resume Next

     Set wrkJet = DBEngine.Workspaces(0)
     Set db = wrkJet.OpenDatabase(mdb)
     db.Properties("AllowBypassKey").Value = True
     If Err.Number = ErrPropNotFound Then
     Set prp = db.CreateProperty("AllowBypassKey", dbBoolean, True)
     db.Properties.Append prp
     End If

     Err.Clear

End Function

جزى الله خيرا أخينا وأستاذنا العزيز محمد طاهر وجعل الله له ذلك في ميزان حسناته ..

اعتقد ان الحل الوحيد لحماية قاعدة البيانات هو استخدام فيجول بيسك لكي يكون امتداد البرنامج exe

و الله اعلم

أخي العزيز .. وكيف يتم ذلك ؟؟

الأخ العزيز المفكر ... لازلت منتظر رد منك ..

الأخوة الأعزاء هذا رابط جيد في كيفية إخفاء برنامج الأكسس للأخ الفاضل سمير أبو سمرا أدامه الله لنا .

http://www.arabteam2000.com/ib/index.php?s...opic=31692&st=0

للرفع

وهذا رابط ممتاز في كيفية إنشاء ملف تنفيذي exe بواسطة الديفالوبر ..

http://www.officena.com/ib/index.php?showt...topic=342&st=15

ازا بدو واحد يبعت برنامج كيف

أخي العزيز ... يمكن أن خاصية إرفاق الملف لازالت تحت التصليح من قبل إدارة المنتدى .. نسأل الله أن يوفقهم ..

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

بسم الله الرحمن الرحيم

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

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

وفقك الله ...

في طريقة الغاء الشفت:

أنشيئ ماكرو باسم autoexec

و الماكرو بهذا الاسم يتم تنفيذه تلقائيا عند الفتح

و فيه استدع الدالة المسماة

=SetAllowByPassKey().

و السطر الثاني فيه لفتح الفورم

كيف يتم استدعاء الدالة المذكورة ؟؟؟ أرجوا شرح مفصل لمبتدئي

الأخ العزيز ..

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

وفقك الله ...