+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ماذا يفعل ويندوز 11 مع هذا الاجراء (/showthread.php?tid=40369)
ماذا يفعل ويندوز 11 مع هذا الاجراء - سعود - 01-01-22
السلام عليكم ورحمة الله وبركاته
الاجراء التالي لا يسمح به ويندوز او قد يكون برنامج الحماية [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.FullName, a)
Thread.Sleep(250)
Next
btnbrowse.Invoke(Sub() btnbrowse.Enabled = True)
btnclean.Invoke(Sub() btnclean.Enabled = True)
p1.Invoke(Sub() p1.Value = 0)
End Sub
جرب ضع لك كم ملف وصور بمجلد بمكان ما بجهازك وطبق هذا الاجراء و انظر هل يمنع نظام التشغيل من الاستمرار ام لا.
لدي نعم يمنع ولا ادري كما ذكرت هل منه ام من برنامج الحماية
السبب هو الفضول لا اكثر
مساء الخير
RE: ماذا يفعل ويندوز 11 مع هذا الاجراء - aljzazy - 02-01-22
هل جربت ان تقوم باعطاء highestAvailable في windows setting
RE: ماذا يفعل ويندوز 11 مع هذا الاجراء - سعود - 02-01-22
(02-01-22, 12:14 AM)aljzazy كتب : هل جربت ان تقوم باعطاء highestAvailable في windows setting
اهلا و سهلا بك اخي الكريم ... و شكرا على زيارتك لمشاركتي البسيطة .
معذرة لم اعرفها....اللذي اعرفه التشغيل كمسؤول.
RE: ماذا يفعل ويندوز 11 مع هذا الاجراء - Jounior_P - 02-01-22
هل جربت ايقاف تشغيل برنامج الحماية اولا لمعرفة ما اذا كان هو المتسبب ام الويندوز ؟
استفسار :
ما هو العنصر P1 ؟؟
وكيف يتم تحديد المجلد المراد حذفه ؟
RE: ماذا يفعل ويندوز 11 مع هذا الاجراء - سعود - 02-01-22
(02-01-22, 01:30 PM)Jounior_P كتب : هل جربت ايقاف تشغيل برنامج الحماية اولا لمعرفة ما اذا كان هو المتسبب ام الويندوز ؟
استفسار :
ما هو العنصر P1 ؟؟
وكيف يتم تحديد المجلد المراد حذفه ؟
بصراحة ما طرا في بالي ان اجرب ايقافه لكن قد اجرب ان شاء الله.
p1 = progressbar1
والكود ليس حذف مجلد و انما سرد محتوياته من ملفات وتغيير بنيتها
كنت اود معرفة سر توقف البرنامج ثم بعد ذلك ارفعه لعل احد يستفيد .
لكن اظن اني سارفقه ان شاء الله تعالى .
برنامج تدمير ملفات مجلد معين محدد
RE: ماذا يفعل ويندوز 11 مع هذا الاجراء - aljzazy - 02-01-22
(02-01-22, 05:41 AM)سعود كتب :(02-01-22, 12:14 AM)aljzazy كتب : هل جربت ان تقوم باعطاء highestAvailable في windows setting
اهلا و سهلا بك اخي الكريم ... و شكرا على زيارتك لمشاركتي البسيطة .
معذرة لم اعرفها....اللذي اعرفه التشغيل كمسؤول.
RE: ماذا يفعل ويندوز 11 مع هذا الاجراء - سعود - 06-01-22
طبقت كما هو موجود وظهرت لي رسالة الخطا عند تشغيل الملف التنفيذي
والسطر اللذي فعلته هو:
PHP كود :
<requestedExecutionLevel level="highestAvailable" uiAccess="true" />