易如意网络验证1.3示例源码

icaizi · 发表于 2019-7-18 11:05:47

没有精币了，求赏赐
废话不多说直接上图

网站后台服务器示例也架设好了。

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

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

初始化域名 (“https://www.qqiai.com/tool/ruyiyanzheng/”)
编辑框4.内容＝到文本 (取绝对值 (取硬盘特征字 ())) ' 取硬盘识别码

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

变量名	类型	静态	数组	备注
返回信息	文本型

返回信息＝ zc (编辑框1.内容, 编辑框2.内容, 编辑框3.内容, 编辑框4.内容, 编辑框5.内容)
输出调试文本 (返回信息)

如果真 (返回信息＝ “成功”)

信息框 (“zc” ＋返回信息, 0, “提示”, )

返回 ()

如果真 (返回信息 ≠ “成功”)

信息框 (返回信息, 0, “提示”, )

返回 ()

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

变量名	类型	静态	数组	备注
json	类_json
返回信息	文本型
到期时间	文本型
时间	文本型
到期	整数型
返回验证	文本型

返回信息＝登入 (编辑框6.内容, 编辑框7.内容, 到文本 (取绝对值 (取硬盘特征字 ())))
输出调试文本 (返回信息)
json.解析 (返回信息)

如果 (json.取通用属性 (“token”, ) ≠ “”)

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

token ＝ json.取通用属性 (“token”, ) ' token 全局变量后面要用！

用户名＝ json.取通用属性 (“user”, )

到期时间＝时间_时间戳转文本 (json.取通用属性 (“vip”, ))

信息框 (返回信息, 0, , )

时间＝取服务器时间 ()
到期＝到整数 (取时间间隔 (到时间 (到期时间), 到时间 (时间), #日 ))
标签8.标题＝ “用户名：” ＋用户名
标签9.标题＝ “到期时间：剩余” ＋到文本 (到期) ＋ “天”
标签10.标题＝ “是否会员：” ＋验证身份 (token)
时钟1.时钟周期＝ 60000

.版本 2<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
初始化域名 (“https://www.qqiai.com/tool/ruyiyanzheng/”)<br />
编辑框4.内容 ＝ 到文本 (取绝对值 (取硬盘特征字 ()))  ' 取硬盘识别码<br />
<br />
<br />
.子程序 _按钮1_被单击<br />
.局部变量 返回信息, 文本型<br />
<br />
返回信息 ＝ zc (编辑框1.内容, 编辑框2.内容, 编辑框3.内容, 编辑框4.内容, 编辑框5.内容)<br />
输出调试文本 (返回信息)<br />
.如果真 (返回信息 ＝ “成功”)<br />
    信息框 (“zc” ＋ 返回信息, 0, “提示”, )<br />
    返回 ()<br />
.如果真结束<br />
<br />
.如果真 (返回信息 ≠ “成功”)<br />
    信息框 (返回信息, 0, “提示”, )<br />
    返回 ()<br />
.如果真结束<br />
<br />
<br />
<br />
.子程序 _按钮2_被单击<br />
.局部变量 json, 类_json<br />
.局部变量 返回信息, 文本型<br />
.局部变量 到期时间, 文本型<br />
.局部变量 时间, 文本型<br />
.局部变量 到期, 整数型<br />
.局部变量 返回验证, 文本型<br />
<br />
返回信息 ＝ 登入 (编辑框6.内容, 编辑框7.内容, 到文本 (取绝对值 (取硬盘特征字 ())))<br />
输出调试文本 (返回信息)<br />
json.解析 (返回信息)<br />
.如果 (json.取通用属性 (“token”, ) ≠ “”)<br />
    信息框 (“登录成功”, 0, , )<br />
    token ＝ json.取通用属性 (“token”, )  ' token  全局变量   后面要用！<br />
    用户名 ＝ json.取通用属性 (“user”, )<br />
    到期时间 ＝ 时间_时间戳转文本 (json.取通用属性 (“vip”, ))<br />
.否则<br />
    信息框 (返回信息, 0, , )<br />
<br />
<br />
.如果结束<br />
<br />
<br />
时间 ＝ 取服务器时间 ()<br />
到期 ＝ 到整数 (取时间间隔 (到时间 (到期时间), 到时间 (时间), #日))<br />
<br />
标签8.标题 ＝ “用户名：” ＋ 用户名<br />
标签9.标题 ＝ “到期时间：剩余” ＋ 到文本 (到期) ＋ “天”<br />
标签10.标题 ＝ “是否会员：” ＋ 验证身份 (token)<br />
时钟1.时钟周期 ＝ 60000