01-05-13, 05:35 AM
كود إعادة الريجيستري
طبعاَ بعد ان يتم ازالة الفيروس (Autorun) من جهازك فان مشاكل كثيرة تبقى منها ان الـ Regestry Editor لا يمكن الدخول عليه بعدها ويظهر رسالة (regestry editor has been disabled by your adminstrator)
هذا الكود لارجاعه
اولاً الكود يكتب في التيكست وليس في نافذة VB6. اي NotePad hgl الموجود مع نظام التشغيل "ويندوز" في جميع الأصدارت "تقريبا"
الكود
قبل الحفظ عليك ان تحفظ الملف بامتداد VBS. وليس بامتداد txt.
ستحفظه اي اسم تريد ولكن بامتداد VBS وسيصبح شكله كحرف S وسيعمل انشالله وسيقوم بقفل الرجيستري اذا كان مفتوحاً وفتحه اذا كان مقفلا وهكذا كلما اردت فتحه او اغلاقه يمكنك ذلك من خلال الضغط على الملف الناتج VBS
طبعاَ بعد ان يتم ازالة الفيروس (Autorun) من جهازك فان مشاكل كثيرة تبقى منها ان الـ Regestry Editor لا يمكن الدخول عليه بعدها ويظهر رسالة (regestry editor has been disabled by your adminstrator)
هذا الكود لارجاعه
اولاً الكود يكتب في التيكست وليس في نافذة VB6. اي NotePad hgl الموجود مع نظام التشغيل "ويندوز" في جميع الأصدارت "تقريبا"
الكود
كود :
Option Explicit
'تعريف المتحولات ادناه
Dim AA, rr, rr2, MyBox, val, val2, ttl, toggle
Dim jobfunc, itemtype
On Error Resume Next
Set AA= WScript.CreateObject("WScript.Shell")
val = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"
val2 = "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"
itemtype = "REG_DWORD"
jobfunc = "محرر السجل -الريجيستري- الآن: "
ttl = "Result"
'تنفيد الاجراء المكتوب في فاليو.
rr = AA.RegRead (val)
rr2 = AA.RegRead (val2)
toggle=1
If (rr=1 or rr2=1) Then toggle=0
If toggle = 1 Then
AA.RegWrite val, 1, itemtype
AA.RegWrite val2, 1, itemtype
Mybox = MsgBox(jobfunc & "غير مفعل.", 4096, ttl)
Else
AA.RegDelete val
AA.RegDelete val2
Mybox = MsgBox(jobfunc & "مفعل.", 4096, ttl)
End Ifقبل الحفظ عليك ان تحفظ الملف بامتداد VBS. وليس بامتداد txt.
ستحفظه اي اسم تريد ولكن بامتداد VBS وسيصبح شكله كحرف S وسيعمل انشالله وسيقوم بقفل الرجيستري اذا كان مفتوحاً وفتحه اذا كان مقفلا وهكذا كلما اردت فتحه او اغلاقه يمكنك ذلك من خلال الضغط على الملف الناتج VBS
إشهـــــــــــــــــــد إن لا إله إلا اللــــــــــــه إشهـــــــــــــــــد إن محمد رسول اللــــــــــــــه
الرجال أربعة
رجل يدري ويدري أنه يدري فذلك عالم فاتبعوه.
ورجل يدري ولا يدري أنه يدري فذلك نائم فأيقظوه.
ورجل لا يدري ويدري أنه لا يدري فذلك مسترشد فأرشدوه.
ورجل لا يدري ولا يدري أنه لا يدري فذلك جاهل فارفضوه.
الرجال أربعة
رجل يدري ويدري أنه يدري فذلك عالم فاتبعوه.
ورجل يدري ولا يدري أنه يدري فذلك نائم فأيقظوه.
ورجل لا يدري ويدري أنه لا يدري فذلك مسترشد فأرشدوه.
ورجل لا يدري ولا يدري أنه لا يدري فذلك جاهل فارفضوه.