直接用mysql数据库得了呗，账号密码扔一张表里，加密好。

HP的TCP吧  自带的太垃圾

970767701 发表于 2024-8-31 17:01
已解决
[mw_shl_code=javascript,true].版本 2
.支持库 encryption

这。。。不是监听数据吗

已解决

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

.版本 2
.支持库 encryption

        set ＝ 客户1.发送数据 (加密_AES (到字节集 (data), 到字节集 (“8419R1R77”)))
        消息监听_登录 ()
        .判断开始 (集_消息监听_登录 ＝ “success”)
            激活状态 ＝ 真
            程序登录状态 ＝ 真
            当前登录user ＝ “temp”
            启动写日志 (1, “登录成功；登录方式为网络授权！”)
            载入 (主窗口, , 假)
            客户1.断开连接 ()
            _启动窗口.销毁 ()

        .判断 (集_消息监听_登录 ＝ “fail”)
            信息框 (“登录失败；原因服务器不允许登录！”, 16, “错误”, _启动窗口)
        .判断 (集_消息监听_登录 ＝ “”)
            信息框 (“登录失败；原因未收到回复！”, 16, “错误”, _启动窗口)
        .默认
            信息框 (“登录失败；原因未知；结果：” ＋ 集_消息监听_登录 ＋ “！”, 16, “错误”, _启动窗口)
        .判断结束
        客户1.断开连接 ()

970767701 发表于 2024-8-31 16:40
但是我要在发送数据的流程后要先等待结果，根据结果做走不同流程，而不是在数据到达的程序里去判断是否登 ...

发送数据后就是要等服务器的反馈结果啊，结果肯定是要数据到达后啊，再根据结果进入设定好的子程序里体现结果信息和动作

影纸 发表于 2024-8-31 16:36
[e=2].版本 2
.支持库 spec

但是我要在发送数据的流程后要先等待结果，根据结果做走不同流程，而不是在数据到达的程序里去判断是否登录成功

  

子程序名	返回值类型	公开	备 注
_按钮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	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> .如果真 (客户1.连接 (“127.0.0.1”, 19730))  ' 1 连接服务器<br />     客户1.发送数据 (“login||” ＋ 集_user ＋ “|” ＋ 集_pw)  ' 2 发送登录请求信息<br /> .如果真结束<br /> <br /> <br /> .子程序 _服务器1_客户进入<br /> <br /> 调试输出 (服务器1.取回客户 ())<br /> <br /> .子程序 _服务器1_数据到达<br /> .局部变量 客户信息, 文本型<br /> .局部变量 文本组, 文本型, , "0"<br /> <br /> 调试输出 (到文本 (服务器1.取回数据 ()))  ' 3接收到登录信息<br /> 客户信息 ＝ 服务器1.取回客户 ()<br /> 文本组 ＝ 分割文本 (到文本 (服务器1.取回数据 ()), “||”, )<br /> <br /> .如果真 (文本组 [1] ＝ “login”)<br />     .如果真 (集_pw ＝ “123456” 且 集_user ＝ “admin”)<br />         服务器1.发送数据 (客户信息, “loginyes”, )  ' 4 信息正确，发送允许登录<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 集_pw ＝ “123456”<br /> 集_user ＝ “admin”<br /> <br /> .子程序 _客户1_数据到达<br /> <br /> .如果真 (到文本 (客户1.取回数据 ()) ＝ “loginyes”)  ' 5 登录成功<br />     信息框 (“登录成功”, 0, , )

一般都是这个流程啊，再加上一些验证加密什么的

970767701 发表于 2024-8-31 16:23
但是易语言的这个客户Duan，收到的数据需要在“数据到达”里面取回数据

对啊，在数据到达事件里写取回数据不是自动判断数据到达执行取回的吗

LEOONL 发表于 2024-8-31 16:18
对啊，拿到数据也很快啊，要等啥，你用的免费座机当服务器吗

但是易语言的这个客户Duan，收到的数据需要在“数据到达”里面取回数据