求助，挺急的

无聊KING

服务端

  

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

变量名	类 型	静态	数组	备 注
json	类_json
t	文本型
sf	逻辑型
QQ	文本型
服务器	文本型
code	文本型

json.解析 (到文本 (服务器1.取回数据 ()), , )
QQ ＝ json.取通用属性 (“QQ”, )
t ＝ json.取通用属性 (“t”, )
编辑框1.内容 ＝ 编辑框1.内容 ＋ #换行符 ＋ “客户IP:” ＋ 服务器1.取回客户 () ＋ “发来消息[” ＋ 到文本 (服务器1.取回数据 ()) ＋ “]” ＋ #换行符 ＋ “当前服务器连接数:” ＋ 到文本 (客户数)
如果真 (t ＝ “code”)
code ＝ SM_取登录code ()
如果真 (服务器1.发送数据 (服务器1.取回客户 (), 读入文件 (code), ))
如果真 (服务器1.发送数据 (服务器1.取回客户 (), “{” ＋ #引号 ＋ “t” ＋ #引号 ＋ “:” ＋ #引号 ＋ “code” ＋ #引号 ＋ “,” ＋ #引号 ＋ “QQ” ＋ #引号 ＋ “:” ＋ #引号 ＋ QQ ＋ #引号 ＋ “}”, ))
编辑框1.内容 ＝ 编辑框1.内容 ＋ #换行符 ＋ “向客户IP:” ＋ 服务器1.取回客户 () ＋ “发出消息【” ＋ “{” ＋ #引号 ＋ “t” ＋ #引号 ＋ “:” ＋ #引号 ＋ “code” ＋ #引号 ＋ “,” ＋ #引号 ＋ “QQ” ＋ #引号 ＋ “:” ＋ #引号 ＋ QQ ＋ #引号 ＋ “}” ＋ “】”
编辑框1.内容 ＝ 编辑框1.内容 ＋ #换行符 ＋ “向客户IP:” ＋ 服务器1.取回客户 () ＋ “发出消息【” ＋ code ＋ “】”

.版本 2<br /> <br /> .子程序 _服务器1_数据到达<br /> .局部变量 json, 类_json<br /> .局部变量 t, 文本型<br /> .局部变量 sf, 逻辑型<br /> .局部变量 QQ, 文本型<br /> .局部变量 服务器, 文本型<br /> .局部变量 code, 文本型<br /> <br /> json.解析 (到文本 (服务器1.取回数据 ()), , )<br /> QQ ＝ json.取通用属性 (“QQ”, )<br /> t ＝ json.取通用属性 (“t”, )<br /> 编辑框1.内容 ＝ 编辑框1.内容 ＋ #换行符 ＋ “客户IP:” ＋ 服务器1.取回客户 () ＋ “发来消息[” ＋ 到文本 (服务器1.取回数据 ()) ＋ “]” ＋ #换行符 ＋ “当前服务器连接数:” ＋ 到文本 (客户数)<br /> <br /> <br /> .如果真 (t ＝ “code”)<br />     code ＝ SM_取登录code ()<br /> <br />     .如果真 (服务器1.发送数据 (服务器1.取回客户 (), 读入文件 (code), ))<br />         .如果真 (服务器1.发送数据 (服务器1.取回客户 (), “{” ＋ #引号 ＋ “t” ＋ #引号 ＋ “:” ＋ #引号 ＋ “code” ＋ #引号 ＋ “,” ＋ #引号 ＋ “QQ” ＋ #引号 ＋ “:” ＋ #引号 ＋ QQ ＋ #引号 ＋ “}”, ))<br />             编辑框1.内容 ＝ 编辑框1.内容 ＋ #换行符 ＋ “向客户IP:” ＋ 服务器1.取回客户 () ＋ “发出消息【” ＋ “{” ＋ #引号 ＋ “t” ＋ #引号 ＋ “:” ＋ #引号 ＋ “code” ＋ #引号 ＋ “,” ＋ #引号 ＋ “QQ” ＋ #引号 ＋ “:” ＋ #引号 ＋ QQ ＋ #引号 ＋ “}” ＋ “】”<br />         .如果真结束<br />         编辑框1.内容 ＝ 编辑框1.内容 ＋ #换行符 ＋ “向客户IP:” ＋ 服务器1.取回客户 () ＋ “发出消息【” ＋ code ＋ “】”<br /> <br />     .如果真结束

客户duan

  

子程序名	返回值类型	公开	备 注
_本机_数据到达

变量名	类 型	静态	数组	备 注
json	类_json
t	文本型
Qq	文本型
p	文本型
点赞的QQ	文本型		0
i	整数型

json.解析 (到文本 (本机.取回数据 ()), , )
Qq ＝ json.取通用属性 (“QQ”, )
t ＝ json.取通用属性 (“t”, )
p ＝ json.取通用属性 (“p”, )
如果真 (t ≠ “code”)
写到文件 (应用目录 ＋ “\abc.jpg”, 本机.取回数据 ())

如果真 (寻找文本 (到文本 (窗口_主窗口.本机.取回数据 ()), “code”, , 假) ≠ -1)
SM_发消息 (Text.图片 (应用目录 ＋ “\abc.jpg”) ＋ “1.由于QQ限制，安卓用户请使用Tim扫码登录” ＋ #换行符 ＋ “2.第一次登录可能会异地冻结”, , )

.版本 2<br /> <br /> .子程序 _本机_数据到达<br /> .局部变量 json, 类_json<br /> .局部变量 t, 文本型<br /> .局部变量 Qq, 文本型<br /> .局部变量 p, 文本型<br /> .局部变量 点赞的QQ, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> json.解析 (到文本 (本机.取回数据 ()), , )<br /> Qq ＝ json.取通用属性 (“QQ”, )<br /> t ＝ json.取通用属性 (“t”, )<br /> p ＝ json.取通用属性 (“p”, )<br /> <br /> <br /> .如果真 (t ≠ “code”)<br />     写到文件 (应用目录 ＋ “\abc.jpg”, 本机.取回数据 ())<br /> .如果真结束<br /> <br /> .如果真 (寻找文本 (到文本 (窗口_主窗口.本机.取回数据 ()), “code”, , 假) ≠ -1)<br />     SM_发消息 (Text.图片 (应用目录 ＋ “\abc.jpg”) ＋ “1.由于QQ限制，安卓用户请使用Tim扫码登录” ＋ #换行符 ＋ “2.第一次登录可能会异地冻结”, , )

服务器有发送消息，客户端收到消息后未判断消息是否含有“code”，求大佬帮忙康康

耳阝鱼禾

服务器发送部分有问题，code到底是文件路径还是文本，你输出看看，另外看看是否真的发送成功了。客户Duan直接输出全部数据看看