Иногда Винда завозит охуенной красоты обойки на локскрин ваших пекарен.
Повыдергивать, не запоминая путь до папки, где это все хранится, можно проделав нехитрые действия:
1. win(кнопка)+r(кнопка)
2. notepad.exe
3. Копируем текст вот этого скрипта:
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
4. Файл-сохранить как - любое_имя.vbs (точка ВЭБЭЭС - это важно). Тип файла - все файлы.
5. Запускаете двойным кликом - получаете на рабочем столе папку "Spotlight Images" в которой будут лежать все показанные Вам обойки локсрина.
Там еще будут овердохуя левых пик от игр, программ и т.д. Как с этим бороться - понятия не имею.
Пикрил - мои, олсоу делитесь своими.