KDJ Guru

How To Make Computer Viruses using Notepad

Read Time2 Minutes, 32 Seconds

Hi Friends…. This is my second article.. In here I’m going to describe about some simple tricks to making a computer virus via Notepad.

I think that you have ever thought about creating computer virus by yourself. This article will be help you to achieve your goal. This is a simple tutorial to make some simple viruses.

These virus are not harmful. But running them continuously can be affect your Computer.

 

Keybord Disco Light

this is the coding to add a disco light style to your keyboard’s lights.

Set wshShell =wscript.CreateObject("WScript.Shell")
name=(" Watch the Magic on your Keyboard ")
msgbox(" ") + name
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop

Just copy and paste this cording in notepad and save it as “Anuthing.vbs”

Auto Eject

This is a prank to complicate your friend… This virus will continuosly eject the CD Rom.

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

Use “.vbs” file extension to save.

Auto Typing

After running this virus computer begins to type itself. It works on all typing areas including search bars and Rename textboxes.

You Can use that virus as a prank by creating a shortcut and rename / change icon with a impressive thing.

set x=wscript.createobject ("wscript.shell")
do
wscript.sleep 100
x.sendkeys "{CAPSLOCK}"
x.sendkeys "{NUMLOCK}"
x.sendkeys "I am a virus "
x.sendkeys "{SCROLLLOCK}"
loop

Use “.vbs” file format to save this codes.

Formatting Prank

Msgbox "Yourdevice has been infected by a virus",16,"Warning !"
dim x,yes,no
x=Msgbox("Virus has infected hard drive . Deletion of the virus will require complete formatting of hard drive. Would you like to format hard drive ?",52,"Warning !")
if x=6 then
dim box
box=Msgbox("Hard drive (C:) formatting complete. In order to function correctly your computer must restart, would you like to restart now ?",36,"Formatting has been completed")
if box=6 then
Msgbox "Fatal error, code Bo99tha-09_d20",16,"ERROR"
Msgbox "Don't be scare.. Just Kidding.. All was a joke.",64,"Made by BMaxx @ kdjguru"
end if
if box=7 then
Msgbox "Fatal error, codeBo99tha-09_d20",16,"ERROR"
Msgbox "Don't be scare.. Just Kidding.. All was a joke",64,"Made by BMaxx @ kdjguru"
end if
end if
if x=7 then
Msgbox "Fatal error, code 08x48631643.B-7",16,"ERROR"
Msgbox "Just kidding, this was all a joke, but I did scare you didn't I? Héhé...",64,"Made by BMaxx @ kdjguru"
end if

This is a simple prank to surprise your friends or victims. Just create a shortcut and change the icon & file Name. Remember that you have to use “.vbs” extension to save the original file.

Ok GUYS… Its enough for this article… Soon I’ll come to you in a new article.

Stay well…

Thank You for checking this article. Keep in touch with KDJ Guru blog. Have a nice day!

1 0

About Post Author

Kavidu Jayakody

Kavidu Dilshan Jayakody is the founder and the author of KDJ Blog. He is a skilled web developer and graphic designer. In addition, he has earned his degree BSc (Hons) Computing, UK. He is working as a tutor of an institute and as a part-time blogger, he will help you all to make your problems solved.
33 %
Happy
67 %
Sad
0 %
Excited
0 %
Angry
0 %
Surprise

Leave a Comment

Your email address will not be published. Required fields are marked *

Scroll to Top