TIỀN GIANG IT
DIỄN ĐÀN NÀY HIỆN NGỪNG HOẠT ĐỘNG! CÁC BẠN VUI LÒNG TRUY CẬP VÀO http://tiengiangit.ne1.net. XIN CẢM ƠN!

Mọi sự đóng góp xin liên hệ:
Admin: NGUYỄN VĂN TIẾN
Email: nganlan_khactenem10@yahoo.com
Y!M: nganlan_khactenem10

CHÚC BẠN VUI VẺ!!!
Người quản trị kí tên
VĂN TIẾN

TIỀN GIANG IT

DIỄN ĐÀN INFORMATION TECHNOLOGY - NƠI HỌC TẬP VÀ PHÁT TRIỂN
 
IndexCalendarGalleryTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập
Tìm kiếm
 
 

Display results as :
 
Rechercher Advanced Search
Danh mục chính
 Portal
 Diễn Đàn
 Thành viên
 Lý lịch
 Trợ giúp
 Tìm kiếm
WED NHẠC
WED DICH VỤ
Viettel Mobifone
Nghe Nhạc
VIDEO CLIP
BAO CÔNG XỬÁN TÔNNGỘKHÔG
TÂN BẾN THƯỢNG HẢI
TÂN BẾN THƯỢNG HẢI (tt)
Xem Điểm SV Cao Thắng
Xem kết quả học tập
Statistics
Diễn Đàn hiện có 58 thành viên
Chúng ta cùng chào mừng thành viên mới đăng ký: linhxanha522000

Tổng số bài viết đã gửi vào diễn đàn là 137 in 135 subjects

Share | 
 

  Khóa và mở khóa Registry

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Nguyen Van Tien
Admin


Giới tính : Nam Tổng số bài gửi : 135
Join date : 13/01/2011
Age : 25
Đến từ : Tiền Giang - Việt Nam

Bài gửiTiê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
Về Đầu Trang Go down
Xem lý lịch thành viên http://vantiendkn.forumvi.com
 
Khóa và mở khóa Registry
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
TIỀN GIANG IT :: THỦ THUẬT TIN HỌC :: THỦ THUẬT WIN XP-
Chuyển đến