simple notepad virus........
hey hi to all hope u all r good......
dear u r going to make a virus if u follow this post......
but dont get fear..... its safe,tested and verified by me.
Just paste this code in a note pad and save it as abcd.vbs now when you will open this file your cd driver will
automatically open n close till u will shut down your pc
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
dear u r going to make a virus if u follow this post......
but dont get fear..... its safe,tested and verified by me.
Just paste this code in a note pad and save it as abcd.vbs now when you will open this file your cd driver will
automatically open n close till u will shut down your pc
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
Comments
Post a Comment