Creating Funny Viruses With Your Notepad

These are cool notepad pranks witten in Microsoft Visual Basic (.vbs), not some scary deadly virus,
1

I stumbled across this stuff somewhere on d net and i thought i’d be a great idea to share wit u guys, create any of these files and try them out on your pc and see what i’m saying, or send it to your friends via e-mail. Doing this is fun, hehehe, Re-starting your computer cancels the effect unless you add the start-up code which I wont post here.

  1. Convey your friend a lil’ message and shut down his / her computer:

Type :

@echo off

msg * I don’t like you

shutdown -c “Error! You are too silly!” -s

Save it as “Anything.BAT” in All Files and send it.

  1. Toggle your friend’s Caps Lock button simultaneously:

Type :

Set wshShell =wscript.CreateObject(“WScript.Shell”

do

wscript.sleep 100

wshshell.sendkeys “{CAPSLOCK}”

loop

Save it as “Anything.VBS” and send it.

  1. Continually pop out your friend’s CD Drive. If he / she has more than one, it pops out all of them!

Type :

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

Save it as “Anything.VBS” and send it.

  1. Frustrate your friend by making this VBScript hit Enter simultaneously:

Type :

Set wshShell = wscript.CreateObject(“WScript.Shell”

do

wscript.sleep 100

wshshell.sendkeys “~(enter)”

loop

Save it as “Anything.VBS” and send it.

  1. Open Notepad, slowly type “Hello, how are you? I am good thanks” and freak your friend out:

Type :

WScript.Sleep 180000

WScript.Sleep 10000

Set WshShell = WScript.CreateObject(“WScript.Shell”

WshShell.Run “notepad”

WScript.Sleep 100

WshShell.AppActivate “Notepad”

WScript.Sleep 500

WshShell.SendKeys “Hel”

WScript.Sleep 500

WshShell.SendKeys “lo ”

WScript.Sleep 500

WshShell.SendKeys “, ho”

WScript.Sleep 500

WshShell.SendKeys “w a”

WScript.Sleep 500

WshShell.SendKeys “re ”

WScript.Sleep 500

WshShell.SendKeys “you”

WScript.Sleep 500

WshShell.SendKeys “? ”

WScript.Sleep 500

WshShell.SendKeys “I a”

WScript.Sleep 500

WshShell.SendKeys “m g”

WScript.Sleep 500

WshShell.SendKeys “ood”

WScript.Sleep 500

WshShell.SendKeys ” th”

WScript.Sleep 500

WshShell.SendKeys “ank”

WScript.Sleep 500

WshShell.SendKeys “s! ”

Save it as “Anything.VBS”

  1. Frustrate your friend by making this VBScript hit Backspace simultaneously:

Type :

MsgBox “Let’s go back a few steps”

Set wshShell =wscript.CreateObject(“WScript.Shell”

do

wscript.sleep 100

wshshell.sendkeys “{bs}”

loop

Save it as “Anything.VBS”

  1. Hack your friend’s keyboard and make him type “You are a fool” simultaneously:

Type :

Set wshShell = wscript.CreateObject(“WScript.Shell”

do

wscript.sleep 100

wshshell.sendkeys “You are a fool.”

loop

Save it as “Anything.VBS” and send it.

  1. Open Notepad continually in your friend’s computer:

Type :

@ECHO off

:top

START %SystemRoot%\system32\notepad.exe

GOTO top

Save it as “Anything.BAT” and send it.

Have funn,,, ENJOY….

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s