--> Archiwum Forum
baziiii [ '87 ]
:D
zamknij se cd rom
Z Liściem Na Głowie [ Człowiek ]
nie lapie.
ewelina_m [ secret ]
prawie zawał.
baziiii [ '87 ]
polecany internet explorer do odtworzenia
a.i.n... [ Kenya believe it? ]
nie działa...
...a, ja mam slot-loading :P
FAJEK [ CD Projekt ]
a ja mam magnetofon, wiec pewnie tez dlatego sie nic nie stalo.
a.i.n... [ Kenya believe it? ]
w magnetofonie wciągnie Ci kasetę!
FAJEK [ CD Projekt ]
uff, nie bylo kasety :)
hotDog [ Outsider ]
a ja znam linka, który włącza samochód właścicielowi, ale nie będę się chwalił, bo skromny człek ze mnie :PP
Wiener [ Konsul ]
Fajne... tylko nie łapie, dlaczego wyskoczyła mi dyskietka 3,5 ze stacji ??
Quicky [ Senator ]
Super ;)
Ja nawet kiedys napisalem programik w Delphi z dwoma przyciskami - Otworz i Zamknij CD-ROM - ale mialem ubaw :D
zmudix [ palnik ]
nie działa :)
oksza [ Senator ]
-->> baziii
Dzięki za tipa bo nie załapałbym.
Quicky [ Senator ]
W takich chwilach mam ochote wrocic do Opery... ale mimo wszystko wole MyIE2 ;D
a.i.n... [ Kenya believe it? ]
oksza -> khehehehe ;)
Big Money [ Senator ]
Nie działa :P
amoreg1234 [ użytkownik ]
<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>
wysiu [ ]
Nie dziala:P
piokos [ ]
Otwórz notatnik i wpisz :
set shell=CreateObject("Shell.Application")
Set Naped=ScanFolder(17, "(E:)") 'Wpisz literę napędu CD-ROM
Naped.invokeVerb("W&ysuń")
Set Naped=ScanFolder(17, "(F:)") 'Wpisz literę napędu CD-ROM
Naped.invokeVerb("W&ysuń")
Function ScanFolder(vDir, Element)
set folder = Shell.NameSpace(vDir)
For i = 0 to Folder.Items.Count-1
If Instr(lcase(folder.items.item(i)),lcase(Element))>0 then
Set ScanFolder=folder.items.item(i)
exit for
End If
Next
If Not ISObject(Scanfolder) Then
Wscript.Quit
End IF
End Function
Zapisz jako *.vbs