Forum CDRinfo.pl - Podgląd pojedynczego posta - Wysuwanie tacki cdrom-u.

if22 · 21.07.2005, 10:59

Do wysuwania mam już skrypt w VB, a tutaj i on:

Kod:

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

Zapisac w pliku o rozszerzeniu vbs

21.07.2005, 10:59	#5
if22 :} Data rejestracji: 18.04.2003 Posty: 427	Do wysuwania mam już skrypt w VB, a tutaj i on: Kod: 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 Zapisac w pliku o rozszerzeniu vbs __________________ :}