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