发下我的游戏抓包工具源码

benxianqingfeng

.版本 2
.支持库 eNetIntercept

.程序集 窗口程序集
.程序集变量 网络服务, 网络服务安装

.子程序 __启动窗口_创建完毕


.如果真 (网络服务.是否已安装 () ＝ 假)
    .如果真 (网络服务.安装 (“ESPI11.dll”) ＝ 假)
        信息框 (“网络服务安装失败！”, #确认钮 ＋ #错误图标, “错误”)
    .如果真结束

.如果真结束


.子程序 _网截_调发送, 整数型
.参数 调用者信息, 调用者信息, 参考
.参数 套接字句柄, 整数型, 参考
.参数 网络数据, 网络数据, 参考
.参数 调用方式, 整数型, 参考

.如果 (选择框所有进程.选中 ＝ 真)
    编辑框发送的数据.内容 ＝ 编辑框发送的数据.内容 ＋ 网络数据.到文本 () ＋ #换行符 ＋ “------------------------------------------------”
.否则
    .如果真 (寻找文本 (调用者信息.取进程名 (), 编辑框进程名字.内容, 1, 真) ≠ -1)
        编辑框发送的数据.内容 ＝ 编辑框发送的数据.内容 ＋ 网络数据.到文本 () ＋ #换行符 ＋ “------------------------------------------------”
    .如果真结束

.如果结束


.子程序 _按钮开始_被单击

网截.打开 ()


.子程序 _按钮暂停_被单击

网截.关闭 ()


.子程序 _网截_调定向发送, 整数型
.参数 调用者信息, 调用者信息, 参考
.参数 套接字句柄, 整数型, 参考
.参数 网络数据, 网络数据, 参考
.参数 调用方式, 整数型, 参考
.参数 网址, 网址信息, 参考

.如果 (选择框所有进程.选中 ＝ 真)
    编辑框发送的数据.内容 ＝ 编辑框发送的数据.内容 ＋ 网络数据.到文本 () ＋ #换行符 ＋ “------------------------------------------------”
.否则
    .如果真 (寻找文本 (调用者信息.取进程名 (), 编辑框进程名字.内容, 1, 真) ≠ -1)
        编辑框发送的数据.内容 ＝ 编辑框发送的数据.内容 ＋ 网络数据.到文本 () ＋ #换行符 ＋ “------------------------------------------------”
    .如果真结束

.如果结束


.子程序 _网截_调接收, 整数型
.参数 调用者信息, 调用者信息, 参考
.参数 套接字句柄, 整数型, 参考
.参数 网络数据, 网络数据, 参考
.参数 调用方式, 整数型, 参考

.如果 (选择框所有进程.选中 ＝ 真)
    编辑框收到的数据.内容 ＝ 编辑框收到的数据.内容 ＋ 网络数据.到文本 () ＋ #换行符 ＋ “------------------------------------------------”
.否则
    .如果真 (寻找文本 (调用者信息.取进程名 (), 编辑框进程名字.内容, 1, 真) ≠ -1)
        编辑框收到的数据.内容 ＝ 编辑框收到的数据.内容 ＋ 网络数据.到文本 () ＋ #换行符 ＋ “------------------------------------------------”
    .如果真结束

.如果结束


.子程序 _网截_调定向接收, 整数型
.参数 调用者信息, 调用者信息, 参考
.参数 套接字句柄, 整数型, 参考
.参数 网络数据, 网络数据, 参考
.参数 调用方式, 整数型, 参考
.参数 网址, 网址信息, 参考

.如果 (选择框所有进程.选中 ＝ 真)
    编辑框收到的数据.内容 ＝ 编辑框收到的数据.内容 ＋ 网络数据.到文本 () ＋ #换行符 ＋ “------------------------------------------------”
.否则
    .如果真 (寻找文本 (调用者信息.取进程名 (), 编辑框进程名字.内容, 1, 真) ≠ -1)
        编辑框收到的数据.内容 ＝ 编辑框收到的数据.内容 ＋ 网络数据.到文本 () ＋ #换行符 ＋ “------------------------------------------------”
    .如果真结束

.如果结束


.子程序 _按钮暂停1_被单击

编辑框发送的数据.内容 ＝ “”
编辑框收到的数据.内容 ＝ “”
抓包程序源码.zip (250.2 KB, 下载次数: 88)

2015-4-10 10:28 上传

点击文件名下载附件
下载积分: 海币 -2

联系我时，请说是在 挂海论坛 上看到的，谢谢！

ft4314094

谢谢楼主分享,支持 海论坛

vp2008

着玩意还是很有用处的。。。

yinghao20

我飘过一下 赚一个海币

点点滴滴

不错,非常好,谢谢了

Zhen-nii

顶楼主啦..希望楼主多发精品好帖啦....

1793870010

难得给力的好帖子，顶楼主。

1816332005

谢谢分享，好贴！

孙子

难得给力的好帖子，顶楼主。

孙子

感谢楼主，支持楼主-支持 海。