网络数据报

想学坏的小孩 · 发表于 2010-1-21 17:23:07

.版本 2
.支持库 sock
.支持库 iext2
.支持库 EThread

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

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

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

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

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

.判断循环尾 ()

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

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

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

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

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

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

PLLB · 发表于 2011-11-22 14:13:11

终于看见这个了{:3_245:}

宇智波·佐助 · 发表于 2011-11-22 14:16:59

这个是？？？？？？？？？？？？

阿斯顿1056156 · 发表于 2011-11-22 14:19:27

{:3_227:}支持支持~！

xiaobinlbh · 发表于 2012-12-28 15:35:57

拿来看看 3q

xyq3070 · 发表于 2013-2-10 21:58:05

拿来看看 3q

!

462059145 · 发表于 2014-4-17 00:36:45

我也不会数据报，会的就教教吧

siwuxiaomu · 发表于 2018-12-21 11:27:55

学习学习，谢谢楼主

1ester · 发表于 2019-9-19 21:52:40

数据报_SERVER数据报_SERVER数据报_SERVER

515667395 · 发表于 2020-9-20 14:28:54

不错，谢谢大佬

		自动登录	找回密码
密码			注册

[易源码分享] 网络数据报