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

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: тупой вопрос Добавлено: 06.01.09 15:56  

Автор вопроса:  Crio | ICQ: 462217470 
Наверняка уже спрашивали, но чет найти немогу: Как Сдром окрыть/закрыть програмно.

Ответить

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

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



ICQ: 462217470 

Вопросов: 9
Ответов: 38
  Профиль | | #1 Добавлено: 06.01.09 16:01
Всё разобрался. Ссори что поторопился тут писать...

Ответить

Номер ответа: 2
Автор ответа:
 Фeнягz



Вопросов: 2
Ответов: 62
  Web-сайт: atauenis.narod.ru
 Профиль | | #2 		Добавлено: 07.01.09 01:48
А узнать когда открывается-закрывается можно перехватом системных сообщений в WndProc.

Ответить

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



Вопросов: 0
Ответов: 159
  Профиль | | #3 Добавлено: 07.01.09 02:29
WM_DEVICECHANGE что-ли?
Но оно отслеживает в данном случае не дверцу CDROM и при отсутствии диска посылаться не будет.

Ответить

Номер ответа: 4
Автор ответа:
 Фeнягz



Вопросов: 2
Ответов: 62
  Web-сайт: atauenis.narod.ru
 Профиль | | #4 		Добавлено: 07.01.09 03:11
  1. ' КОД ПРОГРАММЫ "FUCK OFF" ПРИВОДИТСЯ ИСКЛЮЧИТЕЛЬНО В ОБРАЗОВАТЕЛЬНЫХ ЦЕЛЯХ!
  2. ' ЛЮБОЕ КОММЕРЧЕСКОЕ ИСПОЛЬЗОВАНИЕ ПРОГРАММЫ ЛИБО ЕЕ ЧАСТИ БЕЗ ПИСЬМЕННОГО
  3. ' РАЗРЕШЕНИЯ АВТОРА ОЧЕНЬ СТРОГО НАКАЗЫВАЕТСЯ ПО ЗАКОНУ.
  4.  
  5. ' ==============================================================================
  6. ' Будет работать и в VS 2002-3 (код собственно и написан в vb2003)
  7. Private Declare Auto Function mciSendString Lib "winmm.dll" _
  8. (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
  9. ByVal uReturnLength As Integer, ByVal hwndCallback As IntPtr) As Integer
  10. ' --------------------------------------------------------------------------
  11. ' Call mciSendString("Set cdaudio door open wait", vbNullString, 0, Me.Handle)
  12. ' Call mciSendString("Set cdaudio door closed wait", vbNullString, 0, Me.Handle)
  13. ' ==============================================================================
  14.  
  15. ' реагирует на подключение и отключение прочих устройств (флешка например)
  16. Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
  17.    On Error Resume Next ' Option Fuck Off
  18.    Select Case m.Msg
  19.       Case 537
  20.          If m.WParam.ToInt32 = 32768 Then ' вставка cd (либо подключение устройства)
  21.             Dim v As Object = CreateObject("SAPI.SpVoice")
  22.             Call v.Speak("FUCK OFF")
  23.             Call mciSendString("Set cdaudio door open wait", vbNullString, 0, Me.Handle)
  24.             v = Nothing
  25.          ElseIf m.WParam.ToInt32 = 32772 Then ' извлечение cd (либо отключение устройства)
  26.             Dim v As Object = CreateObject("SAPI.SpVoice")
  27.             Call v.Speak("SUKA BLA. VON NAHUY BLA YOBANAVRO")
  28.             v = Nothing
  29.          End If
  30.    End Select
  31.    Call MyBase.WndProc(m)
  32. End Sub

Ответить

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



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #5 Добавлено: 07.01.09 17:20
Какой эмоцеональный проект!

Ответить

Номер ответа: 6
Автор ответа:
 Фенягz



ICQ: 387437448 

Вопросов: 7
Ответов: 202
  Web-сайт: atauenis.narod.ru/
 Профиль | | #6 		Добавлено: 07.01.09 19:24
ЯЯЯ пишет:
КОД ПРОГРАММЫ "FUCK OFF"

Какой п*дар так ПО называет!
ЯЯЯ пишет:
            Call v.Speak("FUCK OFF";)


ЯЯЯ пишет:
            Call v.Speak("SUKA BLA. VON NAHUY BLA YOBANAVRO";)

:-D

Ответить

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



Вопросов: 0
Ответов: 159
  Профиль | | #7 Добавлено: 07.01.09 19:39
И ваще, 3 и 4 пост надо поменять местами.

Ответить

Номер ответа: 8
Автор ответа:
 Фeнягz



Вопросов: 2
Ответов: 62
  Web-сайт: atauenis.narod.ru
 Профиль | | #8 		Добавлено: 08.01.09 07:36
Фенягz пишет:
Какой п*дар так ПО называет!


???

Ответить

Номер ответа: 9
Автор ответа:
 FIX



ICQ: 348680795 

Вопросов: 39
Ответов: 62
  Профиль | | #9 Добавлено: 08.01.09 17:35
А вот задачка посложнее. У меня на компе 2 CD-ROM-а как открыть второй из них? Ну потом можно и закрыть :)

Ответить

Номер ответа: 10
Автор ответа:
 Фенягz



ICQ: 387437448 

Вопросов: 7
Ответов: 202
  Web-сайт: atauenis.narod.ru/
 Профиль | | #10 		Добавлено: 08.01.09 18:00
FIX пишет:
А вот задачка посложнее. У меня на компе 2 CD-ROM-а как открыть второй из них? Ну потом можно и закрыть

Просто!




Готовы?



Нажать кнопку открытия/закрытия лотка! :-D

Ответить

Номер ответа: 11
Автор ответа:
 Фeнягz



Вопросов: 2
Ответов: 62
  Web-сайт: atauenis.narod.ru
 Профиль | | #11 		Добавлено: 09.01.09 01:23
Разбить бы тебе ебло. Но посьменно немогу.

Ответить

Номер ответа: 12
Автор ответа:
 Фенягz



Вопросов: 0
Ответов: 3
  Web-сайт: atauenis.narod.ru/
 Профиль | | #12 		Добавлено: 09.01.09 19:58
ЯЯЯ пишет:
Разбить бы тебе ебло

Тока попробуй, пидор!

Ответить

Номер ответа: 13
Автор ответа:
 Фенягz



Вопросов: 0
Ответов: 3
  Web-сайт: atauenis.narod.ru/
 Профиль | | #13 		Добавлено: 09.01.09 20:00
ЯЯЯ, ты ёбнутый пидорас с ником "Прогр"? Похоже, что это ты, Прогр!

Ответить

Номер ответа: 14
Автор ответа:
 Фенягz



Вопросов: 0
Ответов: 3
  Web-сайт: atauenis.narod.ru/
 Профиль | | #14 		Добавлено: 09.01.09 20:06
ЯЯЯ, прикончить-бы тебя надо. Жаль, что это невозможно в письменном виде.

Ответить

Номер ответа: 15
Автор ответа:
 VβÐ



Вопросов: 15
Ответов: 194
  Web-сайт: www.homacosoft.com
 Профиль | | #15 		Добавлено: 11.01.09 18:31
Разбить бы тебе ебло. Но посьменно немогу.

Тока попробуй, пидор!

Ржунемогу, народ вы ваще правила форума хотябы краем глаза видели? Щас ведь придет админ и обоим черепа поломает и выбросит)))))))

Ответить

Страница: 1 |

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



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