السلام عليكم ورحمة الله وبركاته
الاجراء التالي لا يسمح به ويندوز او قد يكون برنامج الحماية [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
جرب ضع لك كم ملف وصور بمجلد بمكان ما بجهازك وطبق هذا الاجراء و انظر هل يمنع نظام التشغيل من الاستمرار ام لا.
لدي نعم يمنع ولا ادري كما ذكرت هل منه ام من برنامج الحماية
السبب هو الفضول لا اكثر
مساء الخير
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
