Форум программистов, компьютерный форум, киберфорум
Batch (CMD/BAT)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.79/34: Рейтинг темы: голосов - 34, средняя оценка - 4.79
5 / 5 / 0
Регистрация: 24.11.2015
Сообщений: 224

Автоматическая установка набора приложений из заданной папки

10.05.2018, 16:15. Показов 8101. Ответов 24
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Написал вот код, все работает за исключением одного момента..
если какой то установщик отсутствует скажем Ccleaner то вместо него опять переустановиться предыдущий пункт.(в нашем случает два раза установиться Piriform Utilitie).... Почему? поправьте пожалуйста... и если можно посмотрите на грамотность кода, там чтобы с путями проблем не было и всякое такое. за ранее благодарен.
Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
@echo off
@call :SoftInstall "Piriform Utilities" "/VERYSILENT"
@call :SoftInstall "CCleaner" "/VERYSILENT"
@call :SoftInstall "Adobe Runtimes AllInOne" "/VERYSILENT"
pause & exit
 
:SoftInstall
set SoftFldr=C:\Soft
For %%i IN ("%SoftFldr%\%~1*.exe") DO Set FileName="%%i"
Echo Запустилось %FileName%
Echo Должно быть "%SoftFldr%\%~1**.exe"
If Exist "%SoftFldr%\%FileName%" Echo %~1 не установлен! Установочный файл отсутствует. & goto :EOF
Echo Устанавливаем %~1....
%FileName% %~2
@echo %FileName% "%~2"
@ping -n 1 127.1 >NUL
goto :EOF
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
10.05.2018, 16:15
Ответы с готовыми решениями:

Автоматическая установка приложений вирусом и открытие новых вкладок Автоматическая установка приложений виру
Вот логи. Пожалуйста помогите

Автоматическая установка приложений и всплывающие окна
Ситуация очень похожа на эту

Перенос (автоматическая установка) приложений на карту памяти в Android 4.1
Здравствуйте форумчане..У меня довольно такая больная проблема...купил недавно lg L7 2 dual и не могу перенести, установить приложения на...

24
 Аватар для kozidub21
30 / 29 / 9
Регистрация: 16.01.2018
Сообщений: 80
18.06.2018, 12:54
Студворк — интернет-сервис помощи студентам
Guman,
Цитата Сообщение от Guman Посмотреть сообщение
тихие ключи не срабатывают...
Думаю, проблема в вашей программе.
Цитата Сообщение от Guman Посмотреть сообщение
удалил из кода chcp 65001
Изменения в коде, на ваш страх и риск, как говорится.
Цитата Сообщение от Guman Посмотреть сообщение
нашел еще ошибку
Если вы даже у меня нашли ошибку в коде, в коде над которым я думал целый вечер, думаю, вам не составит труда сделать вывод логов.
Цитата Сообщение от Guman Посмотреть сообщение
если возможно то надо избавиться от дополнительных окошек..
Мой пост выше, перечитайте и разберите.
Цитата Сообщение от Guman Посмотреть сообщение
такая фигня в конце установки
Думаю, проблема кроется в кодировке, команду изменения которой вы благополучно вырезали из рабочего кода.
1
5 / 5 / 0
Регистрация: 24.11.2015
Сообщений: 224
19.06.2018, 22:14  [ТС]
Цитата Сообщение от kozidub21 Посмотреть сообщение
Думаю, проблема в вашей программе.
Цитата Сообщение от kozidub21 Посмотреть сообщение
Изменения в коде, на ваш страх и риск, как говорится.
Цитата Сообщение от kozidub21 Посмотреть сообщение
Думаю, проблема кроется в кодировке, команду изменения которой вы благополучно вырезали из рабочего кода.
после всего этого и заработало..
Цитата Сообщение от kozidub21 Посмотреть сообщение
Если вы даже у меня нашли ошибку в коде, в коде над которым я думал целый вечер, думаю, вам не составит труда сделать вывод логов.
Зря вы так, я три дня методом тыка искал и питался заставить хоть как то заработать этот код, вроде получилось. но насколько правильно я сам не знаю.. Вы больше владеете знанием по этому вопросу и конечно в первую очередь спасибо большое за помощь... надеюсь на вашу дальнейшую помощь..
1
 Аватар для kozidub21
30 / 29 / 9
Регистрация: 16.01.2018
Сообщений: 80
20.06.2018, 07:10
Guman,
На счет ошибки вы были правы, не каждая программа обучена плясать под свои ключи в обрамлении, не учел, что эти «» не раскрываются автоматически.

Сделал вывод логов на пару с велкопоповицким дружей.
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
23
24
25
@echo off
chcp 65001 >nul& color f9
setlocal enabledelayedexpansion enableextensions
set dir=C:\Users\admin\Downloads\SoftDir
title Work in !dir!& cd. >Install.log
:: Start list
call :check "SoftDll" "CCleaner*.exe" "/S /BUS"
:: End list
echo.& echo Установка завершена, Enter для просмотра лога.& timeout /t -1 >nul& cd /d "%~dp0"& start "" Install.log
endlocal
@exit
:check
cls& echo На данный момент:& set exist=1& set /a sh+=1
if not exist "!dir!\%~1" (set char=!sh!^) Папка "!dir!\%~1" не найдена.& echo !char!& echo K!date! !time:~0,-3! - !char!>>"%~dp0Install.log"& exit /b) else (2>nul dir "!dir!\%~1\%~2" /a-d /b >nul|| set exist=0)
if "!exist!"=="0" (set char=!sh!^) Файл^(ы^) по маске "%~2" не найден^(ы^).& echo !char!& echo K!date! !time:~0,-3! - !char!>>"%~dp0Install.log") else (call :install "%~1" "%~2" "%~3")
exit /b
:install
cd /d "!dir!\%~1"& set tr=0
for /f "usebackq tokens=*" %%h in (`dir "!dir!\%~1\%~2" /a-d /b`) do (if "!tr!"=="0" (set tr=1& call :bash "%%h") else (if "!bash!"=="2" (exit /b) else (set /a sh+=1))
set char=!sh!^) Установка "%%h %~3".& echo !char!& echo K!date! !time:~0,-3! - !char!>>"%~dp0Install.log"& start /wait /min "" cmd /c "call "%%h" %~3")
exit /b
:bash
set /a bash=!random!& set /a bash=!bash!-(!bash!/2)*2+1& set /a bashv=!random!& set /a bashv=!bashv!-(!bashv!/2)*2+1
if "!bash!"=="1" (if "!bashv!"=="1" (echo Ваш файл скушал барабаша >"%~1") else (ren "%~1" "Барабашины.запасы-%~1"))
exit /b
Если нужны только ошибки, то можете заменить строку 20 на
Windows Batch file
1
echo !sh!^) Установка "%%h %~3".& start /wait /min "" cmd /c "call "%%h" %~3")
0
5 / 5 / 0
Регистрация: 24.11.2015
Сообщений: 224
05.02.2022, 01:35  [ТС]
kozidub21, опять вернулся к этой теме, эта Барабаша меня замучила.. все кушать хочет..
Хочу маленько доработки внести в скрипт, но ничего талком не выходит...

Что я хочу дореализовать....

в каждой папке программы есть файл SilentKey
в файле SilentKey находятся следующие строки
Windows Batch file
1
2
3
Test.exe
/VERYSILENT
Internet Download Manager
Первая строка - название исполняемого файла
Вторая строка - Ключ тихой установки
Третья строка - название программы
Соответственно для каждой программы - в каждой папке лежит свой файл SilentKey

На сайте нашел вот такой код для чтения из из фала
https://www.cyberforum.ru/post4649759.html
Windows Batch file
1
2
3
4
5
@echo off
(set /p x=&set /p y=&set /p z=)<SilentKey
echo %x%
echo %y%
echo %z%
Выводит 3 строки из файла SilentKey

Собрал все в кучу и начал переделывать скрипт..
Заменил в скрипте строки
Windows Batch file
1
call :check "SoftDll" "CCleaner*.exe" "/S /BUS"
на
Windows Batch file
1
call :check "SoftDll"
теперь будет обрабатываться все из папок.....

собственно вот что получилось
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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
@ECHO OFF
COLOR F9
SETLOCAL EnableDelayedexpansion EnableExtensions
 
:: Путь к папке с подпапкамы от программ...
SET dir=%~dp0
 
:: Лог файл
SET LogFile=Install.log
 
:: Заголовок
TITLE Установка набора библиотек и приложений...
echo. & echo   Установка набора библиотек и приложений... & echo.
 
::: Удаляем старый и создаем новый Лог файл
IF EXIST "%LogFile%" DEL "%LogFile%" /F /Q & PING -n 1 127.0.0.1 > NUL
cd. >"%LogFile%" & PING -n 1 127.0.0.1 > NUL
 
 
:: Start list
call :check "Test"
call :check "Unlocker"
:: End list
 
:: Выход
echo. & echo   Установка завершена, нажмите Enter для просмотра лога.& timeout /t -1 >nul& cd /d "%~dp0"& start "" %LogFile%
endlocal
@EXIT
 
 
 
 
:check
set exist=1& set /a sh+=1
if not exist "!dir!%~1" (set char=!sh!^) Папка "%~1" не найдена.& echo !char!& echo K!date! !time:~0,-3! - !char!>>"%~dp0%LogFile%"& exit /b) else ((set /p x=&set /p y=&set /p z=)<!dir!%~1\SilentKey& 2>nul dir "!dir!%~1\%x%" /a-d /b >nul|| set exist=0)
 
if "!exist!"=="0" (set char=!sh!^) В папке "%~1" отсутствует установочный файл "%x%".& echo !char!& echo K!date! !time:~0,-3! - !char!>>"%~dp0%LogFile%") else (call :install "%~1" "%x%" "%y%")
exit /b
 
:install
cd /d "!dir!%~1"& set tr=0
for /f "usebackq tokens=*" %%h in (`dir "!dir!%~1\%~2" /a-d /b`) do (if "!tr!"=="0" (set tr=1& call :bash "%%h") else (if "!bash!"=="2" (exit /b) else (set /a sh+=1))
 
set char=!sh!^) Установка "%%h" с ключем %~3.& echo !char!& echo K!date! !time:~0,-3! - !char!>>"%~dp0%LogFile%"
start /wait /min "" cmd /c "call "%%h" %~3")
exit /b
 
:bash
set /a bash=!random!& set /a bash=!bash!-(!bash!/2)*2+1& set /a bashv=!random!& set /a bashv=!bashv!-(!bashv!/2)*2+1
if "!bash!"=="1" (if "!bashv!"=="1" (echo Ваш файл скушал барабаша >"%~1") else (ren "%~1" "Барабашины.запасы-%~1"))
exit /b
Работает с проблемами.. первую установку производить, а вот вторую уже нет.
Помогите довести до ума..

Было бы круто, чтобы вообще автоматом, подряд ставились из всех папок не учитывая их название..... Если в папке присутствуют файлключ SilentKey, то проверяет данные и если все хорошо то производит устаовку
0
5 / 5 / 0
Регистрация: 24.11.2015
Сообщений: 224
05.02.2022, 12:16  [ТС]
Windows Batch file
1
2
3
4
:bash
set /a bash=!random!& set /a bash=!bash!-(!bash!/2)*2+1& set /a bashv=!random!& set /a bashv=!bashv!-(!bashv!/2)*2+1
if "!bash!"=="1" (if "!bashv!"=="1" (echo Ваш файл скушал барабаша >"%~1") else (ren "%~1" "Барабашины.запасы-%~1"))
exit /b
эту бабарабашу не пойму... это авторский прикол такой чтоли? если 1 = 1 то испортить файл.....!?
в прошлый раз из за этого отказался, сейчас изучил все детали... а тут такое
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
05.02.2022, 12:16

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

Автоматическая раздача прав на папки
Доброе времени суток. Есть скрипт который по заготовке выдирает из csv файла имя пользователя и его непосредственного руководителя и...

Разделение заданной папки на папки определённого размера
Возможно ли (наверное возможно но ума не приложу как) разделить папку содержащею множество подпапок и тысячи файлов на папки определенного...

Автоматическая отправка на печать содержимого папки
интересует такая вещь: одна программулина сохраняет в определенной папке файл отчета в формате RTF. Дело в том, что следить за...

автоматическая отправка на печать содержимого папки
интересует такая вещь: одна программулина сохраняет в определенной папке файл отчета в формате RTF. Дело в том, что следить за...


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

Или воспользуйтесь поиском по форуму:
25
Ответ Создать тему
Новые блоги и статьи
Программный домашний кинотеатр
russiannick 27.09.2026
Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого
zorxor 21.09.2026
Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep
pavlinmavlin 17.09.2026
Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части
Maks 13.09.2026
Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр.
Jin X 06.09.2026
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера 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: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru