Xem mẫu

  1. 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
  2. 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")
  3. 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
  4. n=0 WSHShell.RegWrite p, n, itemtype Mybox = MsgBox(jobfunc & enab & vbCR & mustboot, 4096, t) End If
nguon tai.lieu . vn