Ghi chú đến thành viên
Go Back   4vn.eu > Kiến thức > Tin học > Thủ Thuật - Mẹo Vặt
Gởi Ðề Tài Mới Trả lời
 
Ðiều Chỉnh
  #1  
Old 25-10-2010, 06:16 PM
tetema's Avatar
tetema tetema is offline
Dâm dê-Đê tiện-Biến thái
 
Tham gia: Apr 2009
Đến từ: Lạng Sơn
Bài gởi: 675
Thời gian online: 2 tháng 1 tuần 3 ngày
Xu: 1,115
Thanks: 5,153
Thanked 1,261 Times in 206 Posts
Tắt mở registry bằng vbs!!!

Vì không muốn đếm gián nên ta quyết định vô đây làm vài bài!

Đây là một cách để tắt, mở registry dùng cho các máy nào muốn tắt hẳn registry để không ai có thể nghịch được!

1) Đầu tiên, mở cái notepad lên!
2) Copy cái này vô:

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\Po licies\System\"

p = p & "DisableRegistryTools"

itemtype = "REG_DWORD"

mustboot = "Log off and back on, or restart your pc to" & vbCR & "effect the changes"

enab = "ENABLED"

disab = "DISABLED"

jobfunc = "Registry Editing Tools are now "

t = "Confirmation"

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

3) Lưu lại với cái tên gì cũng được, miễn là đuôi của nó tức là phần đằng sau dấu . ý là vbs

Nhấp đúp vào nó để tắt, log off/on lại! Lúc nào muốn mở registry thì lại nhấp đúp lại, log off/on lại là được!

Để đỡ phiền phức, ta pót luôn cái file viết sẵn lên này!
Link kèm theo ý nhá!



Các chủ đề khác cùng chuyên mục này:

File Kèm Theo To view attachments your post count must be 1 or greater. Your post count is 0 momentarily.
Tài sản của tetema
Dong Binh Thánh Cấp Dong Binh Thần Cấp Spammer
Trả Lời Với Trích Dẫn
Trả lời

Từ khóa được google tìm thấy
download băng vbs, khoa va mo usb bang vbs, mo gredit bang vbs, mo regedit bang vbs, ,

Ðiều Chỉnh


©2008 - 2014. Bản quyền thuộc về hệ thống vui chơi giải trí 4vn.eu™
Diễn đàn phát triển dựa trên sự đóng góp của tất cả các thành viên
Tất cả các bài viết tại 4vn.eu thuộc quyền sở hữu của người đăng bài
Vui lòng ghi rõ nguồn gốc khi các bạn sử dụng thông tin tại 4vn.eu™