[سعود]

السلام عليكم ورحمة الله وبركاته

الاجراء التالي لا يسمح به ويندوز او قد يكون برنامج الحماية [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 


جرب ضع لك كم ملف وصور بمجلد بمكان ما بجهازك وطبق هذا الاجراء و انظر هل يمنع نظام التشغيل من الاستمرار ام لا.

لدي نعم يمنع ولا ادري كما ذكرت هل منه ام من برنامج الحماية

السبب هو الفضول لا اكثر

مساء الخير