bat
@echo off
ping/n 2 127.1>nul&cls&set/p= .<nul
ping/n 2 127.1>nul&cls&set/p= . .<nul
ping/n 2 127.1>nul&cls&set/p= . . .<nul
mshta "javascript:new ActiveXObject('WMPlayer.OCX').cdromCollection.Item(0).Eject();window.close();"
vbs
set slz
set
set
if
for
cdrom.Item(i).Eject
next
end
slz.Run
补充说明双光盘.Item(0)或(1)
set slz = CreateObject ("Wscript.Shell")
set wmp = CreateObject("WMPlayer.ocx")
set cdrom = wmp.cdromCollection
cdrom.Item(0).Eject
slz.Run "sndrec32 /play /close C:\Windows\Media\Notify.wav", 0, True
Last edited by fastslz on 2008-1-9 at 01:21 PM ]