hi friends i want to share a trick with which u will be able to make fun with cd drive with basic VBS script that opens a cd drive every time found closed. so ultimately always opens CD drive till closed just copy paste this code into Notepad (any basic ANSI standard text editor) and save as CDfun.vbs and dont forget the .vbs part
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()
cool na and to close go to task manager and end the task named wscript &
you can also change its name to some interesting like gta 4.vbs . Try this in ur college
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()
cool na and to close go to task manager and end the task named wscript &
you can also change its name to some interesting like gta 4.vbs . Try this in ur college
No comments:
Post a Comment