أكسس وبس 34 Posted January 13 Share Posted January 13 اخوانى اهل الخبرة هل فى كود او طريقة لغلق البرنامج او حذفه عند محاولة اختراقه او كسر الحماية تظهر رسالة اولا بتحذير من محاولة كسر حماية البرنامج Quote Link to post Share on other sites
أكسس وبس 34 Posted January 13 Author Share Posted January 13 يعنى مفيش ولا ايه Quote Link to post Share on other sites
أبو عبدالله الحلوانى 640 Posted January 13 Share Posted January 13 للأسف قواعد البيانات أكسس فقيرة من ناحية الحماية لكن هناك فكرة تم طرحها هنا بالمنتدي الكريم لحماية الوصول الي قاعدة البيانات سواء الخلفية او الامامية من خلال قفلها بكلمة مرور علي شرط أن تكون قاعدة البيانات اصدار أعلي من 2003 بلا شك يعني 2007 فما فوق لصعوبة كسر كلمة السر الخاصة بها حتي الآن وقد جربت كسر كلمة السر لهذه الصيغ من قواعد البيانات فلم يكن الأمر سهلا مطلقا وكذلك قمت بالبحث عن طرق أو برمجيات لكسر كلمة السر لهذه القواعد فلم أجد الكثير وأقوي هذه البرمجيات التي وجدتها كان مدفوعا وليس مجانيا!! وأعتقد أن هذا ألمع بارقة أمل لوجود حماية قوية شيئا ما تم منحها للأكسس من صاحبة السعادة ميكروسوفت 😁 وأخيرا هذا رابط الموضوع وبه مجموعة أفكار جيدة جدا من أساتذة كبار جدا تابع الموضوع لتستفيد جدا 😁 تمنياتي بالتوفيق وشكرا علي سعة صدركم Quote Link to post Share on other sites
أكسس وبس 34 Posted January 13 Author Share Posted January 13 عملت حماية بفكرة الاخوة فى المنتدى بزرع ملف فى الكمبيوتر ووضع الكود فى نموذج بدائة التشغيل If Dir("c:\WINDOWS\system32\csq.386") = "" Then DoCmd.CancelEvent DoCmd.Quit End If وعملت الوحدة النمطية Public Sub legal() Dim Sec As String Dim s As Integer DoCmd.Restore Sec = Dir("c:\Windows\System32\csq.386") If Len(Sec) = 0 Then DoCmd.Close s = MsgBox DoCmd.Quit End If End Sub شغالة كود على جهازى وعليه ويندز اكس بي ولما نقلتها على لاب على ونيدز7 ووضعت الملف فى المسار الصحيح تظهر رسالة ومش بيفتح Quote Link to post Share on other sites
أكسس وبس 34 Posted January 14 Author Share Posted January 14 دى الرسالة الى ظهرت لما شغلت البرنامج على جهاز عليه ويندز 7 بس الاوفيس 2007 there was a problem sending the command to the program Quote Link to post Share on other sites
أبو عبدالله الحلوانى 640 Posted Thursday at 10:05 PM Share Posted Thursday at 10:05 PM قم بالتعديل بالكود بهذه الطريقة If len(Dir("c:\WINDOWS\system32\csq.386",vbDirectory) & "") = 0 Then DoCmd.Quit End If 'اما تستخدم ما بالأعلي أو ما بالأسفل Public Sub legal() 'Dim Sec As String 'Dim s As Integer 'DoCmd.Restore If len(Dir("c:\WINDOWS\system32\csq.386",vbDirectory) & "") = 0 Then DoCmd.Close acForm, Me.Name End If End Sub Quote Link to post Share on other sites
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.