易语言简单局域网聊天代码(客户服务器组件编写)

客户机代码： . 版本 2 .支持库 shell .支持库 xplib .程序集 窗口程序集1 .程序集变量 文件号1, 整数型 .程序集变量 文件长度, 整数型 .程序集变量 发送内容, 字节集 .程序集变量 文件名, 文本型 .程序集变量 文件号2, 整数型 .子程序 _按钮1_被单击 .局部变量 现在时间, 文本型 .如果 (编辑框7.内容 ＝ “1”) .如果 (编辑框6.内容 ≠ “”) .如果 (编辑框2.内容 ≠ “”) 客户 1.发送数据 (“聊天” ＋ 编辑框2.内容) 现在时间 ＝ 到文本 (取年份 (取现行时间 ())) ＋ “/” ＋ 到文本 (取月份 (取现行时间 ())) ＋ “/” ＋ 到文本 (取日 (取现行时间 ())) ＋ “/” ＋ 到文本 (取小时 (取现行时间 ())) ＋ “:” ＋ 到文本 (取分钟 (取现行时间 ())) ＋ “:” ＋ 到文本 (取秒 (取现行时间 ())) 编辑框1.内容 ＝ 编辑框1.内容 ＋ “【本机】” ＋ 现在时间 ＋ #换行符 ＋ “ ” ＋ 编辑框2.内容 ＋ #换行符 编辑框2.内容 ＝ “” .否则 信息框 (“发送消息不能为空”, 48, “提示”) .如果结束 .否则 信息框 (“服务器 IP 地址不能为空”, 48, “提示”) .如果结束 .否则 信息框 (“服务器未连接”, 48, “提示”) .如果结束 .子程序 _按钮 2_被单击 .如果 (编辑框6.内容 ≠ “”) .如果 (编辑框8.内容 ≠ “”) .如果 (客户 1.连接 (编辑框6.内容, 1991) ＝ 真) 播放 MP3 (1, “xlj.mp3”) 编辑框1.内容 ＝ 编辑框1.内容 ＋ “连接：” ＋ 编辑框6.内容 ＋ “成功” ＋ #换行符 按钮 2.禁止 ＝ 真 编辑框7.内容 ＝ “1” 客户 1.发送数据 (“昵称” ＋ 编辑框8.内容) .否则 播放 MP3 (1, “lk.mp3”) 编辑框1.内容 ＝ 编辑框1.内容 ＋ “连接：” ＋ 编辑框6.内容 ＋ “失败” ＋ #换行符 .如果结束 .否则 信息框 (“请填写你的昵称”, 48, “提示”) .如果结束 .否则 信息框 (“请填写要连接的IP 地址”, 48, “提示”) .如果结束 .子程序 _客户1_数据到达 .局部变量 接收内容, 文本型 .局部变量 现在时间, 文本型 .局部变量 发送进度, 整数型 接收内容 ＝ 到文本 (客户1.取回数据 ()) 现在时间 ＝ 到文本 (取年份 (取现行时间 ())) ＋ “/” ＋ 到文本 (取月份 (取现行时间 ())) ＋ “/” ...