Skocz do zawartości
kuki83

fajny efekt

Rekomendowane odpowiedzi

i Doopa 8O

 

<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

--> </SCRIPT>

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach

i Doopa  8O 

 

<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

            --> </SCRIPT>

a to niby czemu??? :lol: :?:

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach

Dołącz do dyskusji

Możesz dodać zawartość już teraz a zarejestrować się później. Jeśli posiadasz już konto, zaloguj się aby dodać zawartość za jego pomocą.

Gość
Dodaj odpowiedź do tematu...

×   Wklejono zawartość z formatowaniem.   Przywróć formatowanie

  Dozwolonych jest tylko 75 emoji.

×   Odnośnik został automatycznie osadzony.   Przywróć wyświetlanie jako odnośnik

×   Przywrócono poprzednią zawartość.   Wyczyść edytor

×   Nie możesz bezpośrednio wkleić grafiki. Dodaj lub załącz grafiki z adresu URL.

Ładowanie


×
×
  • Dodaj nową pozycję...