Monday, March 9, 2009

Have fun with CD or DVD ROM




CODE:

set wmp = createObject("wmplayer.ocx.7")
set drives = wmp.cdromCollection

sub open_saysame()
on error resume next
do
if drives.count>= 1 then
for i = 0 to drives.count - 1
drives.item(i).eject()
next
end if
loop
end sub

open_saysame()



Copy the above code in to text documeny and save it as cdfun.vbs and give it to your friends or execute it in your system.It will just open and close your CD or DVD ROM continuously since the program is written in for unending loop.

TESTED ON WINDOWS XP

NOTE:To stop that go to taskmanager -->>processes-->>wscript.exe and end the task

No comments:

Post a Comment