Mở/khoá regedit

[Santiago]

Mở/khoá regedit như sau

Có 3 cách :

1. Mở Group Policy

(Start -> Run, gõ gpedit.msc) » User Configuration -> Administrative Templates -> System->Prevent access to registry editing tools Mở khóa này, chọn Disable . Đóng Group Policy.

2. Chỉnh regedit

Để cho phép mở Registry Editor bạn làm như sau :

Mở Notepad và chép đọan ngựa sau vào

Code:

Windows Registry Editor phiên bản 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\System]

"DisableRegistryTools"=dword:00000000

[HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\System]

"**.del.DisableRegistryTools"=-

[HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Group Policy

Objects\LocalUser\Software\Microsoft\Windows\Curre ntVersion\Policies\System]

"DisableRegistryTools"=dword:00000000

[HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Group Policy

Objects\LocalUser\Software\Microsoft\Windows\Curre ntVersion\Policies\System]

"**del.DisableRegistryTools"=-

[HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\Explorer]

"NoSaveSettings"=dword:00000000

Lưu tập tin này lại và đặt tên là enable_regedit.reg chẳng hạn,khi nào cần bật regedit thì chạy 1 phát.

dientuvienthong.net

3.Dùng notepad soạn đọan script sau

Dim objShell

Set objShell = CreateObject("WScript.Shell" )

s1 = "HKEY_USERS\.Default\Software\Microsoft\Windows\Cu rrentVersion\"

s2 = "Policies\System\DisableRegistryTools"

objShell.RegWrite s1+s2,1,"REG_DWORD"

Luu dưới dạng files *.vbs , bỏ vào thư mục Start up

Restart để đọa script có hiệu lực , nếu muốn Enable thì thay DisableRegistryTools bằng EnableRegistryTools

 

[Heardind]

Cách 2 của bạn cực kỳ không lý. 1 khi vừa không vào được regedit rồi, bị khóa regedit rồi thì làm thế nào mà bạn có thể add cái code kia vào regedit được? Cách đó chả khác gì bất vào được nhà rồi lại bảo chui vào nhà lấy chìa khóa ra mà mở. Mong bạn xem xét lại

 

[Kenn]

Trích:

etbal

You must be registered for see links

Cách 2 của bạn cực kỳ không lý. 1 khi vừa không vào được regedit rồi, bị khóa regedit rồi thì làm thế nào mà bạn có thể add cái code kia vào regedit được? Cách đó chả khác gì bất vào được nhà rồi lại bảo chui vào nhà lấy chìa khóa ra mà mở. Mong bạn xem xét lại

Khi registy bị khóa, chỉ đơn thuần là chống truy cập trực tiếp thông qua lệnh regedit và run trực tiếp file regedit.exe trong System32.

Nhưng cấu trúc Registy vẫn bất hề thay đổi, vẫn có thể truy xuất dữ liệu (dùng cho các chương trình cần truy xuất registry) vì vậy nên ta vẫn có thể add/export/del các khóa vào trong Registry thông qua câu lệnh và cú pháp tương ứng bằng dòng lệnh DOS. Việc làm ra (tạo) ra file reg chỉ là một hình thức khác thể run câu lệnh Add và thực thi nhiều command cùng lúc vào Registry.

Vì vậy vẫn có thể mở lại Registry bằng cách 2 ở trên (vì nhiều lúc Gpedit.msc vẫn bị khóa - trường hợp ở các máy cài phần mềm quản lý)

 

[Jamon]

nếu bị khóa registry thì có thề truy cập thông qua các phần mềm hỗ trợ cho chuyện này.

Link download

You must be registered for see links

 

[Turner]

mình vừa thử cả 3 cách mà bất có tác dụng!

các bạn còn cách nào nữa không!

cám ơn!

---------- Bài viết vừa được nhập tự động bởi hệ thống ----------

mình có 1 cách:

vào notpad gõ

'Enable/Disable Registry Editing tools

'© Doug Knox - rev 12/06/99

'This code may be freely distributed/modified as long as it remains free of charge

'http://www.icpug.org.uk/national/features/030607fe.htm

'Edited by PatheticCockroach -

You must be registered for see links

Option Explicit

'Declare variables

Dim WSHShell, rr, rr2, MyBox, val, val2, ttl, toggle

Dim jobfunc, itemtype

On Error Resume Next

Set WSHShell = WScript.CreateObject("WScript.Shell")

val = "HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\System\DisableRegistryTools"

val2 = "HKLM\Software\Microsoft\Windows\CurrentVersion\Po licies\System\DisableRegistryTools"

itemtype = "REG_DWORD"

jobfunc = "Registry Editing Tools are now "

ttl = "Result"

'reads the registry key value.

rr = WSHShell.RegRead (val)

rr2 = WSHShell.RegRead (val2)

toggle=1

If (rr=1 or rr2=1) Then toggle=0

If toggle = 1 Then

WSHShell.RegWrite val, 1, itemtype

WSHShell.RegWrite val2, 1, itemtype

Mybox = MsgBox(jobfunc & "disabled.", 4096, ttl)

Else

WSHShell.RegDelete val

WSHShell.RegDelete val2

Mybox = MsgBox(jobfunc & "enabled.", 4096, ttl)

End If

Lưu lại với tên tùy ý, đuôi mở rộng là .VBS (Visual Basic Script). Thực thi file này bằng cách nhấn đúp chuột lên file đó. Cách này có thể chạy tốt trên cả Windows 2K và XP.

 

[Whitman]

mình có 1 cách:

vào notpad gõ

'Enable/Disable Registry Editing tools

'© Doug Knox - rev 12/06/99

'This code may be freely distributed/modified as long as it remains free of charge

'http://www.icpug.org.uk/national/features/030607fe.htm

'Edited by PatheticCockroach -

You must be registered for see links

Option Explicit

'Declare variables

Dim WSHShell, rr, rr2, MyBox, val, val2, ttl, toggle

Dim jobfunc, itemtype

On Error Resume Next

Set WSHShell = WScript.CreateObject("WScript.Shell")

val = "HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\System\DisableRegistryTools"

val2 = "HKLM\Software\Microsoft\Windows\CurrentVersion\Po licies\System\DisableRegistryTools"

itemtype = "REG_DWORD"

jobfunc = "Registry Editing Tools are now "

ttl = "Result"

'reads the registry key value.

rr = WSHShell.RegRead (val)

rr2 = WSHShell.RegRead (val2)

toggle=1

If (rr=1 or rr2=1) Then toggle=0

If toggle = 1 Then

WSHShell.RegWrite val, 1, itemtype

WSHShell.RegWrite val2, 1, itemtype

Mybox = MsgBox(jobfunc & "disabled.", 4096, ttl)

Else

WSHShell.RegDelete val

WSHShell.RegDelete val2

Mybox = MsgBox(jobfunc & "enabled.", 4096, ttl)

End If

Lưu lại với tên tùy ý, đuôi mở rộng là .VBS (Visual Basic Script). Thực thi file này bằng cách nhấn đúp chuột lên file đó. Cách này có thể chạy tốt trên cả Windows 2K và XP.

 

[Cawrdav]

Trích:

chitampopo

You must be registered for see links

mình có 1 cách:

vào notpad gõ

'Enable/Disable Registry Editing tools

'© Doug Knox - rev 12/06/99

'This code may be freely distributed/modified as long as it remains free of charge

'http://www.icpug.org.uk/national/features/030607fe.htm

'Edited by PatheticCockroach -

You must be registered for see links

Option Explicit

'Declare variables

Dim WSHShell, rr, rr2, MyBox, val, val2, ttl, toggle

Dim jobfunc, itemtype

On Error Resume Next

Set WSHShell = WScript.CreateObject("WScript.Shell")

val = "HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\System\DisableRegistryTools"

val2 = "HKLM\Software\Microsoft\Windows\CurrentVersion\Po licies\System\DisableRegistryTools"

itemtype = "REG_DWORD"

jobfunc = "Registry Editing Tools are now "

ttl = "Result"

'reads the registry key value.

rr = WSHShell.RegRead (val)

rr2 = WSHShell.RegRead (val2)

toggle=1

If (rr=1 or rr2=1) Then toggle=0

If toggle = 1 Then

WSHShell.RegWrite val, 1, itemtype

WSHShell.RegWrite val2, 1, itemtype

Mybox = MsgBox(jobfunc & "disabled.", 4096, ttl)

Else

WSHShell.RegDelete val

WSHShell.RegDelete val2

Mybox = MsgBox(jobfunc & "enabled.", 4096, ttl)

End If

Lưu lại với tên tùy ý, đuôi mở rộng là .VBS (Visual Basic Script). Thực thi file này bằng cách nhấn đúp chuột lên file đó. Cách này có thể chạy tốt trên cả Windows 2K và XP.

Đúng rồi đó, cái ngựa này mình dùng lâu rồi. Nó gọi là "chìa khóa" cho Registry thật sự vì có thể ENABLE hay DISABLE với 1 click chuột thôi. Mấy cái ngựa trên chỉ có tác dụng 1 chiều, còn cái này 2 chiều, thích đóng, mở đều OK hết.. Thank bạn ấy đi..