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

Ẩ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.