求助，XP系统下的音量控制

[流水之风]

我想编写一个程序可以自动将系统（windows xp系统）的音量调至最大，同时取消静音（指原本是钩上了静音选项的话，可以自动去掉静音）的程序，但是在网上找了很久，就是没有找到资料，希望知道的朋友能给个源代码，最好附带有说明，谢谢！！！！

[jam021]

关注,帮你顶!

[zahota]

Private Declare Function waveOutSetVolume Lib "Winmm" (ByVal wDeviceID As Integer, ByVal dwVolume As Long) As Integer
Private Declare Function waveOutGetVolume Lib "Winmm" (ByVal wDeviceID As Integer, dwVolume As Long) As Integer
'获得音量设备ID
Private Sub Command1_Click()
Dim a, i As Long

'i为音量值
a = waveOutGetVolume(0, i)

End Sub
设置音量
Private Sub Command2_Click()
Dim a, i As Long

a = waveOutSetVolume(0, i)
End Sub

[zahota]

忘说了，这个我在2000下可以用，XP下没试过

[yeung813]

楼上的方法在XP下好象不能用，我刚才试过了
哪位还有别的方法帮忙写下

[yeung813]

没有人知道吗？高手都哪去了啊？

[gg137zeus]

帮顶

[yeung813]

顶啊，我就不信没人知道

[sovom]

API函数肯定可以

Waveoutsetvolume 0,&HXXXXYYYY

XXXX=左声道
YYYY=右声道

值=0 到 FFFF

[creazyfish]

呵呵,顶

[tztz520]

'看一下这个.
http://community.csdn.net/Expert/topic/3200/3200066.xml?temp=.2178919

[流水之风]

可惜这些只能控制音量，不能取消静音，如果在WINDOWS中设置为静音，不将静音取消那控制音量也是没用的吧，不过还是谢谢你们。