01-01-22, 05:58 PM
السلام عليكم ورحمة الله وبركاته
الاجراء التالي لا يسمح به ويندوز او قد يكون برنامج الحماية [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
جرب ضع لك كم ملف وصور بمجلد بمكان ما بجهازك وطبق هذا الاجراء و انظر هل يمنع نظام التشغيل من الاستمرار ام لا.
لدي نعم يمنع ولا ادري كما ذكرت هل منه ام من برنامج الحماية
السبب هو الفضول لا اكثر
مساء الخير
