软件调用的接口,不需要浏览器啥的,只需要输入视频连接就行了,然后它就会自动读取视频下面的评论信息,通过POst协议,所以说不管有多少条都能提取出来,不会卡主软件,很多都用的填表模式开发的,那种采集几千条就卡死用不了。
软件界面图:
采集出来的效果图:
易语言源码:
=======================================================
.版本 2
.支持库 EThread
.支持库 iext
.程序集 窗口程序集_启动窗口
.子程序 _按钮1_被单击
启动线程 (&Work, , )
.子程序 Work
.局部变量 Str, 文本型
.局部变量 p_num, 文本型
.局部变量 json, 类_json
.局部变量 r_id, 文本型
.局部变量 i, 整数型
.局部变量 a, 整数型
.局部变量 n, 整数型
超级列表框1.全部删除 ()
r_id = 文本区分_只取数字 (编辑框1.内容)
.计次循环首 (到整数 (编辑框2.内容), i)
Str = UTF8到文本 (网页_访问_对象 (“https://www.douyin.com/aweme/v1/web/comment/list/?device_platform=webapp&aid=6383&channel=channel_pc_web&aweme_id=” + r_id + “&cursor=” + 到文本 (i - 1) + “&count=50&item_type=0&rcFT=&pc_client_type=1&version_code=170400&version_name=17.4.0&cookie_enabled=true&screen_width=1920&screen_height=1080&browser_language=zh-CN&browser_platform=Win32&browser_name=Chrome&browser_version=95.0.4638.69&browser_online=true&engine_name=Blink&engine_version=95.0.4638.69&os_name=Windows&os_version=10&cpu_core_num=12&device_memory=8&platform=PC&downlink=10&effective_type=4g&round_trip_time=50&webid=&msToken=&X-Bogus=”, , , “1”, , “User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36” + #换行符 + “referer: https://www.douyin.com/video/”, ))
' 调试输出 (Str)
json.解析 (Str)
p_num = json.取通用属性 (“total”)
标签2.标题 = “共有评论:” + p_num
.计次循环首 (json.成员数 (“comments”), n)
a = 超级列表框1.插入表项 (, 到文本 (超级列表框1.取表项数 () + 1), , , , )
超级列表框1.保证显示 (a)
超级列表框1.置标题 (a, 1, json.取通用属性 (“comments[” + 到文本 (n - 1) + “].user.nickname”))
超级列表框1.置标题 (a, 2, json.取通用属性 (“comments[” + 到文本 (n - 1) + “].text”))
超级列表框1.置标题 (a, 3, json.取通用属性 (“comments[” + 到文本 (n - 1) + “].user.uid”))
.计次循环尾 ()
.计次循环尾 ()
==========================================================