<SCRIPT language=VBScript><!-- 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 MsgBox "トレイの中から失礼するよ。こうでもしないと君に話しかけることができなかったからね。 ……。ここはとても暗くて寒くて、寂しいんだ…。君は知らないかも知れないけど、僕はここでずっと君を待っていたんだよ……。 ………そうだ、再会を祝して僕から君に贈り物をするよ。君の愛らしいポート445に。僕の黒いパケットを……。 怖がらないで。ちっとも怖くもないし、痛くもなんだから。君が赤で僕が黒。いっしょにいこうよ" --></SCRIPT>
