安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

Access VBA 使用API 关闭系统声音和打开系统声音的 方法

2017-09-08 09:30:00
zstmtony
原创
630

Access VBA 使用API 关闭系统声音和打开系统声音的 方法

即让整个系统静音及取消静音的代码如下



------VBA 实现 源码--------------------
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hwnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
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 BM_GETCHECK = &HF0      ' 取得复选框状态
Private Const BM_SETCHECK = &HF1      '设置复选框状态
' Private Const BST_UNCHECKED = &00      设置复选框为未选中状态
' Private Const BST_CHECKED = &01           设置复选框为选中状态
Private Sub Command1_Click()
     Dim hwnd0 As Long      ' 用于记录“音量控制”程序的句柄
     Shell "sndvol32.exe"        ' 启动“音量控制”程序
     hwnd0 = FindWindow(vbNullString, "主音量")
     Dim hwnd1 As Long     ' 用于记录“全部静音”复选框句柄
     hwnd1 = FindWindowEx(hwnd0, 0&, "Button", "全部静音(&M)")   ' 复选框的类名是"Button"
     Dim State As Long       ' 用于记录复选框状态,如果复选框处于未选中状态,则返回0,选中状态返回1
     State = SendMessage(hwnd1, BM_GETCHECK, ByVal CLng(0), ByVal CLng(0))
     SendMessage hwnd1, BM_SETCHECK, 1, 0 '使系统静音
     SendMessage hwnd1, BM_SETCHECK, 0, 0 '使系统发音
End Sub
分享
? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:18
内存占用:7.75MB
PHP 执行时间:0.19
双色球大奖2000年
安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
bodog博狗娱乐城骰宝 黄金武士典韦图片 双色球开奖 大哥大哥你好吗 中国厨房送彩金 舞龙队 北京pk赛车开奖直播 黑暗故事注册 欢乐生肖实时计划网 自由精神在线客服