一、代码背景

二、主要工具

三、函数解析

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 = "窗口2"End SubPrivate Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged     'Texebox3窗口内容改变If TextBox3.Text <> "窗口2" Then                                                                'Texebox3窗口内容不等于窗口2MsgBox("收到数据：" + TextBox3.Text)                                                        '弹出收到数据：对话框End IfTextBox3.Text = "窗口2"                                                                          '恢复默认值窗口2End Sub
End Class

B、发送端

窗体增加Textbox控件作为发送信息的文本载体，如图

代码修改如下,增加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            '主窗口句柄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进制字符串显示句柄信息SendMessage(sub_2Hwnd, 12, 0, TextBox1.Text)TextBox1.Text = ""End Sub
End Class

C、运行测试

先运行接收端，再运行发送端，待发送窗口填写"Hello World"。并单击Button1（发送数据）测试，如接收端弹出："接收数据：Hello World"。则测试成功

运行结果如图

笔者水平有限，如有不足之处，评论区欢迎指教。

源码如

https://download.csdn.net/download/qq835128030/21700002?spm=1001.2014.3001.5503

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

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

C#关于外挂汉化的一些思考(API函数FindWindow,FindWindowEx,SendMessage)(转)
这次我们试着运用C#的API函数去修改别的程序的标题文本(适用范围C#) 其实这是FindWindow,FindWindowEx,SendMessage的应用举例之一也就是所谓的外挂汉化. 附:Wi ...
js中(function(){…})()立即执行函数写法理解
js中(function(){-})()立即执行函数写法理解 javascript和其他编程语言相比比较随意,所以javascript代码中充满各种奇葩的写法,有时雾里看花,当然,能理解各型各色的写法 ...
Linux进程通信中IPC对象——IPC_PRIVATE与ftok
在linux中,可以使用IPC对象来进行进程间通信.IPC对象存在于内核中,多进程可以操作同一个IPC对象.每个IPC对象都有一个唯一的编号,该编号是由系统分配的.那么不同的进程如何知道这个编号,进而 ...
linux进程通信中有名管道的特点,linux进程通信之(四):有名管道的读与写
前面我们说了无名管道,下面我们来说说有名管道,请看下面一段代码: fifo_write.c: #include#include#include#include#include#include#incl ...
vb在串口通信中运行时错误‘380’无效属性值
串口通信MSComm1输出中遇到小问题 MSComm1.Output = a 提示报错, 运行时错误'380'无效属性值经过调整后,对发送字节进行数组定义,问题解决,程序如下
中计算散度的函数_理解 Kullback–Leibler 散度的近似
作者:John Schulman(OpenAI) 译者:朱小虎 Xiaohu (Neil) Zhu(CSAGI / University AI) 原文链接:http://joschu.net/blog ...
Python中的partial便函数的理解
偏函数(Partial function)是通过将一个函数的部分参数预先绑定为某些值,从而得到一个新的具有较少可变参数的函数.在Python中,可以通过functools中的partial高阶函数来实 ...
对于\n冲刷缓冲区，对Linux中fork（）函数的理解
首先今天写了两道感觉一模一样的fork题目,都是输出_的,结果一个题目输出8个_,一个题目输出6个_,我看了许久,才发现一点点的不同,于是去Linux系统下自己编译了两个cpp文件,果然,现在贴上图: ...
C#用 SendKyes 结合 Process 或 API FindWindow、SendMessage(PostMessage) 等控制外部程序
Win32 平台是消息驱动模式 .Net 框架是事件驱动模式标题所指的 "控制外部程序",外部程序是指与本程序无内在相关性的另外一个程序基于上面提到的,对于.NET的win ...

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

一、代码背景

二、主要工具

三、函数解析

1、FindWindow：

2、 FindWindowEx：

3、SendMessage：

四、具体代码示例：

1、第一部分功能：

A、接收端：

B、发送端

C、运行测试

2.第二部分功能：

A、接收端

B、发送端

C、运行测试

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

最新文章

热门文章