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

Chia sẻ: Tranthi Kimuyen | Ngày: | Loại File: PDF | Số trang:4

Thêm vào BST

Báo xấu

134
lượt xem 9
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

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”,…

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: Thủ thuật Windows XP: Khóa và mở khóa Registry

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 : LuongHuuViet@hotmail.com." 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 : LuongHuuViet@hotmail.com." & 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