浅谈VB.NET中的跨进程消息钩子

我们都知道在VB 里面可以用API函数来进行子类化 以处理自身的窗体过程 如果跨进程 这就麻烦了 由于我们的函数在我们的进程中（废话） 而目标进程的窗口的消息处理函数在目标进程（还是废话） 所以只能想办法把我们的代码放到对方进程中去执行——并且要告知我们的进程得到了什么消息 恐怕写汇编就有点吓人了 于是大家都写DLL 其原理就是把回调函数放到一个DLL里面注入到对方进程 DLL去修改目标窗口的默认处理函数——把消息发送给我们

成都创新互联公司主要业务有网站营销策划、成都网站设计、成都网站建设、微信公众号开发、微信小程序、H5场景定制、程序开发等业务。一次合作终身朋友，是我们奉行的宗旨；我们不仅仅把客户当客户，还把客户视为我们的合作伙伴，在开展业务的过程中，公司还积累了丰富的行业经验、成都全网营销推广资源和合作伙伴关系资源，并逐渐建立起规范的客户服务和保障体系。 

当然也有 另类 一点的 /ThueDownloads/index s上面有一个DLL包 其中含有一个dssubcls dll 用它 可以轻松的完成我们的工作 就像调用一个API一样简单 而且在我们的程序中使用回调函数！呵呵 省去了自己写DLL的麻烦之后 这些好处足以吸引各位观众了吧？

好了 VB 的代码大家可以在下载的压缩包中找到 作者提供了一个以记事本为基础的实例（在\dssubcls目录下） 非常详细无需详细叙述了 关键是在VB NET里面如何使用它——如何声明API 如何进行回调 看用来子类化的API的VB 声明先

Declare Function SubClass Lib dssubcls (ByVal HwndSubclass _Optional ByVal Address = _Optional ByVal OldStyle = _Optional ByVal NewStyle = _Optional ByVal Ext = _Optional ByVal SubClass = )转化成VB NET的声明类似下面的样子（习惯使然 我把展开成了As Integer）

Declare Function SubClass Lib dssubcls (ByVal HwndSubclass As Integer Optional ByVal Address As Integer = Optional ByVal OldStyle As Integer = Optional ByVal NewStyle As Integer = Optional ByVal Ext As Integer = Optional ByVal SubClass As Integer = ) As Integer

这不是很好嘛？问题来了 这样的声谨毁明在VB 里面可以使用Addressof function来传入第二个参数（参见你下载的源码） 但是在VB NET里面直接Addressof就不成了祥毁备——我们需要委托一个回调

Private Delegate Function HookCallBack(ByVal wMsg As Integer ByVal wParam As Integer ByVal lParam As Integer) As Integer

这个委托 对应的是以下函数

Private Function mCallback(ByVal wMsg As Integer ByVal wParam As Integer ByVal lParam As Integer) As Integer 在这里处理得到的消息

End Function

使用时 需要注意先实例化这个委托

Private fix_COCD = New HookCallBack(AddressOf mCallback)

此时 fix_COCD就是我们的mCallback函数引用了 用更直观的观点来看 fix_COCD就是一个指向mCallback的指针 相余大当于VB 里面的Addressof function得到的结果 看似问题解决了 于是我们写了以下代码来搞对方的进程窗体消息

SubClass(Handle fix_COCD ) 修改处理函数

问题真是接踵而至！IDE提示变量类型不符！！事实确实如此 我们把一个HookCallBack类型当做Integer来传递 无法通过检查 那么强行转换吧？当然 你可以去试试 这时 我所做的是 修改这个API声明

Private Declare Function SubClass Lib dssubcls (ByVal HwndSubclass As Integer Optional ByVal Address As HookCallBack = Nothing Optional ByVal OldStyle As Integer = Optional ByVal NewStyle As Integer = Optional ByVal Ext As Integer = Optional ByVal SubClass As Integer = ) As Integet

使之符合我们的调用？有点倒行逆施？并非如此 当你习惯了修改API声明之后 会发现有些事变得如此简单 有些事需要你重新认识——对于WIN API也是如此

至此 大功告成

较为完整的代码如下

CodePrivate Declare Function SubClass Lib dssubcls (ByVal HwndSubclass As Integer Optional ByVal Address As HookCallBack = Nothing Optional ByVal OldStyle As Integer = Optional ByVal NewStyle As Integer = Optional ByVal Ext As Integer = Optional ByVal SubClass As Integer = ) As IntegerPrivate Declare Function UseSendMessage Lib dssubcls (ByVal use As Integer) As Integer 实例化的委托Private fix_COCD = New HookCallBack(AddressOf mCallback) 委托Private Delegate Function HookCallBack(ByVal wMsg As Integer ByVal wParam As Integer ByVal lParam As Integer) As IntegerPublic Sub Hook(ByVal Handle As Integer)proc = SubClass(Handle fix_COCD ) 修改处理函数UseSendMessage( )End Sub

Private Function mCallback(ByVal wMsg As Integer ByVal wParam As Integer ByVal lParam As Integer) As Integer

End Function

用这个代码的时候 可能会碰见一些 意外情况 例如wm_datacopy 此时 我们需要进一步去获取LPARTM所指向的结构并对其进行解析（我们要读的是对方窗口所在进程的内存 具体地址由lParam确定——实际上lParam一直是一个指针——IntPrt 但它与Integer完全就是一回事（如果你使用VB 可能需要使用Intprt toint 或intprt=new intprt(integer)这些）

CodePublic Class GetMsgPublic Declare Function ReadProcessMemory Lib kernel (ByVal hProcess As Integer ByVal lpBaseAddress As Integer ByVal lpBuffer() As Byte ByVal nSize As Integer ByRef lpNumberOfBytesWritten As Integer) As IntegerPublic Declare Function ReadProcessMemory Lib kernel (ByVal hProcess As Integer ByVal lpBaseAddress As Integer ByRef int As Integer ByVal nSize As Integer ByRef lpNumberOfBytesWritten As Integer) As IntegerPublic Declare Function OpenProcess Lib kernel (ByVal dwDesiredAccess As Integer ByVal bInheritHandle As Integer ByVal dwProcessId As Integer) As IntegerPublic Declare Function CloseHandle Lib kernel (ByVal hObject As Integer) As IntegerPrivate hProc As IntPtrSub New(ByVal PID As Integer)hProc = OpenProcess(HFFFF False PID)End Sub

Function readmsg(ByVal address As Integer) As Byte()Dim buf( ) As ByteReadProcessMemory(hProc address buf )Return bufEnd Function

Protected Overrides Sub Finalize()CloseHandle(hProc)MyBase Finalize()End SubEnd Class这个类提供了Readmsg方法来读取一些内容——但这并不是完整的 我们知道 LPARAM指向的结构是这样的

_Public Structure COPYDATASTRUCTPublic dwData As IntegerPublic cbData As IntegerPublic lpData As IntPtrEnd Structure

其中dwData我们不是很关心 当然其中也可能存在一些有用信息（这里不想多说 网上有些文章纯属误导）

而cbData是一个长度 lpData的长度

lpData这里被声明为指针 看起来更直观了——它就是地址

有了地址和长度 如何读取代码就自己写吧

提示一下 参考我重载的ReadProcessMemory可能对你有不少帮助

当然 上面提到的只是 特殊情况 中的一个典型 还有很多时候 进程是用自定义消息（H A）来传递数据的 例如我所开发的这个工程 打印mCallBack的参数后 得到的是如下结果（十六进制 只提取了有用的信息）

D

其中lParam就是一个指针 我读了其中的一部分

Function readmsg(ByVal address As Integer) As Byte()Dim buf( ) As ByteReadProcessMemory(hProc address buf )Return bufEnd Function

现在就明白为什么上面的代码是那样了 ）

然后进行了一个处理 得到了我想要的信息

消息解码后得到的移动棋子信息 玩家 起X 起Y 止X 止Y 棋子编号

走棋总步数Event Move(ByVal player As Byte ByVal sx As Byte ByVal sy As Byte ByVal dx As Byte ByVal dy As Byte ByVal name As Byte ByVal [step] As Byte)Private Function mCallback(ByVal wMsg As Integer ByVal wParam As Integer ByVal lParam As Integer) As IntegerIf wParam = H ThenDim s As Byte() = msg readmsg(lParam)RaiseEvent Move(s( ) s( ) s( ) s( ) s( ) s( ) s( ))End IfEnd Function

当然 在我的工程里面重载的ReadProcessMemory并没有被使用

补充一下咯

在VB NET中 处理自己的窗体的消息只需要重载窗体消息处理过程就可以了 无需子类化 ）

有补充一下

lishixinzhi/Article/program/net/201311/12647

vb点虐 的serialport控件实时采集16进制单片机温度值，新手实在没看懂，大家进来帮我看一下，谢谢啦

1 那里只是重新搏宽给String赋值。

2 空字符不存在基世亮要消除。

3 datastr是数组！

4 这和采集的数返盯据有关，重点是 dec = val(hexString)

十六进制计算方法

0-9对应0-9；

A-F对应10-15；

十六进制数的加减法的进／借位规则为：借一当十六，逢十六进一。

十六进制数同二进制数及十进制数一样，也可以写成展开式的形式。

十进制整数转十六进制数：“除以16取余，逆序排列”（除16取余法）

例：（1765）10=（6E5）2

1765/16=110.......5

110/16=6........14

616=0......6

因为14对应E

十六进制数转换成二进制数：把每一个十六进制数转换成4位的二进制数，就得到一个二进制数。

十六进制数字与二进制数字的对应关系如下：

0000 - 0 0100 - 4 1000 - 8 1100 - C

0001 - 1 0101 - 5 1001 - 9 1101 - D

0010 - 2 0110 - 6 1010 - A 1110 - E

0011 - 3 0111 - 7 1011 - B 1111 - F

例：将十六进制数5DF.9 转换成二进制：

5 D F ． 9 0101 1101 1111 ．1001

即：（5DF.9）16 =（10111011111.1001）2

例：将二进制数1100001.111 转换成十六进制：

0110 0001 ． 1110 6 1 ． E

即：（1100001.111）2 =（61.E）16

扩展资料：

进制转换的理论：

1、 二进制数、十六进制数转换为十进制数：

用按权展开法把一个任意R 进制数a n a n-1 ...a1a 0 . a -1 a -2...a -m转换成十进制数，其十进制数值为每一位数字与其位权之积的和。

a n ×Rn+ a n-1×R n-1 +…+ a 1×R 1 + a 0×R 0 + a -1 ×R -1+ a -2×R -2+ …+ a -m ×R -m

2、 十进制转化成R 进制十进制数轮换成R 进制数要分两个部分：

整数部分要除R 取余数，直到商为0，得到的余数即为二进数各位的数码，余数从右到左排列(反序排 列) 。小数部分要乘R 取整数，得到的整数即为二进数各位的数码，整数从左到右排列(顺序排列) 。

3、十六进制转化成二进制：每一位十六进制数对应二进制的四位，逐位展开。

4、 二进制转化成十六进制：将二进制数从小数点开始分别向左（对二进制整数）或向右（对二进制小数）每四位组成一组，不足四位补零。

参考资料：

十六进制转换_百度百科

进制转换-百度百科

VB.NET 如何通过TCP/IP协议通讯实现16进制数据的接收？

传输Integer 数据类启闹型来传输比较方便.因为Integer 的取值可以是0x0000-0xFFFF .当你把让旁液数据发送到坦物目的主机后可以利用Hex() 把接收到的数据从十进制转换到十六进制..

分享标题：vb点虐 十六进制补零的简单介绍
网站URL：http://kswjz.com/article/ddpshce.html