在vb中如何设置windows声音方案

Option ExplicitPrivate Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _ ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ ByVal lParam As Long) As LongPrivate Const WM_APPCOMMAND As Long = &H319Private Const APPCOMMAND_VOLUME_MUTE As Long = 8 Private Sub Command1_Click()'静音，单击一次静音，再单击一次恢复 SendMessage Me.hwnd, WM_APPCOMMAND, &H200EB0, APPCOMMAND_VOLUME_MUTE * &H10000End Sub

可以按照以下步骤来录制电脑的声音。

1，在电脑上安装并运行楼月语音聊天录音软件，点击文件，设置菜单。

2，录音模式设置为“手动录制”，在下方再选中“录制从电脑播放的声音”，其它参数对我们没有意义，使用默认的设置即可，设置后点击确定按钮返回到主界面。

3，在电脑上播放任何想要录制的声音，比如腾讯视频中的小品，或者打开网页播放flash，音乐等。

4，当电脑上的声音播放到需要开始录制处时，点击录音软件上的开始按钮，开始进行无损录制。

5，当电脑系统上的声音播放到需要结束录音处时，点击界面上的停止按钮，停止进行录音。

6，最后点击界面上的查看按钮，就可以看到刚才在自己的Win7电脑系统上录制下来的声音，播放后可以发现和原音质是没有区别的。

---