vb 控制系统音量

来源:互联网 发布:淘粉吧是淘宝客吗 编辑:程序博客网 时间:2024/05/22 03:02
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 LongPrivate Sub Command1_Click()'音量增大'SendMessage hwnd, 793, 197266, 655360'''音量减小SendMessage hwnd, 793, 197266, 589824'静音'SendMessage hwnd, 793, 2100912, 524288End Sub

0 0
原创粉丝点击