易语言解析B站直播间的地址获得弹幕内容的代码
常量数据表
.版本 2
.常量 常量1, "<文本长度: 31>", , <span class="info-text" title="
.常量 常量2, "<文本长度: 2>", , ">
.常量 常量3, "<文本长度: 19>", , http://i0.hdslb.com.常量 常量4, "<文本长度: 4>", , .jpg
自定义数据类型表
.版本 2 .数据类型 data .成员 uid, 文本型 .成员 name, 文本型 .成员 text, 文本型
B站直播间弹幕获取的代码
此功能需要加载精易模块5.6
.版本 2 .支持库 internet .程序集 窗口程序集_启动窗口 .程序集变量 result1, 文本型 .程序集变量 result2, 文本型 .程序集变量 data, data .程序集变量 a, 整数型 .程序集变量 计次, 整数型 .子程序 __启动窗口_创建完毕 a = 1 .子程序 _时钟1_周期事件 .局部变量 地址, 文本型 .局部变量 主播名字, 文本型 .局部变量 主播头像, 文本型 result1 = 编码_usc2到ansi (到文本 (网页_访问 (“http://api.live.bilibili.com/ajax/msg”, 1, “roomid=” + 直播间代码编辑框.内容))) ' 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” + #引号 + “:”, #引号 + “,” + #引号) 弹幕编辑框.内容 = 弹幕编辑框.内容 + data.name + “ : ” + data.text + #换行符 地址 = 编码_utf8到gb2312 (到文本 (HTTP读文件 (“http://live.bilibili.com/” + 直播间代码编辑框.内容))) 主播名字 = 文本_取出中间文本 (地址, #常量1, #常量2) 主播头像 = 文本_取出中间文本 (地址, #常量3, #常量4) 标签1.标题 = “主播:” + 主播名字 头像图片框.图片 = HTTP读文件 (#常量3 + 主播头像 + “.jpg”) ' 当前获取为不稳定的,有可能在其他直播无法获取到头像~ _启动窗口.标题 = “当前您正在观看” + 主播名字 + “的直播间弹幕---弹幕助手” .如果真结束 .子程序 _绑定按钮_被单击 直播间代码编辑框.禁止 = 真 信息框 (“已绑定成功√”, 0, “弹幕助手”) .子程序 _解除绑定按钮_被单击 直播间代码编辑框.禁止 = 假 信息框 (“已解除当前绑定√”, 0, “弹幕助手”)
运行结果:
总结
以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对我们的支持。如果你想了解更多相关内容请查看下面相关链接
赞 (0)