Qiniu Yuntu Bed Download Tool

Qiniu Yuntu Bed Download Tool

All programming is for laziness, hehehe

First picture

Built-in is not for you, I made it myself


Role: fast download their pictures seven cattle cloud storage space, and save it to 桌面/学习笔记/markdown图片/日期the


You have to capture the cookie yourself. After logging in to Qiniu Cloud, any operation is accompanied by a cookie. Open F12, and then look at the network. Xiaoqiu, the picture above!


For the date column, fill in the date you want to download, and then the date of that day will be downloaded, and the download is sorted by Arabic numerals. In the
space column, fill in your Qiniu cloud storage space.


Attach the code:

.版本 2
.支持库 spec
.支持库 shell
.支持库 internet

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

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

皮肤_随机皮肤 (#皮肤_永不言败, #皮肤_七彩条幅, )
编辑框_日期.内容 = 到文本 (取日 (取现行时间 ()))

.子程序 _按钮1_被单击
.局部变量 返回值, 字节集
.局部变量 返回值文本, 文本型
.局部变量 链接, 文本型
.局部变量 json, 类_json
.局部变量 成员数量, 整数型
.局部变量 sum, 整数型
.局部变量 日期, 文本型
.局部变量 状态码, 逻辑型

.如果 (选择框1.选中)
    返回值 = 网页_访问 (“https://portal.qiniu.com/api/kodov2/rsf/list?bucket=mymarkdown-tuchuang&prefix=&baseUrl=http%3A%2F%2Ftc.glulu7.cn&delimiter=&allversion=false&limit=51&marker=”, 0, , #cookier, , #协议头, , , , , , , )
.否则
    返回值 = 网页_访问 (“https://portal.qiniu.com/api/kodov2/rsf/list?bucket=” + 编辑框_空间地址.内容 + “&prefix=&baseUrl=http%3A%2F%2Ftc.glulu7.cn&delimiter=&allversion=false&limit=51&marker=”, 0, , 编辑框_cookie.内容, , #协议头, , , , , , , )
.如果结束

返回值文本 = 到文本 (返回值)
调试输出 (返回值文本)
成员数量 = 寻找文本 (返回值文本, “preview_url”, , 真)

调试输出 (成员数量)
json.解析 (返回值文本)
sum = 0
日期 = 到文本 (取年份 (取现行时间 ())) + “年” + 到文本 (取月份 (取现行时间 ())) + “月” + 到文本 (取日 (取现行时间 ())) + “日”

.判断循环首 (sum < 成员数量)
    链接 = json.取通用属性 (“items[” + 到文本 (sum) + “]['preview_url']”, )
    .如果 (寻找文本 (链接, 到文本 (202009) + 编辑框_日期.内容, , 真) ≠ -1)
        调试输出 (链接)
        ' 写到文件 (取运行目录()+"\文本文档.txt", 编辑框1.内容)
        创建目录 (取特定目录 (3) + “\学习笔记\markdown图片\” + 日期)
        状态码 = 写到文件 (取特定目录 (3) + “\学习笔记\markdown图片\” + 日期 + “\” + 到文本 (sum) + “.png”, HTTP读文件 (链接))
        .如果 (状态码)
            编辑框_状态.加入文本 (“下载第” + 到文本 (sum) + “张图片成功” + #换行符)
        .否则
            编辑框_状态.加入文本 (“下载第” + 到文本 (sum) + “张图片失败” + #换行符)
        .如果结束

        ' HTTP读文件 (链接)
    .否则

    .如果结束

    sum = sum + 1
.判断循环尾 ()

Draw the interface yourself, do it yourself, have enough food and clothing, and finally, get the finished product!
Lanzous Cloud: https://wwa.lanzous.com/i6Ryeglnnbe

Hehe, good night everyone~


Update, update~
First picture:

Added the ""One-click download all" function.
Just check "Download all" and click download. Any other comments are welcome. The
code updates are as follows:

.版本 2
.支持库 spec
.支持库 shell
.支持库 internet

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

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

皮肤_随机皮肤 (#皮肤_永不言败, #皮肤_七彩条幅, )
编辑框_日期.内容 = 到文本 (取日 (取现行时间 ()))

.子程序 _按钮1_被单击
.局部变量 返回值, 字节集
.局部变量 返回值文本, 文本型
.局部变量 链接, 文本型
.局部变量 json, 类_json
.局部变量 成员数量, 整数型
.局部变量 sum, 整数型
.局部变量 日期, 文本型
.局部变量 状态码, 逻辑型
.局部变量 下载判断, 逻辑型
.局部变量 数组1, 文本型, , "0"

.如果 (选择框1.选中)
    返回值 = 网页_访问 (“https://portal.qiniu.com/api/kodov2/rsf/list?bucket=mymarkdown-tuchuang&prefix=&baseUrl=http%3A%2F%2Ftc.glulu7.cn&delimiter=&allversion=false&limit=51&marker=”, 0, , #cookier, , #协议头, , , , , , , )
.否则
    返回值 = 网页_访问 (“https://portal.qiniu.com/api/kodov2/rsf/list?bucket=” + 编辑框_空间地址.内容 + “&prefix=&baseUrl=http%3A%2F%2Ftc.glulu7.cn&delimiter=&allversion=false&limit=51&marker=”, 0, , 编辑框_cookie.内容, , #协议头, , , , , , , )
.如果结束

返回值文本 = 到文本 (返回值)
调试输出 (返回值文本)
文本_取中间_批量 (返回值文本, “{”, “}”, 数组1, , , , , , , )
成员数量 = 取数组成员数 (数组1) - 1

调试输出 (成员数量)
json.解析 (返回值文本)
sum = 0
日期 = 到文本 (取年份 (取现行时间 ())) + “年” + 到文本 (取月份 (取现行时间 ())) + “月” + 到文本 (取日 (取现行时间 ())) + “日”
.如果 (选择框2.选中)
    编辑框_日期.内容 = “”
    下载判断 = 真
.否则
    下载判断 = 寻找文本 (链接, 到文本 (202009) + 编辑框_日期.内容, , 真) ≠ -1
.如果结束

.判断循环首 (sum < 成员数量)
    链接 = json.取通用属性 (“items[” + 到文本 (sum) + “]['preview_url']”, )
    .如果 (下载判断)
        调试输出 (链接)
        ' 写到文件 (取运行目录()+"\文本文档.txt", 编辑框1.内容)
        创建目录 (取特定目录 (3) + “\学习笔记\markdown图片\” + 日期)
        状态码 = 写到文件 (取特定目录 (3) + “\学习笔记\markdown图片\” + 日期 + “\” + 到文本 (sum + 1) + “.png”, HTTP读文件 (链接))
        .如果 (状态码)
            编辑框_状态.加入文本 (“下载第” + 到文本 (sum + 1) + “张图片成功” + #换行符)
        .否则
            编辑框_状态.加入文本 (“下载第” + 到文本 (sum + 1) + “张图片失败” + #换行符)
        .如果结束

        ' HTTP读文件 (链接)
    .否则

    .如果结束

    sum = sum + 1
.判断循环尾 ()
.如果 (sum = 成员数量)
    信息框 (“下载完毕,谢谢使用”, 0, , )
.否则

.如果结束

That's it~
Put the link to the second edition:
https://wwa.lanzous.com/iYwBtglzowd

Welcome everyone to communicate~

Guess you like

Origin blog.csdn.net/qq_42537565/article/details/108570864