|

本帖最后由 zainex 于 2021-3-5 16:41 编辑
新人分享,求点币
变量名 | 类 型 | 静态 | 数组 | 备 注 | 长度 | 整数型 | | | 位 | 整数型 | | | 表项位置 | 整数型 | | | 弹幕 | 整数型 | | | 弹幕集 | 整数型 | | | 临时 | 文本型 | | 0 | 时间 | 文本型 | | |
透明标签1.标题 = “正在下载接口参数...”弹幕工具 = 新建弹幕工具 (取剪辑板文本 ()) 如果 (弹幕工具_存在错误 (弹幕工具 ))  透明标签1.标题 = 弹幕工具_获取错误 (弹幕工具 ) 透明标签1.标题 = “下载完成!” 延时 (500 ) 透明标签1.标题 = “正在通过接口下载数据...” 弹幕集 = 弹幕工具_创建弹幕集 (弹幕工具 ) 如果 (弹幕工具_存在错误 (弹幕工具 ))   透明标签1.标题 = 弹幕工具_获取错误 (弹幕工具 ) 延时 (500 )  透明标签1.标题 = “正在处理数据...”  长度 = 弹幕集_长度 (弹幕集 ) 重定义数组 (弹幕信息集, 假, 长度 )  计次循环首 (长度, 位 )   弹幕 = 弹幕集_获取项目 (弹幕集, 位 - 1 )   弹幕信息集 [位 ].发送者 = 到文本 (弹幕_静态_哈希转标识 (弹幕_获取哈希值 (弹幕 )) )   弹幕信息集 [位 ].出现时间 = 到文本 (弹幕_获取出现时间 (弹幕 ))    弹幕信息集 [位 ].发送时间 = 到文本 (弹幕_获取发送时间 (弹幕 ))    弹幕信息集 [位 ].发送内容 = 到文本 (弹幕_静态_UTF8转GB2312 (弹幕_获取发送文本 (弹幕 )) )   表项位置 = 超级列表框1. 插入表项 (, , , , , )   超级列表框1. 置标题 (表项位置, 0, 弹幕信息集 [位 ].出现时间 )   超级列表框1. 置标题 (表项位置, 1, 弹幕信息集 [位 ].发送者 )   临时 = 分割文本 (整数转时间文本 (弹幕_获取发送时间 (弹幕 )), “ ”, )   时间 = 临时 [5 ] + “-” + 取月份 (临时 [2 ]) + “-” + 临时 [3 ] + “ ” + 取星期 (临时 [1 ]) + “ ” + 临时 [4 ]   超级列表框1. 置标题 (表项位置, 2, 时间 )   超级列表框1. 置标题 (表项位置, 3, 弹幕信息集 [位 ].发送内容 )  计次循环尾 () 释放弹幕集 (弹幕集 ) 延时 (500 )  透明标签1.标题 = “处理完成!” 延时 (500 )  透明标签1.标题 = “正在加载列表...”  判断循环首 (超级列表框1.左边 ≠ 0 )   超级列表框1.左边 = 超级列表框1.左边 - 30   延时 (10 )  判断循环尾 () 释放弹幕工具 (弹幕工具)
Bilibili弹幕获取工具v1.0.zip
(979.59 KB, 下载次数: 37)
|
|