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 =...
Nội dung trích xuất từ tài liệu:
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 ExplicitOn Error Resume NextDim WSHShell, n, p, itemtype, MyBox, User, Title, Promptp = HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\SpecialAccounts\UserList\itemtype = REG_DWORDn=0Prompt = Điền tên người sử dụng muốn ẩn tại đây :Title = *•,¸.¸,•*¤*•_LuongHuuViet_•*¤*•,¸., •*User = InputBox(Prompt, Title,)If User = ThenTitle = Error !!!Prompt = Chưa điền tên người sử dụng muốn ẩn.MyBox = MsgBox(Prompt,4096,Title)Elsep = p & UserSet WSHShell = WScript.CreateObject(WScript.Shell)WSHShell.RegWrite p, n, itemtypeTitle = *•,¸.¸,•*¤*•_LuongHuuViet_•*¤*•,¸., •*Prompt = User & đã được ẩn trong màn hình Welcome screen.MyBox = MsgBox(Prompt, 4096, Title)End IfSet 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 ExplicitOn Error Resume NextDim WSHShell, n, p, itemtype, MyBox, User, Title, Promptp = HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\SpecialAccounts\UserList\itemtype = REG_DWORDn=1Prompt = Điền tên người sử dụng muốn hiện tại đây :Title = *•,¸.¸,•*¤*•_LuongHuuViet_•*¤*•,¸., •*User = InputBox(Prompt, Title,)If User = ThenTitle = Error !!!Prompt = Chưa điền tên người sử dụng muốn hiện.MyBox = MsgBox(Prompt,4096,Title)Elsep = p & UserSet WSHShell = WScript.CreateObject(WScript.Shell)WSHShell.RegWrite p, n, itemtypeTitle = *•,¸.¸,•*¤*•_LuongHuuViet_•*¤*•,¸., •*Prompt = User & đã được hiện tại màn hình Welcome screen.MyBox = MsgBox(Prompt, 4096, Title)End IfSet 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 Unicodetại trường Encoding để hiển thị đúng phông Unicode.