.版本 2 .支持库 eGrid .支持库 iext .支持库 spec .程序集 窗口程序集_启动窗口 .子程序 _按钮1_被单击 .局部变量 a, 文本型 .局部变量 b, 文本型, , "0" .局部变量 i, 整数型 .局部变量 c, 文本型 .局部变量 d, 文本型 .局部变量 json, 类_JSON_ .局部变量 图片地址, 文本型 .局部变量 ii, 整数型 .局部变量 视频数, 整数型 .局部变量 清晰度节点, JSON节点, , "0" .局部变量 下载地址文本, 文本型 .局部变量 iii, 整数型 .变量循环首 (高级表格1.行数, 2, -1, iii) 高级表格1.删除行 (iii － 1) .变量循环尾 () 超级列表框1.全部删除 () a ＝ 到文本 (编码_Utf8到Ansi (网页_访问_对象 (编辑框2.内容, , , , , “user-agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/72.0.3626.121 Safari/537.36”, , , , , , , , , , , , ))) 文本_取中间_批量 (a, #常量1, #引号, b, , , , , , , ) _启动窗口.标题 ＝ 文本_取出中间文本 (a, #常量2, #引号, , ) .计次循环首 (取数组成员数 (b), i) c ＝ “https://lens.zhihu.com/api/v4/videos/” ＋ b [i] d ＝ 编码_usc2到ansi (到文本 (编码_Utf8到Ansi (网页_访问_对象 (c, , , , , “user-agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/72.0.3626.121 Safari/537.36”, , , , , , , , , , , , )))) json.初始化 () json.解析文本 (d, , ) 图片地址 ＝ json.取项目值 (“cover_url”, , , 真, ) 调试输出 (图片地址, i, c) 高级表格1.插入行 (到文本 (i), i) 高级表格1.置数据 (i, 1, #表格常量.图片型, 网页_访问_对象 (图片地址, , , , , “user-agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/72.0.3626.121 Safari/537.36”, , , , , , , , , , , , )) 高级表格1.置数据 (i, 3, #表格常量.文本型, json.取项目值 (“title”, , , 真, )) 高级表格1.置行高 (i, 100) 高级表格1.置列宽 (i, 100) 视频数 ＝ json.取子项目数 (“playlist”, , ) json.取项目所有节点 (“playlist”, , 清晰度节点, ) 下载地址文本 ＝ “” .计次循环首 (取数组成员数 (清晰度节点), ii) .如果真 (清晰度节点 [ii].层次 ＝ 3) 调试输出 (清晰度节点 [ii].名称, json.取项目值 (“playlist.” ＋ 清晰度节点 [ii].名称 ＋ “.play_url”, , , 真, )) 下载地址文本 ＝ json.取项目值 (“playlist.” ＋ 清晰度节点 [ii].名称 ＋ “.play_url”, , , 真, ) ＋ “||” ＋ 下载地址文本 .如果真结束 .计次循环尾 () 高级表格1.置数据 (i, 2, #表格常量.文本型, 下载地址文本) .计次循环尾 () 高级表格1.置列宽 (3, 200) .子程序 __启动窗口_创建完毕 .局部变量 json, 类_JSON_ .局部变量 d, 文本型 .局部变量 c, JSON节点, , "0" .局部变量 i, 整数型 高级表格1.置数据 (0, 0, #表格常量.文本型, “序号”) 高级表格1.置数据 (0, 1, #表格常量.文本型, “图片”) 高级表格1.置数据 (0, 2, #表格常量.文本型, “下载地址”) 高级表格1.置数据 (0, 3, #表格常量.文本型, “备注”) 高级表格1.置列类型 (1, #表格常量.图片型) 高级表格1.置图片显示方式 (1, #表格常量.拉伸) .子程序 _高级表格1_被单击 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .局部变量 行, 整数型 .局部变量 列, 整数型 .局部变量 a, 文本型 .局部变量 b, 文本型, , "0" .局部变量 文本内容, 文本型 .局部变量 i, 整数型 .局部变量 z, 整数型 超级列表框1.全部删除 () 文本内容 ＝ 高级表格1.取数据 (高级表格1.取光标行号 (), 2) a ＝ 子文本替换 (文本内容, “||”, #换行符, , , 真) b ＝ 分割文本 (文本内容, “||”, ) .计次循环首 (取数组成员数 (b), i) z ＝ 超级列表框1.插入表项 (, , , , , ) 超级列表框1.置标题 (z, 0, 到文本 (z ＋ 1)) 超级列表框1.置标题 (z, 1, 文本_取出中间文本 (b [i], “https://vdn2.vzuu.com/”, “/”, , )) 超级列表框1.置标题 (z, 2, b [i]) .计次循环尾 () 调试输出 (高级表格1.取数据 (高级表格1.取光标行号 (), 2)) a ＝ 子文本替换 (文本内容, “||”, #换行符, , , 真) 编辑框1.内容 ＝ a .子程序 _超级列表框1_左键单击表项 置剪辑板文本 (超级列表框1.取标题 (超级列表框1.现行选中项, 2))