PcHook-Hook消息 （解决漏消息问题）

.版本 2
.支持库 EThread

.程序集 窗口程序集_窗口1

.子程序 _窗口1_创建完毕


启动线程 (&取模块基址, , )

.子程序 取模块基址

.判断循环首 (GetModuleHandle (“WeChatWin.dll”) ＝ 0)
    延时 (100)
.判断循环尾 ()
模块地址 ＝ GetModuleHandle (“WeChatWin.dll”)
Hook_Air (模块地址 ＋ 3270158, 7, { 96, 86, 232, 0, 0, 0, 0, 97 }, 到整数 (&获取消息1), 真)

.子程序 获取消息1
.参数 数据地址, 整数型
.局部变量 消息地址, 整数型
.局部变量 消息内容, 文本型
.局部变量 Wxid_1, 文本型
.局部变量 Wxid_2, 文本型
.局部变量 类型, 整数型

消息地址 ＝ 内存读整数 (内存读整数 (模块地址 ＋ 20619260))
消息内容 ＝ 编码_Unicode到Ansi (内存读字节集 (内存读整数 (消息地址 ＋ 104), 4096))
.判断开始 (指针到整数 (消息地址 ＋ 276) ＝ 0)
    Wxid_1 ＝ 编码_Unicode到Ansi (内存读字节集 (内存读整数 (消息地址 ＋ 64), 100))
    编辑框1.加入文本 (“[私聊消息] ” ＋ #换行符 ＋ “Wxid：” ＋ Wxid_1 ＋ #换行符 ＋ “内容：” ＋ 消息内容 ＋ #换行符 ＋ #换行符)
.默认
    Wxid_1 ＝ 编码_Unicode到Ansi (内存读字节集 (内存读整数 (消息地址 ＋ 64), 100))
    Wxid_2 ＝ 编码_Unicode到Ansi (内存读字节集 (内存读整数 (消息地址 ＋ 276), 100))
    编辑框1.加入文本 (“[群聊消息]” ＋ #换行符 ＋ “群ID：” ＋ Wxid_1 ＋ #换行符 ＋ “Wxid：” ＋ Wxid_2 ＋ #换行符 ＋ “内容：” ＋ 消息内容 ＋ #换行符 ＋ #换行符)
.判断结束

@wangzhen660326