Thủ thuật Windows XP: Khóa và mở khóa Registry ppt

Khóa và mở khóa Registry
Registry chính là bộ não của Windows. Nếu bộ não này bị lỗi thì
Windows ngay lập tức sẽ có phản ứng: khởi động rất chậm, không thể tắt
máy theo đúng quy cách, thậm chí không thể khởi động vào Windows và là
màn hình xanh “chết chóc”,… Vì vậy nếu dùng chung máy với người khác
thì tốt hơn hết là bạn nên khóa Registry lại, tránh sự tò mò của các “vọc sĩ”
muốn thử sức mình. Có rất nhiều cách để làm được việc này nhưng tốt nhất
và đơn giản nhất là bạn nên áp dụng thủ thuật sau:
Vào Notepad soạn nội dung sau rồi lưu lại dưới định dạng là .vbs.(
VD: Lock & UnLock Registry.vbs )
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 = "Thay Doi Co Hieu Luc Ngay Sau Khi Duoc Kich Hoat." &
vbCR & "Email : "
enab = "Mo Registry."
disab = "Khoa Registry."
jobfunc = "Da Tien Hanh "
t = "¤*•,,•*¤*•_Thong Bao_•*¤*•,,•*¤"
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
Sau đó tiến hành thực thi file vừa tạo.
Ngoài ra ta cũng có thể sử dụng đoạn mã sau nhưng khi lưu thành file
.vbs thì chọn File  Save as… và chọn Unicode tại trường Encoding để
hiển thị đúng phông Unicode.
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 = "Thay đổi có hiệu lực ngay sau khi được kích hoạt." &
vbCR & vbCR & "Email : " & vbCR
enab = " Mở Registry." & vbCR
disab = " Khóa Registry." & vbCR
jobfunc = "Đã tiến hành"
t = "*•,¸.¸,•*¤*•_Thông Báo_•*¤*•,¸., •*"

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