我就想写个VC，设置电脑静音与恢复音量或者请帮忙把这个VB改成VC，谢谢

cumulonimbus · 发表于 2019-1-30 21:29:17

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 Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) 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

Dim hwnd As Long

Private Sub CommandButton1_Click()
'音量增加
SendMessage hwnd, WM_APPCOMMAND, &H30292, APPCOMMAND_VOLUME_UP * &H10000

End Sub

Private Sub CommandButton2_Click()
'音量减少
SendMessage hwnd, WM_APPCOMMAND, &H30292, APPCOMMAND_VOLUME_DOWN * &H10000

End Sub

Private Sub CommandButton3_Click()
'静音
SendMessage hwnd, WM_APPCOMMAND, &H200EB0, APPCOMMAND_VOLUME_MUTE * &H10000
End Sub
我就想写个VC，设置电脑静音与恢复音量，但我不知道VC咋写，谢谢

Health · 发表于 2019-1-30 21:29:18

这个不难，给你找了点资料：

编程快速实现调节系统主音量的方法

不需要调用什么特殊的API函数，只需要对自己的窗口函数发送一个消息并把该消息交给系统处理就行了。而发送的按键信息就是大家一般在USB外接键盘上面看到到那种专业键,比如音量加，音量减，静音，上一曲，下一曲，播放与暂停。

实现方法:
音量静音：MAKELPARAM(0, FAPPCOMMAND_KEY<<12|APPCOMMAND_VOLUME_MUTE);
音量增加：MAKELPARAM(0, FAPPCOMMAND_KEY<<12|APPCOMMAND_VOLUME_UP);
音量减少：MAKELPARAM(0, FAPPCOMMAND_KEY<<12|APPCOMMAND_VOLUME_DOWN);

最后调用SendMessage就可以了:
SendMessage(hWnd, WM_APPCOMMAND, 0, [上面的一个值]);

techminister · 发表于 2019-1-31 08:16:32

加个热键，完美

cumulonimbus · 发表于 2019-1-31 09:23:53

Health 发表于 2019-1-30 21:47
这个不难，给你找了点资料：

编程快速实现调节系统主音量的方法

谢谢，我遇到一个问题
当我写这个入程序时 ::SendMessage(m_hWnd, WM_APPCOMMAND, 0, MAKELPARAM(0, FAPPCOMMAND_KEY<<12|APPCOMMAND_VOLUME_MUTE));
则会提示出错：
'WM_APPCOMMAND' : undeclared identifier
'FAPPCOMMAND_KEY' : undeclared identifier
'APPCOMMAND_VOLUME_MUTE' : undeclared identifier
昨天我用VC写时也遇到这个问题，请如何解决？

如果我想做一个判断，如果静音则恢复音量，如果不静音则跳过，这个要如何写？谢谢