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