![[Thủ thuật] Share một vài code vui để troll bạn bè trên Windows bằng Notepad](https://cdn.trangcongnghe.vn/uploads/posts/2017-10/thu-thuat-share-mot-vai-code-vui-de-troll-ban-be-tren-windows-bang-notepad_1.jpg)
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')
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'
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
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
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
Ngô Viết Hùng - Tổng hợp
Bài viết liên quan:
