يوجد ملف تكوين في برنامج صغير كتبته مؤخرًا، وهذا الملف ضروري للبرنامج بأكمله، وإذا تم حذفه أو إعادة كتابته، فلن يتمكن البرنامج بأكمله من التشغيل أو لا يمكن إغلاقه بعد التشغيل. لذلك كنت أبحث عن طريقة تجعل من المستحيل إعادة كتابة الملفات يدويًا.
من السهل حل مشكلة "الحذف". ابحث عن مسار ملف التكوين في البرنامج، وقم بإنشائه إذا كان فارغًا، وقم بإعطاء بعض القيم الافتراضية. نموذج التعليمات البرمجية لـ VB هو كما يلي:
FileName = App.Path + "/CONFIG"'إذا كان الملف غير موجود، قم بإنشاء الملفIf Dir(FileName) = "" ثم افتح FileName For Output As #1 'لفتح ملف متسلسل، يمكننا استخدام عبارة Open a = Encode(" 123") + vbCrLf + "10" + vbCrLf 'vbCrLf هو أول حرف إرجاع طباعة #1، 'اكتب dataClose #1' أغلق الملفEnd Ifلم أتمكن من إعادة كتابة ملف التكوين يدويًا، وحاولت إخفاء الملف في البرنامج. نموذج التعليمات البرمجية لـ VB هو كما يلي:
SetAttr FileName أو vbSystem أو vbHidden "ملف مخفي".
ولكن في التحليل النهائي، فهو يعالج الأعراض وليس السبب الجذري، وستتم إعادة كتابة الوثيقة. ثم فكرت في تعديل طريقة لاحقة ملف التكوين بحيث لا يكون من السهل على الأشخاص فتح الملف يدويًا، ولكن هناك دائمًا طريقة لفتحه. في النهاية، فكرت في حل بسيط: افتح ملف التكوين في البرنامج أولاً، ومن ثم لا يمكن فتحه يدويًا. نموذج التعليمات البرمجية لـ VB هو كما يلي:
افتح اسم الملف للثنائي كـ #99
فقط تذكر أنه يجب على البرنامج أولاً إغلاق الملف المفتوح عند إعادة كتابة الملف، وإلا ستفشل عملية إعادة الكتابة. نموذج التعليمات البرمجية لـ VB هو كما يلي:
إغلاق #99 'أغلق الملف
باختصار، الطريقة البسيطة لمنع الكتابة فوق ملف ما هي فتح الملف أولاً في البرنامج.
ما ورد أعلاه هو محتوى هذه المقالة بالكامل، وآمل أن تنال إعجابكم جميعًا.