VB和VB.NET中获得其他窗体控件句柄

本文介绍了一个使用VB编写的简单程序,该程序可以控制Windows系统的音量,包括静音和取消静音的功能。通过调用FindWindow、FindWindowEx和SendMessage等API函数,程序能够找到并操作音量控制窗口中的全部静音复选框。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

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      ’  设置复选框状态
            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

             

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值