这 个 其实 很 简单的 我 也 会写
.版本 2
.支持库 eNetIntercept
.支持库 iext
.子程序 _网截1_调连接, 整数型
.参数 调用者信息, 调用者信息, 参考
.参数 套接字句柄, 整数型, 参考
.参数 网址, 网址信息, 参考
.局部变量 IP11, 字节型
.局部变量 IP22, 字节型
.局部变量 IP33, 字节型
.局部变量 IP44, 字节型
.局部变量 DK1, 整数型
.局部变量 拦截地址, 文本型
.局部变量 位, 整数型
.局部变量 进程名称, 文本型
.局部变量 IPDZ, 文本型
.局部变量 数目, 整数型
.局部变量 计次, 整数型
.局部变量 A, 文本型
.局部变量 B, 文本型
.局部变量 C, 文本型
.局部变量 D, 文本型
.局部变量 II, 文本型
网址.取IP端口 (IP11, IP22, IP33, IP44, DK1)
拦截地址 = 到文本 (IP11) + “.” + 到文本 (IP22) + “.” + 到文本 (IP33) + “.” + 到文本 (IP44)
进程名称 = 取文本右边 (调用者信息.取进程名 (), 取文本长度 (调用者信息.取进程名 ()) - 倒找文本 (调用者信息.取进程名 (), “\”, , 假))
.判断开始 (超级列表框1.取表项数 () > 20)
超级列表框1.全部删除 ()
.默认
.判断结束
位 = 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (位, 0, 进程名称)
超级列表框1.置标题 (位, 1, 拦截地址)
超级列表框1.置标题 (位, 2, 到文本 (DK1))
.如果真 (拦截地址 = 编辑框2.内容)
网址.置IP端口 (到字节 (ip1), 到字节 (ip2), 到字节 (ip3), 到字节 (ip4), 到整数 (DK))
返回 (#拦截操作.更改调用)
.如果真结束
返回 (#拦截操作)
不 过还是支持楼主的 |