png图片素材全网下载软件

易语言 2020-01-25 17:35:05

png图片素材全网下载软件

选择分类,然后下载,简单方便。把标题翻译了一下~省的都是英文看不懂。

局_结果 = 到文本 (编码_编码转换对象 (网页_访问_对象 (局_网址, 1, , , , , , , , , , , , , , , ), , , ))
正则_取链接.创建 (#正则取链接, 局_结果, , , , )
创建目录 (取运行目录 () + “\图库下载\” + 组合框1.取项目文本 (组合框1.现行选中项))
保存路径 = 取运行目录 () + “\图库下载\” + 组合框1.取项目文本 (组合框1.现行选中项) + “\”
.计次循环首 (正则_取链接.取匹配数量 (), i)
系统_处理事件 ()
标签_当前采集名称.标题 = 正则_取链接.取子匹配文本 (i, 2, )
进度条_总进度.最大位置 = 正则_取链接.取匹配数量 ()
进度条_总进度.位置 = i
翻译的结果 = 网页_文字翻译 (正则_取链接.取子匹配文本 (i, 2, ))
翻译的结果 = 取文本左边 (翻译的结果, 取文本长度 (翻译的结果) - 1)
.判断开始 (翻译的结果 = “”)
文件名称 = 正则_取链接.取子匹配文本 (i, 2, ) + “【” + 正则_取链接.取子匹配文本 (i, 3, ) + “】”
.默认
文件名称 = 翻译的结果 + “【” + 正则_取链接.取子匹配文本 (i, 3, ) + “】”
.判断结束
创建目录 (保存路径 + 文件名称)
程序_延时 (50, )
取到的链接 = 正则_取链接.取子匹配文本 (i, 1, )
正确的地址 = 编辑框_主页.内容 + “/imgs” + 取到的链接
局_结果 = 到文本 (编码_编码转换对象 (网页_访问_对象 (正确的地址, 1, , , , , , , , , , , , , , , ), , , ))
正则_取图片1.创建 (#正则取图片1, 局_结果, , , , )
第一次取到的文本 = 正则_取图片1.取子匹配文本 (1, 1, )
正则_取图片2.创建 (#正则取图片2, 第一次取到的文本, , , , )
.计次循环首 (正则_取图片2.取匹配数量 (), j)
系统_处理事件 ()
进度条_当前进度.最大位置 = 正则_取图片2.取匹配数量 ()
进度条_当前进度.位置 = j
取到的链接 = 正则_取图片2.取子匹配文本 (j, 1, )
正确的地址 = 编辑框_主页.内容 + 取到的链接
写到文件 (保存路径 + 文件名称 + “\” + 到文本 (j) + “.png”, HTTP读文件 (正确的地址))
程序_延时 (100, )
.计次循环尾 ()
.计次循环尾 ()
状态条1.置文本 (1, “采集完成...”)
提示框 (“采集完成。”, , “温馨提示:”, , )