CD/DVD CONTINUOUS EJECTION
This code snippet will eject your cd drive continuously.
You just need to copy it in a notepad and save with extension .vbs .
You can also change its icon to something familiar so that no one knows what it is.
To kill this virus you just need to go to task manager , go to processes tab click on "wpscript.exe"
and click on end process
Here is the code
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
For i=0 to colCDROMs.COunt -1 //If you add these (3) lines in coding again it would decrease the
colCDROMs.item(i).Eject // time between loading and ejection half i.e the speed would
Next 'cdrom' //double.you can add these three lines as many times as you want
CRAZY LIGHTS
you can also 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 crazy with upper case and lower case shuffles)
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 time.and also u can change the lighting up order just by changing the order in last 3 rows of the code except looping line

No comments:
Post a Comment