Thủ thuật Windows XP: Ẩn/Hiện nhanh account trên màn hình Wellcome Screen

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

Thêm vào BST

Báo xấu

62
lượt xem 3
download

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

Ẩn/Hiện nhanh account trên màn hình Wellcome Screen Ẩn account trên màn hình Wellcome Screen Vào Notepad soạn nội dung sau rồi lưu lại dưới định dạng là .vbs ( VD: Hide Account On Welcome Screen.vbs ) Option Explicit On Error Resume Next Dim WSHShell, n, p, itemtype, MyBox, User, Title, Prompt p = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList\" itemtype = "REG_DWORD" n=0 Prompt = "Điền tên người sử dụng muốn ẩn tại đây :" Title = "*•,¸.¸,•*¤*•_LuongHuuViet_•*¤*•,¸., •*" User = InputBox(Prompt, Title,"") If User = "" Then Title = "Error !!!" Prompt = "Chưa điền tên người sử dụng muốn ẩn." MyBox =...

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: Ẩn/Hiện nhanh account trên màn hình Wellcome Screen

Ẩn/Hiện nhanh account trên màn hình Wellcome Screen Ẩn account trên màn hình Wellcome Screen Vào Notepad soạn nội dung sau rồi lưu lại dưới định dạng là .vbs ( VD: Hide Account On Welcome Screen.vbs ) Option Explicit On Error Resume Next Dim WSHShell, n, p, itemtype, MyBox, User, Title, Prompt p = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList\" itemtype = "REG_DWORD" n=0 Prompt = "Điền tên người sử dụng muốn ẩn tại đây :" Title = "*•,¸.¸,•*¤*•_LuongHuuViet_•*¤*•,¸., •*" User = InputBox(Prompt, Title,"") If User = "" Then Title = "Error !!!" Prompt = "Chưa điền tên người sử dụng muốn ẩn." MyBox = MsgBox(Prompt,4096,Title) Else p = p & User Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.RegWrite p, n, itemtype Title = "*•,¸.¸,•*¤*•_LuongHuuViet_•*¤*•,¸., •*" Prompt = User & " đã được ẩn trong màn hình Welcome screen." MyBox = MsgBox(Prompt, 4096, Title) End If Set WshShell = Nothing Sau đó tiến hành thực thi file vừa tạo và làm theo hướng dẫn. Hiện account trên màn hình Wellcome Screen Vào Notepad soạn nội dung sau rồi lưu lại dưới định dạng là .vbs ( VD: UnHide Account On Welcome Screen.vbs ) Option Explicit On Error Resume Next Dim WSHShell, n, p, itemtype, MyBox, User, Title, Prompt p = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList\" itemtype = "REG_DWORD" n=1 Prompt = "Điền tên người sử dụng muốn hiện tại đây :" Title = "*•,¸.¸,•*¤*•_LuongHuuViet_•*¤*•,¸., •*" User = InputBox(Prompt, Title,"") If User = "" Then Title = "Error !!!" Prompt = "Chưa điền tên người sử dụng muốn hiện."
MyBox = MsgBox(Prompt,4096,Title) Else p = p & User Set WSHShell = WScript.CreateObject("WScript.Shell") WSHShell.RegWrite p, n, itemtype Title = "*•,¸.¸,•*¤*•_LuongHuuViet_•*¤*•,¸., •*" Prompt = User & " đã được hiện tại màn hình Welcome screen." MyBox = MsgBox(Prompt, 4096, Title) End If Set WshShell = Nothing Sau đó cũng tiến hành thực thi file vừa tạo và làm theo hướng dẫn. Lưu ý: 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.