Bật / tắt Registry Editor trong Windows XP

Posted by chiasedamme on Wednesday, May 16, 2012

1001 THỦ THUẬT

Như bạn đã biết Registry là một cơ sở dữ liệu phức tạp, nó chứa các thông tin về cấu hình hệ thống và thông tin về các chương trình. Để tránh tình trạng người lạ sử dụng máy của mình để chỉnh sửa Registry, bạn có thể sử dụng đoạn mã sau để khóa / mở khóa Registry Editor (trình biên tập Registry).

Mở Notepad và chép đoạn mã sau vào (có thể tải về từ www.echip.com.vn). 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.

TRẦN HỮU PHƯỚC (Cà Mau)

{ 0 comments... read them below or add one }

Post a Comment