精易论坛

标题: 局域网聊天，无服务器 [打印本页]

作者: hsutr 时间: 2013-12-19 11:25
标题: 局域网聊天，无服务器
本帖最后由宇智波·佐助于 2013-12-28 21:28 编辑

{: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-22 14:35):
补充下载地址：http://urlxf.qq.com/?NjIJ7bF

作者: 维她命╰ 时间: 2013-12-19 11:34
无法下载。。。

作者: 小米收徒带网赚 时间: 2013-12-19 11:55
还差2贴哈哈

作者: 停电了 时间: 2013-12-19 12:05
还不错.......

作者: 安梓韩 时间: 2013-12-19 12:06
= = =LZ你斩陆啊

作者: hsutr 时间: 2013-12-19 12:16

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

再试试。。

作者: Violation 时间: 2013-12-19 13:00
谢谢分享。、

作者: 维她命╰ 时间: 2013-12-19 13:22
还是无法下在也。。。

作者: superuserlrj 时间: 2013-12-19 13:33
楼主，附件不能下载！
添加附件时在附件的备注里面写一点内容试试看！

作者: huafeng123 时间: 2013-12-19 14:20
好乱哦，还是不错的~

作者: 辰川 时间: 2013-12-19 15:24

无法下载哎

作者: 宇智波·小卓越 时间: 2013-12-19 17:56
提示: 该帖被管理员或版主屏蔽

作者: hsutr 时间: 2013-12-19 21:27

huafeng123 发表于 2013-12-19 14:20
好乱哦，还是不错的~

为什么易语言代码格式不能正常显示？

作者: as1017678910 时间: 2013-12-19 22:33

不错

作者: qq2010108288 时间: 2013-12-20 13:23
还可以更加完善一些。

作者: 月球来的火星人 时间: 2013-12-20 18:41

作者: 魔仙明少 时间: 2013-12-20 20:15
要能传文件才是牛逼

作者: PLLB 时间: 2013-12-21 01:15
下载看看怎么写的

作者: haibing8611 时间: 2013-12-21 16:22
计次循环首 (取数组成员数 (广播IP), p) 数据报1.发送数据 (广播IP [p], 19730, 编辑框3.内容＋ “：” ＋编辑框2.内容) .计次循环尾 ().默认数

作者: 小爬虫 时间: 2013-12-23 14:33
我在局域网里测试过了，根本不能互相发消息

作者: 宇智波·佐助 时间: 2013-12-28 21:28
其实实例不错

作者: 月球来的火星人 时间: 2014-1-25 11:36

作者: wxlxmy 时间: 2014-5-24 14:32
顶起用了数据报啊正好用一下懒得写了

作者: 第叁世界 时间: 2014-9-14 14:50
学习下逻辑,不错!

作者: 黑熊猫 时间: 2015-1-30 12:26
下载试试看~！

作者: 诚信老字号！ 时间: 2015-4-4 22:35
补充下载地址：http://urlxf.qq.com/?NjIJ7bF

作者: tigerzoong 时间: 2015-12-7 18:35
加个buff回点血

作者: aixnhc 时间: 2017-1-18 16:34
我就学习一下

作者: 蜂蜜柚子熊 时间: 2021-11-6 21:08
jdkdkdkskekdkfjndekekke

作者: 牛大马 时间: 2022-9-24 13:19
666666666666666666666

作者: milkyway 时间: 2024-10-5 16:24
谢谢分享谢谢分享

作者: milkyway 时间: 2024-10-10 15:34
谢谢分享谢谢分享

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