聊呗 二维码扫码易语言登录源码

.版本 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)

@huangxy0051