易语言可以做互联网聊天器吗？

潮男好少

易语言可以做互联网聊天器吗？{:3_213:}

qqwl2001

[e]
.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
' 连接服务器
.如果真 (客户1.连接 (地址编辑框.内容, 到数值 (端口编辑框.内容)) ＝ 假)
    信息框 (“连接失败！”, 0, )
    返回 ()
.如果真结束
发送按钮.禁止 ＝ 假
发送编辑框.获取焦点 ()
.子程序 _发送按钮_被单击
.如果真 (客户1.发送数据 (发送编辑框.内容) ＝ 假)
    信息框 (“发送失败！”, 0, )
.如果真结束
发送编辑框.内容 ＝ “”
发送编辑框.获取焦点 ()
.子程序 _客户1_数据到达
信息编辑框.加入文本 (取字节集数据 (客户1.取回数据 (), #文本型) ＋ #换行符)

[/e]

qqwl2001

当然可以哈~

qqwl2001

[e]
.版本 2
.程序集 窗口程序集1
.子程序 _服务器1_客户进入
' 当某客户连接进来时，将其加入在线列表。
列表框1.加入项目 (服务器1.取回客户 (), )
.子程序 _服务器1_客户离开
.局部变量 客户, 文本型
.局部变量 项目数, 整数型
.局部变量 计数, 整数型
' 当某客户断开连接时，将其从在线列表中删除。
客户 ＝ 服务器1.取回客户 ()
项目数 ＝ 列表框1.取项目数 ()
.计次循环首 (项目数, 计数)
    .如果真 (列表框1.取项目文本 (计数 － 1) ＝ 客户)
        列表框1.删除项目 (计数 － 1)
        跳出循环 ()
    .如果真结束
.计次循环尾 ()
.子程序 _服务器1_数据到达
.局部变量 项目数, 整数型
.局部变量 计次变量, 整数型
.局部变量 收到数据, 字节集
' 将所收到的信息转发给所有在线客户。
收到数据 ＝ 服务器1.取回数据 ()
项目数 ＝ 列表框1.取项目数 ()
.计次循环首 (项目数, 计次变量)
    服务器1.发送数据 (列表框1.取项目文本 (计次变量 － 1), 收到数据, 1)
.计次循环尾 ()

[/e]

易帆风顺

呵呵,回答不错,代码都传上来了

aa7790023

不错不错，好好学习!

Ｋyan

现在我还不明白咋回事
？  呵呵··过段时间在回顾下我的发表··~~~！

至尊灬无赖

额，学习到了哈。