Để khóa Registry,bạn có thể dùng đoạn mã sau để khóa hay mở Registry Editor:
Mở Notepad và chép đoạn mã sau vào .
|
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\Policies\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 |
| Lưu tập tin này lại với tên là disenablereg.vbs và chạy nó. Nếu
Registry Editor đang được mở, chương trình sẽ khóa Registry Editor lại. Chạy
chương trình này một lần nữa để mở khóa cho Registy Editor. |
