易語言解析B站直播間的地址獲得彈幕內容的代碼

今天小編就爲大家分享一篇關於易語言解析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, “彈幕助手”)

運行結果:

總結

以上就是這篇文章的全部內容了,希望本文的內容對大家的學習或者工作具有一定的參考學習價值,謝謝大家對神馬文庫的支持。如果你想了解更多相關內容請查看下面相關鏈接

發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章