تقييم الموضوع :
  • 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" /> 
}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Smile تطبيقي يعمل تمام على ويندوز 10 قبل تحديث الوندوز وبعد التحديث لا يعمل رمضان محمد 2 382 31-10-23, 01:50 PM
آخر رد: رمضان محمد
  البرنامج لدي يعمل على ويندوز 11 والان لا يعمل على ويندوز 10 ماهو الحل moh61 1 280 01-09-23, 04:38 AM
آخر رد: اسامه الهرماوي
  [سؤال] ماذا يعني هذا الخطأ ؟ عند الطباعة HUNTER25 0 247 20-12-22, 05:43 PM
آخر رد: HUNTER25
  ماذا بعد ملف السيطب حماده ممدوح البحيرى 4 510 02-12-22, 09:09 PM
آخر رد: حماده ممدوح البحيرى
Photo [VB.NET] مشكلة تشغيل المشروع في ويندوز ١٠ بيئة 64بت عربي وانجليزي المحمديون 0 402 13-11-22, 09:02 PM
آخر رد: المحمديون
  [VB.NET] ممكن كود تغير خلفية شاشة تامين ويندوز jam3h 1 517 11-10-22, 04:09 AM
آخر رد: jam3h
  هل هي احداث مكررة ام ماذا closed and form_closed سعود 4 734 17-07-22, 02:59 AM
آخر رد: سعود
  كيف تم عمل هذا ؟ هل هي اداة ام ماذا saudd4001 9 2,234 17-01-22, 01:50 AM
آخر رد: أبووسم
  [VB.NET] تشغيل المشروع مع بداية ويندوز محمد بوقزاحة 3 1,258 13-01-22, 08:46 PM
آخر رد: معاند الحظ
  هل يمكنني فعل هذه الحركة مع برنامج الواتس اب نسخة ويندوز؟ Alhootti1 0 1,033 10-03-21, 01:19 PM
آخر رد: Alhootti1

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


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