部分代码:
.版本 2
.支持库 EThread
.支持库 spec
.程序集 窗口程序集_启动窗口
.程序集变量 qrsig, 文本型
.子程序 _按钮1_被单击
获取二维码 ()
.子程序 获取二维码
.局部变量 信息, 文本型
.局部变量 json, 类_json
信息 = 编码_Utf8到Ansi (网页_访问 (“http://tool.clwl.online/wspeed/login.php?do=getqrpic&r=” + 时间_取随机时间戳 (), 0))
json.解析 (信息)
.如果真 (json.取通用属性 (“saveOK”) = “0”)
qrsig = json.取通用属性 (“qrsig”)
图片框_二维码.图片 = 编码_BASE64解码 (json.取通用属性 (“data”), 真)
启动线程 (&监控二维码, , )
.如果真结束
.子程序 监控二维码
.局部变量 信息, 文本型
.局部变量 json, 类_json
.局部变量 sThrAppid, 文本型
.局部变量 iAuthType, 文本型
.局部变量 openid, 文本型
.局部变量 sSessionKey, 文本型
.局部变量 wsreq_logseq, 文本型
.局部变量 person_id, 文本型
.计次循环首 (100, )
信息 = 编码_Utf8到Ansi (网页_访问 (“http://tool.clwl.online/wspeed/login.php?do=qrlogin&qrsig=” + qrsig + “&r=” + 时间_取随机时间戳 (), 0))
json.解析 (信息)
标签_状态.标题 = json.取通用属性 (“msg”)
.如果真 (json.取通用属性 (“saveOK”) = “0”)
sThrAppid = json.取通用属性 (“cookie.sThrAppid”)
iAuthType = json.取通用属性 (“cookie.iAuthType”)
openid = json.取通用属性 (“cookie.openid”)
sSessionKey = json.取通用属性 (“cookie.sSessionKey”)
wsreq_logseq = json.取通用属性 (“cookie['wsreq_logseq']”)
person_id = json.取通用属性 (“cookie['person_id']”)
调试输出 (sThrAppid, iAuthType, openid, sSessionKey, wsreq_logseq, person_id)
信息 = 编码_Utf8到Ansi (网页_访问 (“http://tool.clwl.online/wspeed/login.php?do=speed”, 1, “sThrAppid=” + sThrAppid + “&iAuthType=” + iAuthType + “&openid=” + openid + “&sSessionKey=” + sSessionKey + “&wsreq_logseq=” + wsreq_logseq + “&person_id=” + person_id))
json.解析 (信息)
标签_状态.标题 = json.取通用属性 (“msg”)
跳出循环 ()
.如果真结束
程序_延时 (1, 1)
.计次循环尾 ()
.子程序 __启动窗口_创建完毕
tool.clwl.online