|
发表于 2024-12-28 22:46:12
|
显示全部楼层
浙江省杭州市
.程序集 图片下载器
.程序集描述 下载指定API接口的图片
.入口子程序 _Main
.子程序 _Main
.局部变量 api_url, response, image_url, save_path, file_name, i, count
.初始化 api_url 为 "https://api.r10086.com/樱道随机图片api接口.php?图片系列=P站系列1"
.初始化 save_path 为 "downloaded_images"
.初始化 count 为 0
' 检查保存路径是否存在,不存在则创建
.如果 文件存在(save_path) .则
.输出 "保存路径已存在。"
.否则
.创建目录(save_path)
.输出 "保存路径已创建。"
.结束如果
' 无限循环下载图片
.开始标签 循环下载
.初始化 response 为 调用 HttpGet(api_url)
.如果 response 成功 .则
' 解析JSON数据(这里假设返回的是JSON格式,并且包含'image_url'键)
.初始化 image_url 为 JSON解析(response, "image_url")
.如果 image_url 不为空 .则
' 获取图片文件名
.初始化 file_name 为 image_url
.初始化 i 为 文件名长度(image_url)
.循环 i 从 0 到 -1 步长为 -1
.如果 文件名(i) 为 "." .则
' 从文件名中移除最后一个点
.赋值 文件名(i) 为 ""
.结束如果
.结束循环
' 保存图片
.赋值 file_name 为 save_path & "\\" & file_name
.调用 文件下载(image_url, file_name)
.赋值 count 为 count + 1
.输出 "已下载 ", count, " 张图片。"
.否则
.输出 "图片URL为空。"
.结束如果
.否则
.输出 "请求失败,状态码:", response 状态码
.结束如果
' 等待一段时间再次下载,防止请求频率过高
.延时 5000 ' 等待5秒
.结束标签 循环下载
' 用户停止下载
.输出 "按任意键退出。"
.输入
.结束子程序
.子程序 文件下载
.参数 url, save_path
.局部变量 response
.初始化 response 为 调用 HttpGet(url)
.如果 response 成功 .则
' 保存文件
.调用 文件写入(save_path, response 内容)
.否则
.输出 "下载失败,状态码:", response 状态码
.结束如果
.结束子程序
|
|