传世封包截取源码

星星点点

封包.rar (47.68 KB, 下载次数: 363)

2011-4-15 19:33 上传

点击文件名下载附件
封包源码
下载积分: 精币 -2 枚

自己研究学习哦

Antony

真贵，传世现在很少人玩，你发这个源码贵了基本上没几个人买，如果是DNF的，就一定卖的出去，因为论坛伸手族N多，尤其是DNF的

kis

便宜  呵呵  支持顶

baozi

不错  学习啦！谢谢分享

feihongsc

这个必须要学习

zxcvbn723593097

我看了下记录  就楼上那小家伙一个买了.感情前面的几位楼上的.都是在帮楼主打广告{:3_221:}

Antony

.版本 2
.支持库 eNetIntercept
.支持库 eAPI
.支持库 shell
.支持库 iext

.程序集 窗口程序集1
.程序集变量 服务安装, 网络服务安装
.程序集变量 进程标识, 文本型
.程序集变量 文本, 文本型
.程序集变量 被选进程ID, 整数型

.子程序 __启动窗口_创建完毕
.局部变量 计次, 整数型
.局部变量 CK进程列表, 进程信息, , "0"

CK进程列表 ＝ 取系统进程列表 ()
.计次循环首 (取数组成员数 (CK进程列表), 计次)
    组合框1.加入项目 (CK进程列表 [计次].进程名称, CK进程列表 [计次].进程标识符)
.计次循环尾 ()

.如果 (服务安装.是否已安装 () ＝ 真)

.否则
    写到文件 (取特定目录 (10) ＋ “\ESPI11.dll”, #dll1)
    .如果真 (服务安装.安装 (取特定目录 (10) ＋ “\ESPI11.dll”) ＝ 真)

    .如果真结束
    .如果 (网截1.打开 () ＝ 真)
        信息框 (“网络拦截服务开启完毕”, 0, )
    .否则
        信息框 (“网络拦截服务开启失败”, 0, )
    .如果结束

.如果结束



.子程序 _网截1_调接收, 整数型
.参数 调用者信息, 调用者信息, 参考
.参数 套接字句柄, 整数型, 参考
.参数 网络数据, 网络数据, 参考
.参数 调用方式, 整数型, 参考
.局部变量 发送信息的进程id, 整数型
.局部变量 索引

.如果真 (选择框1.选中 ＝ 真)
    发送信息的进程id ＝ 调用者信息.取进程标识 ()
    .如果真 (发送信息的进程id ＝ 被选进程ID)
        索引 ＝ 超级列表框1.插入表项 (, , , , , )
        超级列表框1.置标题 (索引, 0, “【接收】”)
        超级列表框1.置标题 (索引, 1, 网络数据.到文本 ())

    .如果真结束


.如果真结束



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

.如果 (网截1.打开 () ＝ 真)
    状态条1.置文本 (1, “网截打开成功”)
.否则
    状态条1.置文本 (1, “网截打开失败”)
.如果结束


.子程序 _按钮2_被单击

.如果 (网截1.关闭 () ＝ 真)
    状态条1.置文本 (1, “网截已经关闭”)
.否则
    状态条1.置文本 (1, “关闭失败”)
.如果结束


.子程序 _组合框1_列表项被选择

被选进程ID ＝ 组合框1.取项目数值 (组合框1.现行选中项)


.子程序 _网截1_调发送, 整数型
.参数 调用者信息, 调用者信息, 参考
.参数 套接字句柄, 整数型, 参考
.参数 网络数据, 网络数据, 参考
.参数 调用方式, 整数型, 参考
.局部变量 索引
.局部变量 发送信息的进程id, 整数型

.如果真 (选择框2.选中 ＝ 真)
    发送信息的进程id ＝ 调用者信息.取进程标识 ()
    .如果真 (发送信息的进程id ＝ 被选进程ID)
        索引 ＝ 超级列表框1.插入表项 (, , , , , )
        超级列表框1.置标题 (索引, 0, “【发送】”)
        超级列表框1.置标题 (索引, 1, 网络数据.到文本 ())
        超级列表框1.置标题 (索引, 2, 到文本 (取现行时间 ()))
    .如果真结束

.如果真结束


.子程序 _按钮3_被单击
.局部变量 计次, 整数型
.局部变量 CK进程列表, 进程信息, , "0"

组合框1.清空 ()
CK进程列表 ＝ 取系统进程列表 ()
.计次循环首 (取数组成员数 (CK进程列表), 计次)
    组合框1.加入项目 (CK进程列表 [计次].进程名称, CK进程列表 [计次].进程标识符)
.计次循环尾 ()


.子程序 _超级列表框1_当前表项被改变

编辑框1.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 1)

.子程序 _按钮4_被单击

超级列表框1.全部删除 ()
编辑框1.内容 ＝ “”


这源码里有封包的技术吗？？

易魂

谢谢，lz真好嗯

799090710

是假的回来口死你

I. P. Freely

传世的   太贵了   但还是买买试试看{:3_227:}