.版本 2 .支持库 iext .支持库 spec .程序集 窗口程序集_启动窗口 .程序集变量 页数, 整数型 .程序集变量 临时文本, 文本型 .程序集变量 正则, 正则表达式类 .子程序 子程序1 .局部变量 k, 整数型 .局部变量 临时表项, 整数型 置入代码 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 }) 超级列表框1.全部删除 () 临时文本 ＝ 编码_utf8到gb2312 (网页_访问S (“//47.110.128.181/image/dyPhotoCommoentInfos?page=” ＋ 到文本 (页数) ＋ “&photoId=” ＋ 编辑框1.内容)) 调试输出 (临时文本) 透明标签1.标题 ＝ 临时文本 正则.创建 (#常量1, 临时文本) .计次循环首 (正则.取匹配数量 (), k) 临时表项 ＝ 超级列表框1.插入表项 (, , , , , ) 超级列表框1.置标题 (临时表项, 0, 到文本 (临时表项 ＋ 1)) ' 序号 超级列表框1.置标题 (临时表项, 1, 正则.取子匹配文本 (k, 5, )) ' 昵称 超级列表框1.置标题 (临时表项, 2, 正则.取子匹配文本 (k, 6, )) ' 评论内容 超级列表框1.置标题 (临时表项, 3, 正则.取子匹配文本 (k, 4, )) ' 点赞数 超级列表框1.置标题 (临时表项, 4, 正则.取子匹配文本 (k, 3, )) ' 评论时间 超级列表框1.置标题 (临时表项, 5, 正则.取子匹配文本 (k, 2, )) ' 作品ID 超级列表框1.置标题 (临时表项, 6, 正则.取子匹配文本 (k, 7, )) ' 评论ID 超级列表框1.置标题 (临时表项, 7, 正则.取子匹配文本 (k, 1, )) ' UID 超级列表框1.置标题 (临时表项, 8, 正则.取子匹配文本 (k, 8, )) ' 其他 处理事件 () .计次循环尾 () 刷新显示 () 置入代码 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 }) ' VMP保护结束标志尾 配合vmp加壳软件可以使软件代码虚拟化，难以跟踪增强防破解 .子程序 _获取刷新1_被单击 置入代码 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 }) ' VMP保护开始标志 页数 ＝ 0 上页1.可视 ＝ 假 下页1.可视 ＝ 真 子程序1 () 置入代码 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 }) ' VMP保护结束标志尾 配合vmp加壳软件可以使软件代码虚拟化，难以跟踪增强防破解 .子程序 _上页1_被单击 置入代码 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 }) ' VMP保护开始标志 .如果 (页数 ＝ 1) 上页1.可视 ＝ 假 页数 ＝ 0 .否则 页数 ＝ 页数 － 1 .如果结束 子程序1 () 置入代码 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 }) ' VMP保护结束标志尾 配合vmp加壳软件可以使软件代码虚拟化，难以跟踪增强防破解 .子程序 _下页1_被单击 置入代码 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 }) ' VMP保护开始标志 页数 ＝ 页数 ＋ 1 上页1.可视 ＝ 真 子程序1 () 置入代码 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 }) ' VMP保护结束标志尾 配合vmp加壳软件可以使软件代码虚拟化，难以跟踪增强防破解 .子程序 _按钮2_被单击 .局部变量 文本, 文本型 .局部变量 索引, 整数型 .局部变量 是否找到, 逻辑型 .局部变量 a, 整数型 .局部变量 计次, 整数型 .局部变量 是否成立搜索, 逻辑型 置入代码 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 }) ' VMP保护开始标志 .计次循环首 (超级列表框1.取表项数 () － 超级列表框1.现行选中项, 计次) .如果真 (寻找文本 (超级列表框1.取标题 (超级列表框1.现行选中项 ＋ 计次, 1), 编辑框2.内容, , 假) ≠ -1) 超级列表框1.现行选中项 ＝ 超级列表框1.现行选中项 ＋ 计次 超级列表框1.获取焦点 () 超级列表框1.保证显示 (超级列表框1.现行选中项) 返回 () .如果真结束 .计次循环尾 () .计次循环首 (超级列表框1.取表项数 (), 计次) .如果真 (寻找文本 (超级列表框1.取标题 (计次 － 1, 1), 编辑框2.内容, , 假) ≠ -1) 超级列表框1.现行选中项 ＝ 计次 － 1 超级列表框1.获取焦点 () 超级列表框1.保证显示 (超级列表框1.现行选中项) 返回 () .如果真结束 .计次循环尾 () 置入代码 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 }) ' VMP保护结束标志尾 配合vmp加壳软件可以使软件代码虚拟化，难以跟踪增强防破解 .子程序 __启动窗口_创建完毕 置入代码 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 }) ' VMP保护开始标志 _启动窗口.标题 ＝ “抖音评论查询系统 BY:九帝” 置入代码 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 }) ' VMP保护结束标志尾 配合vmp加壳软件可以使软件代码虚拟化，难以跟踪增强防破解 .子程序 _按钮1_被单击 .局部变量 web, 文本型 置入代码 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 }) ' VMP保护开始标志 web ＝ 编辑框3.内容 ' 编辑框2.内容 ＝ web 网页_访问_对象 (web, , , , , , web, , 真, , , , , , , , , ) web ＝ 文本_取出中间文本 (web, “Location:”, #换行符) 编辑框4.内容 ＝ web 编辑框5.内容 ＝ 文本_取出中间文本 (编辑框4.内容, “https://www.iesdouyin.com/share/video/”, “/?region=CN&mid”, , ) 调试输出 (web) 置入代码 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 }) ' VMP保护结束标志尾 配合vmp加壳软件可以使软件代码虚拟化，难以跟踪增强防破解