تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اخفاء الملف مع عدم امكانية ارجاع خاصية مخفي مرة اخري
#1
السادة الافاضل
اصاب الجهاز فيروس تسبب في اخفاء الملف مع عدم امكانية ارجاع خاصية مخفي مرة اخري
اي بنشط خاصية مفي
كيف الحل
ان ارجع الملف ظاهرا كما كان
الرد
تم الشكر بواسطة:
#2
1- ركب مضاد فايروسات
2- انشيء مجلد جديد وانقل محتويات المجلد السابق للمجلد الجديد
عندها تستطيع تغيير حالة الملفات
هذا اسرع شيء تسويه للحل
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد
تم الشكر بواسطة:
#3
شكرا حضرتك
هذا بالنسبة للمجلد
لم تنفع هذه الطريقة مع الملفات
هل يوجد برنامج لارجاع الملفات الي وضعها ؟؟؟؟
اتمني حل
الرد
تم الشكر بواسطة:
#4
عندي ملف بيعمل كد ان شاء الله هرفعهولك
Heart
اللهم علمنا ما ينفعنا و انفعنا بما علمتنا وَ زِدْنا علماً

Heart
الرد
تم الشكر بواسطة:
#5
السلام عليكم ورحمة الله وبركاته

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

            
ChangeFoldersAttributes(Dir)

        Catch 
ex As Exception
            MsgBox
(ex.Message48"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.Message48"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.Message48"ChangeFilesAttributes")
        
End Try
    
End Sub 

****
***
**
*
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد
تم الشكر بواسطة: ali.alfoly , sooriaty03 , الشاكي لله
#6
السندباد الاصلي
نتمني منك رفع الملف
وللعلم الملف الذي اصيب لا يظهر علي اي ويندوز
وايضا علي جهازي بعد حذف الفيروس وتنزيل وندوز جديد


الاستاذ kslawy
جاري التجربة ولك الشكر
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] استفسار :- التاكد من وجود سطر جديد في الملف dubai.eig 6 102 أمس, 08:25 AM
آخر رد: mrnooo2000
  [VB.NET] اخفاء الدتا جريد فيو عبدالرحمن بشري عمر 4 103 06-09-18, 01:59 AM
آخر رد: عبدالرحمن بشري عمر
  [VB.NET] اخفاء اطار البوتن محمد اسماعيل 5 191 01-09-18, 03:44 PM
آخر رد: elgokr
  مشكلة عند اعداد الملف الى setup mostafa hasanein 6 153 14-08-18, 07:06 PM
آخر رد: elgokr
  [سؤال] حول خاصية setting في vb.net alipro 12 395 04-08-18, 09:08 AM
آخر رد: elgokr
  مشكلة عند حفظ الملف الفيجول بيسك abo fars 2 90 29-07-18, 05:47 PM
آخر رد: elgokr
  [سؤال] كيف اقوم بعمل فلتر DataGridView مرسل لها البيانات من فورم اخري dametucorazon 12 383 10-07-18, 06:03 PM
آخر رد: elgokr
  كيف يمكن دمج ملفات الـ DLL مع الملف التنفيذي viv 6 231 07-05-18, 10:01 PM
آخر رد: viv
  [VB.NET] كود اخفاء عمود من الداتا قريد فيو hglogtd 2 335 01-05-18, 12:55 AM
آخر رد: hglogtd
  [VB.NET] نقل ملفات من الملف التفيذي الي جهاز العميل Top King 9 305 08-04-18, 06:59 PM
آخر رد: Top King

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم