HomeMAKE A CD-ROM VIRUS
Page 1 of 1
MAKE A CD-ROM VIRUS
by Munsab Ali Tue Nov 18, 2014 1:45 pm
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.
Munsab Ali- Admin
-
1013
Join date/تاریخ شمولیت : 07.03.2014
Age/عمر : 43
Location/مقام : pakistan -
Similar topics» Prank Virus
» Here is a Batch File virus which can:
» MAKE A GOTO MENU
» Make your Computer Welcome You
» Make your Computer Talk
» Here is a Batch File virus which can:
» MAKE A GOTO MENU
» Make your Computer Welcome You
» Make your Computer Talk
Page 1 of 1
Permissions in this forum:
You cannot reply to topics in this forum|
|
|
» گوگل کرُوم
» فوٹو شاپ
» شمشیر بے نیام قسط نمبر 2
» شمشیر بے نیام قسط نمبر 1
» متنازع سائبر کرائم بل 2015 متفقہ طور پر منظور کرلیا۔ -
» All in One
» Best Action Movies 2015 English Hollywood - TOM CRUISE - New Adventure Movies 2015
» Shinobido - Ninja