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

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

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

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

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

@HackerVlad Испарился 1742 / 638 / 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 6998 / 2883 / 1109 Регистрация: 06.06.2017 Сообщений: 9,780
	09.07.2024, 09:04
	HackerVlad, что-то мне подсказывает, что остальные не на голой винде поддерживаются. Я когда писал старый код на 7, то пробовал разные расширения. 0

Опции темы