.版本 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#引号:”, “}”, , )