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

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

---