Забыли?
Регистрация
Фото юзера winnote
Спасибо за код! в ближайшее время отредактирую статью.
Фото юзера VBS Expert
Логика кода такая: Пользователь может 2х кликом просто согласиться на то, что все скопируется на рабочий стол, или перетащить на SavePics.vbs любую папку в которую он пожелает скопировать.
При повторном запуске как Я и говорил уже существующие файлы будут перезаписаны(полезно если испорчены).
Фото юзера VBS Expert
' SavePics.vbs
' Copyright (c) 2018 Fyan <fyanur_@live.ru>

Dim User, Path, Path2, msgStr

User = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%USERPRO
FILE%")
Path = User & "\AppData\Local\Packages\Microsoft.Windows.ContentDeliveryManager_cw5n
1h2txyewy\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
Фото юзера winnote
Цитата: VBS Expert
Ваш или чей-то код содержит грубые ошибки

Код не мой, а с одного бурж сайта.
Вашу критику принял :)
Предложите свой вариант кода!
Фото юзера VBS Expert
"Скрипт автоматически извлекает и даёт расширение jpg всем файлам из каталога Assets, и некоторые из них не являются изображениями. "
Еще как являются т.к. SHA-1 совпадает с изображениями.
Ваш или чей-то код содержит грубые ошибки, вместо того чтобы использовать цикл на перебор коллекции (For Each), используется тупое копирование папки(oFSO.CopyFolder strAppData , strDesktop & "\" & FolderName, True) и добавление расширения для файлов вызвав командную строку(.run "%comspec% /c ren *. *.jpg", 0, true),
поэтому при повторном запуске "spotlight_images.vbs" копировании папки создаются дубликаты файлов без расширения(из-за того, что в командной строке ren сообщает что "Файл с таким именем уже существует или не найден.") в то время рациональнее было перебирать коллекцию и в самом цикле присваивать расширение при копировании каждого файла в новое место и без дубликатов(т.к. каждый файл из коллекции если он существует будет перезаписан).
Вообщем, код низкого качества.
P.S. Тот кто писал этот код, его знания очень поверхностны, или это школота :)))
Фото юзера explorer
explorer 14.03.2019 комментария публикаций Как установить .NET Framework 3.5 в Windows 8.1
Цитата: realvava
Специально регнулся, чтобы выложить. Кому надо, для Windows 10 пакет автоустановщика. Ибо именно здесь нашёл рабочий оффлайн установщик через DISM на Windows 8.1 (автору спасибо).
dotNetFx35_W10_x86_x64.zip - https://yadi.sk/d/eyXSI2TED-U74w
SFX делал в последнем RAR.

Спасибо! Да действительно с помощью данного пакета автоустановщика включается компонент .Net Framework 3.5 в Windows 10, но только выкладывать его нужно было в соответствующей статье, вот по этой ссылке =>
=> https://winnote.ru/instructions/219-kak-ustanovit-net-framework-35-i-45-v-windo
ws-10.html

Может админ перенесёт коммент или сам напишет его там.
Фото юзера realvava
realvava 14.03.2019 комментарий публикаций Как установить .NET Framework 3.5 в Windows 8.1
Специально регнулся, чтобы выложить. Кому надо, для Windows 10 пакет автоустановщика. Ибо именно здесь нашёл рабочий оффлайн установщик через DISM на Windows 8.1 (автору спасибо).
dotNetFx35_W10_x86_x64.zip - https://yadi.sk/d/eyXSI2TED-U74w
SFX делал в последнем RAR.
Фото юзера yar12
Цитата: Кузен
Спасибо за помощь, включил защитник))
Не могу понять тех, кому он не нравится. В чем проблема его?

А в том его проблема, что он в крысу пожирает ресурсы твоего компа, и игры лагают. А также отдельное спасибо автору статьи!
Фото юзера Arahant
Arahant 30.01.2019 комментарий публикаций Как скачать автономный установщик Firefox
Большое спасибо за совет!!! Вот вроде мелочь, а без подсказки аж психовать начал.
Фото юзера explorer
explorer 20.01.2019 комментария публикаций Как установить .NET Framework 3.5 в Windows 8.1
Цитата: avenom
Это полный крах, всё перепробовал, что делать теперь, не знаю((

Возможно проблема с установленными ранее обновлениями которые препятствуют включению компонента Microsoft .NET Framework 3.5,
решение смотрите по ссылке:

https://support.microsoft.com/ru-ru/help/3005628/update-for-the-net-framework-3
-5-on-windows-8-windows-8-1-windows-serv
Фото юзера avenom
avenom 19.01.2019 комментария публикаций Как установить .NET Framework 3.5 в Windows 8.1
Это полный крах, всё перепробовал, что делать теперь, не знаю((
Фото юзера avenom
avenom 19.01.2019 комментария публикаций Как установить .NET Framework 3.5 в Windows 8.1
Первый способ выдал то же что и с оффлайн установщиком, а второй выдал это:

Windows PowerShell
(C) Корпорация Майкрософт (Microsoft Corporation), 2014. Все права защищены.

PS C:\Windows\system32> Enable-WindowsOptionalFeature -Online -FeatureName "NetFx3" -Source I:\sources\sxs
Enable-WindowsOptionalFeature : Не удалось скачать исходные файлы.
Укажите расположение файлов, необходимых для восстановления компонента, с помощью параметра "Источник". Дополнительные
сведения об указании расположения источника см. на веб-странице http://go.microsoft.com/fwlink/?LinkId=243077.
строка:1 знак:1
+ Enable-WindowsOptionalFeature -Online -FeatureName "NetFx3" -Source I:\sources\s ...
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~
+ CategoryInfo : NotSpecified: (:) [Enable-WindowsOptionalFeature], COMException
+ FullyQualifiedErrorId : Microsoft.Dism.Commands.EnableWindowsOptionalFeatureCommand

PS C:\Windows\system32>
Фото юзера explorer
explorer 19.01.2019 комментария публикаций Как установить .NET Framework 3.5 в Windows 8.1
Цитата: avenom
Я очень обрадовался посмотрев на комментарии к статье, но когда запустил последний способ, то он дошёл до 64% и выдал мне ошибку

1). Попробуйте установить Net Framework с помощью Dism, для этого в командной строке открытой от имени администратора выполните команду:

DISM /Online /Enable-Feature /FeatureName:NetFx3 /All /LimitAccess /Source:E:\sources\sxs

Где E - буква диска (флешки) с дистрибутивом Windows 8.1

==============================================================

2). Также можно установить Net Framework в консоли PowerShell,
для этого откройте PowerShell от имени администратора и выполните команду:

Enable-WindowsOptionalFeature -Online -FeatureName "NetFx3" -Source E:\sources\sxs

Где E - буква диска (флешки) с дистрибутивом Windows 8.1
Фото юзера avenom
avenom 18.01.2019 комментария публикаций Как установить .NET Framework 3.5 в Windows 8.1
Я очень обрадовался посмотрев на комментарии к статье, но когда запустил последний способ, то он дошёл до 64% и выдал мне ошибку help

Вот окно cmd:


Cистема DISM
Версия: 6.3.9600.17031

Версия образа: 6.3.9600.17031

Включение функций
[===========================66.3%====== ]

Ошибка: 0x800f081f

Не удалось найти исходные файлы.
Укажите расположение файлов, необходимых для восстановления компонента, с помощь
ю параметра "Источник". Дополнительные сведения об указании расположения источни
ка см. на веб-странице http://go.microsoft.com/fwlink/?LinkId=243077.

Файл журнала DISM находится по адресу C:\Windows\Logs\DISM\dism.log

_

Press any Key to Exit.
Фото юзера explorer
Как вариант проверьте настройки прокси, для этого последовательно откройте:
Пуск>>Параметры>>Сеть и Интернет>>Прокси-сервер, затем
1) включите параметр Определять параметры автоматически
2) отключите параметр Использовать сценарий настройки
3) отключите параметр Использовать прокси-сервер

Если включено VPN-подключение, то отключите его.

Также можно использовать устранение неполадок, для этого откройте классическую панель управления, в выпадающем списке Просмотр: выберите Мелкие значки и нажмите на Устранение неполадок
Затем слева нажмите на ссылку Просмотр всех категорий
В списке средств устранения неполадок запустите по очереди средства устранения неполадок:
1) Фоновая интеллектуальная служба передачи (BITS)
2) Центр обновления Windows
После выполнения диагностики перезагрузите компьютер.
Фото юзера postolatin11
Добрый день. Я здела все так как в выше зазначеных инструкциях, но мне не помогло. Все равно картинка не меняется, что делать?
Фото юзера Ольга
Спасибо огромнейшее)))) Теперь у меня есть мои любимые игры. Загрузилось и установилось всё с первого раза и без проблем)))
Фото юзера Mihalich
Искал просто Игры, а нашел прекрасный сайт, где можно получить очень много полезного. Спасибо за прекрасный сайт
Фото юзера Kamerunec
Вчера попробовал скачать, не получилось, сегодня с первого раза и удачно. Спасибо большое.
Фото юзера explorer
Цитата: vitan5919
В результате удаления содержимого из папки Assets - она осталась пустой после проведения всех манипуляций

В статье ни единого слова не сказано о удалении файлов из папки Assets, нужно копировать файлы в любое удобное для вас место, например в Новую папку на рабочем столе и там производить все "манипуляции" с файлами.


Цитата: vitan5919
Каким образом залить в неё файлы изображений Windows spotlight ?

Никаким, через некоторое время файлы должны сами подгрузиться с серверов майкрософт.
Фото юзера vitan5919
В результате удаления содержимого из папки Assets - она осталась пустой после проведения всех манипуляций . Каким образом залить в неё файлы изображений Windows spotlight ?
Фото юзера Romanelo
Спасибо из 2018 до сих пор пользуюсь!
Фото юзера explorer
Цитата: Павел
Случайно заменил на 1 2 3 и т.д. имена оригиналов.
В результате заставки пропали совсем. Что бы этого не случилось правильнее к уже имеющимся именам файлов просто добавлять .jpg

Правильнее нужно было делать как написано в статье, а именно: Скопируйте файлы в любое удобное для вас место, например в Новую папку на рабочем столе и переименуйте любой файл


Цитата: Павел
Как теперь вернуть переименованные файлы?

Через некоторое время файлы должны сами подгрузиться с серверов майкрософт.
Фото юзера Павел
Информация полезная, но есть одно но.
Случайно заменил на 1 2 3 и т.д. имена оригиналов.
В результате заставки пропали совсем. Что бы этого не случилось правильнее к уже имеющимся именам файлов просто добавлять .jpg
Как теперь вернуть переименованные файлы?
Фото юзера L0ginFree
Эту персонализацию можно открыть через контекстное меню рабочего стола.
Для этого скопируйте текст снизу в блокнот,сохранить и закройте. Измените расширение с ".txt" на ".reg". Запустите получившийся файл двойным щелчком мыши и согласитесь с внесением изменения в реестр. Получите пункт меню "Персонализация+", который открывает классическую персонализацию.
Текст для копирования:

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\DesktopBackground\Shell\Personalization]
"Icon"="themecpl.dll"
"MUIVerb"="Персонализация +"
"Position"="Bottom"

[HKEY_CLASSES_ROOT\DesktopBackground\Shell\Personalization\command]
@="C:\\Windows\\explorer.exe shell:::{ED834ED6-4B5A-4bfe-8F11-A626DCB6A921}"
Фото юзера explorer
Цитата: smrz1
Надо, наверное, указать в описании на это - многие переключаются в адресной строке с Google на Яндекс.

Спасибо, обязательно добавим в статью как примечание.
Фото юзера smrz1
Кстати, я разобрался со значком настройки.
Возможно эта проблема у многих, так как она заключалась d том что у меня стояла поисковая система, используемая в адресной строке - Яндекс и с ней, как оказалось, значок Настройки отсутствует!!! Стоит переключиться, в общих настройках, на поисковую систему Google - значок настройки сразу появляется...
Надо, наверное, указать в описании на это - многие переключаются в адресной строке с Google на Яндекс.
Фото юзера explorer
Цитата: smrz1
если не нужно включать экспериментальные функции, то где тогда эта функция находится?

Функция там где и должна быть :)
Ну да ладно, вот что я делал:
1) ноутбук с Windows 10 Pro 1803 x64, просто обновил браузер и данный функционал появился.
2) десктоп с Windows 10 Pro 1803 x64, простое обновление браузера не привело к появлению функционала, но при помощи экспериментальных функций его всё также можно было включить.
Я полностью удалил браузер, скачал установщик и после установки, функции изменения фона появились.

Возможно Вам нужно полностью удалить браузер и установить заново.

Также была выполнена проверка в операционной системе Windows 7, установлена последняя версия браузера (Версия 69.0.3497.100 (Официальная сборка), (64 бит)), функция изменения фонового изображения доступна пользователям без включения экспериментальных функций.