易语言怎么做一个网站登录器？

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

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

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

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

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

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

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

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

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

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

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

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

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