局域网聊天，无服务器

hsutr

{:soso_e104:}
[e]
.版本 2.支持库 sock.程序集 窗口程序集1.程序集变量 本机IP, 文本型.程序集变量 IP, 文本型, , "0".程序集变量 目标IP, 文本型.程序集变量 广播IP, 文本型, , "0".子程序 __启动窗口_创建完毕IP ＝ 取本机IP ()本机IP ＝ IP [1]目标IP ＝ “”_刷新按钮_被单击 ()_启动窗口.标题 ＝ “局域网聊天 - 在线人数：” ＋ 到文本 (取数组成员数 (广播IP) ＋ 1) ＋ “人”编辑框2.获取焦点 ().子程序 _数据报1_数据到达.局部变量 收到消息, 文本型.局部变量 分割, 文本型, , "2"收到消息 ＝ 到文本 (数据报1.取回数据 ()).判断开始 (寻找文本 (收到消息, “##@@HELLO@@##,”, 1, 假) ≠ -1)    分割 ＝ 分割文本 (收到消息, “,”, 2)    数据报1.发送数据 (分割 [2], 19730, “##@@HELLO@@##,” ＋ 本机IP)    加入广播组 (分割 [2]).判断 (编辑框1.内容 ＝ “”)    编辑框1.内容 ＝ 收到消息.默认    编辑框1.内容 ＝ 编辑框1.内容 ＋ #换行符 ＋ #换行符 ＋ 收到消息.判断结束.子程序 _发送按钮_被单击.局部变量 p, 整数型.判断开始 (取数组成员数 (广播IP) ＞ 1)    .计次循环首 (取数组成员数 (广播IP), p)        数据报1.发送数据 (广播IP [p], 19730, 编辑框3.内容 ＋ “：” ＋ 编辑框2.内容)    .计次循环尾 ().默认    数据报1.发送数据 (目标IP, 19730, 编辑框3.内容 ＋ “：” ＋ 编辑框2.内容).判断结束.判断开始 (编辑框1.内容 ＝ “”)    编辑框1.内容 ＝ 编辑框3.内容 ＋ “(我)：” ＋ 编辑框2.内容.默认    编辑框1.内容 ＝ 编辑框1.内容 ＋ #换行符 ＋ #换行符 ＋ 编辑框3.内容 ＋ “(我)：” ＋ 编辑框2.内容.判断结束编辑框2.内容 ＝ “”.子程序 _刷新按钮_被单击数据报1.发送数据 (“”, 19730, “##@@HELLO@@##,” ＋ 本机IP)_启动窗口.标题 ＝ “局域网聊天 - 在线人数：” ＋ 到文本 (取数组成员数 (广播IP) ＋ 1) ＋ “人”.子程序 加入广播组.参数 对比消息, 文本型.局部变量 i, 整数型.判断开始 (取数组成员数 (广播IP) ＝ 0)    目标IP ＝ 对比消息    加入成员 (广播IP, 对比消息).默认    .计次循环首 (取数组成员数 (广播IP), i)        .判断开始 (广播IP  ＝ 对比消息)            跳出循环 ()        .默认            .如果真 (i ＝ 取数组成员数 (广播IP))                加入成员 (广播IP, 对比消息)            .如果真结束        .判断结束    .计次循环尾 ()    _启动窗口.标题 ＝ “局域网聊天 - 在线人数：” ＋ 到文本 (取数组成员数 (广播IP) ＋ 1) ＋ “人”.判断结束.子程序 _编辑框2_按下某键, 逻辑型.参数 键代码, 整数型.参数 功能键状态, 整数型.如果真 (键代码 ＝ #回车键)    _发送按钮_被单击 ()    编辑框2.内容 ＝ “”.如果真结束.子程序 _编辑框1_内容被改变编辑框1.起始选择位置 ＝ -1.子程序 __启动窗口_被激活_启动窗口.标题 ＝ “局域网聊天 - 在线人数：” ＋ 到文本 (取数组成员数 (广播IP) ＋ 1) ＋ “人”
[/e]
通信.rar (2.14 KB, 下载次数: 111)

2013-12-19 21:38 上传

点击文件名下载附件
下载积分: 精币 -2 枚

补充内容 (2013-12-22 14:35):
补充下载地址：http://urlxf.qq.com/?NjIJ7bF

维她命╰

无法下载。。。

小米收徒带网赚

还差2贴哈哈

停电了

还不错.......

安梓韩

= = =LZ你斩陆啊

hsutr

维她命╰ 发表于 2013-12-19 11:34
无法下载。。。

再试试。。

Violation

谢谢分享。、

维她命╰

还是无法下在也。。。

superuserlrj

楼主，附件不能下载！
添加附件时在附件的备注里面写一点内容试试看！

huafeng123

好乱哦，还是不错的~