Создание вируса (Выпуск 5) - Два простеньких трюка
ТЕПЕРЬ У МЕНЯ ЕСТЬ САЙТ - http://nfh.3dn.ru/ - ЗАХОДИТЕ !!!!! 2 Трюка в 1 выпуске ))) Код для вставки в Блокноте (Трюк с дисководом) : 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 ВНИМАНИЕ !!! "..." - тут мы пишем знак "больше"(галочка вправо) - просто такой знак на Youtube писать нельзя !!!
ТЕПЕРЬ У МЕНЯ ЕСТЬ САЙТ - http://nfh.3dn.ru/ - ЗАХОДИТЕ !!!!! 2 Трюка в 1 выпуске ))) Код для вставки в Блокноте (Трюк с дисководом) : 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 ВНИМАНИЕ !!! "..." - тут мы пишем знак "больше"(галочка вправо) - просто такой знак на Youtube писать нельзя !!!