Windows Spotlight 锁屏壁纸的分享及提取方法

在 Build 2015 大会中,“Windows 聚焦”功能首次亮相。RTM 正式版中只有家庭版包含此功能。由于这项功能大受好评,微软应广大用户要求,在 TH2 中将其添加到了企业版和专业版系统中。Windows 聚焦(Windows Spotlight)是 Windows 10 中新增的一个锁屏壁纸功能,用于在用户每次开机登录时显示不同的背景,带来丰富的神秘感与新鲜感。


分享

前段时间在 IT 之家 闲逛时发现了几波 Windows 聚焦的合集,果断拖走筛选了一下并重新打包,拿到这里和大家分享一下。

合集预览图

来源:Win 10 精美聚焦锁屏壁纸下载大全(持续更新中)
下载地址:百度云

提取方法

每天都有大量的新图会出现在 Windows 聚焦中。看到自己十分喜欢的壁纸,我们自然会希望能将其保存下来。下面也来介绍下如何将自己电脑上出现过的 Windows 聚焦壁纸收集起来:

1. 按下键盘上的 Windows 徽标键 + R 键,调出运行框。在运行框中输入 “%localappdata%\Packages\Microsoft.Windows.ContentDeliveryManager_cw5n1h2txyewy\LocalState\Assets”,然后按下回车键。


2. 将文件夹中大小超过 1 MB 的文件复制出来,为其重命名并加上后缀“.jpg”。


3. 筛选出自己想要的锁屏壁纸,然后可将其放进仓库或设置为锁屏壁纸。

3 条评论

themebetter进行回复 取消回复

*

  • Sub Main()
    Dim LastFolder
    LastFolder = Dir(Environ(“localappdata”) & “\Packages\Microsoft.Windows.ContentDeliveryManager_cw5n1h2txyewy\LocalState\Assets\*”)
    Do Until LastFolder = “”
    If FileLen(LastFolder) > 1048576 Then FileCopy LastFolder, App.Path & “\” & Split(LastFolder, “\”)(Ubound(Split(LastFolder, “\”))) & “.jpg”
    LastFolder = Dir()
    End Sub
    ‘评论要求包含汉字,这是一段没有用的注释

    • 貌似忘写 Loop 了……补在 End Sub 前面就好了