易语言与服务器即时通讯,求易语言简单即时通讯

最佳答案

服务器：

组件：列表框1、服务器1、编辑框1[允许多行设为真，滚动条是纵向滚动条]

代码：

.版本 2

.程序集 窗口程序集_启动窗口

.子程序 _服务器1_数据到达

.局部变量 x, 整数型

编辑框1.加入文本 (到文本 (服务器1.取回数据 ()) ＋ #换行符)

.计次循环首 (列表框1.取项目数 (), x)

服务器1.发送数据 (列表框1.取项目文本 (x － 1), 到文本 (服务器1.取回数据 ()), )

.计次循环尾 ()

.子程序 _服务器1_客户进入

列表框1.加入项目 (服务器1.取回客户 (), )

.子程序 _服务器1_客户离开

.局部变量 x, 整数型

.计次循环首 (列表框1.取项目数 (), x)

.判断开始 (列表框1.取项目文本 (x － 1) ＝ 服务器1.取回客户 ())

列表框1.删除项目 (x － 1)

跳出循环 ()

.默认

.判断结束

.计次循环尾 ()

.子程序 __启动窗口_创建完毕

客户端：

组件：编辑框1[允许多行设为真，滚动条是纵向滚动条]、编辑框2、按钮1、客户1、按钮1

代码：

.版本 2

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击

客户1.发送数据 (编辑框2.内容)

.子程序 __启动窗口_创建完毕

客户1.连接 ("IP地址",端口[服务器里有写])

.子程序 _客户1_数据到达

编辑框1.加入文本 (到文本 (客户1.取回数据 ()) ＋ #换行符)

.子程序 _按钮2_被单击

客户1.断开连接 ()

追答：

最简单的

最佳答案由网友  245882不耐烦  提供