MAKE A CD-ROM VIRUS
Page 1 of 1
MAKE A CD-ROM VIRUS
Copy and paste the following into Notepad...
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
And save it as CdRomVirus.vbs And enjoy.
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
And save it as CdRomVirus.vbs And enjoy.
Similar topics
» Prank Virus
» Here is a Batch File virus which can:
» Make your Computer Talk
» Make your Computer Welcome You
» MAKE A MESSAGE BOX LOOP
» Here is a Batch File virus which can:
» Make your Computer Talk
» Make your Computer Welcome You
» MAKE A MESSAGE BOX LOOP
Page 1 of 1
Permissions in this forum:
You cannot reply to topics in this forum
Tue Feb 04, 2020 6:49 pm by munsab
» گوگل کرُوم
Tue Dec 03, 2019 8:35 pm by Munsab Ali
» فوٹو شاپ
Tue Dec 03, 2019 8:33 pm by Munsab Ali
» شمشیر بے نیام قسط نمبر 2
Sat Nov 30, 2019 11:25 pm by Munsab Ali
» شمشیر بے نیام قسط نمبر 1
Sat Nov 30, 2019 9:56 pm by Munsab Ali
» متنازع سائبر کرائم بل 2015 متفقہ طور پر منظور کرلیا۔ -
Wed Jul 27, 2016 11:54 am by Munsab Ali
» All in One
Fri Dec 25, 2015 10:23 pm by RASHID KHAN
» Best Action Movies 2015 English Hollywood - TOM CRUISE - New Adventure Movies 2015
Thu Dec 10, 2015 2:05 pm by Munsab Ali
» Shinobido - Ninja
Thu Dec 10, 2015 1:53 pm by Munsab Ali