.版本 2
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.子程序 _按钮1_被单击
线程_启动 (&子程序1)
.子程序 子程序1
.局部变量 Cookies, 文本型
.局部变量 Str, 文本型
图片框1.图片 = 网页_访问 (“https://account.dianping.com/account/getqrcodeimg”, , , , Cookies, #常量1)
调试输出 (Cookies)
.判断循环首 (1 = 1)
Str = 到文本 (网页_访问 (“https://account.dianping.com/account/ajax/queryqrcodestatus”, 1, Cookies, , , #常量2, , , ))
调试输出 (Str)
程序_延时 (1000)
.如果真 (寻找文本 (Str, “status” + #引号 + “:2”, , 假) ≠ -1)
跳出循环 ()
.如果真结束
.判断循环尾 ()
Str = 到文本 (网页_访问 (“http://www.dianping.com/dpnav/userCardData”, , , , , #常量3))
调试输出 (Str)
作者: huangxy0051
.版本 2
.支持库 spec
.程序集 窗口程序集_启动窗口
.程序集变量 uuid, 文本型
.程序集变量 Cookies, 文本型
.程序集变量 uid, 文本型
.程序集变量 tk, 文本型
.子程序 __启动窗口_创建完毕
' "http://r.lbpic.cn/qrcode/2d2ca9faa639f472e2ee8d19443edab2.png
.子程序 _按钮_登录_被单击
线程_启动 (&登录线程)
.子程序 登录线程
.局部变量 Str, 文本型
.局部变量 JSON, 类_json
.局部变量 登录代码, 文本型
.局部变量 用户昵称, 文本型
.局部变量 data, 文本型
uuid = “13d09a40-” + 文本_取随机字符 (4) + “-” + 文本_取随机字符 (4) + “-” + 文本_取随机字符 (4) + “-” + 文本_取随机字符 (12)
Str = 到文本 (网页_访问_对象 (“https://api.liaobe.cn/authlg/gqrc”, 1, “data=%7B%22dv%22%3A3%7D&ver=1.4.2.0&uuid=” + uuid + “&uid=-1”, , Cookies, ))
调试输出 (Str)
JSON.解析 (Str)
图片框1.图片 = 网页_访问_对象 (“http://r.lbpic.cn” + 文本_替换 (JSON.取通用属性 (“data.img”), , , , “\”, “”))
.循环判断首 ()
Str = 编码_utf8到gb2312 (到文本 (网页_访问_对象 (“https://api.liaobe.cn/authlg/lwqrc”, 1, “data=%7B%22os%22%3A%22Windows%2010%22%2C%22di%22%3A%22Chromium%E6%B5%8F%E8%A7%88%E5%99%A8%22%2C%22dv%22%3A3%2C%22tp%22%3A1%7D&ver=1.4.2.0&uuid=” + uuid + “&uid=-1”, , , , , , 真)))
JSON.解析 (Str)
登录代码 = JSON.取属性 (“r”).取数据文本 ()
.如果真 (登录代码 = “0”)
用户昵称 = JSON.取通用属性 (“data.unk”)
调试输出 (“用户昵称:” + 用户昵称)
.如果真结束
调试输出 (Str)
程序_延时 (1000)
.循环判断尾 (登录代码 ≠ “0”)
.循环判断首 ()
程序_延时 (1000)
Str = 编码_utf8到gb2312 (到文本 (网页_访问_对象 (“https://api.liaobe.cn/authlg/lwqrc”, 1, “data=%7B%22os%22%3A%22Windows%2010%22%2C%22di%22%3A%22Chromium%E6%B5%8F%E8%A7%88%E5%99%A8%22%2C%22dv%22%3A3%2C%22tp%22%3A2%7D&ver=1.4.2.0&uuid=” + uuid + “&uid=-1”, , , , , , 真, )))
调试输出 (Str)
JSON.解析 (Str)
uid = JSON.取通用属性 (“data.uid”)
tk = 文本_替换 (JSON.取通用属性 (“data.tk”), , , , “\”, “”)
.循环判断尾 (uid = “”)
data = “data=%7B%22ver%22%3A%221.4.2.0%22%2C%22dv%22%3A3%2C%22tk%22%3A%22” + 编码_URL编码 (tk, 真, 真) + “%22%7D&ver=1.4.2.0&uuid=” + uuid + “&uid=” + uid
调试输出 (data)
程序_延时 (1000)
Str = 编码_utf8到gb2312 (到文本 (网页_访问_对象 (“https://api.liaobe.cn/usr/wrus”, 1, data, , , , , , 真))) ' 这个包 好像是心跳包
调试输出 (Str)
某自媒体采集发布易语言源码