ابو جودي

اساتذتى الكرام الاستاذ @ابوآمنة والاستاذ @Barna الف مبروك اساتذتى الكرام واسأل الله تعالى ان يهيئ لكم من امركم رشدا ويرزقكم العون ان شاء الله ويجعل كل اعمالكم خالصة لوجه الكريم ويرزقكم القبول

اتفضل ID (2).zip

اتفضل جرب test.mdb

الشرح موضح بالصور

بالتوفيق فكرة رائعة جزاكم الله خيرا

مع الاسف الشديد غير صحيح تابع معى الخطوات الاتية Start > Run > wbemtest هذا هو الرقم اما من الاكسس

وما هذا الرقم الناتج لاى قطعة هو ؟؟

كيف ذلك وكل شئ يتم التعديل عليه او يتم تغيره بعد الفورمات

طيب كده كل شئ بيتغير اذا هل نصل الى طريق مسدود

الحمد لله الذى تتم بنعمته الصالحات

ممكن مرفق

هههههههه انت صدقت فقط امزح مع اخى وحبيبى والله لا اريد من الدنيا اى شئ الا فقط ان يكتب لى الله فيها السلامة ولا اخرج منها الا وهو عنى راض فيختم لى بالصالحات انا وكل المسلمين ان شاء الله

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

مش عاوزه تشتغل عندى

طيب البيوس هل يتغير كذلك اعذرنى استاذى لجهلى بتلك الامور انا كيميائى ولذلك لا اعلم الكثير عن الحواسيب فما انا الا مستخدم عادى جدا جدا جدا لذلك لم اكن اعرف هذا المعلومات من قبل

اتفضل (02) متابعة غياب طلاب الفراغات.zip

وهذا هو التعديل المناسب الاسماء تظهر حسب الحصص جرب ووافنى بالنتيجة (01) متابعة غياب طلاب الفراغات.zip

مع بعض التعديلات نصل لتلك النتيجة ان احببت هل نقوم بالتعديلات ام تريد رسالة ؟

حاضر

لاحظ اختفاء الاسم من القائمة لنفس الحصة

أبشـــــــــر بالخيـــــــــــــــــــــر ان شاء الله اتفضل اكتشف انت بنفسك شو ياللى صار متابعة غياب طلاب الفراغات.mdb

هات المرفق

HWND.zip وظيفة هذا الملف يقوم باستخراج ( رقم الهارد , البروسيسور , المذربورد , الماك أدريس ) ثم يرسل منه العميل نسخة الى المبرمج ثم يضع المبرمج فى الكود ويرسل القاعدة للعميل والكود Public Function GetMyHWND() Dim objWMIService As Object Dim colItems As Object Dim objItem As Object Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") Set colItems = objWMIService.ExecQuery("SELECT * FROM win32_logicaldisk") For Each objItem In colItems If objItem.volumeserialnumber <> "" Then GetMyHWND = objItem.volumeserialnumber Exit For End If Next Set objItem = Nothing Set colItems = Nothing Set objWMIService = Nothing End Function واعتمد المرفق الاتى على تجربة بنفس الالية مع بعض اضافة المعادلات الرياضية التى تزيد من صعوبة الفهم وكسر الحماية على المستخدمين الغير محترفين Security My App (v.01).mdb.zip وهنا شرح لالية كسر الحماية والتى اعتمدت على خوارزمية الهندسة العكسية والتى تم بناء المرفق على اساسها اصلا بواسطة ( رقم الهارد , البروسيسور , المذربورد , الماك أدريس ) مع بعض اضافة العمليات الحسابية والتى لا علاقة لها بالحماية الا اضفاء القليل من الصعوبة على من يحاول كسر الحماية ( مماطلة فى الوقت ليس الا )

ليس اطراء ابدا استاذى الجليل ومعلمى القدير فتلك حقيقه وهذا اقل من حقكم استفدت كثيرا من موضوعكم سيدى ودرسته باتقان واتوجه بالشكر لكم على مجاراتكم لى بصدر رحب على الرغم من قولكم فكل الشكر والتقدير والاجلال لكم سيدى ومعلمى لتواضعكم بمجاراتى بحلم وحب ومودة ولكن اجب ان تتضح الامور بشكل عملى مفصل على يد استاذ جليل أتمنى من الجميع وبالاخص من يهتم لحماية قواعد البيانات إدارك تلك النقطة الفارقة فطالما ان القاعدة مفتوحة لن يستحيل كسر حمايتها طبق الذهب مقدم معها لذلك من يريد الحماية لا يتعب نفسة ومن حوله بالتفكير فى الية احببت ان تساق الكلمات على لسان استاذ جليل ومعلم قدير لان البعض من اخواننا الافاضل لن يقتنع الا ان سمع تلك العبارات على لسان احد علمائنا واساتذتنا الافاضل العظماء