易语言抖音直播间弹幕获取程序：完整代码和解析

'引用WinHttp组件 $include

'定义变量 Dim Http As WinHttp.WinHttpRequest Dim RoomId As String Dim DanmuUrl As String Dim DanmuContent As String Dim DanmuFile As String

'获取直播间ID RoomId = InputBox('请输入抖音直播间ID：')

'构造弹幕获取URL DanmuUrl = 'https://webcast-hl.amemv.com/webcast/room/danmaku/?room_id=' + RoomId

'创建WinHttp对象 Set Http = New WinHttp.WinHttpRequest

'发送GET请求 Http.Open 'GET', DanmuUrl, False Http.Send

'解析弹幕内容 DanmuContent = Http.ResponseText DanmuContent = Replace(DanmuContent, Chr(0), '') DanmuContent = Replace(DanmuContent, Chr(1), '') DanmuContent = Replace(DanmuContent, Chr(2), '') DanmuContent = Replace(DanmuContent, Chr(3), '') DanmuContent = Replace(DanmuContent, Chr(4), '') DanmuContent = Replace(DanmuContent, Chr(5), '') DanmuContent = Replace(DanmuContent, Chr(6), '') DanmuContent = Replace(DanmuContent, Chr(7), '') DanmuContent = Replace(DanmuContent, Chr(8), '') DanmuContent = Replace(DanmuContent, Chr(9), '') DanmuContent = Replace(DanmuContent, Chr(10), '') DanmuContent = Replace(DanmuContent, Chr(11), '') DanmuContent = Replace(DanmuContent, Chr(12), '') DanmuContent = Replace(DanmuContent, Chr(13), '') DanmuContent = Replace(DanmuContent, Chr(14), '') DanmuContent = Replace(DanmuContent, Chr(15), '') DanmuContent = Replace(DanmuContent, Chr(16), '') DanmuContent = Replace(DanmuContent, Chr(17), '') DanmuContent = Replace(DanmuContent, Chr(18), '') DanmuContent = Replace(DanmuContent, Chr(19), '') DanmuContent = Replace(DanmuContent, Chr(20), '') DanmuContent = Replace(DanmuContent, Chr(21), '') DanmuContent = Replace(DanmuContent, Chr(22), '') DanmuContent = Replace(DanmuContent, Chr(23), '') DanmuContent = Replace(DanmuContent, Chr(24), '') DanmuContent = Replace(DanmuContent, Chr(25), '') DanmuContent = Replace(DanmuContent, Chr(26), '') DanmuContent = Replace(DanmuContent, Chr(27), '') DanmuContent = Replace(DanmuContent, Chr(28), '') DanmuContent = Replace(DanmuContent, Chr(29), '') DanmuContent = Replace(DanmuContent, Chr(30), '') DanmuContent = Replace(DanmuContent, Chr(31), '')

'保存弹幕内容到文本文件中 DanmuFile = RoomId + '.txt' Open DanmuFile For Output As #1 Print #1, DanmuContent Close #1

MsgBox '弹幕获取完成，保存到文件：' + DanmuFile

'请注意，该程序仅用于学习和研究用途，不得用于非法用途。