Notepad Tricks

Here's how you can irritate someone by executing these tricks..
All you need to do is select any one of these codes and paste in into your notepad, then save it with somename.vbs
Remember to use ".vbs" extension after the name (without quotes).
for example, tricks.vbs

A message loop box :

DO

msgbox("VIRUS Detected !")

LOOP

save it as virus.vbs

A password protected file :

Set shell=CreateObject("wscript.shell")

pass=inputbox("Password ?")

if pass="dailyartic" then Shell.Run("Notepad.exe") else msgbox("Incorrect Password!")

save it as password.vbs

Note : The blue text will be your password and red text will be the application you want to open if the password is correct.

Calculator :

msgbox("- Calculator - +")

num1=inputbox("Number 1 : ")

num2=inputbox("Number 2 : ")

msgbox num1+num2

Save it as Cal.vbs

Disco lights on your Keyboard :

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

do

wscript.sleep 100

wshshell.sendkeys "{CAPSLOCK}"

wshshell.sendkeys "{NUMLOCK}"

wshshell.sendkeys "{SCROLLLOCK}"

loop

Save it as disco.vbs

THESE TRICKS WERE THE SIMPLE ONES BUT THE FOLLOWING TWO MAY MAKE YOUR COMPUTER CRASH, DO IT AT YOUR OWN RISK.

Computer Crash :

Set shell=CreateObject("wscript.shell")

do

Shell.Run("Notepad.exe")

loop

save it as computercrash.vbs

CD-ROM Virus :

DO

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 ' cdrom

End If

loop

save it as cdromvirus.vbs

How to Stop it :

You can stop any of the above tricks , Start "Task Manager" and end the process "wscript.exe".

OR

You may find like this also

End this Process and you're out of the trick..