wx hook求助

小麒QCC

各位大哥，帮小弟看一下到底哪里不对？跟着魏培林的教程写的，启动微信获取不到事件输出主程序代码如下

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
程_线程许可	整数型
程_服务端指针	整数型
程_运行目录	文本型

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
微信安装目录	文本型

微信安装目录 ＝ 取微信安转目录 ()
启动并注入 (微信安装目录, g_服务端口, 取运行目录 () ＋ “\call.dll”, “WeChat.exe”)

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

ETCP初始化 (&_服务端回调参考, , )
g_服务指针 ＝ 服务端创建 (0, 真, “127.0.0.1”)
如果真 (g_服务指针 ＝ 0)
信息框 (“服务端创建失败”, 0, , )
返回 ()
g_服务端口 ＝ 服务端取端口 (g_服务指针)

子程序名	返回值类型	公开	备 注
_服务端回调参考			多线程回调，例如在回调函数体内使用ADO请自己初始化：CoInitialize(0)
参数名	类 型	参考	可空	数组	备 注
服务指针	整数型				便于分辨服务端，"服务端创建"返回的指针。
客户句柄	整数型				便于分辨客户端，客户端的socket。
事件类型	整数型				1、客户进入 2、数据到达 3、客户断开，#etcp_ 常量。
封包地址	整数型				通用取数据参数一。
封包长度	整数型				通用取数据参数二。
服务总数	整数型				该服务端的客户数量。

判断 (事件类型 ＝ 1)
调试输出 (“客户进入”)
判断 (事件类型 ＝ 2)
调试输出 (“数据到达”)
判断 (事件类型 ＝ 3)
调试输出 (“客户离开”)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 程_线程许可, 整数型<br /> .程序集变量 程_服务端指针, 整数型<br /> .程序集变量 程_运行目录, 文本型<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 微信安装目录, 文本型<br /> <br /> 微信安装目录 ＝ 取微信安转目录 ()<br /> 启动并注入 (微信安装目录, g_服务端口, 取运行目录 () ＋ “\call.dll”, “WeChat.exe”)<br /> <br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> ETCP初始化 (&_服务端回调参考, , )<br /> g_服务指针 ＝ 服务端创建 (0, 真, “127.0.0.1”)<br /> .如果真 (g_服务指针 ＝ 0)<br />     信息框 (“服务端创建失败”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> g_服务端口 ＝ 服务端取端口 (g_服务指针)<br /> <br /> <br /> .子程序 _服务端回调参考, , , 多线程回调，例如在回调函数体内使用ADO请自己初始化：CoInitialize(0)<br /> .参数 服务指针, 整数型, , 便于分辨服务端，"服务端创建"返回的指针。<br /> .参数 客户句柄, 整数型, , 便于分辨客户端，客户端的socket。<br /> .参数 事件类型, 整数型, , 1、客户进入 2、数据到达 3、客户断开，#etcp_ 常量。<br /> .参数 封包地址, 整数型, , 通用取数据参数一。<br /> .参数 封包长度, 整数型, , 通用取数据参数二。<br /> .参数 服务总数, 整数型, , 该服务端的客户数量。<br /> <br /> .判断开始 (事件类型 ＝ 1)<br />     调试输出 (“客户进入”)<br /> .判断 (事件类型 ＝ 2)<br />     调试输出 (“数据到达”)<br /> .判断 (事件类型 ＝ 3)<br />     调试输出 (“客户离开”)<br /> .默认<br /> <br /> .判断结束

dll代码如下

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		请在本子程序中放置动态链接库初始化代码

变量名	类 型	静态	数组	备 注
服务端端口	整数型

ETCP初始化 (, &_客户端回调参考, , , )
服务端端口 ＝ 到整数 (取文本右边 (进程_取启动参数 (), 5))
客户端连接 (“127.0.0.1”, 服务端端口, 10, 真, , , , , )
_临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
返回 (0)  ' 返回值被忽略。

子程序名	返回值类型	公开	备 注
_临时子程序

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。

子程序名	返回值类型	公开	备 注
_客户端回调参考			多线程回调，例如在回调函数体内使用ADO请自己初始化：CoInitialize(0)
参数名	类 型	参考	可空	数组	备 注
客户指针	整数型				便于分辨客户端，"客户端连接"返回的指针。
服务句柄	整数型				服务端的socket。
事件类型	整数型				1、客户进入 2、数据到达 3、客户断开，#etcp_ 常量。
封包地址	整数型				通用取数据参数一。
封包长度	整数型				通用取数据参数二。

.版本 2<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, 公开, 请在本子程序中放置动态链接库初始化代码<br /> .局部变量 服务端端口, 整数型<br /> <br /> ETCP初始化 (, &_客户端回调参考, , , )<br /> 服务端端口 ＝ 到整数 (取文本右边 (进程_取启动参数 (), 5))<br /> 客户端连接 (“127.0.0.1”, 服务端端口, 10, 真, , , , , )<br /> _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码<br /> 返回 (0)  ' 返回值被忽略。<br /> <br /> .子程序 _临时子程序, , 公开<br /> <br /> ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。<br /> <br /> .子程序 _客户端回调参考, , , 多线程回调，例如在回调函数体内使用ADO请自己初始化：CoInitialize(0)<br /> .参数 客户指针, 整数型, , 便于分辨客户端，"客户端连接"返回的指针。<br /> .参数 服务句柄, 整数型, , 服务端的socket。<br /> .参数 事件类型, 整数型, , 1、客户进入 2、数据到达 3、客户断开，#etcp_ 常量。<br /> .参数 封包地址, 整数型, , 通用取数据参数一。<br /> .参数 封包长度, 整数型, , 通用取数据参数二。

源码如下
dll.e (924.27 KB, 下载次数: 1)

2022-5-19 18:55 上传

点击文件名下载附件
dll 主程序.e (10.9 KB, 下载次数: 2)

2022-5-19 18:55 上传

点击文件名下载附件
主程序



补充内容 (2022-5-31 20:50):
自己已解决

冰棍好烫啊

别用注入dll了,远程hook吧

HH97

估摸你端口没取到

HH97

服务端创建完毕把端口保存一下，然后DLL加载的时候再读取就好了

小麒QCC

冰棍好烫啊 发表于 2022-5-19 19:32
别用注入dll了,远程hook吧

不会呀，我其实就想弄一个群fa，我群太多了，大佬有没有例子？

冰棍好烫啊

小麒QCC 发表于 2022-5-20 09:30
不会呀，我其实就想弄一个群fa，我群太多了，大佬有没有例子？

看看我之前的帖子,和别的大佬开源的例子

小麒QCC

冰棍好烫啊 发表于 2022-5-20 10:23
看看我之前的帖子,和别的大佬开源的例子

已经看过好多遍了看不懂

小麒QCC

HH97 发表于 2022-5-19 20:44
服务端创建完毕把端口保存一下，然后DLL加载的时候再读取就好了

还是不行，没反应

zz1596

估摸你端口没取到

小麒QCC

zz1596 发表于 2022-6-3 17:09
估摸你端口没取到

自己已解决，谢谢