精易论坛

标题: 网络数据报 [打印本页]

作者: 想学坏的小孩 时间: 2010-1-21 17:23
标题: 网络数据报
.版本 2
.支持库 sock
.支持库 iext2
.支持库 EThread

.程序集窗口程序集1
.程序集变量数据报, 网络数据报
.程序集变量监听标志, 逻辑型

.子程序 _发送_被单击
.局部变量对方信息, 对方信息

.如果真 (到数值 (端口框.内容) ＝ 0)
信息框 (“对方端口不正确”, 0, )
返回 ()
.如果真结束
对方信息.对方IP ＝ IP编辑框1.地址
对方信息.对方端口＝到数值 (端口框.内容)
.如果 (数据报.发送 (对方信息, 取本机名 () ＋ “:” ＋发送框.内容, 15) ＝假)
信息框 (“发送失败”, 0, )
.否则
发送框.内容＝ “”
.如果结束
发送框.获取焦点 ()

.子程序子程序1
.局部变量字节集容器, 字节集
.局部变量接收方信息, 对方信息

.判断循环首 (监听标志)
字节集容器＝数据报.接收 (15, 接收方信息)  ' 每15秒检测一次监听服务标志,避免无限等待
.如果真 (字节集容器 ≠ {  })
      消息框.加入文本 (接收方信息.对方IP ＋ “:” ＋到文本 (字节集容器) ＋ #换行符)
      IP编辑框1.地址＝接收方信息.对方IP
.如果真结束

.判断循环尾 ()

.子程序 _停止接收_被单击

.如果真 (数据报.关闭 ())
_启动窗口.标题＝ “停止监听”
监听标志＝假
端口框.禁止＝假
.如果真结束

.子程序 _允许接收_被单击

.如果真 (到数值 (端口框.内容) ＝ 0)
信息框 (“端口号设置不正确”, 0, )
返回 ()
.如果真结束
端口框.禁止＝真
.如果真 (数据报.配置 (到数值 (端口框.内容)))
_启动窗口.标题＝ “正在监听”
监听标志＝真
启动线程 (&子程序1)
.如果真结束

.子程序 _发送框_按下某键, 逻辑型
.参数键代码, 整数型
.参数功能键状态, 整数型

.如果真 (键代码＝ #回车键)
_发送_被单击 ()
.如果真结束

网络数据报.e

6.09 KB, 下载次数: 195, 下载积分: 精币 -2 枚

作者: PLLB 时间: 2011-11-22 14:13
终于看见这个了{:3_245:}

作者: 宇智波·佐助 时间: 2011-11-22 14:16
这个是？？？？？？？？？？？？

作者: 阿斯顿1056156 时间: 2011-11-22 14:19
{:3_227:}支持支持~！

作者: xiaobinlbh 时间: 2012-12-28 15:35
拿来看看 3q

作者: xyq3070 时间: 2013-2-10 21:58
拿来看看 3q

作者: 462059145 时间: 2014-4-17 00:36
我也不会数据报，会的就教教吧

作者: siwuxiaomu 时间: 2018-12-21 11:27
学习学习，谢谢楼主

作者: 1ester 时间: 2019-9-19 21:52
数据报_SERVER数据报_SERVER数据报_SERVER

作者: 515667395 时间: 2020-9-20 14:28
不错，谢谢大佬

作者: gnawon 时间: 2022-3-19 11:06
需要模块吗？能直接读取第三方软件IP吗？

作者: 泆羽 时间: 2022-9-30 15:28
这，学习了，5666666666666666666

欢迎光临精易论坛 (https://125.confly.eu.org/)