Notepad is one of the simplest text editors built into Windows. Usually, the user only uses for purposes such as saving notes, or some text content. However, today I will share you some fun code, troll, virus friends on Windows with Notepad.

1. Fake Error

Messages Error messages are something that regular Windows users encounter. And you can make a notification window to troll your friends by simply following:

• Open Notepad
• Enter the command below:

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

• Replace Message Here and Title Here with the error message you want

• Save the Notepad file to troll.vbs, and run it.

2. Code to speak as you like:

You can use this code to listen to the conversation in English.

• Do the same with step 1 with code:

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

• In the I love YOU section you can substitute other words, or paragraphs you want to hear.
• Save the Notepad file to audio.vbs, and run it.

3. Automatic keyboard typing:

With some VBScript following code, you can make your keyboard automatically type a predefined text. But you want to turn off this type, you have to restart the machine.

Set wshShell = wscript.CreateObject ("WScript.Shell")
to
wscript.sleep 100
wshshell.sendkeys "Viruses are dangerous"
loop

• Save Notepad again to file.vbs, and proceed to run it.

4. The Matrix Matrix Effects

• Open Notepad.
• Copy and paste the code below:

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

• Save the file with .bat extension, then run Notepad file will be as shown:

 5. Type “You are a fool”

• Open Notepad.
• Copy and paste the code below:

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

to

wscript.sleep 100

wshshell.sendkeys "You are a fool."

loop

• Save Notepad again to file. vbs, and proceed to run it.

6. Create a Virus CD from Notepad (Constantly on CD Drive Drive)

• Open Notepad.
• Copy and paste the code below:

Set oWMP = CreateObject ("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
to
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

• Save Notepad again to file. vbs, and proceed to run it. If you want to stop, you must restart to stop the operation of this code.