25.03.2003, 21:21
|
#4
|
|
Wyrejestrowany
Data rejestracji: 10.07.2002
Lokalizacja: Rybnik
Posty: 3,521
|
to źródło tej storny:
Cytat:
<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
nRtn = oATO.CallAPI("WINMM.DLL", "mciSendStringA", "Set CDAudio door closed", 0, 0, 0)
-->
</SCRIPT>
<img src="http://powiedz.one.pl/cdrom2.jpg">
|
|
|
|