怎么安装recv封包？？？？

①哭╮伪荭颜

有谁会安装recv封包？？？
跪求！！！！！！！！！
最好源码！！！
急求！！！！！
如果能用可以加jb！！！！！！！

`Xk

.版本 2

安装recv（&recv封包）

.子程序 recv处理, 整数型
.参数 套接字, 整数型
.参数 封包地址, 整数型
.参数 封包长度, 整数型
.局部变量 数据, 文本型

数据 ＝ 字节集查看 (指针到字节集 (封包地址, 封包长度), )  
.如果真 (取文本中间 (数据, 13, 4) ＝ “0015”)  '
    游戏套接字 ＝ 套接字
    封包内QQ ＝ 取文本中间 (数据, 17, 8)
    显示_QQ.标题 ＝ 到文本 (十六到十 (封包内QQ))
.如果真结束


.如果真 (取文本中间 (数据, 13, 4) ＝ “0003”)  
    当前所在地图.标题 ＝ 取文本右边 (数据, 4)  
.如果真结束

返回 (0)  

`Xk

弄来干什么呢？   安装recv（&recv封包）

你有模块你自己弄吧

①哭╮伪荭颜

尕可 发表于 2012-9-7 19:37
弄来干什么呢？   安装recv（&recv封包）

你有模块你自己弄吧

然后呢？？？

①哭╮伪荭颜

尕可 发表于 2012-9-7 19:37
弄来干什么呢？   安装recv（&recv封包）

你有模块你自己弄吧

.版本 2

安装send (&send处理)  

.子程序 send处理, 整数型
.参数 套接字, 整数型
.参数 封包地址, 整数型
.参数 封包长度, 整数型
.局部变量 数据, 文本型

数据 ＝ 字节集查看 (指针到字节集 (封包地址, 封包长度), )  
.如果真 (取文本中间 (数据, 13, 4) ＝ “0015”)  '
    游戏套接字 ＝ 套接字
    封包内QQ ＝ 取文本中间 (数据, 17, 8)
    显示_QQ.标题 ＝ 到文本 (十六到十 (封包内QQ))
.如果真结束


.如果真 (取文本中间 (数据, 13, 4) ＝ “0003”)  
    当前所在地图.标题 ＝ 取文本右边 (数据, 4)  
.如果真结束

返回 (0)  

①哭╮伪荭颜

尕可 发表于 2012-9-7 19:37
弄来干什么呢？   安装recv（&recv封包）

你有模块你自己弄吧

洛克的
像这样复制上来好不

`Xk

还用小洛克有什么用啊？早过时了。