Как извлечь изображения Windows: интересное (Windows: spotlight) в Windows 10

В данной статье показаны действия, с помощью которых можно извлечь изображения Windows: интересное (Windows: spotlight) в операционной системе Windows 10.

Функция Windows: интересное (Windows: spotlight) предназначена для автоматической смены изображений на экране блокировки. Фоновые изображения находятся на серверах Microsoft, и загружаются они на компьютер когда функция Windows: интересное (Windows: spotlight) включена в параметрах системы.

Далее в статье представлены два скрипта, с помощью которых можно извлечь изображения Windows: spotlight всего в пару кликов мыши.

По умолчанию изображения сохраняются в папку Assetst в профиле пользователя по следующему пути:

%USERPROFILE%\\AppData\\Local\\Packages\\Microsoft.Windows.ContentDeliveryManager_cw5n1h2txyewy\\LocalState\\Assets

Скрипт №1 для извлечения изображений Windows: интересное (Windows: spotlight)

Данный скрипт создаёт папку "Spotlight Images" на рабочем столе и извлекает в неё все изображения Windows: spotlight.

Скачайте архив со скриптом spotlight_images.zip.

Скачать архив spotlight_images.zip.

Распакуйте архив в любом месте и запустите двойным кликом файл spotlight_images.vbs

Через несколько секунд на рабочем столе появится папка Spotlight Images, а в ней изображения Windows: spotlight из профиля пользователя.

Скрипт автоматически извлекает и даёт расширение *.jpg всем файлам из каталога Assets, некоторые из них и есть изображения «Windows: интересное» (Windows spotlight), которые загружаются с серверов майкрософт, но большинство из них не является фоновыми изображениями экрана блокировки.

Ниже представлен листинг файла сценария spotlight_images.vbs

Const ssfDESKTOPDIRECTORY = &h10
Dim FolderName
FolderName = "Spotlight Images"
Set oShell = CreateObject("Shell.Application")
strDesktop = oShell.NameSpace(ssfDESKTOPDIRECTORY).Self.Path
Dim oFSO, strAppData, objShell
Set objShell = CreateObject("WScript.Shell")

Set oFSO = CreateObject("Scripting.FileSystemObject")

objShell.CurrentDirectory = oFSO.GetParentFolderName(WScript.ScriptFullName)

strAppData=objShell.ExpandEnvironmentStrings("%LOCALAPPDATA%\\Packages\\
Microsoft.Windows.ContentDeliveryManager_cw5n1h2txyewy\\LocalState\\Assets")
oFSO.CopyFolder strAppData , strDesktop & "\\" & FolderName, True
Set objShell = Nothing
Set oFSO = Nothing
\' Extension -----------------------
sVBSPath = strDesktop & "\\" & FolderName

with createobject("wscript.shell")
.currentdirectory = sVBSPath
.run "%comspec% /c ren *. *.jpg", 0, true
end with
Set objShell = CreateObject("Wscript.Shell")
strPath = "explorer.exe /e," & strDesktop & "\\" & FolderName
objShell.Run strPath

Скрипт №2 для извлечения изображений Windows: интересное (Windows: spotlight)

Данный скрипт предложил пользователь VBS Expert. Скрипт также позволяет извлечь изображения «Windows: spotlight».

При использовании данного скрипта можно согласиться на то, что все файлы изображений скопируются на рабочий стол, или также можно перетащить на файл скрипта "SavePics.vbs" любую папку в которую вы пожелаете скопировать изображения.

При повторном запуске скрипта, существующие файлы изображений будут перезаписаны.

Скачайте архив со скриптом save_windows_spotlight.zip.

save_windows_spotlight.zip.

Извлеките файл скрипта из архива, например на рабочий стол, перетащите на файл скрипта "SavePics.vbs" любую папку в которую вы пожелаете скопировать изображения.

Ниже представлен листинг файла сценария save_windows_spotlight.vbs

\'save_windows_spotlight.vbs
\'Copyright (c)

Dim User, Path, Path2, msgStr

User = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%USERPROFILE%")
Path = User & "\\AppData\\Local\\Packages\\Microsoft.Windows.ContentDeliveryManager_cw5n1h2txyewy\\LocalState\\Assets"

With WScript.Arguments
If .Count <> 0 Then
Path2 = .Item(0)
msgStr = "Все содержимое будет скопировано в " & Path2
Else
Path2 = User & "\\Desktop"
msgStr = "Все содержимое будет скопировано на рабочий стол."
End If
End With

With CreateObject("Scripting.FileSystemObject")
If .FolderExists(Path) Then
If .GetFolder(Path).Files.Count <> 0 Then
If .FolderExists(Path2) Then
If MsgBox(msgStr & VbCrLf & "Продолжить?", 4 + 32, "Ваш выбор") = VbYes Then
For Each f In .GetFolder(path).Files
.CopyFile Path & "\\" & f.Name, Path2 & "\\" & f.Name & ".jpg"
Next
End If
Else
MsgBox "Папки " & Path2 & " не существует.", 16, "Ошибка"
End If
Else
MsgBox "По каким-то причинам папка пуста.", 16, "Ошибка"
End If
Else
MsgBox "Заданной папки не существует.", 16, "Ошибка"
End If
End With