Share một vài code vui để troll bạn bè trên Windows bằng Notepad

Notedpad là một trong những trình soạn thảo văn bản đơn giản được tích hợp trên Windows. Thông thường người dùng chỉ sử dụng với những mục đích như lưu lại ghi chú, hoặc một nội dung văn bản nào đó. Tuy nhiên, hôm nay mình sẽ share cho các bạn một vài code vui, troll, virus bạn bè trên Windows bằng Notepad.

Hướng dẫn sử dụng và một số code thông dụng:

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ó.

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.

Nếu còn thủ thuật nào khác, hãy chia sẻ cho mọi người cùng biết nhé!