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

@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, то пробовал разные расширения.

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

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

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

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

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