How to make viruses using notepad ? [Part 2]

In an earlier post i wrote how to create a simple virus using notepad.After years from that now I’m gonna tell you how to write a more advanced viruses using notepad.here we learn two about them.
these viruses are coded to run as vbscripts.so these viruses will only work on windows computers.And though these viruses are bit advanced anybody can kill it just using simple hidden steps.Remember that these files will be tracked from virus guards as “joke/vbtool” file.so turn off it or use any other proper functions to keep your virus guard away from the file what we gonna make now.
How to kill the virus
just easy hidden steps.after you run the virus go to task manager and then go to processes tab.now search for “wpscript.exe” file.now click End Process and yes.It will be healed
Here we gonna build two viruses

after copying down the codes below paste it on a new notepad and save it as something.vbs (change the name as you want,but not the vbs extension). you’ll see a file with different kind of icon.okay so you have made a virus already.run it and check

Keyboard lights flashing 

in this case you can make your keyboard lights (num lock,caps lock,scroll lock) go mad.they will light up and go down as fast as and in the order as you want.just copy the code given below(remember that this will make lights go crazy and also it makes your typing go crazy with upper case and lower case shuffles).copy the code below and save it as anyname.vbs

Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop

now change the value 50 as you want.it will change the interval between lights flashing.and also you can change the lighting up order just by changing the order in last 3 rows of the code except looping line
CD/DVD rom ejects continually 
i have already written how to do this in that earlier post.but it doesn’t work continually.here we gonna make a speedy and more effective version of same virus.copy the code below and save it as anyname.vbs

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >=1 then
do
For i=0 to colCDROMs.COunt -1
colCDROMs.item(i).Eject
Next 'cdrom
loop
End If

in this case you can speed it up (the interval between loading and ejecting) just by adding following line as much as you want.

For i=0 to colCDROMs.COunt -1
colCDROMs.item(i).Eject
Next 'cdrom

if u add this line twice in virus coding…it will work twice as fast.do not remove “loop” function or it will stop working continually.
Thank you and your votes are appreciated  :)