怎么用易语言做个登录器和一个登录服务器

利用服务器控件和客户控件可以做出一个局域网的登录、控制系统源码如下： 版本 2
支持库 sock程序集 窗口程序集1
程序集变量 用户, 文本型
程序集变量 密码, 文本型子程序 __启动窗口_创建完毕
局部变量 IP, 文本型, , "0"IP ＝ 取本机IP ()
编辑框1内容 ＝ IP [1]子程序 _服务器_数据到达
局部变量 数据, 文本型数据 ＝ 删首尾空 (到文本 (服务器取回数据 ()))
用户 ＝ 取文本左边 (数据, 寻找文本 (数据, “#”, , 真) － 1)
密码 ＝ 取文本右边 (数据, 取文本长度 (数据) － 寻找文本 (数据, “#”, , 真))
信息框 (“有用户登录:” ＋ #换行符 ＋ 用户 ＋ #换行符 ＋ 密码, 0, )
子程序 _按钮1_被单击客户连接 (编辑框1内容, 19730)
客户发送数据 (到字节集 (编辑框2内容 ＋ “#” ＋ 编辑框3内容))
子程序 _服务器_客户进入输出调试文本 (服务器取回客户 ())

1第一个问题，楼主解释下。是上次运行本程序时，列表框里的所有项目，还是什么文件

2第二个问题：
版本 2
选择列表框1删除项目 (选择列表框1删除项目 (选择列表框1现行选中项))

3 选择列表框，属性里 有个：单选 逻辑性的 调成真就行了。 代码是：选择列表框1单选=真 可放在窗口创建完成事件下

4 选择列表框1清空 ()

5用选中的文件类型默认程序打开：
执行 (, “前置的目录” ＋ 选择列表框1取项目文本 (选择列表框1现行选中项), , , )
如果，让你的程序播放选中音乐：
播放音乐 (“前置的目录” ＋ 选择列表框1取项目文本 (选择列表框1现行选中项), 播放次数)
--------------------------------------------------------------------------------------------------------------
调用格式： 〈逻辑型〉 播放音乐 （通用型 欲播放的音乐，［逻辑型 是否循环播放］） - 系统核心支持库->媒体播放
英文名称：PlayMusic
可以播放 WAV、MID 声音文件或相应格式的字节集声音数据、声音资源。成功返回真，失败返回假。本命令为初级命令。
参数<1>的名称为“欲播放的音乐”，类型为“通用型（all）”。参数值可以为 WAV、MID 声音文件名称或相应格式的字节集声音数据、声音资源。
参数<2>的名称为“是否循环播放”，类型为“逻辑型（bool）”，可以被省略。为真表示指定音乐将被循环播放，否则仅只播放一次。如果本参数被省略，默认为仅播放一次。
*** 作系统需求： Windows
-----------------------------------
有复杂的！疑问请追加。

---------------------------------------------------------------------------------
对于补充：

亲，
你是让百度空间里发布最新软件的下载地址是吗？ 如果是那样的话,做不到。或很难我不会。

1百度空间里，你就算发布了 下载地址。你查看一下那个页面的源文件，也找不到你发布的地址。 被转码 加密了
2你发布的下载地址应该是网盘下载的地址吧。如果这样那更不行了。因为，现在网盘里的文件的下载地址是动态的，不是固定的。一会一变。如果是发布固定的下载地址。那就没必要发布了。软件里直接加入从此地址下载就行了。

---------------------------------------------------------
所以建议：
申请个 FTP 空间，软件的最新版本放到空间里。 软件也要有个 更新列表txt 存放到FTP空间里，文件内容为软件的各个文件的MD5码或创建日期。当您的软件点击更新时，首先从服务器上下载下 更新列表。txt 然后用他 检查本地的文件，对于过期的旧版本文件，从空间里下载下最新的文件，覆盖了本地原来的。

推荐FTP空间： 主机屋 的 稳定 1G

如果文件东西不大，本人可从本人的空间里 划出一些 空间 提供给你。 给你一个我自己易语言写的FTP空间分享器，通过这个软件，你可以上传 下载 更新 等 *** 作我划给你的空间

如果打开易语言软件时显示服务器异常，可能是由于以下原因：

服务器故障：易语言软件需要连接到易语言官方服务器来验证软件是否已经激活，如果官方服务器出现故障或者维护，您可能会看到服务器异常的提示信息。

防火墙或安全软件阻止了软件连接：如果您的计算机上安装了防火墙或安全软件，并且这些软件阻止了易语言软件连接到互联网，您可能会看到服务器异常的提示信息。

软件许可证过期或未激活：如果您的易语言软件许可证已经过期或者未激活，您可能会看到服务器异常的提示信息。

针对这些可能原因，您可以尝试以下方法来解决问题：

等待服务器恢复正常：如果是因为服务器故障导致的问题，您可以稍等片刻，等待服务器恢复正常后再尝试打开易语言软件。

检查防火墙或安全软件设置：如果您的计算机上安装了防火墙或安全软件，您需要检查这些软件的设置，确保它们允许易语言软件连接到互联网。

检查许可证状态：如果您的易语言软件许可证已经过期或者未激活，您需要检查许可证状态，并按照软件提示进行激活或者更新许可证。

重新安装软件：如果以上方法都无法解决问题，您可以尝试重新安装易语言软件，或者联系易语言官方技术支持团队寻求帮助。

方法/步骤
1 打开2次易语言，分别新建一个窗口程序
2 在第一个窗口里添加服务器控件，第二个窗口添加客户控件
3 根据自己情况，这里端口可以根据自己需要去修改，不改也可以，我这里就不改了
4 我们在第二个窗口（放客户控件的）的窗口创建完毕事件里加入以下代码
客户1连接 (“127001”, 19730)
127001是本地服务器，根据自己的情况去修改IP，19730是刚刚设置的端口
5 在第一个窗口（服务器）的_服务器1_数据到达 事件加入以下代码
调试输出（服务器1取回客户 ()）
6 先运行第一个窗口（服务器），再运行第二个窗口（客户），我们可以在第一个窗口的输出窗口里看到客户进入的状况
7 服务器向客户端发送消息可以用 服务器1发送数据（）
我们把刚刚的调试输出（服务器1取回客户 ()）改成
客户 ＝ 服务器1取回客户 ()
添加一个按钮，在按钮单击事件加入服务器1发送数据 (客户, “提示_这只是一个提示”,）
8 在第二个窗口（客户），客户的数据到达事件里加入如下代码
9 现在我们来测试一下效果，先启动第一个窗口（服务器），再启动第二个窗口（客户）
注意：第一个窗口（服务器）有一个按钮，我们点击它，那么第二个窗口会d出提示框，提示内容为“这只是一个提示”
10 关掉服务器窗口，提示框依然存在，证明确实是客户窗口d出提示的没错
以上只是一个方法，思路
11 更多的功能需要自己去思考，实现的方法其实都是一个样子的，要学会举一反三
END

我是用超级列表框写的，超级列表框是一般是用插入表项和置标题来写的，还有客户离开的时候会返回数据到服务端的，你在服务端可以用取回客户来知道IP，再通过IP查找出在你服务端显示的是哪位，然后就可以删除那位了

本地正常数据
24|10000|(魔法)|10%|期限|111|632629689
分开后客户端收到的数据变成
24|10000|(魔法)|10%|期限|111|632

629689
结果造成后面数据收到但是确显示不出来了！
代码如下：
服务器:
版本
2
子程序
商城获取
局部变量
数组,
文本型,
,
"0"
局部变量
i,
文本型
局部变量
列表内容,
文本型
局部变量
计次,
整数型
i
＝
当前数据
清除数组
(数组)
数组
＝
分割文本
(i,
#换行符,
)
计次循环首
(取数组成员数
(商城列表),
计次)
列表内容
＝
列表内容
＋
商城列表
[计次]物品编号
＋
“|”
＋
商城列表
[计次]物品价格
＋
“|”
＋
商城列表
[计次]物品名称
＋
“|”
＋
商城列表
[计次]物品介绍
＋
“|”
＋
商城列表
[计次]物品日期
＋
“|”
＋
商城列表
[计次]物品代码
＋
“|”
＋
商城列表
[计次]物品属性
＋
#换行符
计次循环尾
()
服务器1发送数据
(数组
[1],
到字节集
(“'商店'”)
＋
到字节集
(#换行符)
＋
到字节集
(列表内容),
)

---