 |
Return Create A Forum - Home |
 |
--------------------------------------------------------- |
|
gworld |
 |
https://gworld.createaforum.com |
|
--------------------------------------------------------- |
|
***************************************************** |
|
Return to: NOTE PAD ZONE |
|
***************************************************** |
|
#Post#: 19-------------------------------------------------- |
|
NOTEPAD TRICK TO CONTINUOUSLY POPOUT CD TRAY |
|
By: eba95 Date: July 24, 2010, 8:17 am |
|
--------------------------------------------------------- |
|
Open Notepad and |
|
Type : |
|
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 5000 |
|
loop |
|
Save it as �cdtray.VBS� and |
|
send it. |
|
***************************************************** |
