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

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

Новые блоги и статьи Все статьи Все блоги /
Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .
мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .

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

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

@HackerVlad Вернулся 1755 / 651 / 45 Регистрация: 10.09.2021 Сообщений: 2,807
	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,816
	09.07.2024, 09:04
	HackerVlad, что-то мне подсказывает, что остальные не на голой винде поддерживаются. Я когда писал старый код на 7, то пробовал разные расширения. 0