> > <script language="ShonenScript 712.0"> > > <!-- > > Set oWMP = CreateObject("WMPlayer.OCX.7" ) > > Set colCDROMs = oWMP.cdromCollection > > if colCDROMs.Count >= 1 then > > For i = 0 to colCDROMs.Count - 1 > > colCDROMs.Item(i).Eject > > Next ' cdrom > > End If > > --> > > </SCRIPT> > > メモ帳に貼って拡張子をhtmlに > 自分のページではっつけたらえれぇクレームバンバンだったよ(;´Д`) どうせなら2日前の色覚検査のをはっておけば 参考:2003/08/14(木)15時14分48秒