Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать


Nun-Nun, проблема с методом «.Eject» объекта «WMPlayer.OCX.7» старая и без выворотов не решаемая.

Я бы предложил пользовать стороннюю утилиту, либо стороннюю библиотеку: vbscript: скрипты для открытия-закрытия лотка CD-ROM.

Можете ещё попробовать поиграться с IMAPI:
Код: Выделить весь код
Option Explicit

Dim objMsftDiscMaster
Dim objDiscRecorder
Dim uniqueId

Set objMsftDiscMaster = WScript.CreateObject("IMAPI2.MsftDiscMaster2")
Set objDiscRecorder   = WScript.CreateObject("IMAPI2.MsftDiscRecorder2")

uniqueId = objMsftDiscMaster.Item(0)

objDiscRecorder.InitializeDiscRecorder uniqueId
objDiscRecorder.EjectMedia

MsgBox "***"

objDiscRecorder.CloseTray

Set objDiscRecorder   = Nothing
Set objMsftDiscMaster = Nothing

WScript.Quit 0
Но сие работает не со всеми типами подключений устройств.

Отправлено: 03:57, 28-10-2011 | #2