Windows下一键生成小米球全自动后台运行BAT脚本及开机启动

2022-11-08 00:13:22 发布

感谢群用户(幸运王子:49704887)的投稿共享!我整理搬运到论坛分享给广大用户!

话不多说,直接贴脚本代码:


@echo off
setlocal EnableDelayedExpansion
title 一键生成小米球全自动后台运行BAT及开机启动 by liaomarket
color 0a
mode con cols=80 lines=20

rem 生成小米球全自动后台运行bat
@echo ::小米球自动后台运行 > 小米球全自动后台运行.bat
@echo @echo off >> 小米球全自动后台运行.bat
@echo color 0a >> 小米球全自动后台运行.bat
@echo title 小米球自动后台运行工具 by:liaomarket >> 小米球全自动后台运行.bat
@echo mode con cols=109 lines=30>> 小米球全自动后台运行.bat
@echo echo. >> 小米球全自动后台运行.bat
@echo if "%%1" == "h" goto begin >> 小米球全自动后台运行.bat
@echo mshta vbscript:createobject("wscript.shell").run("%%~nx0 h",0)(window.close)^&^&exit >> 小米球全自动后台运行.bat
@echo :begin >> 小米球全自动后台运行.bat
@echo xiaomiqiu.exe -config xiaomiqiu.conf -log=xiaomiqiu.log -log-level=info start-all >> 小米球全自动后台运行.bat
@echo pause >> 小米球全自动后台运行.bat
echo 生成小米球全自动后台运行bat成功!
choice /t 1 /d y /n > nul

rem 设置BAT快捷方式且放入启动项
set WrkDir=%~dp0
set "LinkName=小米球全自动后台运行.bat.lnk"
set filname=小米球全自动后台运行.bat
set ThePath=%~dp0%小米球全自动后台运行.bat

rem 创建VBScript扩展
mshta VBScript:Execute("Set Shell=CreateObject(""WScript.Shell""):Set Link=Shell.CreateShortcut(""!LinkName!""):Link.TargetPath=""!ThePath!"":Link.WorkingDirectory=""!WrkDir!"":Link.Save:close"^)

rem 判断是否存在小米球bat快捷方式
if exist  "%USERPROFILE%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\小米球全自动后台运行.bat.lnk" (
echo 删除原有的bat快捷方式
choice /t 1 /d y /n > nul
del /q "%USERPROFILE%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\小米球全自动后台运行.bat.lnk"
)
::copy /y 小米球全自动后台运行.bat.lnk "%USERPROFILE%\Desktop\" > nul 2>nul
move /y 小米球全自动后台运行.bat.lnk "%USERPROFILE%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\" > nul 2>nul

rem 重复判断是否有小米球bat快捷方式
if exist  "%USERPROFILE%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\小米球全自动后台运行.bat.lnk" (
echo 建立小米球全自动后台运行bat快捷方式成功!
choice /t 1 /d y /n > nul
goto choose
) else (
echo 建立bat快捷方式失败,请检查是否杀毒软件或防火墙禁止写入启动项!
echo 3秒后退出!
choice /t 3 /d y /n > nul
exit
)

rem 运行小米球自动后台运行bat批处理
echo.
:choose
echo 请问运行小米球自动后台运行bat?
echo.
echo [ Y=是 ] [ N=退出 ]
set/p choice="请输入命令并按回车键确认:"
if /i "%choice:~0,1%"=="Y" goto execute
if /i "%choice:~0,1%"=="N" exit
ehco 输入命令执行无效,重新选择...
choice /t 1 /d y /n > nul
goto choose
:execute
start %cd%\小米球全自动后台运行.bat
echo 运行小米球自动后台运行bat成功!
choice /t 2 /d y /n > nul
exit

本地新建bat文件,复制此代码保存即可!



4

声明:本站内网友所发表的所有内容及言论仅代表其本人,并不反映任何本站之意见及观点。

后发布评论