易语言实现采集百度图片并下载

本程序主要是实现百度图片的下载功能，目前由于时间关系，没有更新采集图片尺寸，默认采集特大尺寸的图片，请使用一点滴模块最新版本v1.20.1

代码如下：

.版本 2
.支持库 EThread
.支持库 iext
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击

启动线程 (&子程序_采集图片, , )

.子程序 子程序_采集图片
.局部变量 总数, 整数型
.局部变量 数组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 待分割的文本, 文本型, , "0"
.局部变量 index, 整数型

模块_采集百度图片 (编辑框_关键字.内容, 页码, 总数, 数组)
' 调试输出 (数组)
' 吊带美女尤物丰满诱惑性感写真 _ 图片网$https://img5.51tietu.net/pic/2019-083123/iyga0zv4koriyga0zv4kor.jpg$https://img2.baidu.com/it/u=2840398674,2242446878&fm=253&fmt=auto&app=138&f=JPEG?w=500&h=729$2018-03-31 03:48$jpg$1024/1494
透明标签2.标题 ＝ “共搜索到：” ＋ 到文本 (总数) ＋ “ 条数据”
.如果真 (取数组成员数 (数组) ＝ 0)
    信息框 (“没有了”, #信息图标, , )
    返回 ()
.如果真结束
超级列表框1.全部删除 ()
.计次循环首 (取数组成员数 (数组), i)
    待分割的文本 ＝ 分割文本 (数组 [i], “$”, )
    index ＝ 超级列表框1.插入表项 (, 到文本 (i), , , , )
    超级列表框1.置标题 (index, 1, 模块_去除html标签 (待分割的文本 [1]))
    超级列表框1.置标题 (index, 2, 待分割的文本 [3])
    超级列表框1.置标题 (index, 3, 待分割的文本 [4])
    超级列表框1.置标题 (index, 5, 待分割的文本 [6])
    超级列表框1.置标题 (index, 4, 待分割的文本 [5])
    超级列表框1.置标题 (index, 6, “待下载”)
.计次循环尾 ()


.子程序 _按钮2_被单击
.局部变量 图片, 文本型, , "0"
.局部变量 待分割的数组, 文本型, , "0"
.局部变量 i, 整数型

模块_采集必应图片 (, 图片)
.计次循环首 (取数组成员数 (图片), i)
    待分割的数组 ＝ 分割文本 (图片 [i], “$”, )
    编辑框1.加入文本 (待分割的数组 [1] ＋ “----” ＋ 待分割的数组 [2] ＋ #换行符)

.计次循环尾 ()

.子程序 _超级列表框1_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

置剪辑板文本 (超级列表框1.取标题 (超级列表框1.现行选中项, 2))

.子程序 _按钮3_被单击

页码 ＝ 页码 ＋ 1
启动线程 (&子程序_采集图片, , )

.子程序 __启动窗口_创建完毕

页码 ＝ 1


.子程序 _按钮4_被单击

启动线程 (&子程序_下载图片, , )

.子程序 子程序_下载图片
.局部变量 i, 整数型


.计次循环首 (超级列表框1.取表项数 (), i)
    .如果 (模块_下载URL文件 (超级列表框1.取标题 (i － 1, 2), 取运行目录 () ＋ “\” ＋ 模块_取北京时间戳 () ＋ “.” ＋ 超级列表框1.取标题 (i － 1, 4)))
        超级列表框1.置标题 (i － 1, 6, “成功”)
    .否则
        超级列表框1.置标题 (i － 1, 6, “失败”)
    .如果结束

    调试输出 (超级列表框1.取标题 (i － 1, 2), 超级列表框1.取标题 (i － 1, 5))
    延迟 (10)
.计次循环尾 ()