• 0
sgg31

كيف إنشاء ملف عن طريق الكود في مجلد system في وندوز 10 ؟؟؟؟

سؤال

احبتي في هذا المنتدى الجميل الذي تعلمت منه الكثير أسأل الله أن لايحرمكم الأجر 

 

لدي إستفسار بحثت عنه كثيراً ولم اجد الحواب 

 

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

في مجلد system   فما العمل ؟؟؟؟؟ 

 

كود زرع الملف هو :

Private Sub frmMain_Exit(Cancel As Integer)
Open "C:\WINDOWS\protection.dll" For Binary Access Write As #1
Close #1
End Sub

 

 

تظهر الرساله التي بالمرفقات 

error.jpg

تم تعديل بواسطه sgg31
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

9 إجابة على هذا السؤال .

  • 0

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

اخي الكريم نصيحتي هي تغيير المسار ليصبح مثلا

C:\Windows\addins

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اشكر مرورك وإهتمامك  أخي / إياد بيك 

لكن نفس الرساله ونفس المشكلة  يحتاج الكود إضافة صلاحيه له من اجل عمل الملف في هذا المسار 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

للرفع 

وإنتظار الرد بارك الله بجهودكم 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شوف يا أخي

كنت عامل برنامج ينشئ ملف وورد على الدرايف سي في ويندوز 7

وكان شغال تمام عندي وفي أجهزة أخرى

لكن فوجئت أن بعض الأجهزة الأخرى بها ويندوز 7 وأحيانا 8  وأكيد 10

يرفضوا انشاء ونسخ الملف على  درايف النظام

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

اسمه

Change User Account control

وكان بها مؤشر عندما أضعه إلى أسفل (Never)

ثم أقوم بإعادة التشغيل كشرط أساسي

تزول المشكلة

فجرب عندك

ربما تنجح معك

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أخي / أمير2008

بارك الله فيك واشكر مرورك الكريم 

ما أريده  حل عن طريق الكود  الحل اليدوي متعب مع العملاء  

فهل يوجد حل عن طريق الكود ؟

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

تفضل اخي الكريم احد الحلول التي وجدتها في احد المواقع

 

'API Declaration for WOW64 Restriction
Private Declare Function Wow64DisableWow64FsRedirection Lib "kernel32" (ByRef OldValue As Long) As Long
Private Declare Function Wow64RevertWow64FsRedirection Lib "kernel32" (ByRef OldValue As Long) As Long

Private OldValue As Long

'Returns True  when the restriction is On (Default)
'Returns False when the restriction is Off
Public Property Get Wow64Restiction() As Boolean
    Wow64Restiction = IIf(OldValue > 0, False, True)
End Property

'Pass False to turn the Restriction Off,
'Pass True to turn it On(On by default)
Public Property Let Wow64Restiction(ByVal value As Boolean)
    'On Error Resume Next
    
    'Turn Restruction Off
    If value = False Then
        Wow64DisableWow64FsRedirection OldValue
        
    'Turn Restriction On
    ElseIf value = True And OldValue > 0 Then
        Wow64RevertWow64FsRedirection OldValue
        OldValue = 0
    End If
End Property

Public Sub Test()

    'First call will copy the files to SysWOW64
    CopyFiles

    'Turn Restriction Off
    Wow64Restiction = False

    'Second call will copy the files to System32 after the restriction was turned off.
    CopyFiles

    'Restore the restriction back On
    Wow64Restiction = True
End Sub

Public Sub CopyFiles()
    'FileCopy "d:\uniime.dlll", "C:\Windows\System32\uniime.dll"
    FileCopy "d:\test.txt", "C:\Windows\System32\test.txt"
End Sub

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بارك الله فيك اخي / إياد بيك

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

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

 

طبعا على حد علمي المتواضع هذه الدالة  

Public Sub Test()

    'First call will copy the files to SysWOW64
    'CopyFiles

    'Turn Restriction Off
    Wow64Restiction = False

    'Second call will copy the files to System32 after the restriction was turned off.
    CopyFiles

    'Restore the restriction back On
    Wow64Restiction = True
End Sub

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

 

تم تعديل بواسطه sgg31
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

اخي الكريم انسخ كل التعليمات واخفظها في وحدة نمظية جديدة

الان كل كاعليك هو تغيير اسم الملف والمسار في هذه التعليمة ثم تشغيلها بالضغط على F5

ثم الذهاب الى المسار المطلوب والتاكد من عمل الملف المطلوب

Public Sub CopyFiles()
    'FileCopy "d:\uniime.dlll", "C:\Windows\System32\uniime.dll"
    FileCopy "d:\test.txt", "C:\Windows\System32\test.txt"
End Sub
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .