admin 发表于 2020-6-6 09:38:53

取外网ip地址源码 无限制

.版本 2
.支持库 sock

.子程序 取wai网ip, 文本型

返回 (到文本 (_请求发送_接收 (“47.92.230.118”, 6672, , , , 5000)))

.子程序 _请求发送_接收, 字节集, , 返回接收到的内容
.参数 连接地址, 文本型
.参数 连接端口, 整数型
.参数 预发送的shuj, 字节集, 可空
.参数 是否成功发送, 逻辑型, 可空
.参数 是否成功接收, 逻辑型, 可空
.参数 最长等待时间, 整数型, 可空
.局部变量 局_客户Duan, 网络客户Duan
.局部变量 局_接收结果, 字节集

.如果真 (最长等待时间 ＜ 1)
    最长等待时间 ＝ 5000
.如果真结束
是否成功发送 ＝ 局_客户Duan.连接 (连接地址, 连接端口)
.如果真 (是否成功发送 ＝ 真)
    .如果真 (预发送的shuj ≠ {})
      是否成功发送 ＝ 局_客户Duan.发送 ({ 46, 46 } ＋ 预发送的shuj ＋ { 46, 46 }, 最长等待时间)
    .如果真结束
    ' 2362 ＋ 64
.如果真结束
.如果真 (是否成功发送 ＝ 真)
    局_接收结果 ＝ 局_客户Duan.接收 (最长等待时间, 是否成功接收)
.如果真结束
返回 (局_接收结果)

带小叶 发表于 2020-6-6 09:49:01

支持你们一下下哈

csw96781 发表于 2020-6-6 09:59:09

期待中......

啥啥啥 发表于 2020-6-6 10:09:17

这个不错，谢谢共享

443651433.. 发表于 2020-6-6 10:19:25

抢楼了，前排第一次啊

啊啊啊啊啊 发表于 2020-6-6 10:29:33

藕是来打酱油滴...

360403967 发表于 2020-6-6 10:29:47

不错不错 支持下

徐少 发表于 2020-6-6 10:30:01

学习一下！十分感谢

好吧你又赢了 发表于 2020-6-6 10:30:15

不错！顶LZ

asd3186789 发表于 2020-6-6 10:30:29

期待中......
页: [1] 2 3 4 5 6
查看完整版本: 取外网ip地址源码 无限制