关于采集网页内容

zs912 · 发表于 2022-11-1 17:40:47

之前搞过一个采集网页的，当时的网页地址失效了，现在又找到一个能用的网页，但是跟我之前那个网站不太一样，所以给整不会了。因是小白所以特来求助！现在要采集的网页地址是这个http://47.114.87.71:12300/#/plz

子程序名	返回值类型	公开	备注
_开始按钮_被单击

如果真 (选择框1.选中＝真)

如果 (编辑框昵称.内容＝ “”)

信息框 (“昵称不能为空!”, 0, , )

返回 ()

置入代码 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 }) ' VMP保护开始标志

如果 (开始按钮.标题＝ “开始采集”)

开始按钮.标题＝ “停止”

线程句柄＝线程_启动 (&开始采集)

如果 (开始按钮.标题＝ “停止”)

开始按钮.标题＝ “开始采集”

线程_销毁 (线程句柄)

置入代码 ({ 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 })
超级列表框1.全部删除 ()

计次循环首 (到整数 (编辑框页数.内容), a)

调试输出 (“a”, a)

透明标签1.标题＝ “正在采集第：” ＋到文本 (a) ＋ “ 页”

临时文本＝网页_访问S (“http://175.27.170.243/comment/?page=” ＋到文本 (a － 1) ＋ “&itemid=” ＋编辑框ID.内容)

临时文本＝文本_取出中间文本 (临时文本, “”, “”)

计次循环首 (文本_取中间_批量 (临时文本, “”, “”, 临时文本数组), k)

zs ＝文本_取中间_批量 (临时文本数组 [k], “”, 子文本数组)

计次循环首 (zs, s)

子文本数组 [s] ＝文本_替换 (子文本数组 [s], , , , “;width: 250px”, “”, #引号＋ “>”, “”)

如果 (选择框1.选中＝真)

如果真 (寻找文本 (编辑框昵称.内容, 子文本数组 [s], , 假) ≠ -1)

临时表项＝超级列表框1.插入表项 (, , , , , )

超级列表框1.置标题 (临时表项, 0, 到文本 (超级列表框1.取表项数 ()))

超级列表框1.置标题 (临时表项, 1, 文本_替换 (子文本数组 [2], , , , “;width: 250px”, “”, #引号＋ “>”, “”))

超级列表框1.置标题 (临时表项, 2, 文本_替换 (子文本数组 [3], , , , “;width: 250px”, “”, #引号＋ “>”, “”))

超级列表框1.置标题 (临时表项, 3, 文本_替换 (子文本数组 [4], , , , “;width: 250px”, “”, #引号＋ “>”, “”))

超级列表框1.置标题 (临时表项, 4, 文本_替换 (子文本数组 [5], , , , “;width: 250px”, “”, #引号＋ “>”, “”))

超级列表框1.置标题 (临时表项, 5, 文本_替换 (子文本数组 [6], , , , “;width: 250px”, “”, #引号＋ “>”, “”))

超级列表框1.置标题 (临时表项, 6, 文本_替换 (子文本数组 [7], , , , “;width: 250px”, “”, #引号＋ “>”, “”))

超级列表框1.置标题 (临时表项, 7, 文本_替换 (子文本数组 [8], , , , “;width: 250px”, “”, #引号＋ “>”, “”))

超级列表框1.置标题 (临时表项, 8, 文本_替换 (子文本数组 [9], , , , “;width: 250px”, “”, #引号＋ “>”, “”))

跳出循环 ()