开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 1409|回复: 24
收起左侧

[易语言纯源码] 3.6.0.18发送超长文本 hook

[复制链接]
头像被屏蔽
结帖率:72% (18/25)
发表于 2024-5-27 20:19:29 | 显示全部楼层 |阅读模式   福建省泉州市
分享源码
界面截图: -
是否带模块: 纯源码
备注说明: -
.版本 2

.子程序 功能_发文本消息, , , 3.6.0.18 版VX
.参数 对方VXID, 文本型
.参数 消息的内容, 文本型
.局部变量 进程句柄, 整数型
.局部变量 群ID结构体, 整数型
.局部变量 组装代码, 字节集
.局部变量 变量, 整数型
.局部变量 线程句柄, 整数型
.局部变量 参数地址, 整数型
.局部变量 Call_Addr, 整数型
.局部变量 艾特对象起始结构, 整数型
.局部变量 艾特对象起始VXID内容, 整数型
.局部变量 艾特对象结束结构, 整数型
.局部变量 艾特结构体, 整数型
.局部变量 消息内容指针, 整数型
.局部变量 消息内容结构体, 整数型
.局部变量 群ID内容, 整数型
.局部变量 执行代码区, 整数型
.局部变量 ECX_Addr, 整数型
.局部变量 缓冲区结构体, 整数型
.局部变量 消息, 字节集
.局部变量 群ID, 文本型

群ID = 对方VXID
Call_Addr = WeChatWin_DLL + 十六到十 (“4BE7B0”)

ECX_Addr = 取模块句柄 (进程PID, “msftedit.dll”) + 十六到十 (“23363”)


' 调试输出 (十到十六 (Call_Addr))

' 返回 ()
进程句柄 = OpenProcess (#PROCESS_ALL_ACCESS, 0, 进程PID)  ' 再取得进程句柄

群ID结构体 = VirtualAllocEx (进程句柄, 0, 2048, #MEM_COMMIT, #PAGE_EXECUTE_READWRITE)
消息内容指针 = VirtualAllocEx (进程句柄, 0, 9000, #MEM_COMMIT, #PAGE_EXECUTE_READWRITE)
消息内容结构体 = VirtualAllocEx (进程句柄, 0, 1024, #MEM_COMMIT, #PAGE_EXECUTE_READWRITE)
群ID内容 = VirtualAllocEx (进程句柄, 0, 1024, #MEM_COMMIT, #PAGE_EXECUTE_READWRITE)
艾特对象起始结构 = VirtualAllocEx (进程句柄, 0, 1024, #MEM_COMMIT, #PAGE_EXECUTE_READWRITE)
艾特对象起始VXID内容 = VirtualAllocEx (进程句柄, 0, 1024, #MEM_COMMIT, #PAGE_EXECUTE_READWRITE)
艾特结构体 = VirtualAllocEx (进程句柄, 0, 1024, #MEM_COMMIT, #PAGE_EXECUTE_READWRITE)
缓冲区结构体 = VirtualAllocEx (进程句柄, 0, 2048, #MEM_COMMIT, #PAGE_EXECUTE_READWRITE)
执行代码区 = VirtualAllocEx (进程句柄, 0, 1024, #MEM_COMMIT, #PAGE_EXECUTE_READWRITE)

消息 = 大恩_VX_文本到消息 (消息的内容)

写内存字节集 (进程PID, 消息内容指针, 消息, 取字节集长度 (消息))
写内存整数型 (进程PID, 消息内容结构体, 消息内容指针)
写内存整数型 (进程PID, 消息内容结构体 + 4, 取字节集长度 (消息))
写内存整数型 (进程PID, 消息内容结构体 + 8, 取字节集长度 (消息))
写内存整数型 (进程PID, 消息内容结构体 + 12, 0)
写内存整数型 (进程PID, 消息内容结构体 + 16, 0)


写内存字节集 (进程PID, 艾特对象起始VXID内容, 编码_Ansi到Unicode (对方VXID), 取字节集长度 (编码_Ansi到Unicode (对方VXID)))
写内存整数型 (进程PID, 艾特对象起始结构, 艾特对象起始VXID内容)
写内存整数型 (进程PID, 艾特对象起始结构 + 4, 取文本长度 (对方VXID))
写内存整数型 (进程PID, 艾特对象起始结构 + 8, 取文本长度 (对方VXID))
写内存整数型 (进程PID, 艾特对象起始结构 + 12, 0)
写内存整数型 (进程PID, 艾特对象起始结构 + 16, 0)
写内存整数型 (进程PID, 艾特对象起始结构 + 20, 0)


写内存整数型 (进程PID, 艾特结构体, 艾特对象起始结构)
写内存整数型 (进程PID, 艾特结构体 + 4, 艾特对象起始结构 + 20)
写内存整数型 (进程PID, 艾特结构体 + 8, 艾特对象起始结构 + 20)
写内存整数型 (进程PID, 艾特结构体 + 12, 0)


写内存字节集 (进程PID, 群ID内容, 编码_Ansi到Unicode (群ID), 取字节集长度 (编码_Ansi到Unicode (群ID)))
写内存整数型 (进程PID, 群ID结构体, 群ID内容)
写内存整数型 (进程PID, 群ID结构体 + 4, 取文本长度 (群ID))
写内存整数型 (进程PID, 群ID结构体 + 8, 取文本长度 (群ID))
写内存整数型 (进程PID, 群ID结构体 + 12, 0)
写内存整数型 (进程PID, 群ID结构体 + 16, 0)

写内存整数型 (进程PID, 群ID结构体 + 2004, Call_Addr)
写内存整数型 (进程PID, 群ID结构体 + 2008, 1)

置汇编代码 ({  })
Pushad ()
Mov_ESI (群ID结构体 + 2008)
Mov_EAX (艾特结构体)
Push (1)
Push_EAX ()
Mov_EDI (消息内容结构体)
Push_EDI ()

Mov_EDX (群ID结构体)
Mov_ECX (缓冲区结构体)

Call_Ptr (群ID结构体 + 2004)

Add_ESP (十六到十 (“c”))
Popad ()
ret ()

组装代码 = 取汇编代码 ()


写内存字节集 (进程PID, 执行代码区, 组装代码, 取字节集长度 (组装代码))  ' 这里是将组装好的机器码写入申请的那块内存。
' 信息框 (“call线程地址” + #换行符 + 十到十六 (执行代码区, 真), 0, , )



线程句柄 = CreateRemoteThread (进程句柄, 0, 0, 执行代码区, 参数地址, 0, 0)  ' 写进去之后执行。
WaitForSingleObject (线程句柄, 2000)  ' 等待执行完毕。


' VirtualFreeEx (进程句柄, 内存地址, 0, #MEM_RELEASE)  ' 释放我们申请的内存,不然游戏会越来越慢。
CloseHandle (线程句柄)  ' 关闭
CloseHandle (进程句柄)  ' 关闭



评分

参与人数 3精币 +3 收起 理由
wa690602724 + 1 感谢分享,很给力!~
多多帅吧 + 1 感谢你的支持,精易有你更精彩
財財 + 1 感谢分享,很给力!~

查看全部评分


签到天数: 4 天

发表于 2024-10-12 16:03:38 | 显示全部楼层   广东省深圳市
大佬知道大恩开源的这个dll发送消息,有时候发不出去的问题吗
回复 支持 反对

使用道具 举报

签到天数: 3 天

发表于 2024-6-25 00:53:17 | 显示全部楼层   海南省澄迈县
感谢分享,很给力!~
回复 支持 反对

使用道具 举报

签到天数: 1 天

发表于 2024-5-31 00:53:45 | 显示全部楼层   广东省惠州市
感谢分享~~~~~
回复 支持 反对

使用道具 举报

结帖率:88% (14/16)

签到天数: 4 天

发表于 2024-5-30 02:50:11 | 显示全部楼层   湖南省娄底市
感谢分享,很给力!~
回复 支持 反对

使用道具 举报

结帖率:0% (0/2)

签到天数: 25 天

发表于 2024-5-29 08:43:08 | 显示全部楼层   广西壮族自治区玉林市
感谢分享,很给力!~
回复 支持 反对

使用道具 举报

结帖率:98% (46/47)

签到天数: 26 天

发表于 2024-5-29 07:11:59 | 显示全部楼层   山东省青岛市
感谢发布原创作品,精易因你更精彩!6666666666666
回复 支持 反对

使用道具 举报

结帖率:98% (103/105)

签到天数: 26 天

发表于 2024-5-29 07:07:14 | 显示全部楼层   山东省青岛市
下个学习一下
回复 支持 反对

使用道具 举报

结帖率:80% (4/5)

签到天数: 2 天

发表于 2024-5-28 22:15:39 | 显示全部楼层   山东省潍坊市
已经顶贴,感谢您对论坛的支持!
回复 支持 反对

使用道具 举报

结帖率:100% (1/1)
发表于 2024-5-28 20:30:09 | 显示全部楼层   福建省泉州市
真是太棒了,感觉自己瞬间提升了一个档次。
回复 支持 反对

使用道具 举报

结帖率:100% (2/2)

签到天数: 26 天

发表于 2024-5-28 19:01:55 | 显示全部楼层   广东省深圳市
学习一下
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表