Access VBA 使用API 關(guān)閉系統(tǒng)聲音和打開系統(tǒng)聲音的 方法

Access VBA 使用API 關(guān)閉系統(tǒng)聲音和打開系統(tǒng)聲音的 方法

即讓整個(gè)系統(tǒng)靜音及取消靜音的代碼如下

------VBA 實(shí)現(xiàn) 源碼--------------------
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      ' 取得復(fù)選框狀態(tài)
Private Const BM_SETCHECK = &HF1      '設(shè)置復(fù)選框狀態(tài)
' Private Const BST_UNCHECKED = &00      設(shè)置復(fù)選框?yàn)槲催x中狀態(tài)
' Private Const BST_CHECKED = &01           設(shè)置復(fù)選框?yàn)檫x中狀態(tài)
Private Sub Command1_Click()
     Dim hwnd0 As Long      ' 用于記錄“音量控制”程序的句柄
     Shell "sndvol32.exe"        ' 啟動(dòng)“音量控制”程序
     hwnd0 = FindWindow(vbNullString, "主音量")
     Dim hwnd1 As Long     ' 用于記錄“全部靜音”復(fù)選框句柄
     hwnd1 = FindWindowEx(hwnd0, 0&, "Button", "全部靜音(&M)")   ' 復(fù)選框的類名是"Button"
     Dim State As Long       ' 用于記錄復(fù)選框狀態(tài)，如果復(fù)選框處于未選中狀態(tài)，則返回0，選中狀態(tài)返回1
     State = SendMessage(hwnd1, BM_GETCHECK, ByVal CLng(0), ByVal CLng(0))
     SendMessage hwnd1, BM_SETCHECK, 1, 0 '使系統(tǒng)靜音
     SendMessage hwnd1, BM_SETCHECK, 0, 0 '使系統(tǒng)發(fā)音
End Sub