Форум программистов, компьютерный форум, киберфорум
VBScript/JScript/WSH/WMI
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
8 / 8 / 2
Регистрация: 03.02.2012
Сообщений: 308

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

29.06.2024, 20:31. Показов 1644. Ответов 28
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Нужен скрипт для загрузки обоев с сайта. Сам я в vbs не силен и адрес сайта, на котором есть такой сервис я не знаю. Помогит,плз.
P.S. Windows 11
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
29.06.2024, 20:31
Ответы с готовыми решениями:

Посоветуйте CMS или скрипт для сайта обоев
Доброго времени суток. Появилась у меня такая идея, сделать сайт обоев для рабочего стола, но на определенную тему. Но не в этом суть... ...

Ошибка в скрипте (скрипт для скачивания файлов с моего сайта с указанием количества раз)
Люди, расскажите, чего я не понимаю в этой жизни? Делаю скрипт для скачивания файлов с моего сайта с указанием количества раз скачивания:...

Запустить скрипт скачивания сайта из вебархива
Есть скрипт скачивания сайта из вебархива , как его запустить через windows вот сам скрипт...

28
Испарился
 Аватар для HackerVlad
1741 / 637 / 45
Регистрация: 10.09.2021
Сообщений: 2,769
08.07.2024, 20:51
Студворк — интернет-сервис помощи студентам
FlasherX, ну молодец, молодец)))

Добавлено через 7 минут
Цитата Сообщение от FlasherX Посмотреть сообщение
Это процедура
Пускай будет процедура... Функция, процедура... Не цепляйся к словам! Главное то что я был прав, что будет работать только если есть такой пункт в контекстном меню.
0
6962 / 2857 / 1099
Регистрация: 06.06.2017
Сообщений: 9,694
08.07.2024, 21:18
Цитата Сообщение от HackerVlad Посмотреть сообщение
ну молодец, молодец)
Не ёрничай, я тебе на ошибки указываю.

Цитата Сообщение от HackerVlad Посмотреть сообщение
Не цепляйся к словам!
Это догматика. Так правильно говорить и не путать новичков.

Цитата Сообщение от HackerVlad Посмотреть сообщение
Главное то что я был прав, что будет работать только если есть такой пункт в контекстном меню.
Ну давай теперь во всех темах об этом напишем? По факту не все канонические глаголы касаются этого меню. Этот же глагол наличествует в интерфейсе "Средства просмотра фотографий Windows".
0
Испарился
 Аватар для HackerVlad
1741 / 637 / 45
Регистрация: 10.09.2021
Сообщений: 2,769
08.07.2024, 21:24
Цитата Сообщение от FlasherX Посмотреть сообщение
Ну давай теперь во всех темах об этом напишем
Да я всё правильно сделал, что написал во всех темах))) Я когда искал код в интернете, в гугле, в яндексе - ничего толком не находит, только код через запись реестра и перезагрузку, который растирожирован этот код по всем сайтам. То что вы поделились новым кодом о котором ещё никто не знал в интернете это очень хорошо.
0
6962 / 2857 / 1099
Регистрация: 06.06.2017
Сообщений: 9,694
08.07.2024, 21:30
Цитата Сообщение от HackerVlad Посмотреть сообщение
То что вы поделились новым кодом о котором ещё никто не знал
Неа. Я поделился только некоторой модификацией, а так код давнишний. Сам метод я и на подфоруме выше пару раз публиковал в чуть более специфических контекстах. Да и не только на этом форуме, если уж на то пошло.
0
Испарился
 Аватар для HackerVlad
1741 / 637 / 45
Регистрация: 10.09.2021
Сообщений: 2,769
08.07.2024, 21:30
Цитата Сообщение от FlasherX Посмотреть сообщение
Неа
Значит просто трудно найти
0
Испарился
 Аватар для HackerVlad
1741 / 637 / 45
Регистрация: 10.09.2021
Сообщений: 2,769
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"
0
6962 / 2857 / 1099
Регистрация: 06.06.2017
Сообщений: 9,694
09.07.2024, 06:46
Цитата Сообщение от HackerVlad Посмотреть сообщение
Спасибо всё работает
Пожал'ста.

Цитата Сообщение от HackerVlad Посмотреть сообщение
чем этот код лучше моего???
"моего" я бы тут в кавычки взял. Мой — правильный, без ошибок. В нём наличествуют первые 4 строки с необходимым для работы метода Windows объектом oSHA и проверкой допустимых расширений. Поскольку в большинстве моих кодов всё параметризировано, проверка расширений необходима, когда имя файла является неопределённой/выбираемой величиной. Банальное прописывание имени в код для меня бесполезно, это я меняю только здесь — для примера.
1
Испарился
 Аватар для 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
6962 / 2857 / 1099
Регистрация: 06.06.2017
Сообщений: 9,694
09.07.2024, 09:04
HackerVlad, что-то мне подсказывает, что остальные не на голой винде поддерживаются. Я когда писал старый код на 7, то пробовал разные расширения.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
09.07.2024, 09:04
Помогаю со студенческими работами здесь

Скрипт для смены обоев, реагирующий на запуск процесса
Всем доброго времени суток, не даю гарантий что я не ошибся с разделом, но надеюсь что нет) Так вот, в чём суть: мне нужен скрипт,...

Калькулятор расчета обоев онлайн для сайта
Всем привет. Имеется интернет магазин продажи обоев. Используется Ocstore 2.1. Перелазил кучу сайтов но модуля калькулятора не нашел...

Скрипт для скачивания файла
Добрый вечер. Столкнулся с проблемой, нужна помощь в решении. Есть файл, есть сайт.Нужно что бы при открытии сайта, на компьютер...

Скрипт для кнопки скачивания
Здравствуйте. Подскажите пожалуйста как сделать кнопку из картинки или стиля ЦСС (вместо надписи "Скачать файл") данном коде, для...

Скрипт для скачивания pdf
хочу скачать pdf имея url. соль в том, что этих pdf очень много, а url меняется по определенной закономерности. как через питон написать...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
29
Ответ Создать тему
Новые блоги и статьи
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
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru