必应(bing)每日壁纸获取 3K 优化版

Editor

必应（Bing）每日首页美图，通过将来自世界各地的高质量图片设置为首页背景，美轮美奂的必应美图备很多人当做壁纸使用，一键执行下载到本地，非常方便


好久之前用的脚本但是只能下载1080P的图片 文件名是Hash值不容易区分，就自己动手修改了一下


现在可以现在3K分辨率（2880*1620）文件名也修改成对应的图片名称 一目了然

1. $x = Split-Path -Parent $MyInvocation.MyCommand.Definition
   
2. 
   
3. Set-Location $x
   
4. 
   
5. 
   
6. $CONFIG_PATH = $x + "\images"
   
7. If (!(test-path $CONFIG_PATH)) {
   
8.    mkdir images
   
9. }
   
10. 
    
11. 
    
12. Set-Location images
    
13. 
    
14. 
    
15. $path = $x + "\images\jsons"
    
16. If (!(test-path $path)) {
    
17.    mkdir jsons
    
18. }
    
19. 
    
20. 
    
21. Set-Location jsons
    
22. 
    
23. $url = "https://cn.bing.com/HPImageArchive.aspx?format=js&idx=0&n=10&nc=1586230018677&pid=hp&uhd=1&uhdwidth=2880&uhdheight=1620"
    
24. 
    
25. $time = Get-Date
    
26. 
    
27. $data = Invoke-WebRequest $url
    
28. 
    
29. $data.Content | Out-File $time.DayOfYear
    
30. 
    
31. $decode = ConvertFrom-Json($data)
    
32. 
    
33. Set-Location ..
    
34. 
    
35. $range = 1..8
    
36. 
    
37. $count = $range.Count
    
38. 
    
39. for ($i = 0; $i -lt $count; $i++) {
    
40. 
    
41.    $temp = $decode.images.Get($i)
    
42. 
    
43.    $urlsplit = -Join ("https://cn.bing.com", $temp.url)
    
44. 
    
45.    Write-Output $urlsplit
    
46. 
    
47. 
    
48. 
    
49.    $temp.url -match "\w+_.*\d_UHD\.jpg"
    
50.    $matches[0]
    
51.    $imgName = $matches[0]
    
52. 
    
53.    Invoke-WebRequest $urlsplit -OutFile ($imgName)
    
54. 
    
55. }
    
56. 
    
57. Write-Output OK!
    
58. 
    
59. pause

复制代码

复制代码修改文件后缀为.ps1

塞翁364

我看不错噢 谢谢楼主！知鸟论坛越来越好！

李志敏

楼主，我太崇拜你了！我想我是一天也不能离开知鸟论坛。

123456823

其实我一直觉得楼主的品味不错！呵呵！知鸟论坛太棒了！

十二音阶囤

楼主发贴辛苦了，谢谢楼主分享！我觉得知鸟论坛是注册对了！

Gordon520

这个帖子不回对不起自己！我想我是一天也不能离开知鸟论坛。

462710480

论坛不能没有像楼主这样的人才啊！我会一直支持知鸟论坛。

胡37

楼主太厉害了！楼主，I*老*虎*U！我觉得知鸟论坛真是个好地方！

123456833

这东西我收了！谢谢楼主！知鸟论坛真好！

冀苍鸾

论坛不能没有像楼主这样的人才啊！我会一直支持知鸟论坛。