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

资源 / / 3 条评论 / 10,163 次阅读 /

在 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 条评论

发表评论

*

  • 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 前面就好了

      回复