ѕραятαη σƒ ℓσνєツ
VIP
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.
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.
