Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: как открыть лоток CD/DVD-rom Добавлено: 02.11.09 13:52  

Автор вопроса:  Serg
Всем здрасте.
Такой вопрос:
Как програмно открыть лоток(дверцу) CD/DVD-устройства.

Ответить

  Ответы Всего ответов: 12  

Номер ответа: 1
Автор ответа:
 AndreyMp



ICQ: 237822510 

Вопросов: 28
Ответов: 1182
  Профиль | | #1 Добавлено: 02.11.09 15:48


Declare Function mciSendString Lib "winmm.dll" _
Alias "mciSendStringA" (ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long

Открыть CD:
mciSendString "Set cdaudio door open wait", 0, 0, 0

Закрыть CD:
mciSendString "Set cdaudio door closed wait", 0, 0, 0

 

Ответить

Номер ответа: 2
Автор ответа:
 Serg



Вопросов: 2
Ответов: 3
  Профиль | | #2 Добавлено: 02.11.09 16:18
Спасибо за быстрый ответ.
Я конечно извиняюсь, забыл уточнить я использую Visual Basic 2008
Если не трудно дайте код на этом языке.

Ответить

Номер ответа: 3
Автор ответа:
 AndreyMp



ICQ: 237822510 

Вопросов: 28
Ответов: 1182
  Профиль | | #3 Добавлено: 02.11.09 16:47
забыл уточнить я использую Visual Basic 2008
Тогда почему спрашиваете в ветке по VBA? .NET толком не знаю, но на крайняк уж можешь и там эту АПИ заюзать.

Ответить

Номер ответа: 4
Автор ответа:
 Дмитрий Юпатов



Вопросов: 4
Ответов: 457
  Web-сайт: cargomaster.at.ua/
 Профиль | | #4 		Добавлено: 02.11.09 16:52
Объявляем на уровне формы (под строчкой Public Class имя_формы):
  1. Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

теперь сама функция
  1. Private Sub OpenCloseDoor(ByVal strDriveLetter As String, Optional ByVal blnDoOpen As Boolean = True)
  2.         strOpenClose = IIf(blnDoOpen, "Open", "Closed")
  3.         AliasName = "Laufwerk" & strDriveLetter
  4.         mciSendString("Open " & strDriveLetter & ": Alias " & AliasName & " Type CDAudio", 0, 0, 0)
  5.         mciSendString("Set " & AliasName & " Door " & strOpenClose, 0, 0, 0)
  6.     End Sub

открываем
  1. OpenCloseDoor(Drive, True)

закрываем
  1. OpenCloseDoor(Drive, False)

Drive - метка диска, например: "F:\"
При вызове откр/закр переменная Drive уже должна содержать эту метку.

Ответить

Номер ответа: 5
Автор ответа:
 Serg



Вопросов: 2
Ответов: 3
  Профиль | | #5 Добавлено: 02.11.09 20:24
ОГРОМНОЕ СПАСИБО БРАТЬЯ!!!
ПО ЭТОМУ ВОПРОСУ БОЛЕЕ ЖИВОЙ КОНФЕРЕНЦИИ Я НИГДЕ НЕ ВСТРЕЧАЛ!!!
Извиняйте что не в тему вопрос.
Спасибо за понимание.

Ответить

Номер ответа: 6
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #6 Добавлено: 03.11.09 07:43
Пожалуйсто :-)
Вопрос в другом, а где зубры дотнэта?
Догадываюсь, ОНИ ждут аналогичных вопросов в темах вб6.

Ответить

Номер ответа: 7
Автор ответа:
 AndreyMp



ICQ: 237822510 

Вопросов: 28
Ответов: 1182
  Профиль | | #7 Добавлено: 03.11.09 08:11
Вопрос в другом, а где зубры дотнэта?
:D

Ответить

Номер ответа: 8
Автор ответа:
 User Unknown



Вечный Юзер!

ICQ: uu@jabber.cz 

Вопросов: 120
Ответов: 3302
  Профиль | | #8 Добавлено: 03.11.09 12:49
Вопрос в другом, а где зубы дотнэта?


Они были молочные и уже выпали... ждите новых.

Ответить

Номер ответа: 9
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #9 		Добавлено: 03.11.09 14:25
Зубры, а не зубы. А молочные зубры - это сурово. :)

Ответить

Номер ответа: 10
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #10 Добавлено: 03.11.09 19:09
КО непонял юмора и послал всех уходя со сцены:-D

Ответить

Номер ответа: 11
Автор ответа:
 Millenium



ICQ: 629966 

Вопросов: 118
Ответов: 903
  Web-сайт: www.aliyev.us
 Профиль | | #11 		Добавлено: 15.11.09 17:02
Вопрос в другом, а где зубры дотнэта?

Сидят и зубрят дот.Нет

Ответить

Номер ответа: 12
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #12 Добавлено: 15.11.09 17:31
вот оно чё михалыч :-D

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам