.版本 2
.常量常量1, "<文本長(zhǎng)度: 31>", , <span class="info-text" title="
.常量常量2, "<文本長(zhǎng)度: 2>", , ">
.常量常量3, "<文本長(zhǎng)度: 19>", , http://i0.hdslb.com
.常量常量4, "<文本長(zhǎng)度: 4>", , .jpg

自定義數(shù)據(jù)類型表

.版本 2
.數(shù)據(jù)類型 data
 .成員 uid, 文本型
 .成員 name, 文本型
 .成員 text, 文本型

B站直播間彈幕獲取的代碼

此功能需要加載精易模塊5.6

.版本 2
.支持庫(kù) internet
.程序集 窗口程序集_啟動(dòng)窗口
.程序集變量 result1, 文本型
.程序集變量 result2, 文本型
.程序集變量 data, data
.程序集變量 a, 整數(shù)型
.程序集變量 計(jì)次, 整數(shù)型
.子程序 __啟動(dòng)窗口_創(chuàng)建完畢
a ＝ 1
.子程序 _時(shí)鐘1_周期事件
.局部變量 地址, 文本型
.局部變量 主播名字, 文本型
.局部變量 主播頭像, 文本型
result1 ＝ 編碼_usc2到ansi (到文本 (網(wǎng)頁(yè)_訪問(wèn) (“http://api.live.bilibili.com/ajax/msg”, 1, “roomid=” ＋ 直播間代碼編輯框.內(nèi)容))) ' 23058=直播間roomid
.如果真 (result2 ≠ result1)
 result2 ＝ result1
 .如果真 (a ＝ 1)
 a ＝ 2
 返回 ()
 .如果真結(jié)束
 result1 ＝ 文本_取出中間文本 (result1, “text” ＋ #引號(hào) ＋ “:” ＋ #引號(hào), #引號(hào) ＋ “admin” ＋ #引號(hào) ＋ “:[]}}”)
 計(jì)次 ＝ 文本_取出現(xiàn)次數(shù) (result1, “text” ＋ #引號(hào) ＋ “:” ＋ #引號(hào))
 .計(jì)次循環(huán)首 (計(jì)次, )
 result1 ＝ 文本_取出中間文本 (result1 ＋ #引號(hào) ＋ “admin” ＋ #引號(hào) ＋ “:[]}}”, “text” ＋ #引號(hào) ＋ “:” ＋ #引號(hào), #引號(hào) ＋ “admin” ＋ #引號(hào) ＋ “:[]}}”)
 result1 ＝ “text” ＋ #引號(hào) ＋ “:” ＋ result1
 .計(jì)次循環(huán)尾 ()
 data.uid ＝ 文本_取出中間文本 (result1, “uid” ＋ #引號(hào) ＋ “:”, “,” ＋ #引號(hào))
 data.name ＝ 文本_取出中間文本 (result1, “nickname” ＋ #引號(hào) ＋ “:” ＋ #引號(hào), #引號(hào) ＋ “,” ＋ #引號(hào))
 data.text ＝ 文本_取出中間文本 (result1, “text” ＋ #引號(hào) ＋ “:”, #引號(hào) ＋ “,” ＋ #引號(hào))
 彈幕編輯框.內(nèi)容 ＝ 彈幕編輯框.內(nèi)容 ＋ data.name ＋ “ : ” ＋ data.text ＋ #換行符
 地址 ＝ 編碼_utf8到gb2312 (到文本 (HTTP讀文件 (“http://live.bilibili.com/” ＋ 直播間代碼編輯框.內(nèi)容)))
 主播名字 ＝ 文本_取出中間文本 (地址, #常量1, #常量2)
 主播頭像 ＝ 文本_取出中間文本 (地址, #常量3, #常量4)
 標(biāo)簽1.標(biāo)題 ＝ “主播：” ＋ 主播名字
 頭像圖片框.圖片 ＝ HTTP讀文件 (#常量3 ＋ 主播頭像 ＋ “.jpg”) ' 當(dāng)前獲取為不穩(wěn)定的，有可能在其他直播無(wú)法獲取到頭像~
 _啟動(dòng)窗口.標(biāo)題 ＝ “當(dāng)前您正在觀看” ＋ 主播名字 ＋ “的直播間彈幕---彈幕助手”
.如果真結(jié)束
.子程序 _綁定按鈕_被單擊
直播間代碼編輯框.禁止 ＝ 真
信息框 (“已綁定成功√”, 0, “彈幕助手”)
.子程序 _解除綁定按鈕_被單擊
直播間代碼編輯框.禁止 ＝ 假
信息框 (“已解除當(dāng)前綁定√”, 0, “彈幕助手”)

運(yùn)行結(jié)果：