B站up主及用户数据获取易语言源码

B站up主及用户数据获取易语言源码

@czddzc

.版本 2
.支持库 iext
.支持库 internet

.程序集 窗口程序集_启动窗口, , , up主https://space.bilibili.com/UID
.程序集变量 UID, 长整数型
.程序集变量 UP主头像, 字节集, , , 图片格式

.子程序 __启动窗口_创建完毕

皮肤_加载 (#皮肤_黑绿)

.子程序 __启动窗口_将被销毁

皮肤_卸载 ()


.子程序 _查询按钮_被单击

.如果 (UID编辑框1.内容 ≠ “”)
    UID ＝ 到长整数 (UID编辑框1.内容)
    请求全部POST数据 (UID)
.否则
    信息框 (“请输入UP主UID”, 0, , )
.如果结束


.子程序 请求全部POST数据
.参数 UID_形参, 长整数型
.局部变量 网页返回数据, 文本型
.局部变量 提交协议头, 文本型
.局部变量 UP主头像网页地址, 文本型

文本_替换 (#协议头, , , , “2333”, 到文本 (UID))
网页返回数据 ＝ 到文本 (网页_访问_对象 (“https://api.bilibili.com/x/relation/stat?vmid=” ＋ 到文本 (UID) ＋ “&jsonp=jsonp&callback=__jp3”, 0, , , , #协议头))
关注数标签.标题 ＝ “关注数：” ＋ 文本_取出中间文本 (网页返回数据, “following#引号:”, “,”, , )
粉丝数标签.标题 ＝ “粉丝数：” ＋ 文本_取出中间文本 (网页返回数据, “follower#引号:”, “}”, , )

网页返回数据 ＝ 编码_URL解码 (到文本 (网页_访问_对象 (“https://api.bilibili.com/x/space/acc/info?mid=” ＋ 到文本 (UID) ＋ “&jsonp=jsonp”, 0, , , , #协议头)), 真)
UP主标签.标题 ＝ “UP主：” ＋ 文本_取出中间文本 (网页返回数据, “name#引号:#引号”, #引号, , )
硬币数标签.标题 ＝ “硬币数：” ＋ 文本_取出中间文本 (网页返回数据, “coins#引号:”, “,”, , )
用户等级标签.标题 ＝ “用户等级：” ＋ 文本_取出中间文本 (网页返回数据, “level#引号:”, “,”, , )
个性签名内容标签.标题 ＝ 文本_取出中间文本 (网页返回数据, “sign#引号:#引号”, #引号, , )
UP主头像网页地址 ＝ 文本_取出中间文本 (网页返回数据, “face#引号:#引号”, #引号, , )
UP主头像 ＝ HTTP读文件 (UP主头像网页地址)
图片框1.图片 ＝ UP主头像

网页返回数据 ＝ 到文本 (网页_访问_对象 (“https://api.bilibili.com/x/space/upstat?mid=” ＋ 到文本 (UID) ＋ “&jsonp=jsonp&callback=__jp4”, 0, , , , #协议头))
' 调试输出 (网页返回数据)
视频总播放数标签.标题 ＝ “视频总播放数：” ＋ 文本_取出中间文本 (网页返回数据, “view#引号:”, “}”, , )