热门标签 | HotTags
当前位置:  开发笔记 > 编程语言 > 正文

VB.net进程通信中FindWindow、FindWindowEX、SendMessage函数的理解

目录一、代码背景二、主要工具三、函数解析1、FindWindow:2、FindWindowEx:3、SendMessage:

目录

一、代码背景

二、主要工具

三、函数解析

1、FindWindow:

2、 FindWindowEx:

3、SendMessage:

四、具体代码示例:

 1、第一部分功能:

A、接收端:

B、发送端

C、运行测试

2.第二部分功能:

A、接收端

B、发送端

C、运行测试




一、代码背景

 针对复杂的多进程软件的编写,各进程间的通信能够保证任务的并行处理,而非多线程的伪并行。针对VB.net进程通信,本文所采用的是调用USER32内的Windows API函数。


二、主要工具

主要包括FindWindow、Fin的WindowEX、SendMessage函数。主要用到的工具为Visual Studio 和SPY++,SPY++自行百度下载。


三、函数解析


1、FindWindow:

根据标题名和窗体类别查找父窗体,并返回窗体的句柄数。声明过程如下:

    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer

lpClassName:窗体类的名字,具体窗体类的名字可以通过SPY++查看;

lpWindowName:窗体标题名字,具体窗体标题名字可以通过SPY++查看。


2、 FindWindowEx:

根据父窗体的句柄,和上一个子窗体的句柄及待查找的子窗体类名和窗体标题名字来查找待查找窗体的句柄。声明过程如下:

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Integer, ByVal hWnd2 As Integer, ByVal lpsz1 As String, ByVal lpsz2 As String) As Integer

hWnd1:父窗体句柄;

hWnd2:子窗体索引序号,为0则根据Z序列检索左下角满足要求的窗体,将得到的左下角窗体句柄赋给此参数,则根据Z序列检索左下角窗体下一个窗体的句柄。

关于Z序列的解释:子窗体在VB Form中的排序按照Z序列排序,所谓Z序列是指在XY坐标系的第一象限根据Z的笔顺来排序的,而由于电脑窗体的XY的方向是水平向右为X,竖直向下为Y,故与现实生活中的XY坐标系沿着X轴进行镜像,如下图所示。

 依次检索上图右侧①②③④即可索引到对应位置窗体的句柄。

lpsz1:子窗体类的名字,具体窗体类的名字可以通过SPY++查看;

lpsz2:子窗体标题的名字,具体窗体标题的名字可以通过SPY++查看; 

关于lpsz2这个参数,笔者尝试TextBox、RichTextBox、Label等控件的Text属性均未检索成功,故采用VbNullString作为检索,即不考虑窗体标题名字,最终定位到每个句柄均依靠Z序列来实现。


3、SendMessage:

根据提供的句柄和消息类型及其余两个参数来实现进程间的通信。声明如下:

 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As String) As Integer

hwnd:窗体的句柄;

wMsg:消息类型;

这个可以去看另一篇博主的文章,讲解wMsg参数常量值的。本文引用几处。

wMsg参数常量值:
  #DeFine WM_CREATE 0x01
  创建一个窗口
  #DeFine WM_DESTROY 0x02
  当一个窗口被破坏时发送
  #DeFine WM_MOVE 0x03
  移动一个窗口
  #DeFine WM_SIZE 0x05
  改变一个窗口的大小
  #DeFine WM_ACTIVATE 0x06
  一个窗口被激活或失去激活状态
  #DeFine WM_SETFOCUS 0x07
  一个窗口获得焦点
  #DeFine WM_KILLFOCUS 0x08
  一个窗口失去焦点
  #DeFine WM_ENABLE 0x0A
  一个窗口改变成Enable状态
  #DeFine WM_SETREDRAW 0x0B
  设置窗口是否能重画
  #DeFine WM_SETTEXT 0x0C
  应用程序发送此消息来设置一个窗口的文本
————————————————
版权声明:本文为CSDN博主「物联网小镇」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
原文链接:https://blog.csdn.net/qq_41476542/article/details/106708127

其中  #DeFine WM_SETTEXT 0x0C

是本文代码使用的常量,十进制为12,在VB.net中可以用十进制12表示,或者&HC来表示16进制的12。表示的意思为发送此消息来设置一个窗口的文本。

wParam:表示于常量有关的常量值,这个参数笔者没搞懂,但是默认0是好用的。

lParam:发送的字符串信息。


四、具体代码示例:


 1、第一部分功能:

发送端检索接收端四个Textbox窗口的句柄信息,并通过msgbox显示出来。


A、接收端:

不用添加任何代码,绘制四个Textbox,修改窗体Text属性为Receive,如下图所示。

运行接收端,使用SPY++查看TextBox文本框的类名 。


 B、发送端

绘制一个按钮 

 添加代码:

Public Class Form1Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntegerPrivate Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Integer, ByVal hWnd2 As Integer, ByVal lpsz1 As String, ByVal lpsz2 As String) As IntegerPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As String) As Int32Dim myhwnd As Integer '主窗口句柄Dim sub_1Hwnd As Integer '子窗口1句柄Dim sub_2Hwnd As Integer '子窗口2句柄Dim sub_3Hwnd As Integer '子窗口3句柄Dim sub_4Hwnd As Integer '子窗口4句柄Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Clickmyhwnd = FindWindow("WindowsForms10.Window.8.app.0.141b42a_r7_ad1", "Receive") ’检索主窗体句柄sub_1Hwnd = FindWindowEx(myhwnd, 0, "WindowsForms10.EDIT.app.0.141b42a_r7_ad1", vbNullString) ’检索子窗口1句柄sub_2Hwnd = FindWindowEx(myhwnd, sub_1Hwnd, "WindowsForms10.EDIT.app.0.141b42a_r7_ad1", vbNullString) ’检索子窗口2句柄sub_3Hwnd = FindWindowEx(myhwnd, sub_2Hwnd, "WindowsForms10.EDIT.app.0.141b42a_r7_ad1", vbNullString) ’检索子窗口3句柄sub_4Hwnd = FindWindowEx(myhwnd, sub_3Hwnd, "WindowsForms10.EDIT.app.0.141b42a_r7_ad1", vbNullString) ’检索子窗口4句柄MsgBox(Hex(sub_1Hwnd) + " " + Hex(sub_2Hwnd) + " " + Hex(sub_3Hwnd) + " " + Hex(sub_4Hwnd)) ’以16进制字符串显示句柄信息End Sub
End Class

C、运行测试

先运行接收端,再运行发送端并单击Button1测试:

弹出对话框,得出如下16进制句柄:

210EE6、171014、210604、191022

再次使用SPY++查找各个窗口的句柄

 

 

 满足我们推算的Z序列。


2.第二部分功能:

验证SendMessage通信,本代码Z序列中第2个窗口为例。


A、接收端

窗体控件不动,添加代码

Public Class Form1Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.LoadTextBox3.Text &#61; "窗口2"End SubPrivate Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged &#39;Texebox3窗口内容改变If TextBox3.Text <> "窗口2" Then &#39;Texebox3窗口内容不等于窗口2MsgBox("收到数据&#xff1a;" &#43; TextBox3.Text) &#39;弹出收到数据&#xff1a;对话框End IfTextBox3.Text &#61; "窗口2" &#39;恢复默认值窗口2End Sub
End Class

B、发送端

窗体增加Textbox控件作为发送信息的文本载体&#xff0c;如图

代码修改如下,增加SendMessage函数的调用:

Public Class Form1Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntegerPrivate Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Integer, ByVal hWnd2 As Integer, ByVal lpsz1 As String, ByVal lpsz2 As String) As IntegerPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As String) As Int32Dim myhwnd As Integer &#39;主窗口句柄Dim sub_1Hwnd As Integer &#39;子窗口1句柄Dim sub_2Hwnd As Integer &#39;子窗口2句柄Dim sub_3Hwnd As Integer &#39;子窗口3句柄Dim sub_4Hwnd As Integer &#39;子窗口4句柄Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Clickmyhwnd &#61; FindWindow("WindowsForms10.Window.8.app.0.141b42a_r7_ad1", "Receive") ’检索主窗体句柄sub_1Hwnd &#61; FindWindowEx(myhwnd, 0, "WindowsForms10.EDIT.app.0.141b42a_r7_ad1", vbNullString) ’检索子窗口1句柄sub_2Hwnd &#61; FindWindowEx(myhwnd, sub_1Hwnd, "WindowsForms10.EDIT.app.0.141b42a_r7_ad1", vbNullString) ’检索子窗口2句柄sub_3Hwnd &#61; FindWindowEx(myhwnd, sub_2Hwnd, "WindowsForms10.EDIT.app.0.141b42a_r7_ad1", vbNullString) ’检索子窗口3句柄sub_4Hwnd &#61; FindWindowEx(myhwnd, sub_3Hwnd, "WindowsForms10.EDIT.app.0.141b42a_r7_ad1", vbNullString) ’检索子窗口4句柄&#39;MsgBox(Hex(sub_1Hwnd) &#43; " " &#43; Hex(sub_2Hwnd) &#43; " " &#43; Hex(sub_3Hwnd) &#43; " " &#43; Hex(sub_4Hwnd)) ’以16进制字符串显示句柄信息SendMessage(sub_2Hwnd, 12, 0, TextBox1.Text)TextBox1.Text &#61; ""End Sub
End Class


C、运行测试

先运行接收端&#xff0c;再运行发送端&#xff0c;待发送窗口填写"Hello World"。并单击Button1&#xff08;发送数据&#xff09;测试&#xff0c;如接收端弹出&#xff1a;"接收数据&#xff1a;Hello World"。则测试成功

运行结果如图

 笔者水平有限&#xff0c;如有不足之处&#xff0c;评论区欢迎指教。

源码如

https://download.csdn.net/download/qq835128030/21700002?spm&#61;1001.2014.3001.5503

注&#xff1a;Z序列理解有误&#xff0c;经过实践&#xff0c;笔者所推论的Z序列的理论属于巧合&#xff0c;sub_1Hwnd、sub_2Hwnd、sub_3Hwnd、sub_4Hwnd的值无论接收窗口文本框如何排列&#xff0c;均依次等于Textbox4、Textbox3、、Textbox2、、Textbox1的句柄。即文本框窗口的句柄检索排序按照放置的先后顺序的逆序&#xff0c;先放后检索。后放先检索。作如上修订。2021/08/30 23:19


推荐阅读
  • This feature automatically validates new regions using the AWS SDK, ensuring compatibility and accuracy. ... [详细]
  • WinMain 函数详解及示例
    本文详细介绍了 WinMain 函数的参数及其用途,并提供了一个具体的示例代码来解析 WinMain 函数的实现。 ... [详细]
  • 开机自启动的几种方式
    0x01快速自启动目录快速启动目录自启动方式源于Windows中的一个目录,这个目录一般叫启动或者Startup。位于该目录下的PE文件会在开机后进行自启动 ... [详细]
  • 如何在C#中配置组合框的背景颜色? ... [详细]
  • 2020年9月15日,Oracle正式发布了最新的JDK 15版本。本次更新带来了许多新特性,包括隐藏类、EdDSA签名算法、模式匹配、记录类、封闭类和文本块等。 ... [详细]
  • IOS Run loop详解
    为什么80%的码农都做不了架构师?转自http:blog.csdn.netztp800201articledetails9240913感谢作者分享Objecti ... [详细]
  • 本文详细介绍了批处理技术的基本概念及其在实际应用中的重要性。首先,对简单的批处理内部命令进行了概述,重点讲解了Echo命令的功能,包括如何打开或关闭回显功能以及显示消息。如果没有指定任何参数,Echo命令会显示当前的回显设置。此外,文章还探讨了批处理技术在自动化任务执行、系统管理等领域的广泛应用,为读者提供了丰富的实践案例和技术指导。 ... [详细]
  • WebStorm 是一款强大的集成开发环境,支持多种现代 Web 开发技术,包括 Node.js、CoffeeScript、TypeScript、Dart、Jade、Sass、LESS 和 Stylus。它为开发者提供了丰富的功能和工具,帮助高效构建和调试复杂的 Node.js 应用程序。 ... [详细]
  • 在使用 SQL Server 时,连接故障是用户最常见的问题之一。通常,连接 SQL Server 的方法有两种:一种是通过 SQL Server 自带的客户端工具,例如 SQL Server Management Studio;另一种是通过第三方应用程序或开发工具进行连接。本文将详细分析导致连接故障的常见原因,并提供相应的解决策略,帮助用户有效排除连接问题。 ... [详细]
  • jQuery插件验证与屏幕键盘功能的集成解决方案
    本文介绍了一种集成了验证功能和屏幕键盘的jQuery插件解决方案。该插件不仅提供了强大的表单验证功能,还引入了一个高度可定制的屏幕键盘,以增强用户体验。通过这一集成方案,开发者可以轻松实现复杂的表单验证逻辑,并为用户提供便捷的输入方式,特别适用于移动设备或特殊输入场景。 ... [详细]
  • 在 Windows 10 环境中,通过配置 Visual Studio Code (VSCode) 实现基于 Windows Subsystem for Linux (WSL) 的 C++ 开发,并启用智能代码提示功能。具体步骤包括安装 VSCode 及其相关插件,如 CCIntelliSense、TabNine 和 BracketPairColorizer,确保在 WSL 中顺利进行开发工作。此外,还详细介绍了如何在 Windows 10 中启用和配置 WSL,以实现无缝的跨平台开发体验。 ... [详细]
  • 在 PySimpleGUI 中实现异步功能的详细指南 ... [详细]
  • C#中实现高效UDP数据传输技术
    C#中实现高效UDP数据传输技术 ... [详细]
  • 需求:在指定的DIV区域内点击时,需展示该区域内的附加操作面板;而在区域外点击时,则应自动隐藏该附加操作面板。通过精准的事件监听与处理,确保用户交互体验的流畅性和直观性。 ... [详细]
  • 利用ViewComponents在Asp.Net Core中构建高效分页组件
    通过运用 ViewComponents 技术,在 Asp.Net Core 中实现了高效的分页组件开发。本文详细介绍了如何通过创建 `PaginationViewComponent` 类并利用 `HelloWorld.DataContext` 上下文,实现对分页参数的定义与管理,从而提升 Web 应用程序的性能和用户体验。 ... [详细]
author-avatar
棒棒冰
这个家伙很懒,什么也没留下!
PHP1.CN | 中国最专业的PHP中文社区 | DevBox开发工具箱 | json解析格式化 |PHP资讯 | PHP教程 | 数据库技术 | 服务器技术 | 前端开发技术 | PHP框架 | 开发工具 | 在线工具
Copyright © 1998 - 2020 PHP1.CN. All Rights Reserved | 京公网安备 11010802041100号 | 京ICP备19059560号-4 | PHP1.CN 第一PHP社区 版权所有