تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ماذا يفعل ويندوز 11 مع هذا الاجراء
#1
السلام عليكم ورحمة الله وبركاته
الاجراء التالي لا يسمح به ويندوز او قد يكون برنامج الحماية [Kaspersky]
بعد اول ملف مباشرة يتم ايقاف البرنامج

الاجراء التالي يقوم بتعديل محتوى ملفات مجلد معين  مرسل.
PHP كود :
Private Sub clean(dir As String)
 
       btnbrowse.Invoke(Sub() btnbrowse.Enabled False)
 
       btnclean.Invoke(Sub() btnclean.Enabled False)
 
       p1.Invoke(Sub() p1.Value 0)
 
       Dim folder As New IO.DirectoryInfo(dir)
 
       Dim i As Integer
        Dim files 
As New List(Of String)
 
       For Each h As IO.FileInfo In folder.GetFiles
            files
.Add(h.FullName)
 
       Next
        lbl1
.Invoke(Sub() lbl1.Text "يتم التحضير للسرد و التدمير")
 
       p1.Invoke(Sub() p1.Maximum files.Count 1)
 
       For i 0 To files.Count 1
            p1
.Invoke(Sub() p1.Value i)
 
           Dim f As New IO.FileInfo(files(i))
 
           lbl1.Invoke(Sub() lbl1.Text " تدمير" f.Name)
 
           Dim b() As Byte IO.File.ReadAllBytes(f.FullName)
 
           Dim bl As Integer b.Count
            Dim a
(bl 1) As Byte
            For r 
0 To bl 1
                a
(r) = 0
            Next
            IO
.File.WriteAllBytes(f.FullNamea)
 
           Thread.Sleep(250)
 
       Next
        btnbrowse
.Invoke(Sub() btnbrowse.Enabled True)
 
       btnclean.Invoke(Sub() btnclean.Enabled True)
 
       p1.Invoke(Sub() p1.Value 0)
 
   End Sub 
جرب ضع لك كم ملف وصور بمجلد بمكان ما بجهازك وطبق هذا الاجراء و انظر هل يمنع نظام التشغيل من الاستمرار ام لا.
لدي نعم يمنع ولا ادري كما ذكرت هل منه ام من برنامج الحماية
السبب هو الفضول لا اكثر
مساء الخير
}}
تم الشكر بواسطة: asemshahen5
#2
هل جربت ان تقوم باعطاء highestAvailable في windows setting
}}
تم الشكر بواسطة: سعود , سعود , asemshahen5
#3
(02-01-22, 12:14 AM)aljzazy كتب : هل جربت ان تقوم باعطاء highestAvailable في windows setting

اهلا و سهلا بك اخي الكريم ... و شكرا على زيارتك لمشاركتي البسيطة .
معذرة لم اعرفها....اللذي اعرفه التشغيل كمسؤول.
}}
تم الشكر بواسطة: asemshahen5
#4
هل جربت ايقاف تشغيل برنامج الحماية اولا لمعرفة ما اذا كان هو المتسبب ام الويندوز ؟

استفسار :
ما هو العنصر P1 ؟؟
وكيف يتم تحديد المجلد المراد حذفه ؟
}}
تم الشكر بواسطة: سعود , سعود , asemshahen5
#5
(02-01-22, 01:30 PM)Jounior_P كتب : هل جربت ايقاف تشغيل برنامج الحماية اولا لمعرفة ما اذا كان هو المتسبب ام الويندوز ؟

استفسار :
ما هو العنصر P1 ؟؟
وكيف يتم تحديد المجلد المراد حذفه ؟

بصراحة ما طرا  في بالي ان اجرب ايقافه لكن قد اجرب ان شاء الله.
p1 = progressbar1
والكود ليس حذف مجلد و انما سرد محتوياته من ملفات وتغيير بنيتها 


كنت اود معرفة سر توقف البرنامج ثم بعد ذلك ارفعه لعل احد يستفيد .
لكن اظن اني سارفقه ان شاء الله تعالى .
برنامج تدمير ملفات مجلد معين محدد
}}
تم الشكر بواسطة: asemshahen5
#6
(02-01-22, 05:41 AM)سعود كتب :
(02-01-22, 12:14 AM)aljzazy كتب : هل جربت ان تقوم باعطاء highestAvailable في windows setting

اهلا و سهلا بك اخي الكريم ... و شكرا على زيارتك لمشاركتي البسيطة .
معذرة لم اعرفها....اللذي اعرفه التشغيل كمسؤول.





}}
تم الشكر بواسطة: asemshahen5 , سعود
#7
طبقت كما هو موجود وظهرت لي رسالة الخطا عند تشغيل الملف التنفيذي

 والسطر اللذي فعلته هو:
PHP كود :
<requestedExecutionLevel  level="highestAvailable" uiAccess="true" /> 
}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل هي احداث مكررة ام ماذا closed and form_closed سعود 4 192 17-07-22, 02:59 AM
آخر رد: سعود
  كيف تم عمل هذا ؟ هل هي اداة ام ماذا saudd4001 9 1,512 17-01-22, 01:50 AM
آخر رد: أبووسم
  [VB.NET] تشغيل المشروع مع بداية ويندوز محمد بوقزاحة 3 745 13-01-22, 08:46 PM
آخر رد: معاند الحظ
  هل يمكنني فعل هذه الحركة مع برنامج الواتس اب نسخة ويندوز؟ Alhootti1 0 676 10-03-21, 01:19 PM
آخر رد: Alhootti1
  [VB.NET] تشغيل المشروع على ويندوز من نوع مختلف علاء الكبابي 1 761 24-02-21, 03:05 PM
آخر رد: alfaiz678
  مساعده بتشغيل مشروعي دوت نت باصدار 4.0 علي ويندوز 10 tech1 0 580 09-02-21, 08:21 PM
آخر رد: tech1
  ماذا يعني هذا الخطأ اثناء الحفظ sofiane-phy 5 1,494 02-11-20, 11:07 PM
آخر رد: sofiane-phy
  خطا ظهر لي بعد تغير النظام التشغيل ويندوز moh developer 1 828 02-10-20, 09:50 PM
آخر رد: abdou
  طلب ويندوز alshandodi 8 1,765 28-05-20, 03:20 PM
آخر رد: kiki
  ماهي طريقة تشغيل تقويم ام القرى على ويندوز Xp جيولوجي مبتدئ 0 763 24-04-20, 08:08 AM
آخر رد: جيولوجي مبتدئ

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم