B站弹幕助手源码

B站弹幕助手源码

可以在线编辑房间号啦hhh

可以获取up头像和名字

部分源码

.版本 2
.支持库 internet

.程序集 窗口程序集_启动窗口
.程序集变量 result1, 文本型
.程序集变量 result2, 文本型
.程序集变量 data, data
.程序集变量 a, 整数型
.程序集变量 计次, 整数型

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

a ＝ 1

.子程序 _时钟1_周期事件
.局部变量 地址, 文本型
.局部变量 主播名字, 文本型
.局部变量 主播头像, 文本型

result1 ＝ 编码_usc2到ansi (到文本 (网页_访问 (“http://api.live.bilibili.com/ajax/msg”, 1, “roomid=” ＋ 编辑框2.内容)))  ' 23058=直播间roomid
.如果真 (result2 ≠ result1)
    result2 ＝ result1
    .如果真 (a ＝ 1)
        a ＝ 2
        返回 ()
    .如果真结束
    result1 ＝ 文本_取出中间文本 (result1, “text” ＋ #引号 ＋ “:” ＋ #引号, #引号 ＋ “admin” ＋ #引号 ＋ “:[]}}”)
    计次 ＝ 文本_取出现次数 (result1, “text” ＋ #引号 ＋ “:” ＋ #引号)
    .计次循环首 (计次, )
        result1 ＝ 文本_取出中间文本 (result1 ＋ #引号 ＋ “admin” ＋ #引号 ＋ “:[]}}”, “text” ＋ #引号 ＋ “:” ＋ #引号, #引号 ＋ “admin” ＋ #引号 ＋ “:[]}}”)
        result1 ＝ “text” ＋ #引号 ＋ “:” ＋ result1
    .计次循环尾 ()
    data.uid ＝ 文本_取出中间文本 (result1, “uid” ＋ #引号 ＋ “:”, “,” ＋ #引号)
    data.name ＝ 文本_取出中间文本 (result1, “nickname” ＋ #引号 ＋ “:” ＋ #引号, #引号 ＋ “,” ＋ #引号)
    data.text ＝ 文本_取出中间文本 (result1, “text” ＋ #引号 ＋ “:”, #引号 ＋ “,” ＋ #引号)
    编辑框1.内容 ＝ 编辑框1.内容 ＋ data.name ＋ “ : ” ＋ data.text ＋ #换行符
    地址 ＝ 编码_utf8到gb2312 (到文本 (HTTP读文件 (“http://live.bilibili.com/” ＋ 编辑框2.内容)))
    主播名字 ＝ 文本_取出中间文本 (地址, #常量1, #常量2)
    主播头像 ＝ 文本_取出中间文本 (地址, #常量3, #常量4)
    标签1.标题 ＝ “主播：” ＋ 主播名字
    图片框3.图片 ＝ HTTP读文件 (#常量3 ＋ 主播头像 ＋ “.jpg”)  ' 当前获取为不稳定的，有可能在其他直播无法获取到头像~
    _启动窗口.标题 ＝ “当前您正在观看” ＋ 主播名字 ＋ “的直播间弹幕---弹幕助手”
.如果真结束


.子程序 _按钮1_被单击

编辑框2.禁止 ＝ 真
信息框 (“已绑定成功√”, 0, “弹幕助手”, )

.子程序 _按钮2_被单击

编辑框2.禁止 ＝ 假
信息框 (“已解除当前绑定√”, 0, “弹幕助手”, )

.子程序 _如何查看直播间代码_被选择

信息框 (“如果载入教程略慢，应个人网络所定”, 0, “弹幕助手”, )
载入 (窗口1, , 真)

@久伴我驻我心