Code phá hoại

 HƯỚNG DẪN MỘT SỐ CODE

1. Làm giả thông báo lỗi
Thông báo lỗi là điều mà người dùng Windows thường xuyên gặp. Và bạn có thể làm một cửa sổ thông báo để troll bạn bè của mình bằng cách đơn giản sau:

• Mở Notepad lên
• Nhập lệnh dưới:

Mã:

X=Msgbox("Message Here",0+16,"Title Here")

• Thay thế Message Here và Title Here bằng thông điệp lỗi bạn muốn

​

• Lưu file Notepad lại thành troll.vbs, và tiến hành chạy nó.

2. Code phát giọng nói theo ý thích:
Bạn có thể sử dụng code này để nghe các đoạn hội thoại tiếng anh.

• Làm tương tự với các bước ở phần 1 với mã code:

Mã:

CreateObject("SAPI.SpVoice").Speak"I love YOU"

• Ở phần I love YOU bạn có thể thay thế các từ khác, hoặc đoạn văn nào đó bạn muốn nghe.
• Lưu file Notepad lại thành audio.vbs, và tiến hành chạy nó.

3. Bàn phím tự động gõ liên tục
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. Tuy nhiên muốn tắt loại này, bạn phải khởi động lại máy.

Mã:

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "Virus. Virus nguy hiem"
loop

• Lưu Notepad lại thành file .vbs, và tiến hành chạy nó.

4. Hiệu ứng Ma trận của The Matrix

• Mở Notedpad.
• Sao chép và dán đoạn code dưới đây:

Mã:

@ECHO OFF
COLOR 02
:START
ECHO %RANDOM% %RANDOM% %RANDOM% %RANDOM% %RANDOM% %RANDOM% %RANDOM% %RANDOM% %RANDOM% %RANDOM%
GOTO START

• Lưu file với đuôi .bat, sau đó chạy file Notepad sẽ được như hình:

​

5. Gõ liên tục "You are a fool" (bạn là một kẻ ngu ngốc)

• Mở Notedpad.
• Sao chép và dán đoạn code dưới đây:

Mã:

Set wshShell = wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "You are a fool."

loop

• Lưu Notepad lại thành file .vbs, và tiến hành chạy nó.
• Có thể đổi câu You are a fool. thành câu khác bạn muốn

6. Tạo virus CD từ Notedpad (Liên tục bật ổ đĩa CD Drive)

• Mở Notedpad.
• Sao chép và dán đoạn code dưới đây:

Mã:

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop

• Lưu Notepad lại thành file .vbs, và tiến hành chạy nó. Nếu muốn ngừng hẳn, bạn phải khởi động lại để chấm dứt hoạt động của code này.

Chúc các bạn troll vui vẻ!