http://fengzhixue168.blog.163.com/blog/static/95761592009648525675/

一、必不可少的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 ’ 设置复选框状态@H_301_48@ Private Const BST_UNCHECKED = &00'设置复选框为未选中状态@H_301_48@ Private Const BST_CHECKED = &01 '设置复选框为选中状态

Private Const WM_APPCOMMAND = &H319@H_301_48@ Private Const APPCOMMAND_VOLUME_MUTE = &H8

' ***********以下是Command1单击的程序**********@H_301_48@ Private Sub Command1_Click()

Dim hwnd0 As Long' 用于记录“音量控制”程序的句柄@H_301_48@ Shell "c:\windows\system32\sndvol32.exe" ’ 启动“音量控制”程序

hwnd0 = FindWindow(vbNullString,"音量控制")@H_301_48@ Dim hwnd1 As Long ' 用于记录“全部静音”复选框句柄

hwnd1 = FindWindowEx(hwnd0,0&,"Button","全部静音(&M)") ' 复选框的类名是"Button"@H_301_48@ Dim state As Long ' 用于记录复选框状态

state = SendMessage(hwnd1,BM_GETCHECK,ByVal CLng(0),ByVal CLng(0))@H_301_48@ ' 如果复选框处于未选中状态，则返回0，选中状态返回1@H_301_48@ If state = 0 Then@H_301_48@ SendMessage Me.hWnd,WM_APPCOMMAND,&H200EB0,APPCOMMAND_VOLUME_MUTE *&H10000

' 如果系统没有静音，则使系统静音

' 注：如果再使用一次同样的代码则恢复系统声音

SendMessagehwnd0,WM_CLOSE,0 '关闭音量控制程序@H_301_48@ End If

End Sub

我们再来看一下VB.NET与VB中与何不同：

API函数声明不同

声明类型中的Long类型一律改为Interger

窗体句柄不同

由Me.hwnd改成Me.Handle