منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اخفاء الملف مع عدم امكانية ارجاع خاصية مخفي مرة اخري - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اخفاء الملف مع عدم امكانية ارجاع خاصية مخفي مرة اخري (/showthread.php?tid=1127)

اخفاء الملف مع عدم امكانية ارجاع خاصية مخفي مرة اخري - atefkhalf2004 - 29-11-13

السادة الافاضل
اصاب الجهاز فيروس تسبب في اخفاء الملف مع عدم امكانية ارجاع خاصية مخفي مرة اخري
اي بنشط خاصية مفي
كيف الحل
ان ارجع الملف ظاهرا كما كان

RE: اخفاء الملف مع عدم امكانية ارجاع خاصية مخفي مرة اخري - أبو عمر - 29-11-13

1- ركب مضاد فايروسات
2- انشيء مجلد جديد وانقل محتويات المجلد السابق للمجلد الجديد
عندها تستطيع تغيير حالة الملفات
هذا اسرع شيء تسويه للحل

RE: اخفاء الملف مع عدم امكانية ارجاع خاصية مخفي مرة اخري - atefkhalf2004 - 29-11-13

شكرا حضرتك
هذا بالنسبة للمجلد
لم تنفع هذه الطريقة مع الملفات
هل يوجد برنامج لارجاع الملفات الي وضعها ؟؟؟؟
اتمني حل

RE: اخفاء الملف مع عدم امكانية ارجاع خاصية مخفي مرة اخري - السندباد المصري - 29-11-13

عندي ملف بيعمل كد ان شاء الله هرفعهولك

RE: اخفاء الملف مع عدم امكانية ارجاع خاصية مخفي مرة اخري - kslawy - 30-11-13

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

PHP كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim MyFolder As String = "مسار المجلد المصاب"
            Dim Dir As IO.DirectoryInfo = New IO.DirectoryInfo(MyFolder)

            ChangeFoldersAttributes(Dir)

        Catch ex As Exception
            MsgBox(ex.Message, 48, "Change Attributes")
        End Try
    End Sub

    Private Sub ChangeFoldersAttributes(ByVal dir As IO.DirectoryInfo)
        Try
            ChangeFilesAttributes(dir) ' البحث عن ملفات مخفية في المجلد الرئيس

            For Each d As IO.DirectoryInfo In dir.GetDirectories
                d.Attributes = IO.FileAttributes.Normal ' اظهار المجلد
                ChangeFilesAttributes(d) ' البحث عن ملفات مخفية في المجلد المحدد

                If d.GetDirectories.Length > 0 Then ' اذا كان المجلد الحالي يحتوي علي مجلدات فرعية سيتم العمل عليها
                    ChangeFoldersAttributes(d)
                End If

            Next
        Catch ex As Exception
            MsgBox(ex.Message, 48, "ChangeFoldersAttributes")
        End Try
    End Sub

    Private Sub ChangeFilesAttributes(ByVal dir As IO.DirectoryInfo)
        Try
            For Each f As IO.FileInfo In dir.GetFiles
                f.Attributes = IO.FileAttributes.Normal
            Next
        Catch ex As Exception
            MsgBox(ex.Message, 48, "ChangeFilesAttributes")
        End Try
    End Sub 

****
***
**
*

RE: اخفاء الملف مع عدم امكانية ارجاع خاصية مخفي مرة اخري - atefkhalf2004 - 30-11-13

السندباد الاصلي
نتمني منك رفع الملف
وللعلم الملف الذي اصيب لا يظهر علي اي ويندوز
وايضا علي جهازي بعد حذف الفيروس وتنزيل وندوز جديد


الاستاذ kslawy
جاري التجربة ولك الشكر