尒菠 发表于 2023-12-13 14:02:01

乐易模块类_远程封包

本帖最后由 尒菠 于 2023-12-13 14:12 编辑

全量_远程封包.安装Recv回调无效
全量_远程封包.安装WSARecv对象程序直接卡死

.版本 2
.支持库 spec

.程序集 启动窗口
.程序集变量 全量_远程封包, 类_远程封包

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



.子程序 封包_拦截Send, 整数型, , 返回0 表示 放行返回 -1 表示拦截
.参数 参_套接字, 整数型
.参数 参_封包指针, 整数型, , 通过指针到字节集(参_封包指针,参_封包长度) 取出原始内容
.参数 参_封包长度, 整数型

调试输出 (取程序名称 (1))
返回 (0)

.子程序 封包_拦截Recv, 整数型, , 返回0 表示 放行返回 -1 表示拦截
.参数 参_套接字, 整数型
.参数 参_封包指针, 整数型, , 通过指针到字节集(参_封包指针,参_封包长度) 取出原始内容
.参数 参_封包长度, 整数型

调试输出 (取程序名称 (1))
返回 (0)

.子程序 封包_拦截WSARecv, 整数型, , 返回0 表示 放行返回 -1 表示拦截
.参数 参_套接字, 整数型
.参数 参_封包指针, 整数型, , 通过指针到字节集(参_封包指针,参_封包长度) 取出原始内容
.参数 参_封包长度, 整数型

调试输出 (取程序名称 (1))
返回 (0)

.子程序 _按钮1_被单击
.局部变量 局部_进程ID号, 整数型

局部_进程ID号 = 到整数 (编辑框1.内容)
全量_远程封包.安装Send (局部_进程ID号, &封包_拦截Send)
全量_远程封包.安装Recv (局部_进程ID号, &封包_拦截Recv)
全量_远程封包.安装WSARecv (局部_进程ID号, &封包_拦截WSARecv)
页: [1]
查看完整版本: 乐易模块类_远程封包