تقييم الموضوع :
  • 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] نقل ملفات من الملف التفيذي الي جهاز العميل Top King 9 166 08-04-18, 06:59 PM
آخر رد: Top King
  [سؤال] كيفية اخفاء Scroll الخاصة بListbox وتحكم بScroll با لButtons Iman Mohamed Omran 3 65 10-03-18, 09:22 AM
آخر رد: Iman Mohamed Omran
  اخفاء رموز من التكست بوكس ابو روضة 4 133 08-03-18, 02:58 PM
آخر رد: ابو روضة
  [سؤال] كيف يتم اخفاء واظهار عمود عند عرض تقرير كريستال ريبورت اثناء التشغيل السيد الجوهري 1 100 08-03-18, 03:05 AM
آخر رد: spoony
  [VB.NET] مشكلة نقل الملف من الريسورس لسطح المكتب محمد اسماعيل 4 80 28-02-18, 11:24 AM
آخر رد: silverlight
  [VB.NET] اضافة بيانات من داتا جريد فيو الي اخري محمد اسماعيل 0 43 21-02-18, 08:48 PM
آخر رد: محمد اسماعيل
  [سؤال] تفعيل خاصية TextChanged للبحث عن عناصر listbox & وتفعيل زر Enter waelalmsry75 2 126 12-01-18, 07:58 PM
آخر رد: waelalmsry75
  [VB.NET] كيف يمكن اخفاء section فى التقرير برمجيا السيد الجوهري 5 149 22-12-17, 12:51 AM
آخر رد: طالب برمجة
  [سؤال] اخفاء البرامج من التاسك مانجر ابو روضة 0 73 19-12-17, 02:32 AM
آخر رد: ابو روضة
  [VB.NET] نقل الملف الي portable drive محمد اسماعيل 1 86 17-11-17, 03:22 AM
آخر رد: silverlight

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


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