Форум   Статьи   Новости   Файлы   Bugtraq   Сниффер   Друзья   О Клубе
  , 13:28   #1
Новичок
 
Регистрация: 23.08.2012
Сообщений: 2

Репутация: 1 / 0
Question Как получить громкость звука Мастер канала(master volume) в Windows 7?

Громкость нужно получить любым способом, с помощью BASS.dll - отображается некорректно...

OS Bass
0 0
5 1,65
10 3,34
15 5,52
20 8,15
25 11,21
30 14,67
35 18,54
40 22,78
45 27,38
50 32,36
55 37,67
60 43,3
65 49,32
70 55,65
75 62,3
80 69,26
85 76,56
90 84,14
95 92,04
100 100

IMAGE http://i082.radikal.ru/1208/6a/b43cef54dac4.jpg


Что делать?
 
Пользователь вне форума    
Наши Спонсоры
  , 12:36   #2
Новичок
 
Регистрация: 23.08.2012
Сообщений: 2

Репутация: 1 / 0
По умолчанию

Решилось все просто.
1) Скачиваем исходник http://www.codeproject.com/Articles/...Volume-Control
2) Для студии 2008 комментируем (можно удалить) все
code:
using System.Linq;
3) Компилируем библиотеку.
4) Подкл. к проэкту ("Добавить ссылку...") выбираем наш DLL
5) Ставим на форму прогрессбар
code:
Imports CoreAudioApi

Public Class Form1
    Private device As MMDevice

    Private Sub FormMasterVolume_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim DevEnum As New MMDeviceEnumerator()
        device = DevEnum.GetDefaultAudioEndpoint(EDataFlow.eRender, ERole.eMultimedia)
        AddHandler device.AudioEndpointVolume.OnVolumeNotification, AddressOf OnVolumeNotification
        ProgressBar1.Value = CInt(device.AudioEndpointVolume.MasterVolumeLevelScalar * 100)
    End Sub

    Private Sub OnVolumeNotification(ByVal data As CoreAudioApi.AudioVolumeNotificationData)
        If Me.InvokeRequired Then
            Me.Invoke(New AudioEndpointVolumeNotificationDelegate(AddressOf OnVolumeNotification), data)
        Else
            ProgressBar1.Value = CInt(data.MasterVolume * 100)
        End If
    End Sub

    'Private Sub tbMaster_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Scroll
    '    device.AudioEndpointVolume.MasterVolumeLevelScalar = tbMaster.Value / 100.0F
    'End Sub

End Class
 
Пользователь вне форума    
 

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Установка OS Windows XP SP3 LEX-PEX tickhack Windows 3 22.09.2013 22:28
SQL injection полный FAQ deihack Сайты, Форумы, CMS 0 21.01.2012 12:16
Взлом забытого пароля Windows XP tiBEG Операционные Системы 0 27.12.2010 15:11
ваш личный чат на PHP Devel Studio или как это работает max95 Оффтоп 8 05.11.2010 19:09



Часовой пояс GMT +2
Powered by vBulletin® 3.x.x Copyright ©2000 - 2012, Jelsoft Enterprises Ltd.

Copyright © 2008 - 2013 «HPC» Реклама на сайте Правила Форума Пользовательское соглашение Работа на сайте
При копировании материалов ставьте ссылку на источник
Все материалы представлены только в ознакомительных целях, администрация за их использование ответственности не несет.