Question

怎么通过程序检测系统有声音发出？

我需要写个小程序，用程序来监听某个程序或整个系统（即声卡）是否在发出声音，如果有声音便做一些操作。 请问检测系统发出声音这个怎么做到呢？ 是用win32 api吗，具体是用哪个呢？ 谢谢
我目前只会用用autoit或者perl，不过有其它好用的代码的话，也请麻烦提供一下，谢谢。
注： 重述一下，是检测声音不是播放声音， 请熟悉的朋友给说一下，谢谢 :-)

还是没有朋友可以简单提一下吗：（ 哪怕是用到的API函数是哪个跟我说一下也好

Answer 1

参数1描述要播放的声音文件的位置和文件名；参数2的取值能决定播放声音的模式。参数2的主要取值介绍如下：

取＆H0时：为同步播放模式；

取＆H1时：为异步播放模式；

取＆H2时：当声音文件未找到就停止播音返回；

取＆H8时：为循环播放模式。

当调用函数成功，就播放有关声音文件，并且函数的返回值为非0；函数调用失败，函数的返回值为0。

定义调用声音文件函数的具体步骤如下：

①在C盘根目录上建立一个名为Sound的文件夹，在此文件夹中放入5个你所需要的声音文件；

②在VB5.0状态进入“工程”菜单中的“添加模块”再选用“新建”中的“模块”；

③在模块的“通用”中输入下面代码，进行调用API函数的声明；

Declare Function sndPlaySound Lib "winmm.dll" Alias

“sndPlaySoundA" (ByV al lpszSoundName As String, ByVal uFlags As Long) As Long

Dim fil As String

④在模块中输入以下代码，定义调用声音文件函数。

Public Function sound(n As Integer) As Integer

Dim x As Integer

Select Case n

Case 1

fil = "c:\sound\beep3.wav"

x = sndPlaySound(0, 0)

x = sndPlaySound(fil, ＆H1 Or ＆H2)

sound = x

Case 2

fil = "c:\sound\hit8.wav"

x = sndPlaySound(0, 0)

x = sndPlaySound(fil, ＆H1 Or ＆H2)

sound = x

Case 3

fil = "c:\sound\net7.wav"

x = sndPlaySound(0, 0)

x = sndPlaySound(fil, ＆H1 Or ＆H2)

sound = x

Case 4

fil = "c:\sound\out12.wav"

x = sndPlaySound(0, 0)

x = sndPlaySound(fil, ＆H1 Or ＆H2)

sound = x

Case 5

fil = "c:\sound\spin5.wav"

x = sndPlaySound(0, 0)

x = sndPlaySound(fil, ＆H1 Or ＆H2)

sound = x

Case Else

sound = 0

End Select

End Function

新定义的调用声音函数格式为：sound(n)，其中n的取值为1至5的正整数。利用此函数可调用5个不同的声音文件。下面是使用sound函数的演示程序：

①如图在form窗口设置6个命令控件；

②在这些命令控件的Click事件中入分别输入以下代码。

Private Sub Command1_Click()

l = sound(1)

End Sub

Private Sub Command2_Click()

l = sound(2)

End Sub

Private Sub Command3_Click()

l = sound(3)

End Sub

Private Sub Command4_Click()

l = sound(4)

End Sub

Private Sub Command5_Click()

l = sound(5)

End Sub

Private Sub Command6_Click()

End

End Sub

运行程序后，单击有关按钮就能调用所指定的声音文件，发出各种声音

Answer 2

sound(n)，其中n的取值为1至5的正整数

Answer 3

定义调用声音文件函数时用到了Windows播放声音的API函数。现先将此API函数作简单介绍：

sndPlaySound(参数1,参数2)其中：参数1描述要播放的声音文件的位置和文件名；参数2的取值能决定播放声音的模式。参数2的主要取值介绍如下：

取＆H0时：为同步播放模式；

取＆H1时：为异步播放模式；

取＆H2时：当声音文件未找到就停止播音返回；

取＆H8时：为循环播放模式。

当调用函数成功，就播放有关声音文件，并且函数的返回值为非0；函数调用失败，函数的返回值为0。

定义调用声音文件函数的具体步骤如下：

①在C盘根目录上建立一个名为Sound的文件夹，在此文件夹中放入5个你所需要的声音文件；

②在VB5.0状态进入“工程”菜单中的“添加模块”再选用“新建”中的“模块”；

③在模块的“通用”中输入下面代码，进行调用API函数的声明；

Declare Function sndPlaySound Lib "winmm.dll" Alias

“sndPlaySoundA" (ByV al lpszSoundName As String, ByVal uFlags As Long) As Long

Dim fil As String

④在模块中输入以下代码，定义调用声音文件函数。

Public Function sound(n As Integer) As Integer

Dim x As Integer

Select Case n

Case 1

fil = "c:\sound\beep3.wav"

x = sndPlaySound(0, 0)

x = sndPlaySound(fil, ＆H1 Or ＆H2)

sound = x

Case 2

fil = "c:\sound\hit8.wav"

x = sndPlaySound(0, 0)

x = sndPlaySound(fil, ＆H1 Or ＆H2)

sound = x

Case 3

fil = "c:\sound\net7.wav"

x = sndPlaySound(0, 0)

x = sndPlaySound(fil, ＆H1 Or ＆H2)

sound = x

Case 4

fil = "c:\sound\out12.wav"

x = sndPlaySound(0, 0)

x = sndPlaySound(fil, ＆H1 Or ＆H2)

sound = x

Case 5

fil = "c:\sound\spin5.wav"

x = sndPlaySound(0, 0)

x = sndPlaySound(fil, ＆H1 Or ＆H2)

sound = x

Case Else

sound = 0

End Select

End Function

新定义的调用声音函数格式为：sound(n)，其中n的取值为1至5的正整数。利用此函数可调用5个不同的声音文件。下面是使用sound函数的演示程序：

①如图在form窗口设置6个命令控件；

②在这些命令控件的Click事件中入分别输入以下代码。

Private Sub Command1_Click()

l = sound(1)

End Sub

Private Sub Command2_Click()

l = sound(2)

End Sub

Private Sub Command3_Click()

l = sound(3)

End Sub

Private Sub Command4_Click()

l = sound(4)

End Sub

Private Sub Command5_Click()

l = sound(5)

End Sub

Private Sub Command6_Click()

End

End Sub

运行程序后，单击有关按钮就能调用所指定的声音文件，发出各种声音。