易语言聊天软件斗图采集，无限发

li947011039

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

.计次循环首 (到数值 (编辑框1.内容), page)
    result ＝ 编码_Utf8到Ansi (网页_访问 (“http://www.doutula.com/photo/list/?page=” ＋ 到文本 (page), , , , , , , , , , , , ))
    正则1.创建 (#表情地址, result, , , , )
    ' 调试输出 (result)
    .计次循环首 (正则1.取匹配数量 (), 第二次计次)
        调试输出 (正则1.取子匹配文本 (第二次计次, 2))
        调试输出 (正则1.取子匹配文本 (第二次计次, 3))
        图片地址 ＝ 正则1.取子匹配文本 (第二次计次, 2)
        图片名称 ＝ 正则1.取子匹配文本 (第二次计次, 3)
        索引 ＝ 超级列表框1.插入表项 (, , , , , )
        超级列表框1.置标题 (索引, 0, 到文本 (第二次计次))
        超级列表框1.置标题 (索引, 1, 图片地址)
        超级列表框1.置标题 (索引, 2, 图片名称)
        超级列表框1.置标题 (索引, 3, “等待下载中...”)
        ' 图片框1.刷新显示 ()
        ' 图片框1.图片 ＝ HTTP读文件 (图片地址)
        标签2.标题 ＝ 图片名称
        超级列表框1.保证显示 (索引)
        创建目录 (“D:\斗图采集”)
        是否写入 ＝ 写到文件 (“D:\斗图采集” ＋ “/” ＋ 图片名称 ＋ “.jpg”, 网页_访问 (图片地址, , , , , , , , , , , , ))
        .如果 (是否写入)
            加入成员 (地址数组, “D:\斗图采集” ＋ “/” ＋ 图片名称 ＋ “.jpg”)


            超级列表框1.置标题 (索引, 3, “下载成功”)


        .否则
            超级列表框1.置标题 (索引, 3, “下载失败”)
        .如果结束
        ' 延时 (200)

    .计次循环尾 ()



    ' ' 编辑框5.加入文本 (“  未来降雨量图片：” ＋ name ＋ “  正在下载...” ＋ #换行符)
    .' 如果 (是否写入)
        ' 编辑框5.加入文本 (到文本 (取现行时间 ()) ＋ “  未来降雨量图片：” ＋ name ＋ “  下载成功” ＋ #换行符)
        ' ' 调试输出 (“保存成功！”)

    .否则
        ' 编辑框5.加入文本 (到文本 (取现行时间 ()) ＋ “  未来降雨量图片：” ＋ name ＋ “  下载失败” ＋ #换行符)
        ' ' 调试输出 (“保存失败！”)
    .如果结束

.计次循环尾 ()

Mirven

支持一下看起来不错

li947011039

umf43 发表于 2019-11-8 13:47
是什么？源码了

算是表情轰炸机吧

li947011039

2B不止铅笔还 发表于 2019-11-8 14:25
全部要下载本地么？

是的

wjswzj0

看起来不错哦

xiaohe518

看起来不错哦

LYForever

看起来很强，支持一下~

阿汤哥

天秀啊，谢谢楼主

噢噢

支持开源~！感谢分享

q951681306

支持一下，感谢分享