大家帮忙看一下这个静音的代码！

Question

这个代码是控制“音量控制”（就是双击小喇叭出来的窗口）里的“全部静音”
我想把它改成控制“波形”那个选项
好几个API都查不到资料，大家帮忙看一下以下是代码，一个窗口（form1）,上面有command1,command2,command3;一个类模块（clsVolume）
form1代码：Dim cVolume As New clsVolumePrivate Sub Command1_Click()
    
    If cVolume.WaveMute = 0 Then
        MsgBox "系统音量:" & cVolume.WaveVolume
    Else
        MsgBox "静音"
    End If
End Sub
Private Sub Command2_Click()
cVolume.WaveMute = 0
'End
End SubPrivate Sub Command3_Click()
cVolume.WaveMute = 65535
'End
End SubPrivate Sub Form_Load()End Sub

Answer 1

代码太长了，不让发，大家下载看一下吧http://www.buildsky.cn/v.rar

Answer 2

里面就有现成的啊……
用这个属性：cVolume.WaveInVolume = 0
cVolume.WaveInVolume = 65535