求助！如何使用VB/VC++ 调节系统音量？

来源：百度知道 编辑：UC知道 时间：2024/06/20 15:49:20
我是合肥八中的学生，希望求助用VB调节系统音量
因为我们班的音箱找不到了，老师一用多媒体上课就要去借音箱，很麻烦。
有时候老师闲麻烦就用电脑直接放，可就算调到最大，大部分人都听不到。
请求各位告诉我方法让内置喇叭的声音再不损伤喇叭的情况下尽可能最大。我会用的是VB2008，其他版本也会。当然如果必须用C++我，为了同学们也愿意学。
请大家多给些建议和方法，我在这里替全班同学和各位老师谢谢你们！！！

还有，我试过加装一个realtek软件，和系统自带的一起调到最大，但不能让所有老师都装啊。

'新建EXE工程,添加三个按钮.
'按钮一是音量增加,按钮二是音量减少,按钮三是静音切换.
'至于音量最大最小，你自己用耳朵听....
Option Explicit

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 Const WM_APPCOMMAND As Long = &H319
Private Const APPCOMMAND_VOLUME_UP As Long = 10
Private Const APPCOMMAND_VOLUME_DOWN As Long = 9
Private Const APPCOMMAND_VOLUME_MUTE As Long = 8

Private Sub Command1_Click()
'音量增加
SendMessage Me.hwnd, WM_APPCOMMAND, &H30292, APPCOMMAND_VOLUME_UP * &H10000
End Sub

Private Sub Command2_Click()
'音量减少
SendMessage Me.hwnd, WM_APPCOMMAND, &H30292, APPCOMMAND_VOLUME_DOWN * &H10000
End Sub

Private Sub Command3_Click()
'静音
SendMessage Me.hwnd, WM_APPCOMMAND, &H200EB0, APPCOMMAND_VOLU