我想编一个多媒体程序，其中一个功能是使系统静音。到网上一查，很难寻到，即使找到，代码也太冗长，让人云里雾里，经过一翻努力摸索，终于成功。现将原码记录于下，以供共同探讨。
首先看一下VB中怎样做到：
一、必不可少的API函数
1.FindWindow
此函数用于寻找其他程序的句柄。这里用来寻找音量控制系统的窗口句柄。
2.FindWindowEx
此函数用于寻找其他程序的控件句柄。与FindWindow不同的是，这个函数寻找的是子窗体的句柄（控件也被视为子窗体）。这里用来寻找“音量控制”程序里的“全部静音”复选框的句柄。
3.SendMessage
此函数用于向窗体及控件发送消息。
二、窗体控件
在VB中新建窗体，并放置按钮一个。
三、程序代码（在Windows XP中测试通过）
' **********以下是API函数声明**********
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
' **********以下是API函数使用的常量赋值**********
Private Const BM_GETCHECK = &HF0 ‘ 取得复选框状态
Private Const BM_SETCHECK = &HF1 ’ 设置复选框状态
Private Const BST_UNCHECKED = &00 '设置复选框为未选中状态
Private Const BST_CHECKED = &01 '设置复选框为选中状态
Private Const WM_APPCOMMAND = &H319
Private Const APPCOMMAND_VOLUME_MUTE = &H8
' ***********以下是Command1单击的程序**********
Private Sub Command1_Click()
Dim hwnd0 As Long ' 用于记录“音量控制”程序的句柄
Shell "c:\windows\system32\sndvol32.exe" ’ 启动“音量控制”程序
hwnd0 = FindWindow(vbNullString, "音量控制")
Dim hwnd1 As Long ' 用于记录“全部静音”复选框句柄
hwnd1 = FindWindowEx(hwnd0, 0&, "Button", "全部静音(&M)") ' 复选框的类名是"Button"
Dim state As Long ' 用于记录复选框状态
state = SendMessage(hwnd1, BM_GETCHECK, ByVal CLng(0), ByVal CLng(0))
' 如果复选框处于未选中状态，则返回0，选中状态返回1
If state = 0 Then
SendMessage Me.hWnd, WM_APPCOMMAND, &H200EB0, APPCOMMAND_VOLUME_MUTE * &H10000
' 如果系统没有静音，则使系统静音
' 注：如果再使用一次同样的代码则恢复系统声音
SendMessage hwnd0,WM_CLOSE,0,0 '关闭音量控制程序
End If
End Sub
我们再来看一下VB.NET与VB中与何不同：
API函数声明不同
声明类型中的Long类型一律改为Interger
窗体句柄不同
由Me.hwnd改成Me.Handle
评论