[tetema]

Vì không muốn đếm gián nên ta quyết định vô đây làm vài bài!

Đây là một cách để tắt, mở registry dùng cho các máy nào muốn tắt hẳn registry để không ai có thể nghịch được!

1) Đầu tiên, mở cái notepad lên!
2) Copy cái này vô:

Option Explicit

Dim WSHShell, n, MyBox, p, t, mustboot, errnum, vers

Dim enab, disab, jobfunc, itemtype

Set WSHShell = WScript.CreateObject("WScript.Shell")

p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\System\"

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 Editing 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

3) Lưu lại với cái tên gì cũng được, miễn là đuôi của nó tức là phần đằng sau dấu . ý là vbs

Nhấp đúp vào nó để tắt, log off/on lại! Lúc nào muốn mở registry thì lại nhấp đúp lại, log off/on lại là được!

Để đỡ phiền phức, ta pót luôn cái file viết sẵn lên này!
Link kèm theo ý nhá!