[ Visual Basic 6 ] كودان لاظها الملفات المخفية والملفات السوبر مخفية

تم تحميل الصفحة في 0,4441186 ثانية
كودان لاظها الملفات المخفية والملفات السوبر مخفية
الحالة
مغلق و غير مفتوح للمزيد من الردود.
إنضم
8 مايو 2009
المشاركات
1,435
الإعجابات
579
النقاط
113

لاظهار الملفات المخفية

Set A=CreateObject("Wscript.s h e l l")
A.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Explorer\Advanced\Hidden",1,"REG_DWORD"
Set A=Nothing


ولإظهار السوبر خفية


Set A=CreateObject("Wscript.s h e l l")
A.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Explorer\Advanced\Hidden",1,"REG_DWORD"
A.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Explorer\Advanced\SuperHidden",1,"REG_D WORD"
Set A=Nothing



مع العلم ان اظهار الملفات العادية اولا شرط لاظهار الملفات المخفية
كونوا متأكدين اولا انو ما في اي فايروس يحدث القيمتين السابقتين بالريجستري ل 2 او 0 باستمرار
اذا كان في ضعوا الكود السابق في تايمر Timer واجعلوا خاصية Interval له تساوي 100 او 1000
بالتوفيق

ملاحظة: احذف الفراغات في كلمة s h e l l

تحديث المحتوى بتاريخ
09/07/2017
 
التعديل الأخير بواسطة المشرف:
إنضم
3 نوفمبر 2007
المشاركات
3,614
الإعجابات
681
النقاط
113
رد: كودان لاظها الملفات المخفية والملفات السوبر مخفية

يعطيك العافيه اخووي مشكوور وماقصررررررت
 
إنضم
9 مايو 2008
المشاركات
2,584
الإعجابات
190
النقاط
63
الإقامة
jordan
رد: كودان لاظها الملفات المخفية والملفات السوبر مخفية

يعطيك العافية .. :9:
 
إنضم
8 مايو 2009
المشاركات
1,435
الإعجابات
579
النقاط
113
رد: كودان لاظها الملفات المخفية والملفات السوبر مخفية

جزاكم الله خيرا على المرور
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل