抖音评论赞查询系统源码

抖音评论赞查询系统源码

.版本 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 (“http://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加壳软件可以使软件代码虚拟化，难以跟踪增强防破解

@九帝