الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة عند محاولة زرع ملف dll في Windows 8

بدأه naser302 في 12 يوليو 2013 · 3 رد · 842 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

 

مبارك عليكم الشهر الكريم

 

لدي استفسار عن هذا الكود 

Private Sub Form_Open(Cancel As Integer)
Open "c:\626.dll" For Input As #1
Close #1
End sub

عندما أنشئ ملف بنفس الاسم والامتداد في محرك الأقراص C يفتح النموذج بشكل طبيعي وعندما أحذف الملف تظهر رسالة الخطأ التالية :

 

Run-time error 53

File not found

أي أنه لم يتم العثور على الملف

 

فهل الكود السابق للبحث فقط عن الملف ؟ أو يوجد فيه خطأ أرجو الإفادة ولكم جزيل الشكر

 

علما أني استخدم اكسس 2010 ونظام ويندوز 8

تم تعديل هذه المشاركة بواسطة naser302 في 12 يوليو 2013 في 03:39

#2
zahrah كتب:


اخي الفاضل : سالم فتحي

اذا كان يتم قبول زرع الملف على اي قسم من اقسام الهاردسك عدى القسم C الذي يحتوي النظام فهذا يعني انه لابد من ان تقوم بتخفيض أمان الويندوز 8




بالتوفيق


 

 

وجدت هذه الإجابة بعد البحث ،، جاري التجربة

#3

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

بحيث يصبح الكود بهذا الشكل

Dim fs As Object
Dim a As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    If fs.FolderExists("c:" & "\" & "folder_name") = True Then
    DoCmd.CancelEvent
          Else
    Set a = fs.Createfolder("c:" & "\" & "folder_name")
    End If
Open "c:\folder_name\626.dll" For Binary Access Write As #1
Close #1

مع عمل التعديل اللازم في النموذج الآخر والذي تم شرحه في مشاركة الأخت Zahrah

 

رابط الموضوع الأصلي

/index.php/topic/56706-%D8%AD%D9%85%D8%A7%D9%8A%D8%A9-%D9%82%D8%A7%D8%B9%D8%AF%D8%A9-%D8%A7%D9%84%D8%A8%D9%8A%D8%A7%D9%86%D8%A7%D8%AA-%D8%A8%D8%B1%D9%82%D9%85-%D8%A7%D9%84%D9%87%D8%A7%D8%B1%D8%AF-%D8%AF%D8%B3%D9%83/page-4

 

 

ومرفق المثال بعد التعديل للفائدة ليعمل مع ويندوز 8

 

والله من وراء القصد.

OnlyForTest1.rar

تم تعديل هذه المشاركة بواسطة naser302 في 12 يوليو 2013 في 03:37

#4

تعقيب

 

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

 

ثم من العمود الأيمن اختيار Local Users and Groups ثم من القائمة التي تظهر اختيار Users ثم Administrator ثم الغاء التأشيرة من أمام Account is disabled وحفظ

 

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

 

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

 

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

 

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

 

بهذه الطريقة تمكنت من التحكم في محرك الأقراص c وانشاء أي ملف جديد في أي مجلد باستخدام الأكواد.

 

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

 

أتمنى أن أكون قد أفدت وألا أكون قد خرجت كثيرا عن موضوع المنتدى ،، ولازلت أبحث عن حل أسهل ..

 

دمتم بخير

مواضيع مشابهة