Wall (1).jpg
(731Кб, 1920x1080)
Wall (2).jpg
(510Кб, 1920x1080)
Wall (3).jpg
(482Кб, 1920x1080)
Wall (7).jpg
(284Кб, 1920x1080)
Иногда Винда завозит охуенной красоты обойки на локскрин ваших пекарен.
Повыдергивать, не запоминая путь до папки, где это все хранится, можно проделав нехитрые действия:
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" в которой будут лежать все показанные Вам обойки локсрина.
Там еще будут овердохуя левых пик от игр, программ и т.д. Как с этим бороться - понятия не имею.
Пикрил - мои, олсоу делитесь своими.
Пропущено 24 постов
15 с картинками.
Пропущено 24 постов, 15 с картинками.
mount.jpg
(430Кб, 1920x1080)
>>59181 (OP)
Спасибо, анон! Не знал, как их выдрать и ты помог, держи:
77.jpg
(452Кб, 1920x1080)
