帮忙写个vb调节麦克风音量代码
哪个大哥帮忙写个vb调节麦克风音量代码，做母盘时忘记调高了，谢谢诶 百度过了么？ http://topic.csdn.net/t/20030417/10/1671960.html 百度过了，就是找不到啊Dim WshShellSet WshShell = CreateObject("WScript.Shell")
WshShell.Run "C:\Windows\system32\sndvol32.exe"
WScript.Sleep 1000
WshShell.AppActivate "主音量"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{Home}"
WshShell.SendKeys "%{F4}"
这是调声音最大的，剩下个麦克风调到最大了，只要麦克风就行啦
这个用不了的，第三行就出错了 CreateObject啊，哈哈
我不会啊，帮忙写个啊， Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run "control.exe mmsys.cpl,,3"
Wscript.Sleep 200
WshShell.SendKeys "%O"
WshShell.SendKeys "%S"
Wscript.Sleep 200
WshShell.SendKeys "{Tab}"
WshShell.SendKeys "{Home}"
WshShell.SendKeys "%P"
Wscript.Sleep 200
WshShell.SendKeys "X"
Wscript.Sleep 200
WshShell.SendKeys "{Enter}"
这个是麦克风的，不过可能声卡不同，麦克风和音量不在同个属性里面，中断了，帮忙修改下吧 VB控制系统音量和麦克风音量一例
http://download.csdn.net/source/1925062
http://topic.csdn.net/t/20030417/10/1671960.html 自己百度出来了，呵呵，谢谢啦
http://www.m5home.com/blog/article.asp?id=263
那我也来发个:)
这里只做了3个设备的音量控制,麦克风的设备ID好象是5,改改就能用了.
补充：VB , 资源
