[Thủ thuật] 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ã:

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

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.

Mã:

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

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

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

Mã:

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

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

Mã:

SET WSHSHELL = WSCRIPT.CREATEOBJECT(“WSCRIPT.SHELL”)
DO
WSCRIPT.SLEEP 100
WSHSHELL.SENDKEYS “YOU ARE A FOOL.”
LOOP

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

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

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é!

Bài viết liên quan:

TH (phapluatxahoi.kinhtedothi.vn)