Nguyen Van Tien
Admin
Giới tính :  Tổng số bài gửi : 135
Join date : 13/01/2011
Age : 33
Đến từ : Tiền Giang - Việt Nam
 |  Tiêu đề: Khóa và mở khóa Registry  15th January 2011, 22:46 | |
| 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
| |
|
Calendar
