B站易语言登录源码例子

B站易语言登录源码例子

@Onlooker

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 _登录_被单击
.局部变量 Cookie, 文本型
.局部变量 err, 文本型

.判断开始 (B站登录 (帐号.内容, 密码.内容, Cookie, err))
    调试输出 (Cookie)
    信息框 (“登录成功”, #信息图标, , )
.默认
    信息框 (err, #警告图标, , )
.判断结束


.子程序 B站登录, 逻辑型
.参数 user, 文本型
.参数 pass, 文本型
.参数 Cookie, 文本型, 参考
.参数 err, 文本型, 参考
.局部变量 verifypic, 字节集
.局部变量 verifycode, 文本型
.局部变量 Str, 文本型
.局部变量 json, 类_json
.局部变量 hash, 文本型
.局部变量 key, 文本型
.局部变量 js, 类_脚本组件
.局部变量 pwd, 文本型
.局部变量 Cookies, 文本型
.局部变量 Refer, 文本型
.局部变量 正则, 正则表达式类
.局部变量 url, 文本型

网页_访问_对象 (“https://passport.bilibili.com/login”, , , , Cookie)
verifypic ＝ 网页_访问_对象 (“https://passport.bilibili.com/captcha?t=” ＋ 时间_取随机时间戳 (), , , Cookie)
图片框1.图片 ＝ verifypic
.循环判断首 ()
    程序_延时 (100)
.循环判断尾 (取文本长度 (验证码.内容) ＜ 5)
verifycode ＝ 验证码.内容
验证码.内容 ＝ “”
' ----------------------------------------------------------------------------------------------------------------------------
Str ＝ 到文本 (网页_访问_对象 (“https://passport.bilibili.com/login?act=getkey”, , , Cookie))
json.解析 (Str)
hash ＝ json.取通用属性 (“hash”)
key ＝ json.取通用属性 (“key”)
js.执行 (#Pwd)
pwd ＝ js.运行 (“getpwd”, pass, hash, key)
js.清除 ()
pwd ＝ 编码_URL编码 (pwd, 真, 真)
' ----------------------------------------------------------------------------------------------------------------------------
Str ＝ 编码_Utf8到Ansi (网页_访问_对象 (“https://passport.bilibili.com/login/dologin”, 1, “act=login&gourl=&keeptime=2592000&userid=” ＋ user ＋ “&pwd=” ＋ pwd ＋ “&vdcode=” ＋ verifycode, Cookie, Cookies, #Refer, Refer, , 真))
.判断开始 (Str ≠ “”)
    正则.创建 (“[^\x00-\xff]+”, Str)
    err ＝ 正则.取匹配文本 (2)
    返回 (假)
.默认
    Cookie ＝ 网页_Cookie合并更新 (Cookie, Cookies)
    url ＝ 文本_取出中间文本 (Refer, “Location: ”, #换行符)
    网页_访问_对象 (url, , , Cookie, Cookies)
    Cookie ＝ 网页_Cookie合并更新 (Cookie, Cookies)
    返回 (真)
.判断结束