软件调用的接口，不需要浏览器啥的，只需要输入视频连接就行了，然后它就会自动读取视频下面的评论信息，通过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”))

  .计次循环尾 ()

.计次循环尾 ()

==========================================================