Как правильно записать функцию _SoundGetMasterVolume() (прикрепил видео)?

agikon · 7 Окт 2011

Зашел в тупик.
вот хочу написать порграммку которая бы измеряла уровень звука в процентах.
чтобы при нажатии на кнопку появлялся окошко с числовым представлением сколько громкость в процентах на данном компьютере.

подскажите пожалуйста что не так делаю?

Код:

#include <GUIConstantsEx.au3>
#Include <WinAPIEx.au3>
#include <GUICtrlCreateTFLabel.au3>
#include <_Audio.au3>     ;  

Opt("TrayMenuMode",0) ;3

$GUI  = GUICreate('Звукоизмеритель', 260, 100)
$nButton = GUICtrlCreateButton('Узнать уровень звука в %', 30, 40, 160, 30)
GUISetState(@SW_SHOWNORMAL, $GUI)


While 1

		$nMsg = GUIGetMsg()
		Switch $nMsg
			Case $GUI_EVENT_CLOSE
				Exit
			Case $nButton
				_chek_vol()
		EndSwitch
WEnd


Func _chek_vol()
	$Level = _SoundGetMasterVolume()
	MsgBox(64,'Info','Уровень громкости '&$Level&'  !!!' ) ;
EndFunc

вот инклуд аудио http://zalil.ru/31823591

Arei · 7 Окт 2011

Re: Как правильно записать функцию _SoundGetMasterVolume() ?

подскажите пожалуйста что не так делаю?
По меньшей мере,надо прикрепить библиотеки.

Yashied · 7 Окт 2011

Re: Как правильно записать функцию _SoundGetMasterVolume() ?

В аттаче нормальная библиотека, используйте ее.

agikon · 7 Окт 2011

Re: Как правильно записать функцию _SoundGetMasterVolume() ?

да почему-то вообще не реагирует на _SoundGetMasterVolume()

вот даже так не реагирует, сразу скрипт закрывается, но окошко не появляется.

Код:

Func _chek_vol()
if _SoundGetMasterVolume() > 50 then
	MsgBox(64,'Info', 'громкость больше 50') ;
Else
        MsgBox(64,'Info', 'громкость меньше 50') ;
endif
EndFunc

WSWR · 7 Окт 2011

Re: Как правильно записать функцию _SoundGetMasterVolume() ?

agikon
Какая у тебя система, ХР или Вин 7?
Добавлено:
Сообщение автоматически объединено: 7 Окт 2011

По совету AZJIO нашел здесь http://www.autoitscript.com/forum/topic/84834-control-vista-master-volume/ vista_vol.dll от wraithdu
Позволяет получить громкость в Вин 7, и многое другое

agikon

Вот так попробуй(vista_vol.dll должна быть в папке со скриптом):

Код:

#include <GUIConstantsEx.au3>

Opt("TrayMenuMode",0) ;3
$GUI  = GUICreate('Звукоизмеритель', 260, 100)
$nButton = GUICtrlCreateButton('Узнать уровень звука в %', 30, 40, 160, 30)
GUISetState(@SW_SHOWNORMAL, $GUI)

While 1

        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $nButton
                _chek_vol()
        EndSwitch
WEnd

Func _chek_vol()
$hDLL = PluginOpen("vista_vol.dll")
$Level = _GetMasterVolumeScalar_Vista()
PluginClose($hDLL)   
MsgBox(64,'Info','Уровень громкости '&Round($Level)&'  !!!' ) ;
EndFunc

agikon · 7 Окт 2011

Re: Как правильно записать функцию _SoundGetMasterVolume() ?

на первом компе XP, на втором 7.
все вот эти скрипты компилирую и запускаю в xp.
в 7-ке не проверял ещё.

WSWR
спасибо за 7-к но мне бы сначала понять как в xp это сделать.

WSWR · 7 Окт 2011

Re: Как правильно записать функцию _SoundGetMasterVolume() ?

agikon

на первом компе XP, на втором 7.
все вот эти скрипты компилирую и запускаю в xp.
в 7-ке не проверял ещё.

Ну, вот и проверишь :smile:

agikon · 7 Окт 2011

Re: Как правильно записать функцию _SoundGetMasterVolume() ?

WSWR
но мне бы надо для XP, для 7 мне не надо, во всяком случае пока не надо, мне главней xp :scratch:

а у вас работает функция SoundGetMasterVolume() на XP ?
может я инклуд не тот использую?
я использую _Audio.au3. я его он выложил выше.

WSWR · 7 Окт 2011

Re: Как правильно записать функцию _SoundGetMasterVolume() ?

agikon
Audio.au3 - не работает, бери SoundGetSetQuery.au3, выше Yashied
ее выложил

Такой вариант должен работать на обеих системах:

Код:

#include <GUIConstantsEx.au3>
#include <SoundGetSetQuery.au3>

Opt("TrayMenuMode",0) ;3
$GUI  = GUICreate('Звукоизмеритель', 260, 100)
$nButton = GUICtrlCreateButton('Узнать уровень звука в %', 30, 40, 160, 30)
GUISetState(@SW_SHOWNORMAL, $GUI)

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $nButton
                _chek_vol()
        EndSwitch
WEnd

Func _chek_vol()
Select
Case @OSVersion == "WIN_7"
$hDLL = PluginOpen("vista_vol.dll")
$Level = _GetMasterVolumeScalar_Vista()
PluginClose($hDLL) 
Case @OSVersion == "WIN_XP" 
$Level =_SoundGetMasterVolume()
EndSelect
MsgBox(64,'Info','Уровень громкости '&Round($Level)&'  !!!' ) ;
EndFunc

agikon · 7 Окт 2011

Re: Как правильно записать функцию _SoundGetMasterVolume() ?

WSWR
Yashied выложил SoundQuery.au3 (она у меня не работает, ошибки при компиляции), а вы говорите про SoundGetSetQuery.au3.
вот вы используете именно SoundGetSetQuery.au3, скиньте пожалуйста её.

WSWR · 7 Окт 2011

Re: Как правильно записать функцию _SoundGetMasterVolume() ?

agikon
http://www.autoitscript.com/forum/topic/54048-audioau3/page__hl__soundgetsetquery__fromsearch__1

agikon · 7 Окт 2011

Re: Как правильно записать функцию _SoundGetMasterVolume() ?

WSWR
вот такуую ошибку выдаёт при компиляции вашего кода

Код:

C:\Program Files\AutoIt3\Include\SoundGetSetQuery.au3(1219,130) : WARNING: $LVS_REPORT: possibly used before declaration.
	Local $hListView = GUICtrlCreateListView("MixerID|ComponentType|CompInst|ControlType|Value", 10, 10, 380, 530, BitOR($LVS_REPORT,
	~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Program Files\AutoIt3\Include\SoundGetSetQuery.au3(1219,149) : WARNING: $LVS_NOSORTHEADER: possibly used before declaration.
	Local $hListView = GUICtrlCreateListView("MixerID|ComponentType|CompInst|ControlType|Value", 10, 10, 380, 530, BitOR($LVS_REPORT, $LVS_NOSORTHEADER)
	~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Program Files\AutoIt3\Include\SoundGetSetQuery.au3(1219,130) : ERROR: $LVS_REPORT: undeclared global variable.
	Local $hListView = GUICtrlCreateListView("MixerID|ComponentType|CompInst|ControlType|Value", 10, 10, 380, 530, BitOR($LVS_REPORT,
	~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\Admin\Рабочий стол\звук\звук.au3(23,39) : ERROR: _GetMasterVolumeScalar_Vista(): undefined function.
$Level = _GetMasterVolumeScalar_Vista()
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\Admin\Рабочий стол\звук\звук.au3 - 2 error(s), 2 warning(s)

инклудом лежит в папку инклудов SoundGetSetQuery.au3
vista_vol.dll лежит п папке с скриптом.
компилирую в XP

AZJIO · 7 Окт 2011

Re: Как правильно записать функцию _SoundGetMasterVolume() ?

agikon
Для начала проверь, работает ли утилитка VolCon.
И попробуй ещё так

Код:

#include <SoundGetSetQuery.au3>
MsgBox(0, 'Message', _SoundGetMasterVolume())

Кстати, я же говроил о SoundGetSetQuery.au3, а не про Audio.au3

agikon · 7 Окт 2011

Re: Как правильно записать функцию _SoundGetMasterVolume() ?

вот видео http://zalil.ru/31827872

что можете посоветовать?

Dm666 · 7 Окт 2011

agikon [?]

что можете посоветовать?

Пример от WSWR (#8) вполне себе рабочий, во всяком случае на ХР. Да, ругается при компиляции, но ведь работает же! :ok:

agikon · 7 Окт 2011

ну вы видите что на видео две ошибки выдаёт.
так как быть?

я не пойму как вы говорите что ругается но работает. как онможет работать если он даже не компилирует?
где экзешник взять?
обьясните пожалуйста.

WSWR · 7 Окт 2011

У меня компилирует нормально :whistle:

agikon · 7 Окт 2011

WSWR
скиньте пожалуйста ваш #include <SoundGetSetQuery.au3>
возможно у меня он старый.

WSWR · 7 Окт 2011

Вот

agikon · 7 Окт 2011

мда
получилось!
а знаете как?
при компиляции нажал на кнрпку "continue anyway", и оно скомпилировало, и экзешник запускается и нормально робит.
от такие чудеса случаются.

Автор темы	Похожие темы	Форум	Ответы	Дата
I	Цикл работает не правильно	Общие вопросы по AutoIt	2	3 Дек 2022
A	Как правильно перезаписать значение с увеличением на единицу	Общие вопросы по AutoIt	3	22 Янв 2017
O	Как правильно записать параметр в ini - файл	Общие вопросы по AutoIt	4	28 Июн 2011
V	[Автоматизация] Как правильно прочесть из Ini путь и записать по нему лог?	Общие вопросы по AutoIt	6	18 Май 2010
D	Как правильно записать нажатие клавиш	Общие вопросы по AutoIt	34	14 Апр 2010

Как правильно записать функцию _SoundGetMasterVolume() (прикрепил видео)?

Знающий

Скриптер

Модератор

Знающий

AutoIT Гуру

Знающий

AutoIT Гуру

Знающий

AutoIT Гуру

Знающий

AutoIT Гуру

Знающий

Меценат

Знающий

Осваивающий

Знающий

AutoIT Гуру

Знающий

AutoIT Гуру

Знающий