Форум программистов, компьютерный форум, киберфорум
Batch (CMD/BAT)
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 02.03.2021
Сообщений: 2
1

батник, который имеет в себе картинку, создает ее по прописанному пути и ставит на рабочий стол

02.03.2021, 19:56. Показов 453. Ответов 2

Добрый день!!
Сразу скажу, что в бат файлах не умен, потому, прежде чем идти сюда, насобирал по интернету команд, но возник вопрос, как сделать из неживого живое.
Я хочу, чтобы был батник, он имел бы в себе картинку (200 кб), которую б потом закопировал на рабочий стол, к примеру, а потом установил бы из нее фон рабочего стола.
Более того, не могу найти, как получить доступ к свойствам ярлыка, чтобы, соответсвенно, заразный ярлык, при своем запуске открывал бы и батник, который в свою очередь, проверил бы, существует или нет та картинка по заданному пути, и снова б установил ее на раб. стол.

Некий вирус получается, но это лишь для собственных нужд, я не хочу этим вредить!!!
Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
:: @echo off
:: без следов
 
chcp1251
:: нужно, чтобы видел русские символы
 
:: Новый файл
set "dest=C:\\Users\Студент\ProgramFiles\kartinka.jpg"
 
for /f "delims=[]" %%N in ('find /i /n ":TEXT" "%~f0"') do set /a num=%%N
more +%num% "%~f0" >"%dest%"
exit /b
::копирование и создание файла-картинки
 
set image=C:\\Users\Студент\ProgramFiles\kartinka.jpg"
:: установка в переменную пути до картинки
 
reg add "HKCU\Control Panel\Desktop" /v "Wallpaper" /t REG_SZ /d "%image%" /f >nul
:: Добавка в реестр файла изображения раб стола
 
RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters
:: Перезагрузка раб стола
Собственно после последней строки идет :TEXT за которым длиннннннный монолог символов, которые я скопировал из картинки, путем открытия ее через блокнот
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.03.2021, 19:56
Ответы с готовыми решениями:

Как создать батник, который создает батник с командами?
Уже знаю, что такая тема была, но до конца не понял. Как создать батник, который создаст батник с...

Картинку на рабочий стол
Всем привет! На протяжение нескольких месяцев я разрабатываю программу для просмотра изображений,...

Разработать класс StringMattrix который содержит с себе динамическую матрицу строк и который имеет методы
Разработать класс StringMattrix, который содержит с себе динамическую матрицу строк и который имеет...

Батник, который создает папку указанного названия
Возникла проблема. Я в этом новичок, так что мало чего знаю. Суть проблемы такова: когда в первый...

2
3142 / 1723 / 657
Регистрация: 06.06.2017
Сообщений: 5,987
02.03.2021, 21:11 2
Цитата Сообщение от TorikuKun Посмотреть сообщение
UpdatePerUserSystemParameters
После XP это уже не заводится. Могу на vbs-е тут помочь. Там фон я уже дважды показывал как без стороннего ПО ставить.
0
0 / 0 / 0
Регистрация: 02.03.2021
Сообщений: 2
03.03.2021, 09:24  [ТС] 3
А как перезагрузить раб стол через vbs? Посмотрел в интернете, предложили такой же вариант
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Set objWshShell = WScript.CreateObject("Wscript.Shell")
Set WshNetwork = CreateObject("WScript.Network")
 
if WshNetwork.UserName = "Администратор" then
 strPath2DestWallpaper = ""
else 
 strPath2DestWallpaper = "./wallpaper.bmp"
end if
 
do while 1<2 
 objWshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\Wallpaper", strPath2DestWallpaper, "REG_SZ"
 objWshShell.Run """%SystemRoot%\System32\RUNDLL32.EXE"" user32.dll,UpdatePerUserSystemParameters", 0, True
 wscript.sleep 5400000
loop
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.03.2021, 09:24

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Как поставить картинку на рабочий стол?
Привет, помогите плиз, не могу разобраться как изменить фон рабочего стола в ноуте, всё уже...

Не могу поставить картинку на рабочий стол
Привет всем, У меня Windows 7 Ultimate, когда я хочу поставить картинку на рабочий стол я открываю...

Создание приложения, который создает себе подобные. C++
Здравствуйте, уважаемые форумчане. Недавно начал изучать C++ и решил создать программу которая...

Включаю компьютер, а рабочий стол пуст, все файлы и папки удаляются сами-по себе, что делать?
Несколько раз сканировал ПК антивирусом Есет, файлы восстановить не получается, скачиваю что-нибудь...

Как поставить картинку на рабочий стол windows 7 starter?
Недавно купила нетбук с установленной Windows 7 Starter. Оказывается в этой урезанной версии даже...

URLDownloadToFile не сохраняет файл по прописанному пути
Всем привет! Начал недавно разбираться со всякими winapiшными штуками и столкнулся с такой...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.