كود منع الدخول الى مجلد او ملف ايضا

فعلاً فكره كانت تحير الجميع

شكرا لك على هذه الفكره العظيمه

هل يمكنك شرح الخطوات التى يعمل بها هذا الكود؟

شكرا :rolleyes:

مذهل

والله رائع

البرنامج يتعامل مع مفاتيح الرجسترى

بس كيف ؟

ممكن توضيحة

السلام عليكم

هو يقوم بكل بساطه باستخدام داله من دوال API وهى CreateFile ليمنع الدخول الى مجلد ما (او ملف)

ولا يستخدم اى شئ او دوال اخرى لها علاقه بالريجسترى او مفاتيحه :)

الكود الذى وضعته فى المشاركه الأولى به فقط اعلان الداله CreateFile والداله CloseHandel وبعض الثوابت ومتغيرين

وبتمرير مسار المجلد او الملف الذى تريد منع الدخول اليه او منع فتحه الى الداله الأولى يقوم نظام التشغيل بمنع الدخول اليه

ولكن طالما ان برنامجك الذى يستخدم هذا الكود شغال وليس دائما (ولكن لو ارد ان تمنع الدخول اليه دائما يجب ان يكون خيالك واسعا B)

فمن الممكن ان تجعل برنامجك عباره عن سيرفيس تعمل مع نظام التشغيل ,او ان تضعه فى بدايه تشغيل النظام فهناك طرق كثيره جدا لذلك)

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

و لقد ارفقت مثال لعمل ذلك

وكل ما عليك سوى ان تحدد له مسار المجلد او الملف فى مربع النص(بدلا من "C:\Temp") وتضغط على Lock لمنع الدخول للمجلد الذى حددته , وهو هنا فى المثال يقوم بمنع الدخول الى مجلد اسمه temp فى الوحده C ويمكنك تغييره بالطبع..

ثم حاول ان تدخل الى المجلد المذكور ستظر لك رساله من النظام تفيد ان الدخول قد رفض (Access Denied)

وللسماح بالدخول اضغط Unlock ليتم السماح باستخدام المسار(المجلد او الملف) مره ثانيه

ارجو ان تستفيدوا

وشكرا لردودكم

Lock.rar

مشكور أخوي Siner على الفكره الجميله

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

يمكنك أيضا عمل هذا مع ملف بالطريقة Open

Public Sub Form_Load()
            open "C:\FileName.txt" for Binary as #FreeFile
End Sub

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

لقد نسيت اخ نيو اضافة الكلمة المحجوزة Lock لاغلاق الملف والا فلن يحدث شئ للملف كما انك لا تستطيع اسناد رقم الملف بالدالة FreeFile مباشرة وانما يجب وضع قيمتها فى متغير اولاً ثم اسناد قيمة المتغير الى رقم الملف

تعديل الكود

Dim N%
Public Sub Form_Load()
N = FreeFile
Open "C:\FileName.txt" For Binary Lock Read Write As #N
End Sub

ولتحرير الملف

Private Sub Command1_Click()
Close #N
End Sub

Siner كتب:

السلام عليكم ورحمة الله

هذا مثال بسيط لمنع الدخول الى مجلد بواسطه API , وهو مثال بسيط جدا

←

لقد اوضحت اخوانى فى بدايه اول مشاركه انه باستخدام API فقط

وطبعا هناك العديد والكثير من الطرق المختلفه لعمل ذلك

وشكرا لردودكم احبائى :rolleyes:

أخي siner العزيز شكراً على الفكرة لكنها لا يعتمد عليها بلحماية على ما أظن

اقتباس

أخي siner العزيز شكراً على الفكرة لكنها لا يعتمد عليها بلحماية على ما أظن

فى رأيى الشخصى هذه أفضل طريقة للحماية بالنسبة للويندوز وأظن أنها نفس الطريقة التى يستخدمها برنامج IProtect لكن الحماية بالنسبة للدوس فحتى الان لم اجد لها حل :wacko:

والله اساتذة في الفجوال

أخي الشبح ما ذا تقصد بالنسبة لحماية الدوس لم أجد لها حل

و بالنسيو للحماية ما تذال برأي غير فعالة كفاية

يعني يمكنك أن تقوم بغلقها بكل بساطة

و كيف و أنتم خبراء فيمكنكم عمل ذلك بسهولة

الأمر بسيط جداً...........................................

اقتباس

أخي الشبح ما ذا تقصد بالنسبة لحماية الدوس لم أجد لها حل

اقصد انه حتى الان لا توجد طريقة لحماية الملفات او المجلدات من الحذف عن طريق الدوس ولو لاقيت مش هاتنفع على الويندوز :rolleyes:

ألأخ الشبح أن بالأول كنت بأظن ذلك أنو في طريقة ما تخلي الملف أو المجلد ينحذف

لكن بعد ما قرأت في المنتدى من تعليقات على ذلك أقتنعت أو تيقنت أنو ما في طريقة تمنع الحذف

لطالما في unicode لأ ظن سنجد

اعتقد انى قرأت فى موضوع اجنبى انه يمكن ان تعبث قليلا بنظام الملفات وتغير بعض القيم بالهكس بجدول مواقع الملفات للوحده (FAT) والذى يمكنك ان تخفى ذلك المجلد عن العيون تماما (حتى من الدوس او من على نظام التشغيل)

أخي siner العزيز

فكرة ذكية

بس صديقي العزيز : هل يا ترى يبقى الملف المخفي مخفي في غير نظام ؟

طريقة التي قرأتها تذكرني بعمل كراك للألعاب.

نعم يختفى الملف تماما ولن تراه من اى نظام وكأنه تم مسحه نهائيا (مثل طريقه الحذف النهائى لملف بتغيير بتات معينه بجدول مواقع الملفات لنظام الملفات المستخدم ويمكنك الأطلاع اكثر على ذلك الموضوع بالبحث فى قسم الأسمبلى ,فقد تناوله اخى JASS بشرح مستفيض وجيد)

شكراً أخي

لكن هل ينطبق الأمر على نظام ملفات ntfs

و أيضا لدي محرر ستاعشري هل ينفع لمثل هذه العملية