常量数据表
- .版本 2
- .常量 常量1, "<文本长度: 31>", , <span class="info-text" title="
- .常量 常量2, "<文本长度: 2>", , ">
- .常量 常量3, "<文本长度: 19>", , http://i0.hdslb.com
- .常量 常量4, "<文本长度: 4>", , .jpg
自定义数据类型表
|
1
2
3
4
5
|
.版本 2
.数据类型 data
.成员 uid, 文本型
.成员 name, 文本型
.成员 text, 文本型
|
B站直播间弹幕获取的代码
此功能需要加载精易模块5.6
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
.版本 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, “弹幕助手”)
|
运行结果：
总结
以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对服务器之家的支持。如果你想了解更多相关内容请查看下面相关链接