Main Menu

Đăng ký học joomla

Tin tức mới nhất

Thống kê truy cập

Truy cập trong ngày:	5
Truy cập hôm qua:	623
Tổng số truy cập:	544204

Đang online: 8 Khách

Thủ thuật khóa Registry

Để 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.