Скрипт для скачивания обоев с сайта

@Oleg_cyber · Регистрация: 03.02.2012

Студворк — интернет-сервис помощи студентам

Нужен скрипт для загрузки обоев с сайта. Сам я в vbs не силен и адрес сайта, на котором есть такой сервис я не знаю. Помогит,плз.
P.S. Windows 11

@HackerVlad · 08.07.2024, 20:51

FlasherX, ну молодец, молодец)))

Добавлено через 7 минут

Сообщение от FlasherX

Это процедура

Пускай будет процедура... Функция, процедура... Не цепляйся к словам! Главное то что я был прав, что будет работать только если есть такой пункт в контекстном меню.

FlasherX · 08.07.2024, 21:18

Сообщение от HackerVlad

ну молодец, молодец)

Не ёрничай, я тебе на ошибки указываю.

Сообщение от HackerVlad

Не цепляйся к словам!

Это догматика. Так правильно говорить и не путать новичков.

Сообщение от HackerVlad

Главное то что я был прав, что будет работать только если есть такой пункт в контекстном меню.

Ну давай теперь во всех темах об этом напишем? По факту не все канонические глаголы касаются этого меню. Этот же глагол наличествует в интерфейсе "Средства просмотра фотографий Windows".

@HackerVlad · 08.07.2024, 21:24

Сообщение от FlasherX

Ну давай теперь во всех темах об этом напишем

Да я всё правильно сделал, что написал во всех темах))) Я когда искал код в интернете, в гугле, в яндексе - ничего толком не находит, только код через запись реестра и перезагрузку, который растирожирован этот код по всем сайтам. То что вы поделились новым кодом о котором ещё никто не знал в интернете это очень хорошо.

FlasherX · 08.07.2024, 21:30

Сообщение от HackerVlad

То что вы поделились новым кодом о котором ещё никто не знал

Неа. Я поделился только некоторой модификацией, а так код давнишний. Сам метод я и на подфоруме выше пару раз публиковал в чуть более специфических контекстах. Да и не только на этом форуме, если уж на то пошло.

@HackerVlad · 08.07.2024, 21:30

Сообщение от FlasherX

Неа

Значит просто трудно найти

@HackerVlad · 09.07.2024, 06:21

Сообщение от FlasherX

Sub SetWallpaper(FullName)
Set oShA = CreateObject("Shell.Application")
If InStr("|bmp|gif|jpg|jpeg|png|tif|tiff|", "|" &_
LCase(CreateObject("Scripting.FileSystem Object")._
GetExtensionName(FullName)) & "|") = 0 Then WSH.Quit
On Error Resume Next
Set oShA = oShA.Windows.Item.document.Application
If Not IsObject(oSHA) Then _
Set oShA = GetObject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}").document.Application
On Error GoTo 0: Er = Not IsObject(oSHA)
If Er Then Set oShA = CreateObject("Shell.Application")
oShA.NameSpace(0).ParseName(FullName).In vokeVerb "setdesktopwallpaper"
If Er Then WSH.Sleep 4000
Set oShA = Nothing
End

Спасибо всё работает

Добавлено через 1 минуту
FlasherX, но чем этот код лучше моего???

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub SetWallpaper(FileName)    
    On Error Resume Next
    Set oShA = oShA.Windows.Item.document.Application
    If Not IsObject(oSHA) Then _
    Set oShA = GetObject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}").document.Application
    On Error GoTo 0: Er = Not IsObject(oSHA)
    If Er Then Set oShA = CreateObject("Shell.Application")
    oShA.NameSpace(0).ParseName(FileName).InvokeVerb "setdesktopwallpaper"
    If Er Then WSH.Sleep 4000
    Set oFSO = Nothing: Set oShA = Nothing
End Sub
 
SetWallpaper "D:\wallpaper\wallpaper.jpg"

FlasherX · 09.07.2024, 06:46

Сообщение от HackerVlad

Спасибо всё работает

Пожал'ста.

Сообщение от HackerVlad

чем этот код лучше моего???

"моего" я бы тут в кавычки взял. Мой — правильный, без ошибок. В нём наличествуют первые 4 строки с необходимым для работы метода Windows объектом oSHA и проверкой допустимых расширений. Поскольку в большинстве моих кодов всё параметризировано, проверка расширений необходима, когда имя файла является неопределённой/выбираемой величиной. Банальное прописывание имени в код для меня бесполезно, это я меняю только здесь — для примера.

@HackerVlad · 09.07.2024, 06:56

FlasherX, а я считаю, что проверять на типы файлов не следует, так как ты прям все-все типы файлов поддерживаемые графикой заранее не знаешь. Много расширений у тебя опущено из возможных вариантов... JPE например...

Вот хотябы тогда список по-больше надо! Вот у меня есть:
*.bmp; *.jpg; *.jpeg; *.png; *.gif; *.dib; *.jfif; *.jpe; *.tif; *.tiff; *.wdp; *.pcx

FlasherX · 09.07.2024, 09:04

HackerVlad, что-то мне подсказывает, что остальные не на голой винде поддерживаются. Я когда писал старый код на 7, то пробовал разные расширения.

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Oleg_cyber 8 / 8 / 2 Регистрация: 03.02.2012 Сообщений: 324

	Скрипт для скачивания обоев с сайта 29.06.2024, 20:31. Показов 2017. Ответов 28 Метки нет (Все метки) Нужен скрипт для загрузки обоев с сайта. Сам я в vbs не силен и адрес сайта, на котором есть такой сервис я не знаю. Помогит,плз. P.S. Windows 11 0

@HackerVlad Вернулся 1778 / 673 / 46 Регистрация: 10.09.2021 Сообщений: 2,820
	09.07.2024, 06:56
	FlasherX, а я считаю, что проверять на типы файлов не следует, так как ты прям все-все типы файлов поддерживаемые графикой заранее не знаешь. Много расширений у тебя опущено из возможных вариантов... JPE например... Вот хотябы тогда список по-больше надо! Вот у меня есть: .bmp; .jpg; .jpeg; .png; .gif; .dib; .jfif; .jpe; .tif; .tiff; .wdp; .pcx 0

FlasherX 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,817
	09.07.2024, 09:04
	HackerVlad, что-то мне подсказывает, что остальные не на голой винде поддерживаются. Я когда писал старый код на 7, то пробовал разные расширения. 0