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á!
Các chủ đề khác cùng chuyên mục này:
