突然想到一个点子，让智能做了软件安装一串代码，帮忙看看可行不~谢谢

查看数: 1632 | 评论数: 32 | 收藏 2

关灯 | 提示：支持键盘翻页<-左右->

发布时间: 2025-5-28 11:17

本帖最后由 423dn 于 2025-5-29 16:19 编辑懒人菜鸟，突然想到一个问题，每次重装完系统都要安装好多软件，于是突然想到个问题，有木有软件，可以把文件夹里的自定义安装包，自动按顺序依次安装，就省着自己手动 ...

yhage 发表于 5 天前

又是一个不同的方法，不错

guong 发表于 5 天前

楼主找到方法了

进士小站 发表于 5 天前

现在安装系统的业务很少了
都是自给自足

msold5 发表于 5 天前

常装系统的人都用绿色静默安装版，其他放D盘的都用着次使用自动绿化的软件。

2012huguoliang 发表于 5 天前

redapple 发表于 2025-5-28 11:23
需要这样操作吗？bat一行写个软件名就可以了

你这应该要带静默安装参数更好

奈绪 发表于 5 天前

2011lerv 发表于 2025-5-28 17:49
明文奉上，可以自行修改，互相学习！

谢谢分享，辛苦了。

老只牛 发表于 5 天前

主要现在安装的软件不是都用得上，就算重装了，也不一定装回原来的软件。

xst 发表于 5 天前

想法不错

f020214 发表于 6 天前

什么东西？不能一个个安装？

12qaz 发表于 6 天前

学习学习

2011lerv 发表于 6 天前

本帖最后由 2011lerv 于 2025-5-28 17:52 编辑

奈绪发表于 2025-5-28 17:28
大佬，能传一个没有加密的吗？谢谢您。

@echo off&color
if exist "%SystemRoot%\SysWOW64" path %path%;%windir%\SysNative;%SystemRoot%\SysWOW64;%~dp0
bcdedit >nul
if '%errorlevel%' NEQ '0' (goto UACPrompt) else (goto UACAdmin)
:UACPrompt
%1 start "" mshta vbscript:createobject("shell.application").shellexecute("""%~0""","::",,"runas",1)(window.close)&exit
exit /B
:UACAdmin
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\卸载清理.lnk""):b.TargetPath=""%~sdp0tools\HiBitUninstaller-Portable.exe"":b.WorkingDirectory=""%~dp0"":b.Save:close")
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\爱奇艺万能播放器.lnk""):b.TargetPath=""%~sdp0奇艺万能播放器\GeePlayer.exe"":b.WorkingDirectory=""%~dp0"":b.Save:close")
echo --创建桌面快捷方式--
start /B "" "%~sdp0office2010\office2010.cmd"
start /B "" "%~sdp02345pic\2345pic.bat"
start /B "" "%~sdp0QQ\QQ.bat"
start /B "" "%~sdp0Internet Download Manager\!绿化.bat"
start /B "" "%~sdp07-Zip\7ZIP.cmd"
start /B "" "%~sdp0Supermium\优化.bat"
start /B "" "%~sdp0Maye\Maye.exe"
start /B "" "%~sdp0WeChat\微信.bat"
exit