服务器与客户duan登录交互问题 - 精易论坛

子程序名	返回值类型	公开	备注
_按钮1_被单击

如果真 (客户1.连接 (“127.0.0.1”, 19730)) ' 1 连接服务器

客户1.发送数据 (“login||” ＋集_user ＋ “|” ＋集_pw) ' 2 发送登录请求信息

子程序名	返回值类型	公开	备注
_服务器1_客户进入

调试输出 (服务器1.取回客户 ())

子程序名	返回值类型	公开	备注
_服务器1_数据到达

变量名	类型	静态	数组	备注
客户信息	文本型
文本组	文本型		0

调试输出 (到文本 (服务器1.取回数据 ())) ' 3接收到登录信息
客户信息＝服务器1.取回客户 ()
文本组＝分割文本 (到文本 (服务器1.取回数据 ()), “||”, )

如果真 (文本组 [1] ＝ “login”)

如果真 (集_pw ＝ “123456” 且集_user ＝ “admin”)

服务器1.发送数据 (客户信息, “loginyes”, ) ' 4 信息正确，发送允许登录

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

集_pw ＝ “123456”
集_user ＝ “admin”

子程序名	返回值类型	公开	备注
_客户1_数据到达

如果真 (到文本 (客户1.取回数据 ()) ＝ “loginyes”) ' 5 登录成功

信息框 (“登录成功”, 0, , )

i支持库列表	支持库注释
spec	特殊功能支持库

[JavaScript] 纯文本查看 复制代码

.版本 2

.支持库 encryption



        set ＝ 客户1.发送数据 (加密_AES (到字节集 (data), 到字节集 (“8419R1R77”)))

        消息监听_登录 ()

        .判断开始 (集_消息监听_登录 ＝ “success”)

            激活状态 ＝ 真

            程序登录状态 ＝ 真

            当前登录user ＝ “temp”

            启动写日志 (1, “登录成功；登录方式为网络授权！”)

            载入 (主窗口, , 假)

            客户1.断开连接 ()

            _启动窗口.销毁 ()



        .判断 (集_消息监听_登录 ＝ “fail”)

            信息框 (“登录失败；原因服务器不允许登录！”, 16, “错误”, _启动窗口)

        .判断 (集_消息监听_登录 ＝ “”)

            信息框 (“登录失败；原因未收到回复！”, 16, “错误”, _启动窗口)

        .默认

            信息框 (“登录失败；原因未知；结果：” ＋ 集_消息监听_登录 ＋ “！”, 16, “错误”, _启动窗口)

        .判断结束

        客户1.断开连接 ()