找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › 如何通过api获取系统静音状态
返回列表 发新帖
查看: 6280|回复: 11

[系统综合] 如何通过api获取系统静音状态

 火 [复制链接]
sanmoking
发表于 2011-7-20 13:49:09 | 显示全部楼层 |阅读模式
这个是网上搜到的c++的代码，小弟看不懂，那位高手给改成au3，谢谢。、、
C/C++ code

BOOL IsSystemMute(UINT &uMute)
{
 //uMute为0时系统非静音，否则是静音,函数返回成功与否
 HMIXER hMixer;
 MIXERLINE mixerline;
 MIXERLINECONTROLS mlcs;
 MIXERCONTROL mc;
 MIXERCONTROLDETAILS_BOOLEAN mcdMute;
 MIXERCONTROLDETAILS mcd;

 try
 {
 if (MMSYSERR_NOERROR == mixerOpen(&hMixer, 0, 0, 0, 0))
 {
 RtlZeroMemory(&mixerline, sizeof(MIXERLINE));
 mixerline.cbStruct = sizeof(MIXERLINE);
 mixerline.dwComponentType = MIXERLINE_COMPONENTTYPE_DST_SPEAKERS;
 if (MMSYSERR_NOERROR == mixerGetLineInfo((HMIXEROBJ)hMixer, &mixerline, MIXER_GETLINEINFOF_COMPONENTTYPE))
 {
 RtlZeroMemory(&mlcs, sizeof(MIXERLINECONTROLS));
 mlcs.cbStruct = sizeof(MIXERLINECONTROLS);
 mlcs.dwLineID = mixerline.dwLineID;
 mlcs.dwControlType = MIXERCONTROL_CONTROLTYPE_MUTE;
 mlcs.cControls = 1;
 mlcs.cbmxctrl = sizeof(MIXERCONTROL);
 mlcs.pamxctrl = & mc;
 if (MMSYSERR_NOERROR == mixerGetLineControls((HMIXEROBJ)hMixer, &mlcs, MIXER_GETLINECONTROLSF_ONEBYTYPE))
 {
 RtlZeroMemory(&mcd, sizeof(MIXERCONTROLDETAILS));
 mcd.cbStruct = sizeof(MIXERCONTROLDETAILS);
 mcd.dwControlID = mc.dwControlID;
 mcd.cChannels = 1;
 mcd.cbDetails = sizeof(MIXERCONTROLDETAILS_BOOLEAN);
 mcd.paDetails = &mcdMute;
 if (MMSYSERR_NOERROR == mixerGetControlDetails((HMIXEROBJ)hMixer, &mcd, MIXER_GETCONTROLDETAILSF_VALUE))
 {
 uMute = mcdMute.fValue;
 return TRUE;
 }
 }
 }
 }
 mixerClose(hMixer);
 return FALSE;
 }
 catch (...)
 {
 mixerClose(hMixer);
 return FALSE;
 }
}
成功

相关帖子
回复

举报

sanmoking
 楼主| 发表于 2011-7-20 13:51:41 | 显示全部楼层 
delphi可行代码一段！！都是api,翻译成vb就ok. 

unit   funVolume; 

interface 

uses   MMSystem,   Dialogs; 

Type   TDeviceName   =   (Master,   Microphone,   WaveOut,   Synth); 

function     GetVolumeMute(DN:TDeviceName)   :   Boolean; 
procedure     SetVolumeMute(DN:TDeviceName;   Value:Boolean); 

implementation 

//获取静音 
function     GetVolumeMute(DN:TDeviceName)   :   Boolean; 
var 
  hMix:   HMIXER; 
  mxlc:   MIXERLINECONTROLS; 
  mxcd:   TMIXERCONTROLDETAILS; 
  vol:   TMIXERCONTROLDETAILS_UNSIGNED; 
  mxc:   MIXERCONTROL; 
  mxl:   TMixerLine; 
  intRet:   Integer; 
  nMixerDevs:   Integer; 
  mcdMute:   MIXERCONTROLDETAILS_BOOLEAN; 
begin 
  //   Check   if   Mixer   is   available 
  nMixerDevs   :=   mixerGetNumDevs(); 
  if   (nMixerDevs   <   1)   then 
  begin 
      Exit; 
  end; 

  //   open   the   mixer 
  intRet   :=   mixerOpen(@hMix,   0,   0,   0,   0); 
  if   intRet   =   MMSYSERR_NOERROR   then 
  begin 
      case   DN   of 
          Master   :     mxl.dwComponentType   :=   MIXERLINE_COMPONENTTYPE_DST_SPEAKERS; 
          Microphone   : 
                          mxl.dwComponentType   :=   MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE; 
          WaveOut   :   mxl.dwComponentType   :=   MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT; 
          Synth     :     mxl.dwComponentType   :=   MIXERLINE_COMPONENTTYPE_SRC_SYNTHESIZER; 
      end; 
        mxl.cbStruct                 :=   SizeOf(mxl); 

      //   mixerline   info 
      intRet   :=   mixerGetLineInfo(hMix,   @mxl,   MIXER_GETLINEINFOF_COMPONENTTYPE); 

      if   intRet   =   MMSYSERR_NOERROR   then 
      begin 
          FillChar(mxlc,   SizeOf(mxlc),0); 
          mxlc.cbStruct   :=   SizeOf(mxlc); 
          mxlc.dwLineID   :=   mxl.dwLineID; 
          mxlc.dwControlType   :=   MIXERCONTROL_CONTROLTYPE_MUTE; 
          mxlc.cControls   :=   1; 
          mxlc.cbmxctrl   :=   SizeOf(mxc); 
          mxlc.pamxctrl   :=   @mxc; 

          //   Get   the   mute   control 
          intRet   :=   mixerGetLineControls(hMix,   @mxlc,   MIXER_GETLINECONTROLSF_ONEBYTYPE); 

          if   intRet   =   MMSYSERR_NOERROR   then 
          begin 
              FillChar(mxcd,   SizeOf(mxcd),0); 
              mxcd.cbStruct   :=   SizeOf(TMIXERCONTROLDETAILS); 
              mxcd.dwControlID   :=   mxc.dwControlID; 
              mxcd.cChannels   :=   1; 
              mxcd.cbDetails   :=   SizeOf(MIXERCONTROLDETAILS_BOOLEAN); 
              mxcd.paDetails   :=   @mcdMute; 

              //   Get     mute 
              intRet   :=   mixerGetControlDetails(hMix,   @mxcd,   MIXER_SETCONTROLDETAILSF_VALUE); 

              if   mcdMute.fValue   =   0   then   Result:=false 
              else   Result   :=   True; 

              if   intRet   <>   MMSYSERR_NOERROR   then 
                  ShowMessage( 'SetControlDetails   Error '); 
          end 
          else 
              ShowMessage( 'GetLineInfo   Error '); 
      end; 

      intRet   :=   mixerClose(hMix); 
  end; 
end; 

//设置静音 
procedure     SetVolumeMute(DN:TDeviceName;   Value:Boolean); 
var 
  hMix:   HMIXER; 
  mxlc:   MIXERLINECONTROLS; 
  mxcd:   TMIXERCONTROLDETAILS; 
  vol:   TMIXERCONTROLDETAILS_UNSIGNED; 
  mxc:   MIXERCONTROL; 
  mxl:   TMixerLine; 
  intRet:   Integer; 
  nMixerDevs:   Integer; 
  mcdMute:   MIXERCONTROLDETAILS_BOOLEAN; 
begin 
  //   Check   if   Mixer   is   available 
  nMixerDevs   :=   mixerGetNumDevs(); 
  if   (nMixerDevs   <   1)   then 
  begin 
      Exit; 
  end; 

  //   open   the   mixer 
  intRet   :=   mixerOpen(@hMix,   0,   0,   0,   0); 
  if   intRet   =   MMSYSERR_NOERROR   then 
  begin 
      case   DN   of 
          Master   :     mxl.dwComponentType   :=   MIXERLINE_COMPONENTTYPE_DST_SPEAKERS; 
          Microphone   : 
                          mxl.dwComponentType   :=   MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE; 
          WaveOut   :   mxl.dwComponentType   :=   MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT; 
          Synth     :     mxl.dwComponentType   :=   MIXERLINE_COMPONENTTYPE_SRC_SYNTHESIZER; 
      end; 
        mxl.cbStruct                 :=   SizeOf(mxl); 

      //   mixerline   info 
      intRet   :=   mixerGetLineInfo(hMix,   @mxl,   MIXER_GETLINEINFOF_COMPONENTTYPE); 

      if   intRet   =   MMSYSERR_NOERROR   then 
      begin 
          FillChar(mxlc,   SizeOf(mxlc),0); 
          mxlc.cbStruct   :=   SizeOf(mxlc); 
          mxlc.dwLineID   :=   mxl.dwLineID; 
          mxlc.dwControlType   :=   MIXERCONTROL_CONTROLTYPE_MUTE; 
          mxlc.cControls   :=   1; 
          mxlc.cbmxctrl   :=   SizeOf(mxc); 
          mxlc.pamxctrl   :=   @mxc; 

          //   Get   the   mute   control 
          intRet   :=   mixerGetLineControls(hMix,   @mxlc,   MIXER_GETLINECONTROLSF_ONEBYTYPE); 

          if   intRet   =   MMSYSERR_NOERROR   then 
          begin 
              FillChar(mxcd,   SizeOf(mxcd),0); 
              mxcd.cbStruct   :=   SizeOf(TMIXERCONTROLDETAILS); 
              mxcd.dwControlID   :=   mxc.dwControlID; 
              mxcd.cChannels   :=   1; 
              mxcd.cbDetails   :=   SizeOf(MIXERCONTROLDETAILS_BOOLEAN); 
              mxcd.paDetails   :=   @mcdMute; 

              //   Set   and   UnSet     mute 
              mcdMute.fValue   :=   Ord(Value); 
              intRet   :=   mixerSetControlDetails(hMix,   @mxcd,   MIXER_SETCONTROLDETAILSF_VALUE); 

              if   intRet   <>   MMSYSERR_NOERROR   then 
                  ShowMessage( 'SetControlDetails   Error '); 
          end 
          else 
              ShowMessage( 'GetLineInfo   Error '); 
      end; 

      intRet   :=   mixerClose(hMix); 
  end; 
end; 

end.
回复

举报

sanmoking
 楼主| 发表于 2011-7-20 13:58:57 | 显示全部楼层
实在不行就换AutoHotkey了。。。。
回复

举报

sanmoking
 楼主| 发表于 2011-7-20 16:09:21 | 显示全部楼层
本帖最后由 sanmoking 于 2011-7-20 17:41 编辑

用AutoHotkey写了个小工具，运行之后写入注册表系统静音状态【on/off】，然后就可以用au3读取了。。
#NoTrayIcon 
SoundGet, master_mute, , mute
RegWrite, REG_SZ, HKEY_LOCAL_MACHINE, SOFTWARE\sanmoking, vol, %master_mute%
当然也可以修改xp任务栏的标题（原始的任务栏标题是空的）
#NoTrayIcon SoundGet, master_mute, , mute
WinSetTitle, ahk_class Shell_TrayWnd, , %master_mute%



里面的vol是例子。

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？加入

×
回复

举报

gzh888666
发表于 2011-7-26 10:45:03 | 显示全部楼层
没明白是怎么回事，ＡＵ３一样可以写入注册表呀
回复

举报

happytc
发表于 2011-7-26 11:37:56 | 显示全部楼层
看到楼主的帖子，帖个原来我写的得到声音大小的函数，给你做个参考：

Func _WaveOutGetVolume()
    Local Const $MMSYSERR_NOERROR = 0
        Local $Ptr, $aRet, $WaveVolume = -1
    
    $Ptr = DllStructCreate ("dword")
    If @error Then SetError(2, -1, -2)
    $aRet = DllCall("winmm.dll", "long", "waveOutGetVolume", "long", -1, "long", DllStructGetPtr ($Ptr))
    If ($aRet[0] == $MMSYSERR_NOERROR) Then
        $WaveVolume = Round(Dec(StringRight(Hex(DllStructGetData($Ptr, 1), 8), 4)) / 0xFFFF * 100)
    Else
        SetError(1, 0, -1)
    EndIf

    Return $WaveVolume
EndFunc
回复

举报

sanmoking
 楼主| 发表于 2011-7-27 17:13:36 | 显示全部楼层
本帖最后由 sanmoking 于 2011-7-27 17:20 编辑

回复 5# gzh888666


    我的意思是，我需要au3来获取系统是否静音，但是au3本身没有这方面的函数，想用api，自己又不懂，所以在网上找了两段其他语言写的，希望高手给改成au3的，但是没人帮忙，于是看了下ahk的函数列表，发现直接有获取静音状态的函数，于是自己用ahk凑活着写了个exe来获取系统静音状态，就是这句代码
SoundGet, master_mute, , mute
但是怎么让我的au3程序来读取ahk获取到的静音状态呢，那就让ahk把读取到的状态写入注册表，然后au3去读，au3读完之后立即删除这个注册表。
所以au3想获取静音状态的话先运行一下那个ahk写的exe，然后去读注册表，然后删注册表。
回复

举报

sanmoking
 楼主| 发表于 2011-7-27 17:17:51 | 显示全部楼层
回复 6# happytc


    获取音量的我已经用那个Audio.au3的udf了，主要是这个udf用来获取系统静音状态的方法竟然是运行xp的音量程序sndvol32，然后读取静音的选择框是否打勾。。。。。实在太郁闷了，所以就想看是否有更好的方法来获取系统静音状态。

ahk就有直接的函数。
回复

举报

gzh888666
发表于 2011-7-27 21:51:51 | 显示全部楼层
ControlCommand("[class:Volume Control]","",1000,"IsChecked")=1
这个可以用嘛？
回复

举报

powerofos
发表于 2011-7-27 23:40:55 | 显示全部楼层
回复 8# sanmoking



嘿嘿，我都不知道到我该不该说我想到的方法了...

之前用BASS.DLL编写过东西，当系统静音后，_BASS_GetVolume() 函数返回1。

这函数返回的音量值是 0 - 1， 所以还需要用你的方法检测是否是因为音量100%造成的返回值1。

杀鸡用牛刀!

回复

举报

sanmoking
 楼主| 发表于 2011-7-28 17:28:12 | 显示全部楼层
本帖最后由 sanmoking 于 2011-7-28 20:35 编辑

回复 9# gzh888666
这个不就是检测音量窗口静音的复选框是否勾选的代码么？
而且必须得先运行sndvol32.exe
或者手动打开音量调节窗口
ControlCommand("[class:Volume Control]","",1000,"IsChecked")

>>>> 窗口 <<<<
标题:        主音量
类:        Volume Control
坐标:        338, 38
大小:        488, 279
样式:        0x14CA0044
扩展样式:0x00010100
句柄:        0x00180722

>>>> 控件 <<<<
类:        Button
接口:        2
类别名:        Button2
名称:        
高级(类):        [CLASS:Button; INSTANCE:2]
ID:        1000
文本:        全部静音(&M)
坐标:        6, 185
大小:        90, 15
控件点击坐标:21, 8
样式:        0x50010003
扩展样式:0x00000004
句柄:        0x00140896

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？加入

×
回复

举报

ceoguang
发表于 2011-7-28 21:19:14 | 显示全部楼层
本帖最后由 ceoguang 于 2011-7-30 14:49 编辑


这是C++编译的，要转换成AUTOIT的话要写太多代码了,不过好像Audio.au3那个UDF都有相关结构体的定义.

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？加入

×
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2026-7-5 16:51 , Processed in 0.226105 second(s), 24 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表