TAILIEUCHUNG - Thủ thuật Windows XP: Thay đổi thông tin người dùng trong Windows

Thay đổi thông tin người dùng trong Windows Vào Notepad soạn nội dung sau rồi lưu lại dưới định dạng là .vbs ( VD: Change ) Option Explicit Set ws = ("") Dim ws, t, p1, p2, n, g, cn, cg Dim itemtype p1 = "HKLM\Software\Microsoft\Windows NT\CurrentVersion\" n = (p1 & "RegisteredOwner") g = (p1 & "RegisteredOrganization") t = "*¤*•,¤*•,.,•*¤*•_Thong Bao_•*¤*•,., •*¤*" cn = InputBox("Dien ten nguoi su dung moi tai day:", t, n) If cn "" Then p1 & ". | Thay đổi thông tin người dùng trong Windows Vào Notepad soạn nội dung sau rồi lưu lại dưới định dạng là .vbs VD Change Option Explicit Set ws Dim ws t p1 p2 n g cn cg Dim itemtype p1 HKLM Software Microsoft Windows NT CurrentVersion n p1 RegisteredOwner g p1 RegisteredOrganization t n n n _Thong Bao_ n J. cn InputBox Dien ten nguoi su dung moi tai day t n If cn Then pl RegisteredOwner cn End If cg InputBox Dien ten dia chi nghe nghiep hoac cong ty moi tai day. t g If cg Then pl RegisteredOrganization cg End If Sau đó tiến hành thực thi file vừa tạo và làm theo hướng dẫn. 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 Set ws Dim ws t pl p2 n g cn cg Dim itemtype pl HKLM Software Microsoft Windows NT CurrentVersion n p1 RegisteredOwner g p1 RegisteredOrganization t n . n . j j . n ._Thông Báo_ a . . cn InputBox Điền tên người sử dụng mới tại đây t n If cn Then pl RegisteredOwner cn End If cg InputBox Điền tên địa chỉ nghề nghiệp hoặc công ty mới tại đây t g If cg Then p1 RegisteredOrganization cg End .

• Hệ điều hành
• tài liệu window
• thủ thuật window
• bí quyết window
• thủ thuật tin học
• kĩ năng tin học
• Đề thi môn Lập trình trên window
• Câu hỏi Lập trình trên window
• Bài thi Lập trình trên window
• Ôn thi Lập trình trên window
• Nội dung thi Lập trình trên window
• Tài liệu thi Lập trình trên window
• giáo trình window
• hướng dẫn window