VB,实现系统主音量调节,音量控制
来源:百度知道 编辑:UC知道 时间:2024/05/31 08:38:58
我们有一个网络电话程序, 它的要求是可以调节音量的,
怎样才能对系统主音量进行控制??
就算不能, 看看这样子行不行,
我有一个按钮,点一下它会出现系统自带的主音量调节的窗口.
Sndvol32.exe,
很好.
如果要调出 声音和音频设备 属性 呢?
API的,可行不, 我不懂, 哎...
其实使用 API 相当简单的,可以直接实现你要的效果
而使用 sndvol32.exe 不是直接设置到位,还需要其它的设置,没这个必要
我已经发了一个已测试通过的源代码码到你的 QQ 邮箱 104549493@qq.com
你去看下吧
Private 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 Long
Private Sub Command1_Click()
'音量增大
SendMessage hwnd, 793, 197266, 655360
End Sub
Private Sub Command2_Click()
'音量减小
SendMessage hwnd, 793, 197266, 589824
End Sub
Private Sub Command3_Click()
'静音
SendMessage hwnd, 793, 2100912, 524288
End Sub
系统自带的主音量调节的窗口
实际上是一个单独的exe文件 Sndvol32.exe
位于windows文件夹中
只要调用这个程序就可以了
Private Sub Command1_Click()
Shell "Sndvol32.exe", 1
End Sub
调出 声音和音频设备 属性 最简单的
Private Sub Command1_Click()
Shell "rundll32.exe shell32.dll,Control_RunD