
在 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. 筛选出自己想要的锁屏壁纸,然后可将其放进仓库或设置为锁屏壁纸。
本站文章均为原创,转载请注明出处喔 (=・ω・=)
过来看看。
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 前面就好了