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

利用服务器控件和客户控件可以做出一个局域网的登录、控制系统源码如下： .版本 2

.支持库 sock.程序集 窗口程序集1

.程序集变量 用户, 文本型

.程序集变量 密码, 文本型.子程序 __启动窗口_创建完毕

.局部变量 IP, 文本型, , "0"IP ＝ 取本机IP ()

编辑框1.内容 ＝ IP [1].子程序 _服务器_数据到达

.局部变量 数据, 文本型数据 ＝ 删首尾空 (到文本 (服务器.取回数据 ()))

用户 ＝ 取文本左边 (数据, 寻找文本 (数据, “#”, , 真) － 1)

密码 ＝ 取文本右边 (数据, 取文本长度 (数据) － 寻找文本 (数据, “#”, , 真))

信息框 (“有用户登录:” ＋ #换行符 ＋ 用户 ＋ #换行符 ＋ 密码, 0, )

.子程序 _按钮1_被单击客户.连接 (编辑框1.内容, 19730)

客户.发送数据 (到字节集 (编辑框2.内容 ＋ “#” ＋ 编辑框3.内容))

.子程序 _服务器_客户进入输出调试文本 (服务器.取回客户 ())

简单，客户也就用：客户1.连接("IP",端口)和 数据到达服务器也就 :_服务器_数据到达 ，服务器1.发送数据(服务器1.取回客户(),到字节集("XXXXXXX"))，就几个命令和事件就可以实现通信了

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

---