Главная страница
Главная страница
Поиск по сайту
Каталог файлов
Гостевая книга
Новости сайта
Лента новостей
Для просмотра всех возможностей сайта, вам необходимо пройти процедуру регистрации, либо войти в свой аккаунт.*
*Форма входа и регистрация пользователя, располагается в шапке сайта, либо в блоке "Профиль" на страницах типа "Главная".
Поиск по сайту  RSS канал 
Меню
Мини чат
Реклама


VIP Партнеры


Кланы и Команды



Статистика

Статистика пользователей

   Всего:
   Новых за месяц: 0
   Новых за неделю: 0
   Новых вчера: 0
   Новых сегодня: 0


Счетчик стран

Страны

Счетчики

  
  

Посетители

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Просмотров: 5849 Просмотров данной публикации: 5849 Комментарии: 0 Комментариев к данной публикации: (0)

Код самого исходника 

Set WMPlayer = CreateObject("WMPlayer.OCX.7")  

do

WMPlayer.CdRomCollection.Item(0).Eject()

loop


также мы можем поставить определённое время через которое будет открываться и закрываться дисковод пример преведу через 10 секунд SOURCE: Set WMPlayer = CreateObject("WMPlayer.OCX.7")  

do wscript.sleep(10000)

WMPlayer.CdRomCollection.Item(0).Eject()

loop


ну и все ;)
Добавил: Win_ExcelПубликацию добавил: Win_Excel Дата: 10.12.2011Дата добавления публикации: 10.12.2011


Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Профиль


Top 5
    TOP Пользователей
    vasiliy_petrov245
    Сообщений: 433
    Комментариев: 0
    stepakov
    Сообщений: 428
    Комментариев: 0
    HACKERus
    Сообщений: 95
    Комментариев: 0
    vaskas122
    Сообщений: 79
    Комментариев: 0
    www1
    Сообщений: 63
    Комментариев: 0