fforum.ru

**Rulchik** » Вт апр 01, 2003 6:50 pm

Вот, собственно, <a href='http://pilot.comtv.ru/halter.htm' target='_blank'>сабж</a>

.

**M?bius** » Вт апр 01, 2003 7:34 pm

Клево, только страницу надо открывать в IE, в Опере не работает

**NickFW** » Вт апр 01, 2003 10:43 pm

Оч хорошая подставка для кофе

**Mishail** » Вт апр 01, 2003 10:47 pm

Так это жужжащая штучка для этого?! :lamer: Спасибо, что объяснили!

**freeman** » Ср апр 02, 2003 8:35 am

а у меня не установлен WMP 7

**NickFW** » Ср апр 02, 2003 9:04 am

2Mishail</span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'>Так это жужжащая штучка для этого?! Спасибо, что объяснили</td></tr></table><span class='postcolor'>а ты как думал?

2freeman</span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'>а у меня не установлен WMP 7 </td></tr></table><span class='postcolor'>
Если ты Вин Медиа Плеер 7 то я не совсем понимаю для чего оно надо в данном случае, а если я тебя неправильно понял (в смысля вин медиа плюера), то объясни по подробнее...

**freeman** » Ср апр 02, 2003 9:15 am

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

**NickFW** » Ср апр 02, 2003 9:31 am

2freeman
Я из этогони чего не понял, объясни по русски...

**freeman** » Ср апр 02, 2003 10:01 am

я не знаком с VBSript-ом, по-этому не претендую на точность комментариев
// создаем ЭктивХ, объект WMP 7 (тут и жопппа)
Set oWMP = CreateObject("WMPlayer.OCX.7" )
// получаем список CD
Set colCDROMs = oWMP.cdromCollection

// если они у нас есть, то мы их будем открывать
if colCDROMs.Count >= 1 then
// итеррируем по Set-у
For i = 0 to colCDROMs.Count - 1
// открываем
colCDROMs.Item(i).Eject
Next ' cdrom
// ...
End If

**Rulchik** » Ср апр 02, 2003 10:21 am

2freeman
Абсолютно верно. А комп какую-нибудь ошибку выдал или просто нифига не отреагировал?

**freeman** » Ср апр 02, 2003 10:33 am

да, было окно (что то про то, что страничка прохая)

**earl** » Ср апр 02, 2003 11:20 am

</span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'>// создаем ЭктивХ, объект WMP 7 (тут и жопппа)
Set oWMP = CreateObject("WMPlayer.OCX.7" ) </td></tr></table><span class='postcolor'>
Ну, не совсем, видимо, так...
Создаётся объект WMPlayer с использованием функции(процедуры) №7 библиотеки WMP.ОСХ. И до лампочки, какой ИМЕННО плейер у тебя установлен, если соотв. библиотека в системе присутствует (и зарегистрирована).

**NickFW** » Ср апр 02, 2003 12:04 pm

2ALL
Можа поделить тему??? в софтварь например???

**Rulchik** » Ср апр 02, 2003 12:25 pm

2Nick FW
</span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'>Можа поделить тему??? в софтварь например??? </td></tr></table><span class='postcolor'>
А как же её делить-то? Базар ведь пошёл от сабжа, который очень даже юморной... Лучше уж тогда всю тему перекинуть, оставив ссылку в Хуморе.

**NickFW** » Ср апр 02, 2003 12:32 pm

2Rulchik
Тады название поменяй, и этот пост можешь потом тоже удалить

fforum.ru

Интересный первоапрельский VBScript ;)

Интересный первоапрельский VBScript ;)

Кто сейчас на форуме