Open Your Notepad and type this code(just copay and paste).
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
do
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If
Now save it as game.vbs.
Double click it to activate it.
If u want to disable this go to task manager click on process
then find wscript.exe and end this process
Note:If there is any error is coming it means that your system has not configured with vb environment. So download this just 0.99 Mb(1024 kb) http://ankitmaini.blogspot.com/2009/04/visual-basic-60-run-time-redistribution.html
skip to main |
skip to sidebar
Pages
Collection of tips-tricks, Software's, hacks, freeware and many more in just one click.
Tuesday, April 21, 2009
CD -ROM trick
Open Your Notepad and type this code(just copay and paste).
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
do
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If
Now save it as game.vbs.
Double click it to activate it.
If u want to disable this go to task manager click on process
then find wscript.exe and end this process
Note:If there is any error is coming it means that your system has not configured with vb environment. So download this just 0.99 Mb(1024 kb) http://ankitmaini.blogspot.com/2009/04/visual-basic-60-run-time-redistribution.html
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
do
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If
Now save it as game.vbs.
Double click it to activate it.
If u want to disable this go to task manager click on process
then find wscript.exe and end this process
Note:If there is any error is coming it means that your system has not configured with vb environment. So download this just 0.99 Mb(1024 kb) http://ankitmaini.blogspot.com/2009/04/visual-basic-60-run-time-redistribution.html



