vb 中如何实现系统静音

显示全部楼层 · 2013-8-30 20:46:08

竟然没个API用。。。引篇CSDN的文章：用MCI命令，只能对MCI设备起作用。如果有外部设备（比如Windows Media Player和Wimamp播放器）在播放，MCI命令对他们不起任何作用。必须使用混音器调节系统声音，对所有设备都起作用。请看调节系统音量的类： http://xsoft.bokee.com/4780183.html(里面有很多关于音量设置的函数，其中有一个静音设置的函数)，放在类代码里，生成ActiveX DLL，然后在VB工程菜单中引用该DLL即可。静音函数 Public Function SetMute(ByVal bMute As Boolean) As Boolean 麻烦了点。。。如果实在找不到你就把它的全篇cop...

千问 · 2013-8-30 20:46:08

'下面代码可以静音：Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)Const jingyin = 173 '静音...

千问 · 2013-8-30 20:46:08

用windows media player 控件就可以了...