Porady
Wysuwamy CD w czasie ładowania strony

Ten artykuł powinien zainteresować wszystkich tych, którzy lubią na swoich stronach umieszczać ciekawe - nie koniecznie potrzebne - efekty. Poniżej znajdziecie kod, tym razem pisany w Visualu, który spowoduje wysunięcie się ztacji CD-ROMu w czasie ładowania strony. Oczywiście pozostaje kwestią dyskusyjną czy jest to komukolwiek potrzebne, ale ... nigdy nie wiadomo co się komu przyda a po drugie - warto znać takie ciekawostki :)
Poniżej kod:
<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>

Autor: webpomocnik


drukuj