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

#11 أبريل 2017 في 14:43 صاحب الموضوع

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

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

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

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

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

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

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

تم تعديل هذه المشاركة بواسطة sgg31 في 1 أبريل 2017 في 15:08

#23 أبريل 2017 في 14:36

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

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

C:\Windows\addins

عَـجِبْتُ لِمَنْ يَتَفَكَّـرُ فى مَـأْكُولِهِ كَيْـفَ لا يَتَفَـكَّـرُ فى مَعْـقُـولِهِ، فَيُجَنِّبُ بَطْنَهُ ما يُؤْذيهِ، وَ يُودِعُ صَدْرَهُ ما يُرْدِيهِ

(الحسن بن علي بن أبي طالب)

#33 أبريل 2017 في 20:02

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

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

#413 مايو 2017 في 15:31

للرفع

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

#514 مايو 2017 في 20:01

شوف يا أخي

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

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

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

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

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

اسمه

Change User Account control

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

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

تزول المشكلة

فجرب عندك

ربما تنجح معك

#622 مايو 2017 في 10:16

أخي / أمير2008

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

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

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

#723 مايو 2017 في 13:10

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

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

'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

عَـجِبْتُ لِمَنْ يَتَفَكَّـرُ فى مَـأْكُولِهِ كَيْـفَ لا يَتَفَـكَّـرُ فى مَعْـقُـولِهِ، فَيُجَنِّبُ بَطْنَهُ ما يُؤْذيهِ، وَ يُودِعُ صَدْرَهُ ما يُرْدِيهِ

(الحسن بن علي بن أبي طالب)

#824 مايو 2017 في 07:59

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

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

#924 مايو 2017 في 10:58

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

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 في 24 مايو 2017 في 11:01

#1025 مايو 2017 في 15:43

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

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

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

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

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

عَـجِبْتُ لِمَنْ يَتَفَكَّـرُ فى مَـأْكُولِهِ كَيْـفَ لا يَتَفَـكَّـرُ فى مَعْـقُـولِهِ، فَيُجَنِّبُ بَطْنَهُ ما يُؤْذيهِ، وَ يُودِعُ صَدْرَهُ ما يُرْدِيهِ

(الحسن بن علي بن أبي طالب)

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

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

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

عدد الزوار حالياً