请问一下怎么监视声音谢谢-『提问交流』-AUTOIT CN

qwg192800 发表于 2013-1-25 15:06:28

请问一下怎么监视声音谢谢

我想知道怎么监视右下角的声音里面的比如波形它被关小了怎么知道它变小了

My2009 发表于 2013-1-25 15:08:09

这个有点难，坐个沙发来等高手！

lainline 发表于 2013-1-25 20:40:04

WIN7中控制的是本程序的音量vwaveoutgetvolume取不到音量大小。开始播放了，waveoutsetvolume可以成功控制本程序音量大小;Get Wav Sound Volume
; Author gafrost

#include <GUIConstants.au3>

MsgBox(0,"", _SoundGetWaveVolume())

Func _SoundGetWaveVolume()
Local $WaveVol = -1, $p, $ret
Const $MMSYSERR_NOERROR = 0
$p = DllStructCreate ("dword")
If @error Then
   SetError(2)
   Return -2
EndIf
$ret = DllCall("winmm.dll", "long", "waveOutGetVolume", "long", -1, "long", DllStructGetPtr ($p))
If ($ret == $MMSYSERR_NOERROR) Then
   $WaveVol = Round(Dec(StringRight(Hex(DllStructGetData ($p, 1), 8), 4)) / 0xFFFF * 100)
Else
   SetError(1)
EndIf
$Struct=0
Return $WaveVol
EndFunc;==>_SoundGetWaveVolume

lainline 发表于 2013-1-25 20:52:56

本帖最后由 lainline 于 2013-1-25 20:54 编辑

这个例子更明显
打开合成器
小键盘+加音量
-减音量HotKeySet("{NUMPADADD}", "Volume_Add")
HotKeySet("{NUMPADSUB}", "Volume_Sub")

func Volume_Prog_Bar()
$Volume_Bar = ""
for $i = 1 to 10 step 1
if Volume_Get() / 10 >= $i Then
$Volume_Bar &= "|"
Else
$Volume_Bar &= "-"
endif
next
$Volume_Display = Volume_Get() & "% " & $Volume_Bar
Return $Volume_Display
EndFunc

func Volume_Add()
if Volume_Get() < 100 then
SoundSetWaveVolume(Volume_Get() + 10)
ToolTip(Volume_Prog_Bar())
Sleep(1000)
ToolTip('')
EndIf
EndFunc

func Volume_Sub()
if Volume_Get() > 0 then
SoundSetWaveVolume(Volume_Get() - 10)
ToolTip(Volume_Prog_Bar())
Sleep(1000)
ToolTip('')
EndIf
EndFunc

Func Volume_Get()
Local $WaveVol = -1, $p, $ret
Const $MMSYSERR_NOERROR = 0
$p = DllStructCreate ("dword")
If @error Then
SetError(2)
Return -2
EndIf
$ret = DllCall("winmm.dll", "long", "waveOutGetVolume", "long", -1, "long", DllStructGetPtr ($p))
If ($ret == $MMSYSERR_NOERROR) Then
$WaveVol = Round(Dec(StringRight(Hex(DllStructGetData ($p, 1), 8), 4)) / 0xFFFF * 100)
Else
SetError(1)
EndIf
$Struct=0
Return $WaveVol
EndFunc

While 1
Sleep(100)
WEnd

zym3138 发表于 2013-1-25 20:54:52

我也想知道结果。{:face (332):}

lainline 发表于 2013-1-25 21:37:44

http://www.autoitscript.com/forum/topic/84834-control-vista-master-volume/page__hl__%20mixer

lainline 发表于 2013-1-26 10:02:10

简化了下代码做了个示例 esc退出Global Const $CLSID_MMDeviceEnumerator = "{BCDE0395-E52F-467C-8E3D-C4579291692E}"
Global Const $IID_IMMDeviceEnumerator = "{A95664D2-9614-4F35-A746-DE8DB63617E6}"
Global Const $tagIMMDeviceEnumerator = _
"EnumAudioEndpoints hresult(int;dword;ptr*);" & _
"GetDefaultAudioEndpoint hresult(int;int;ptr*);" & _
"GetDevice hresult(wstr;ptr*);" & _
"RegisterEndpointNotificationCallback hresult(ptr);" & _
"UnregisterEndpointNotificationCallback hresult(ptr)"

Global Const $IID_IMMDevice = "{D666063F-1587-4E43-81F1-B948E807363F}"
Global Const $tagIMMDevice = _
"Activate hresult(struct*;dword;ptr;ptr*);" & _
"OpenPropertyStore hresult(dword;ptr*);" & _
"GetId hresult(wstr*);" & _
"GetState hresult(dword*)"
Global Const $eRender = 0, $eConsole = 0

Global Const $IID_IAudioEndpointVolume = "{5CDF2C82-841E-4546-9722-0CF74078229A}"
Global Const $tagIAudioEndpointVolume = _
"RegisterControlChangeNotify hresult(ptr);" & _
"UnregisterControlChangeNotify hresult(ptr);" & _
"GetChannelCount hresult(uint*);" & _
"SetMasterVolumeLevel hresult(float;ptr);" & _
"SetMasterVolumeLevelScalar hresult(float;ptr);" & _
"GetMasterVolumeLevel hresult(float*);" & _
"GetMasterVolumeLevelScalar hresult(float*);" & _
"SetChannelVolumeLevel hresult(uint;float;ptr);" & _
"SetChannelVolumeLevelScalar hresult(uint;float;ptr);" & _
"GetChannelVolumeLevel hresult(uint;float*);" & _
"GetChannelVolumeLevelScalar hresult(uint;float*);" & _
"SetMute hresult(int;ptr);" & _
"GetMute hresult(int*);" & _
"GetVolumeStepInfo hresult(uint*;uint*);" & _
"VolumeStepUp hresult(ptr);" & _
"VolumeStepDown hresult(ptr);" & _
"QueryHardwareSupport hresult(dword*);" & _
"GetVolumeRange hresult(float*;float*;float*)"
Global Const $CLSCTX_INPROC_SERVER = 1
Global $__g_oEndpointVolume = 0
HotKeySet("{esc}","Exitfunc")
do
$s=_GetMasterVolumeLevelScalar()
ToolTip ($s)
Until 0

Func Exitfunc()
Exit 0
EndFunc

; #FUNCTION# ====================================================================================================================
; Name ..........: _GetMasterVolumeLevelScalar
; Description ...: Get master volume level in scalar units, 0.0 to 100.0.
; Syntax ........: _GetMasterVolumeLevelScalar()
; Parameters ....:
; Return values .: Success - Master volume level in scalar units, 0.0 to 100.0 (float)
; Failure - 0 and sets @error
; Author ........: Erik Pilsits
; Modified ......:
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: No
; ===============================================================================================================================
Func _GetMasterVolumeLevelScalar()
_EndpointVolume_Init()
If @error Then Return SetError(-1, 0, 0)
;
Local $iVol
If __SUCCEEDED($__g_oEndpointVolume.GetMasterVolumeLevelScalar($iVol)) Then
Return ($iVol * 100)
Else
Return SetError(1, 0, 0)
EndIf
EndFunc

Func _EndpointVolume_Init()
If IsObj($__g_oEndpointVolume) Then Return
$__g_oEndpointVolume = __GetDefaultEndpointVolume()
If @error Then Return SetError(@error)
EndFunc

Func __SUCCEEDED($hr)
Return ($hr >= 0)
EndFunc

Func __GetDefaultEndpointVolume()
Local $oIAudioEndpointVolume = 0, $err = 1
; create device enumerator interface
Local $oDevEnum = ObjCreateInterface($CLSID_MMDeviceEnumerator, $IID_IMMDeviceEnumerator, $tagIMMDeviceEnumerator)
If IsObj($oDevEnum) Then
$err = 2
; get default audio endpoint interface pointer
Local $pDefaultDevice = 0
If __SUCCEEDED($oDevEnum.GetDefaultAudioEndpoint($eRender, $eConsole, $pDefaultDevice)) Then
$err = 3
; create default audio endpoint interface
Local $oIMMDevice = ObjCreateInterface($pDefaultDevice, $IID_IMMDevice, $tagIMMDevice)
If IsObj($oIMMDevice) Then
$err = 4
; get endpoint volume interface pointer
Local $pEndpointVolume = 0
If __SUCCEEDED($oIMMDevice.Activate(__uuidof($IID_IAudioEndpointVolume), $CLSCTX_INPROC_SERVER, 0, $pEndpointVolume)) Then
$err = 5
; create endpoint volume interface
$oIAudioEndpointVolume = ObjCreateInterface($pEndpointVolume, $IID_IAudioEndpointVolume, $tagIAudioEndpointVolume)
EndIf
$oIMMDevice = 0
EndIf
EndIf
$oDevEnum = 0
EndIf
;
If IsObj($oIAudioEndpointVolume) Then
Return $oIAudioEndpointVolume
Else
Return SetError($err, 0, 0)
EndIf
EndFunc
Func __uuidof($sGUID)
Local $tGUID = DllStructCreate("ulong Data1;ushort Data2;ushort Data3;byte Data4")
DllCall("ole32.dll", "long", "CLSIDFromString", "wstr", $sGUID, "struct*", $tGUID)
If @error Then Return SetError(@error, @extended, 0)
Return $tGUID
EndFunc

haijie1223 发表于 2013-1-26 10:39:14

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

yyotan 发表于 2013-1-26 13:20:17

7楼的很给力，谢谢正需要用来做外挂

页: [1]

AUTOIT CN's Archiver

请问一下 怎么监视声音 谢谢

请问一下怎么监视声音谢谢