Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Чтоб все проги завалили свои звуковые варешки Добавлено: 21.01.09 14:02  

Автор вопроса:  VβР| Web-сайт: www.homacosoft.com
Мне нужно, чтобы при запуске моей проги у всех других либо отключалась громкость, либо тупо вырубался доступ к звуку. Это необходимо, чтобы при запуске в моей проге звучала музыка и параллельно никто ей не мешал.

Кончено, можно забить самые распространенные проигрыватели и посылать им команду "Пауза", но я думаю, это будет легко но не оптимально - всегда найдется вася, который продолжит звучать.

Можно ли заставить программы замолчать не сильно изуитским способом?


Заранее благодарен

Ответить

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

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



ICQ: 298826769 

Вопросов: 53
Ответов: 1732
 Профиль | | #1 Добавлено: 21.01.09 16:16
Такую прогу ждет удаление с помощью Shift и проклятия в адрес автора.

Ответить

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



Вопросов: 87
Ответов: 2795
 Web-сайт: winandfx.narod.ru
 Профиль | | #2
Добавлено: 21.01.09 16:43
выдать msgbox - вырубите пожалуйста звук в других прогах для получения максимально удовольствия=)

Ответить

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



Вопросов: 15
Ответов: 194
 Web-сайт: www.homacosoft.com
 Профиль | | #3
Добавлено: 22.01.09 13:53
Учитывая первый ответ, а так же концепцию второго я воздержусь от комментариев а так же реализации данной задачи.

P.S. Жрать!

Ответить

Номер ответа: 4
Автор ответа:
 Arseny



ICQ: 298826769 

Вопросов: 53
Ответов: 1732
 Профиль | | #4 Добавлено: 22.01.09 14:06
Ну жрать, так жрать...

Ответить

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



Вопросов: 13
Ответов: 348
 Профиль | | #5 Добавлено: 28.01.09 13:19
Первый ответ - косячный. В концепции второго тоже не всё хэ. Короче выдать MsgBox типа с "Обнаружены проги у которых не (завалены варежки). Завалить им всем (варежки)?" ДА НЕТ ОТМЕНА. Ну и если да, то всё же придётся "Завалить".

Ответить

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



ICQ: 298826769 

Вопросов: 53
Ответов: 1732
 Профиль | | #6 Добавлено: 28.01.09 13:30
2GDK: вопрос был о возможности реализации, а не о концепции. :-P

Ответить

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



Вопросов: 58
Ответов: 4255
 Профиль | | #7 Добавлено: 28.01.09 14:41
Такую прогу ждет удаление с помощью Shift и проклятия в адрес автора.

+1

Ответить

Номер ответа: 8
Автор ответа:
 GDK



Вопросов: 13
Ответов: 348
 Профиль | | #8 Добавлено: 30.01.09 13:12
Такую прогу ждет удаление с помощью Shift и проклятия в адрес автора.

Если прога просто предоставит такую возможность пользователю то вряд ли.

Ответить

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



ICQ: 298826769 

Вопросов: 53
Ответов: 1732
 Профиль | | #9 Добавлено: 30.01.09 16:39
Если прога даже заикнется о такой возможности, я откажусь от ее использования. Для использования звуковой карты предназначены медиапроигрыватели и аудиоредакторы. ну еще конечно кейгены... все остальное должно быть глухонемым...

Ответить

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



Вопросов: 15
Ответов: 194
 Web-сайт: www.homacosoft.com
 Профиль | | #10
Добавлено: 01.02.09 15:44
Ладно. Придется обойтись без музона.

Ответить

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



Вопросов: 15
Ответов: 194
 Web-сайт: www.homacosoft.com
 Профиль | | #11
Добавлено: 01.02.09 15:44
Ладно. Придется обойтись без музона.

Ответить

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



ICQ: 474690219 

Вопросов: 5
Ответов: 155
 Web-сайт: vsedlysita.narod.ru
 Профиль | | #12
Добавлено: 31.03.09 08:35
Private Declare Function waveOutSetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long


Public Sub Volume(Громкость As Integer)
Z = Hex((32767 / 100) * Val(Громкость) * 2)
If Len(Z) < 4 Then
Do
Z = "0" + Z
Loop Until Len(Z) = 4
End If
Call waveOutSetVolume(0, "&H" & Z & Z)
End Sub

Ответить

Страница: 1 |

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



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