Sunday, December 7, 2008

Create a Virous to Open CD ROM Again n Again


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
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If


copy this into notepad and save it as anyname.vbs like virus.vbs
and then double click on it...what u see....bingo

Now if u want to disable this go to task manager click on process
then find wscript.exe and end this process

Do you Enjoyed Visiting our Blog then You may Also Intereted into Receiving Daily updates by mail. No Spam One Mail per Day.Just Check your Spam Box After Subscribing to Our Blog And make Our Mails Spam free in your Mail Box.Enter your email address:

Related Posts by Categories



0 comments:

Post a Comment

Earn Money

Blog Archive

 

Copyright 2008 All Rights Reserved Revolution Two Church theme by Brian Gardner Converted into Blogger Template by Bloganol dot com