易语言爬虫下载图片源码

.版本 2
.支持库 xplib
.支持库 internet
.支持库 iext
.支持库 spec

.程序集 窗口程序集_启动窗口, , , ' 本源码来自三叶资源网(www.sanye.cx)
.程序集变量 网页, 整数型
.程序集变量 文件名, 整数型
.程序集变量 设置, 皮肤界面

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

标题 ＝ “————————————作者：阅读改变人生————————————”
网页 ＝ 1  ' 本源码来自三叶资源网(www.sanye.cx)
XP风格 (3)
置随机数种子 ()
创建目录 (“C:\爬虫图片”)
设置.创建 (#皮肤)
设置.设置色温 (102)

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

自动下载图片 ()

.子程序 自动下载图片
.局部变量 网页返回, 文本型
.局部变量 正则, 正则表达式类
.局部变量 计次, 整数型
.局部变量 A, 整数型, , , ' 本源码来自三叶资源网(www.sanye.cx)
.局部变量 url地址, 文本型
.局部变量 url数组, 文本型, , "0"
.局部变量 图片, 字节集
.局部变量 连接, 文本型
.局部变量 i, 整数型
.局部变量 url链接, 文本型

网页返回 ＝ 网页访问u (“http://soso.nipic.com/?q=花&page=” ＋ 到文本 (网页))
正则.创建 (#常量2, 网页返回, 假, 真)
.计次循环首 (正则.取匹配数量 (), 计次)
    url地址 ＝ 正则.取子匹配文本 (计次, 1)
    url数组 ＝ 分割文本 (url地址, #右引号, )
    A ＝ 取数组成员数 (url数组)
    连接 ＝ url数组 [A]
    i ＝ 取文本长度 (连接)
    i ＝ i － 2  ' 本源码来自三叶资源网(www.sanye.cx)
    url链接 ＝ 取文本左边 (连接, i)
    图片 ＝ HTTP读文件 (url链接)
    写到文件 (“C:\爬虫图片\” ＋ 到文本 (计次) ＋ 到文本 (取随机数 (, )) ＋ “.jpg”, 图片)
    超级列表框1.插入表项 (0, , , , , )
    超级列表框1.置标题 (0, 0, url链接)
    图片框1.图片 ＝ 图片
    延时 (100)
    标题 ＝ “已下载：” ＋ 到文本 (计次)
    .如果真 (正则.取匹配数量 () ＝ 计次)
        网页 ＝ 网页 ＋ 1
        自动下载图片 ()
    .如果真结束
    ' 本源码来自三叶资源网(www.sanye.cx)
.计次循环尾 ()

.子程序 _按钮2_被单击
.局部变量 url数组, 文本型, , "0"
.局部变量 图片, 字节集
.局部变量 连接, 文本型
.局部变量 i, 整数型
.局部变量 url链接, 文本型
.局部变量 计次, 整数型
.局部变量 网页返回, 文本型
.局部变量 正则, 正则表达式类
.局部变量 url地址, 文本型
.局部变量 A, 整数型

网页返回 ＝ 网页访问u (“http://soso.nipic.com/?q=花&page=” ＋ 到文本 (网页))
正则.创建 (#常量2, 网页返回, 假, 真)
.计次循环首 (正则.取匹配数量 (), 计次)
    url地址 ＝ 正则.取子匹配文本 (计次, 1)
    url数组 ＝ 分割文本 (url地址, #右引号, )
    A ＝ 取数组成员数 (url数组)
    连接 ＝ url数组 [A]
    i ＝ 取文本长度 (连接)  ' 本源码来自三叶资源网(www.sanye.cx)
    i ＝ i － 2
    url链接 ＝ 取文本左边 (连接, i)
    图片 ＝ HTTP读文件 (url链接)
    写到文件 (“C:\爬虫图片\” ＋ 到文本 (计次) ＋ 到文本 (取随机数 (, )) ＋ “.jpg”, 图片)
    超级列表框1.插入表项 (0, , , , , )
    超级列表框1.置标题 (0, 0, url链接)
    图片框1.图片 ＝ 图片
    延时 (100)
    标题 ＝ “已下载：” ＋ 到文本 (计次)
    .如果真 (正则.取匹配数量 () ＝ 计次)
        网页 ＝ 网页 ＋ 1
    .如果真结束
    调试输出 (网页)
.计次循环尾 ()

@爱婷学易