易语言用服务器,客户端组件做一个注册登录软件 客户端注册后账号密码发送到服务器并保存。类似聊天室那种

版本 2

程序集 启动窗口程序集

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

' 当某客户连接进来时，将其加入在线列表。

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

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

局部变量 客户, 文本型

局部变量 项目数

局部变量 变量1

' 当某客户断开连接时，将其从在线列表中删除。

客户 ＝ 服务器1取回客户 ()

项目数 ＝ 列表框1取项目数 ()

计次循环首 (项目数, 变量1)

如果真 (列表框1取项目文本 (变量1 － 1) ＝ 客户)

列表框1删除项目 (变量1 － 1)

跳出循环 ()

如果真结束

计次循环尾 ()

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

局部变量 项目数

局部变量 变量1

局部变量 收到数据, 字节集

' 将所收到的信息转发给所有在线客户。

收到数据 ＝ 服务器1取回数据 ()

项目数 ＝ 列表框1取项目数 ()

计次循环首 (项目数, 变量1)

服务器1发送数据 (列表框1取项目文本 (变量1 － 1), 收到数据, 1)

计次循环尾 ()

以上是 服务器 的代码

版本 2

程序集 启动窗口程序集

子程序 _按钮1_被单击

' 连接服务器

如果真 (客户1连接 (地址编辑框内容, 到数值 (端口编辑框内容)) ＝ 假)

信息框 (“连接失败！”, 0, )

返回 ()

如果真结束

发送按钮禁止 ＝ 假

发送编辑框获取焦点 ()

子程序 _发送按钮_被单击

如果真 (客户1发送数据 (发送编辑框内容) ＝ 假)

信息框 (“发送失败！”, 0, )

如果真结束

发送编辑框内容 ＝ “”

发送编辑框获取焦点 ()

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

信息编辑框加入文本 (取字节集数据 (客户1取回数据 (), #文本型) ＋ #换行符)

以上是 客户端 的代码

注意：（#重要提示#   使用客户端前，需打开 “服务器” 才能连接服务器！！！）

易语言客户服务器组件没用过，不太清楚。

就是即使即时时通信吧，Xmpp,Mqtt，Socket这些都行。前面两个有组件，直接拿来用就可以，不需要自己实现协议。

其实现在有蛮多这类的服务提供商，例如环信和百度云，你可以直接用他们的服务（有免费，有收费），就是消息传送这部分不自己做（把消息发到他们提供的接口，消息让他们发，消息获取也从他们给的接口获取，这样是最方便的。）

自己写也行，一种是用实现协议的组件，自己搭一个发送消息的服务器。另一种就是自己实现协议（或者创造协议），这种比较麻烦，可以用MINA（一个框架）

如果是个人的话，最主要还是通过自己DIY，等用户量多再考虑付费服务器！如果是团队或者游戏工作室，最好有自己的服务器，便于维护！使用别人的服务器的话在软件种类多的时候要单独购买多次，维护起来也不方便，价格也会相当昂贵！，谢谢