本帖最后由 微笑丶永远 于 2022-1-12 17:46 编辑
必应(Bing)每日首页美图,通过将来自世界各地的高质量图片设置为首页背景,美轮美奂的必应美图备很多人当做壁纸使用,一键执行下载到本地,非常方便
好久之前用的脚本但是只能下载1080P的图片 文件名是Hash值不容易区分,就自己动手修改了一下
现在可以现在3K分辨率(2880*1620)文件名也修改成对应的图片名称 一目了然
自己录制的动图
复制代码修改文件后缀为ps1
[Bash shell] 纯文本查看 复制代码 $x = Split-Path -Parent $MyInvocation.MyCommand.Definition
Set-Location $x
$CONFIG_PATH = $x + "\images"
If (!(test-path $CONFIG_PATH)) {
mkdir images
}
Set-Location images
$path = $x + "\images\jsons"
If (!(test-path $path)) {
mkdir jsons
}
Set-Location jsons
$url = "https://cn.bing.com/HPImageArchive.aspx?format=js&idx=0&n=10&nc=1586230018677&pid=hp&uhd=1&uhdwidth=2880&uhdheight=1620"
$time = Get-Date
$data = Invoke-WebRequest $url
$data.Content | Out-File $time.DayOfYear
$decode = ConvertFrom-Json($data)
Set-Location ..
$range = 1..8
$count = $range.Count
for ($i = 0; $i -lt $count; $i++) {
$temp = $decode.images.Get($i)
$urlsplit = -Join ("https://cn.bing.com", $temp.url)
Write-Output $urlsplit
$temp.url -match "\w+_.*\d_UHD\.jpg"
$matches[0]
$imgName = $matches[0]
Invoke-WebRequest $urlsplit -OutFile ($imgName)
}
Write-Output OK!
pause
蓝奏云盘 代码和上面的一样不想复制的可以下载这个
https://wwi.lanzoup.com/iratsyoszmd
|