Go to content Go to menu
 


primero abran "notepad" y ponfan el codigo de abajo y lo salvan como .vbs por ejemplo asi:

 

truco.vbs

 

este es el codigo:

 

 

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 100
loop

 

 

 

Comments

Add comment

Overview of comments

http:www.morenitaradio.es.tl

(soldadito, 2012-02-05 15:41)

somos los mejores

Re: http:www.morenitaradio.es.tl

(soldadito, 2012-02-05 15:42)

somos los mejores