تقييم الموضوع :
  • 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
جاري التجربة ولك الشكر
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] ما نوع قاعدة البيانات لهذا الملف اللورد محمود 6 83 منذ 7 ساعة مضت
آخر رد: rmnr
  نقل بيانات داتاا جريد الي اخري atefkhalf2004 3 65 03-11-18, 01:30 PM
آخر رد: elgokr
  [VB.NET] كيفية عرض column الليست فيو عموديا و تفعيل خاصية الشيك بوكس larbihamri 0 51 22-10-18, 09:38 AM
آخر رد: larbihamri
  [سؤال] طلب التعديل علي كود داون لود وفتح الملف ScreamVoice 5 156 14-10-18, 08:17 AM
آخر رد: ScreamVoice
  [سؤال] طلب التعديل علي كود داون لود وفتح الملف ScreamVoice 1 80 14-10-18, 08:16 AM
آخر رد: ScreamVoice
  نسخ اعمدة من الداتا جريد فيو الي اخري محمد اسماعيل 11 221 14-10-18, 04:42 AM
آخر رد: حريف برمجة
  هل يوجد خاصية للتحكم في عرض الاعمدة بالداتا جريد فيو essawq 7 196 29-09-18, 01:09 PM
آخر رد: essawq
  [VB.NET] استفسار :- التاكد من وجود سطر جديد في الملف dubai.eig 6 169 21-09-18, 08:25 AM
آخر رد: mrnooo2000
  [VB.NET] اخفاء الدتا جريد فيو عبدالرحمن بشري عمر 4 161 06-09-18, 01:59 AM
آخر رد: عبدالرحمن بشري عمر
  [VB.NET] اخفاء اطار البوتن محمد اسماعيل 5 259 01-09-18, 03:44 PM
آخر رد: elgokr

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


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