Máy của mình ko chạy được Rege*** trong Run

Máy của mình ko chạy được Rege*** trong Run

Mới cài lại Win xong , vô tình mở Deepf ra , chui vào trong Luongsonbac.info , IE bị dính luôn cái link ,ko chuyển sang aubank/..... dc . Vào trong Run chạy Rege*** cũng không được luôn . quay sang cái chỉnh time bên góc phải màn hình , cũng không được nốt . Chả nhẽ lại phải ghost lại à ? Ai có cách gì chỉ giùm mình với. Sẽ vote cho 5*

Thử cái này xem :vào Run gõ :
REG add HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystem /v DisableRegistryTools /t REG_DWORD /d 0 /f
Tôi đã sửa mấy lần mà vẫn không được .Bạn chú ý 3 chữ REG, add và HKCU cách nhau 1 ký tự ( 1 lần nhấn Space bar ). Chữ System cách chữ /v 1 ký tự
Được Likeweapon sửa chữa / chuyển vào 22:38 ngày 05/02/2006

Mở một trình soạn thảo ra paste đoạn sau vào rồi lưu với phần mở rộng là *.vbs chẳng hạn ED.vbs
Chạy files vừa tạo thì nó sẽ chuyển qua lại giữa Enable và Disable.
Dùng bkav ấy virus nội thì phải trị bằng hàng nội.

Option Explicit
Dim WSHShell, n, MyBox, p, t, mustboot, errnum, vers
Dim enab, disab, jobfunc, itemtype
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystem"
p = p & "DisableRegistryTools"
itemtype = "REG_DWORD"
mustboot = "Log off and back on, or restart your pc to" & vbCR & "effect the changes"
enab = "ENABLED"
disab = "DISABLED"
jobfunc = "Registry E***ing Tools are now "
t = "Confirmation"
Err.Clear
On Error Resume Next
n = WSHShell.RegRead (p)
On Error Goto 0
errnum = Err.Number
if errnum <> 0 then
WSHShell.RegWrite p, 0, itemtype
End If
If n = 0 Then
n = 1
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & disab & vbCR & mustboot, 4096, t)
ElseIf n = 1 then
n = 0
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & enab & vbCR & mustboot, 4096, t)
End If