|
3驿站币
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咋写,谢谢 |
最佳答案
查看完整内容
这个不难,给你找了点资料:
编程快速实现调节系统主音量的方法
不需要调用什么特殊的API函数,只需要对自己的窗口函数发送一个消息并把该消息交给系统处理就行了。而发送的按键信息就是大家一般在USB外接键盘上面看到到那种专业键,比如音量加,音量减,静音,上一曲,下一曲,播放与暂停。
实现方法:
音量静音:MAKELPARAM(0, FAPPCOMMAND_KEY
上一篇: 急!急!急!请问输出控制台一直输出后等数据满了会奔溃,有什么好的方法解决吗下一篇: 请问多级指针的一个问题
|