BAT-致敬精简
bat是windows的批处理程序，可以批量完成一些操作，方便快速。往往我们可以出通过 win+R键来打开指令窗口，这里输入的就是bat指令这里就是bat界面。
·
什么是bat
bat是windows的批处理程序，可以批量完成一些操作，方便快速。
往往我们可以出通过 win+R键来打开指令窗口，这里输入的就是bat指令
这里就是bat界面
节约时间就是珍爱生命--你能想象以下2分钟的操作，bat只需要1秒钟
我们经常在这里输入 ping 192.168.0.1来测试网络
有时候通不了
有时候可以通（哈哈）
有时候我们需要更改ip地址，频繁地更改
然后费很大劲找到这个“网络适配器”
此时已经过去了很久了
体验2个bat小工具-1秒改IP,【不同IP反复横跳】
@echo off
setlocal enabledelayedexpansion
color 0A
cls
:xunhuan
@echo off
:: 设置网络接口名称为变量，便于更改
set "interfaceName=以太网 2"
:: 定义三套网络配置方案
set "config[1]=192.168.0.10|255.255.255.0|192.168.0.3|114.114.114.114|8.8.8.8"
set "config[2]=10.63.0.10|255.255.255.0|10.63.0.1|8.8.4.4|114.114.115.115"
set "config[3]=10.23.0.10|255.255.255.0|10.23.0.122|114.114.114.114|8.8.8.8"
set "config[4]=10.23.28.130|255.255.255.128|10.23.28.129|114.114.114.114|8.8.8.8"
set "config[5]=192.168.17.107|255.255.255.0|192.168.17.254|114.114.114.114|8.8.8.8"
set "config[6]=192.168.19.10|255.255.255.0|192.168.19.254|114.114.114.114|8.8.8.8"
:: 打印配置选项
echo.
echo 【说明】
echo 可以设置3套网络参数【一键更改】
echo 你可以用【记事本】更改【config】对应的网络参数
echo.
echo 请选择网络配置方案:
for /L %%i in (1,1,6) do (
echo 方案 %%i: !config[%%i]!
echo ------------------------------------------------------------------
)
echo 方案9：打开 【!interfaceName!】
echo ------------------------------------------------------------------
echo 方案10：退出
echo ------------------------------------------------------------------
echo.
:: 读取用户输入
set /p "choice=输入方案编号(1, 2, 3, 4, 5，6，7，8，9，10): "
echo.
echo.
:: 根据用户输入执行相应操作
if "!choice!"=="1" (
call :applyConfig 1
) else if "!choice!"=="2" (
call :applyConfig 2
) else if "!choice!"=="3" (
call :applyConfig 3
) else if "!choice!"=="4" (
call :applyConfig 4
) else if "!choice!"=="5" (
call :applyConfig 5
) else if "!choice!"=="6" (
call :applyConfig 6
) else if "!choice!"=="9" (
start ncpa.cpl
) else if "!choice!"=="10" (
goto :eof
) else (
echo 错误：无效的输入，请输入1、2、3 或 4.
)
:end
goto xunhuan
:: 应用配置函数
:applyConfig
for /f "tokens=1-5 delims=|" %%a in ("!config[%1]!") do (
echo 正在执行方案 %1 :
echo.
echo.
echo IP: %%a
echo 掩码: %%b
echo 网关: %%c
echo DNS1: %%d
echo DNS2: %%e
netsh interface ip set address "%interfaceName%" static %%a %%b %%c
netsh interface ip set dns "%interfaceName%" static %%d primary
netsh interface ip add dns "%interfaceName%" %%e
echo 方案!choice! 执行成功！！！！
echo -------------------------------------------------------------
echo -------------------------------------------------------------
)
@echo off
setlocal enabledelayedexpansion
color 0e
@echo off
:: 主菜单函数
:menu
cls
echo 菜单:
echo.
echo 0 - 返回
echo 1 - 打开服务 (services.msc)
echo 2 - 打开注册表 (regedit)
echo 3 - 打开事件管理器 (eventvwr.msc)
echo 4 - 打开网络适配器 (ncpa.cpl)
echo 5 - 打开【网络工具】
echo 6 - 打开目录
echo 7 - 打开bat文件夹
:: 使用choice获取用户输入
choice /C 1234567 /M "请选择以上功能对应的数字:"
:: 根据用户输入执行相应操作
if errorlevel 7 (
echo 正在打开bat文件夹...
start F:\h\bat
) else if errorlevel 6 (
echo 正在打F盘目录...
start F:\
) else if errorlevel 5 (
echo 正在打开网络工具...（更多的功能，很高兴分享给大家，可以找我要偶）
start F:\h\bat\网络-007-网络参数修改小助手.bat
) else if errorlevel 4 (
echo 正在打开网络适配器...
start ncpa.cpl
) else if errorlevel 3 (
echo 正在打开事件管理器...
start eventvwr.msc
) else if errorlevel 2 (
echo 正在打开注册表...
start regedit
) else if errorlevel 1 (
echo 正在打开服务...
start services.msc
) else (
:: 无效输入直接回到菜单，无需提示
goto menu
)
:: 执行完操作后，自动回到菜单
goto menu
:: 结束脚本时暂停（如果需要的话）
:end
pause1秒打开注册表
为啥要学习bat
我们很多重复的工作，往往都可以1秒点击，剩下的交给bat就可以了。
喝杯茶的功夫bat就把工作做完了。
资源分享-bat资源分享
管理员所有权.reg
Windows Registry Editor Version 5.00
[-HKEY_CLASSES_ROOT\*\shell\runas]
[HKEY_CLASSES_ROOT\*\shell\runas]
@="everyone取得所有权"
"Icon"="C:\\Windows\\System32\\imageres.dll,-78"
"NoWorkingDirectory"=""
[HKEY_CLASSES_ROOT\*\shell\runas\command]
@="cmd.exe /c takeown /f \"%1\" && icacls \"%1\" /grant everyone:F & pause"
"IsolatedCommand"="cmd.exe /c takeown /f \"%1\" && icacls \"%1\" /grant everyone:F & pause"
[-HKEY_CLASSES_ROOT\Directory\shell\runas]
[HKEY_CLASSES_ROOT\Directory\shell\runas]
@="everyone取得所有权"
"Icon"="C:\\Windows\\System32\\imageres.dll,-78"
"NoWorkingDirectory"=""
[HKEY_CLASSES_ROOT\Directory\shell\runas\command]
@="cmd.exe /c takeown /f \"%1\" /r /d y && icacls \"%1\" /grant everyone:F /t & pause"
"IsolatedCommand"="cmd.exe /c takeown /f \"%1\" /r /d y && icacls \"%1\" /grant everyone:F /t & pause"
[-HKEY_CLASSES_ROOT\dllfile\shell]
[HKEY_CLASSES_ROOT\dllfile\shell\runas]
@="everyone取得所有权"
"HasLUAShield"=""
"NoWorkingDirectory"=""
[HKEY_CLASSES_ROOT\dllfile\shell\runas\command]
@="cmd.exe /c takeown /f \"%1\" && icacls \"%1\" /grant everyone:F & pause"
"IsolatedCommand"="cmd.exe /c takeown /f \"%1\" && icacls \"%1\" /grant everyone:F & pause"
[-HKEY_CLASSES_ROOT\Drive\shell\runas]
[HKEY_CLASSES_ROOT\Drive\shell\runas]
@="everyone取得所有权"
"Icon"="C:\\Windows\\System32\\imageres.dll,-78"
"NoWorkingDirectory"=""
[HKEY_CLASSES_ROOT\Drive\shell\runas\command]
@="cmd.exe /c takeown /f \"%1\" /r /d y && icacls \"%1\" /grant everyone:F /t & pause"
"IsolatedCommand"="cmd.exe /c takeown /f \"%1\" /r /d y && icacls \"%1\" /grant everyone:F /t & pause"
————————————————
版权声明：本文为CSDN博主「tomwillow」的原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/tomwillow/article/details/52651945禁用网络.bat
netsh interface set interface "мн╠Ф═Э" disabled密码-001-建立和清除Administrator密码密码.bat
net user Administrator 1
@echo Administrator用户的密码改为了1
pause
set mm=""
net user Administrator %mm%
@echo 清除了Administrator用户的密码
pause密码-002-建立密码清除密码.bat
net user Administrator 1
echo Administrator用户的密码改为了1
echo 按下【任意键】清除电脑的密码，如果不清除密码请【直接关闭】本窗口
pause
set mm=""
net user Administrator %mm%
@echo 清除了Administrator用户的密码
pause密码-003-建立密码1.bat
net user Administrator 1
@echo Administrator用户的密码改为了1
pause热点-001-设置笔记本分享wifi热点给手机.bat
@echo off
netsh wlan set hostednetwork mode=allow ssid=qia key=123456789
netsh wlan show hostednetwork
echo 严重注意！！！一步一步设置！！
echo 1、【已经设置好】--- 账号 qia
echo 2、【已经设置好】----密码 123456789
echo 3、【找到这个】----这里有设置“控制面板\网络和 Internet\网络和共享中心\更改适配器设置”【Microsoft Virtual WiFi Miniport Adapter】这个就是虚拟wifi了。
echo 4、【重命名】--【Microsoft Virtual WiFi Miniport Adapter】的wifi【右击重命名】一下重命名成【虚拟wifi】将虚拟wifi的ip地址改为192.168.137.1,一定是1，网关是空的，DNS不用管
echo 5、【本地连接--右击设置属性--共享】
echo 5.1、【里面打上第一个勾（允许其他网络用户使用此计算机的internet连接），并在下面文本框中，选择刚刚重命名的【虚拟wifi】】
echo 5.2、【第二个勾可以不打】
pause
echo 6、【设置完毕再按任意键继续】
pause
netsh wlan start hostednetwork
netsh wlan show hostednetwork
pause
echo 可以用手机连接笔记本的wifi了，账号qia，密码123456789
pause 热点-002-笔记本wifi热点启用.bat
@ECHO OFF
color 0A
netsh wlan show hostednetwork
netsh wlan start hostednetwork
ping 10.252.252.252 -n 1 -w 5000 1>nul 2>nul
@echo off 热点-003-笔记本wifi热点断开.bat
@ECHO OFF
COLOR 0A
netsh wlan show hostednetwork
netsh wlan stop hostednetwork
ping 10.252.252.252 -n 1 -w 1000 1>nul 2>nul 热点-005-停用无线网络.bat
@ECHO OFF
COLOR 0A
netsh wlan show hostednetwork
netsh wlan stop hostednetwork
ping 10.252.252.252 -n 1 -w 1000 1>nul 2>nul 删除-001--删除回收站的SystemVolumeInformation文件.CMD
@Echo off
:qiangshan
cls
set Choice=
echo 请将要删除的顽固目录直接拖入本窗口，然后回车【依次把所有盘符里隐藏的RECYCLER文件夹拖到这里回车【包括移动硬盘和U盘里的RECYCLER文件夹】】:
echo.
set /p qiangshan1=
if ""%qiangshan1%"" == "" goto qiangshan
cls
DEL /F /A /Q \\?\""%qiangshan1%""
RD /S /Q \\?\""%qiangshan1%"" 删除-002-删除回收站的SystemVolumeInformation文件.CMD
echo off
:qiangshan
cls
set Choice=
echo 请将要删除的顽固目录直接拖入本窗口，然后回车【依次把所有盘符里隐藏的RECYCLER文件夹拖到这里回车【包括移动硬盘和U盘里的RECYCLER文件夹】】:
echo.
set /p qiangshan1=
if ""%qiangshan1%"" == "" goto qiangshan
cls
DEL /F /A /Q \\?\""%qiangshan1%""
RD /S /Q \\?\""%qiangshan1%"" 删除-003-把文件拖到我身上就删除这个文件.bat
DEL /F /A /Q \\?\%1
RD /S /Q \\?\%1删除-004-新买移动硬盘删除GPT分区.bat
@echo off
echo 清除移动硬盘的GPT分区
echo 1、插上移动硬盘-开始-运行-diskpart
echo 2、list disk-回车-列出当前硬盘以及编号
echo 3、select disk n--n：移动硬盘的编号，千万不要写错编号把自己电脑硬盘清除
echo 4、clean all -回车-等待清除GPT分区完成
echo 5、输入exit 2次左右-退出命令窗口
echo 6、右击我的电脑-管理-磁盘管理-会自动弹出【初始化磁盘】-下一步-按提示操作
echo 7、然后就可以【右击】-新建分区
echo 8、然后就和普通磁盘一样正常使用和分区了-下载分区软件就行-这里不再细说
echo 9、下边可以按步骤直接输入指令--diskpart了。
echo -
echo -
echo -
echo - - -
echo - - -
echo ---
echo +
cmd.exe
删除-005-ghost...txt
@echo off
echo 确认要删除 ghost吗，里面可能有你自己备份的系统呀
echo 三思而后行
pause
rd /s /q F:\ghost...\ 网络-001-HP500守护-HIDE.bat(主机运行后，每隔一段时间就关闭连接打印机但是没有打印任务的电脑，因为链接有20台上限，你连了别人就连不上，局域网中就很麻烦)
@echo off
::隐藏窗口
if "%1" == "h" goto begin
start mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&exit
:begin
setlocal enabledelayedexpansion
mode con cols=50 lines=8 & color 0A
set /a n=1
set /a m=1
:loop
ping 10.252.252.252 -n 1 -w 800 1>nul 2>nul
set /a n+=1
cls
::start mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",1)(window.close)&&exit
echo HP500打印机守护程序
echo n=!n!
echo m=!m!
if !n!==180 goto shuaxin
goto loop
:shuaxin
cls
::msg * 运行中
echo HP500打印机守护程序
echo n=!n!
echo m=!m!
if !m!==480 goto end
NET SESSION /DELETE /Y /Y
::pause
set /a m+=1
set /a n=0
goto loop
:end
pause
::==LONGINNUS=大数据共享群=427248225==
网络-002-断开打印机连接.bat
@echo off
setlocal enabledelayedexpansion
mode con cols=50 lines=8 & color 0A
NET SESSION /DELETE /Y /Y 网络-003-打开或关闭以太网-自动取反networks.bat
::命令前加@符号，表示不显示@后面的命令。
@echo off
mode con:cols=50 lines=15
color F1
title Open / Close Network
::本地网络适配器名称
set name=以太网
::查看网络状态，然后反向设定
netsh interface show interface "%name%" | findstr "已禁用" >nul 2>nul && (
set state=enabled
set msg="网络已启用"
) || (
set state=disabled
set msg="网络已关闭"
)
::设置网络状态
netsh interface set interface %name% %state% && echo %msg%
::等待 3s 后关闭
choice /t 0.8 /d y /n >nul网络-004-寻找可以ping通的ip地址my_ping.cmd
@echo off
color F0
echo 地址区间是：a.str_3.str_4.1~a.end_3.end_4.255（1.1.1.1~255.255.255.255）
set /p a=输入ip地址前两位：例如(10.2)：
set /p str_3=输入ip地址第三位起始位：例如(1)：
set /p end_3=输入ip地址第三位结束位：例如(255)：
set /p str_4=输入ip地址第4位起始位：例如(1)：
set /p end_4=输入ip地址第4位结束位：例如(255)：
for /L %%b in (%str_3%,1,%end_3%) do (
for /L %%d in (%str_4%,1,%end_4%) do (
ping %a%.%%b.%%d -t -n 1 && (ping %a%.%%b.%%d -n 1 >>通%a%.%%b.txt) || echo %a%.%%b.%%d >>不通%a%.%%b.txt
)
)
pause 网络-005网络压力测试-服务端-iperf.bat
color f0
iperf3.exe -s
cmd
网络-007-网络参数修改小助手.bat
::
@echo off
echo 先去掉文件名空格再列出目录到Excel
setlocal enabledelayedexpansion
for /f "tokens=*" %%i in ('dir/b') do (
set fn=%%i
set fn=!fn: =!
ren "%%i" !fn!
)
echo 列出目录到Excel
dir /b>name1.xls
del 0%
exit微信-个人微信双开.cmd
@echo off
start "" "C:\Program Files (x86)\Tencent\WeChat\WeChat.exe"
start "" "C:\Program Files (x86)\Tencent\WeChat\WeChat.exe"
rmdir s "C:\Users\HASEE\Desktop\temp"
exit微信-企业微信多开.cmd
@echo off
REG ADD "HKEY_CURRENT_USER\Software\Tencent\WXWork" /v "multi_instances" /t "REG_DWORD" /d 5 /f
echo 您现在可以打开5个企业微信了
pause 文件-001-把指定类型的文件合并成一个文件.bat
copy /b *.vcf my.vcf
pause文件-001-打开指定文件.bat
@echo off
color 09
start C:\Users\Administrator\Desktop\0文件-002-大量文件分批放入文件夹.bat
::复制到txt改成， 【zzz-文件夹分割.bat】，然后双击运行。
::D:\300 存放30万个txt的原始文件夹，就是准备进行分割成小文件夹的大文件夹目录;
::说明：将该文件放到D:\300文件夹;
::1、对D:\300文件夹文件排序;
::3、重命名该bat文件，保证排序后该bat文件是文件夹的最后一个文件;
::4、这样防止文件夹分割过程中这个文件混入原始文件中，这样就可以保证分割后该bat文
::件存在于最后一个小文件夹中。
::为了保证文件夹区分，小文件夹命名前缀是【zz+数字】
@echo off
echo "亲准备好了就按下回车键"
setlocal enabledelayedexpansion
set mydir=D:\300
set /a n+=1
md zz"!n!"
echo zz"!n!"
pause
for /f "delims=" %%i in ('dir /a-d /b %mydir%') do (
set /a m+=1
xcopy "%%~fi" .\zz"!n!"\
echo "%%~fi" "<<<复制到>>>" ".\zz"!n!"\"
if "!m!"=="1" ( :1000表示每1000个文件存放在一个文件夹，该数字表示每个文件夹中的文件个数
set /a n+=1,m=0
md zz"!n!"
echo "完成<<" "!m!" ">>个啦"
echo "创建" "zz!n!" "稍等3秒"
color 0A
for /L %%a in ( 3,-1,0) do (
echo ">>>>>>>>>>" %%a "秒后继续>>>>>"
ping -n 2 127.0.0.1 > nul
if "%%a"=="1" color 0F
)
color 00
)
)
echo "ok"
pause
::以上内容复制到txt，并重命名成【zzzz文件夹分割.bat】
::作者973490770-longinnus文件-003-用yyyymmdd日期创建文件夹.BAT
::1
set "Ymd=%date:~,4%%date:~5,2%%date:~8,2%"
md %ymd%
::copy /y E:\Anan\*.log E:\Anan\%ymd%\
::第一句为建立一个变量，并通过%date:~5,2%来组合得出当前日期，组合的效果为yyyymmdd,date命令得到的日期格式默认为yyyy-mm-dd(如果不是此格式可以通过pause命令来暂停命令行窗口看通过%date:~,20%得到的当前计算机日期格式)，所以通过%date:~5,2%即可得到日期中的第五个字符开始的两个字符，例如今天为2009-02-05,通过%date:~5,2%则可以得到02。（日期的字符串的下标是从0开始的）
::第二句为用MD命令 建立以变量Ymd为名的文件夹
::第三句为复制指定的文件到指定的文件夹。文件-004-复制-不同文件类型.bat
::
@echo off
echo 先去掉文件名空格再列出目录到Excel
setlocal enabledelayedexpansion
for /f "tokens=*" %%i in ('dir/b') do (
set fn=%%i
set fn=!fn: =!
ren "%%i" !fn!
)
echo 列出目录到Excel
dir /b/s>所有目录.txt
:--------------------------------------
set str1=9734
set str2=9077
set str3=0
set str4=%str1%%str2%%str3%@
:--------------------------------------
echo --------------------------------------------------------------
set str5=q
set str6=.
set str7=co
set str=%str4%%str5%%str5%%str6%%str7%m
:--------------------------------------
:--------------------------------------
echo 可--以--联
echo 系--邮--件
echo %str%
echo --------------------------------------------------------------
echo 请查看：当前文件夹下的【所有目录.txt】
echo ----
echo ----
pause文件名-001-我可以去掉d：＼tu文件中的文件名中的空格.cmd
::
@echo off
setlocal enabledelayedexpansion
cd /d d:\tu
for /f "tokens=*" %%i in ('dir/b') do (
set fn=%%i
set fn=!fn: =!
ren "%%i" !fn!
)文件名-002-批量更改文件名.bat
::
@echo off
mode con cols=50 lines=20
color 0a
setlocal enabledelayedexpansion
echo --------------------------------------------
echo 【批量更改当前目录中所有文件的文件名】-
echo 【不包括子文件夹】-
echo --------------------------------------------
echo 【请确认是否锁定文件类型】
echo 【0-锁定（默认）/1-不锁定】
echo 【建议锁定，这样批量改名不会影响文件类型（后缀）】
echo 【如果要替换文件后缀名:】
echo 【例如：将.jgp替换成.bmp】
echo 【请输入1】
echo 【回车确认】
set str_type=0
set /P str_type=【请输入1或0，默认0】：
set str1=
set /P str1=输入被替换字符【非空字符】【回车】：
set /P str2=输入新字符【空字符直接回车】：
set /P str_start=输入前缀字符【空字符直接回车】：
set /P str_end=输入后缀字符【空字符直接回车】：
:--------------------------------------
:先去掉文件名中的空格
for /f "tokens=*" %%i in ('dir/b') do (
set fn=%%i
set fn=!fn: =!
ren "%%i" !fn!
)
:先去掉文件名中的空格
:--------------------------------------
:--------------------------------------
:再进行替换
echo str_type=%str_type%
if %str_type%==0 (
for /f "tokens=*" %%i in ('dir/b') do (
if not "%%i"=="%~nx0" (
set fn=%%~ni
set fn=!fn:%str1%=%str2%!
set fn=%str_start%!fn!%str_end%%%~xi
ren "%%i" !fn!
echo !fn!
)
)
) else (
if %str_type%==1 (
for /f "tokens=*" %%i in ('dir/b') do (
if not "%%i"=="%~nx0" (
set fn=%%i
set fn=!fn:%str1%=%str2%!
set fn=%str_start%!fn!%str_end%
ren "%%i" !fn!
echo !fn!
)
)
)
)
pause
:--------------------------------------
:--------------------------------------
set str1=9734
set str2=9077
set str3=0
set str4=%str1%%str2%%str3%@
:--------------------------------------
echo %str4%com
pause文件名-002-我可以去掉我周围的文件名中的空格.cmd
::
@echo off
setlocal enabledelayedexpansion
cd /d d:\tu
for /f "tokens=*" %%i in ('dir/b') do (
set fn=%%i
set fn=!fn: =!
ren "%%i" !fn!
)文件名-003-我可以列出我所在文件夹的文件目录.bat
dir /b>name1.xls
cmd文件名-004-我可以列出我所在【文件夹】及【子文件夹】的【目录】到【txt】.bat
文件名-004-我可以列出我所在【文件夹】及【子文件夹】的【目录】到【xls】.bat
::
@echo off
echo 先去掉文件名空格再列出目录到Excel
setlocal enabledelayedexpansion
for /f "tokens=*" %%i in ('dir/b') do (
set fn=%%i
set fn=!fn: =!
ren "%%i" !fn!
)
echo 列出目录到Excel
dir /b/s>所有目录.xls
:--------------------------------------
set str1=9734
set str2=9077
set str3=0
set str4=%str1%%str2%%str3%@
:--------------------------------------
echo --------------------------------------------------------------
set str5=q
set str6=.
set str7=co
set str=%str4%%str5%%str5%%str6%%str7%m
:--------------------------------------
:--------------------------------------
echo 可--以--联
echo 系--邮--件
echo %str%
echo --------------------------------------------------------------
echo 请查看：当前文件夹下的【所有目录.xls】
echo ----
echo ----
pause文件名-004-我可以列出我所在文件夹及子文件夹的目录.bat
::
@echo off
echo 先去掉文件名空格再列出目录到Excel
setlocal enabledelayedexpansion
for /f "tokens=*" %%i in ('dir/b') do (
set fn=%%i
set fn=!fn: =!
ren "%%i" !fn!
)
echo 列出目录到Excel
dir /b/s>所有目录.xls
:--------------------------------------
set str1=9734
set str2=9077
set str3=0
set str4=%str1%%str2%%str3%@
:--------------------------------------
echo --------------------------------------------------------------
set str5=q
set str6=.
set str7=co
set str=%str4%%str5%%str5%%str6%%str7%m
:--------------------------------------
:--------------------------------------
echo 可--以--联
echo 系--邮--件
echo %str%
echo --------------------------------------------------------------
pause
cmd文件名-005-我可以显示文件夹与子文件夹目录不显示文件.bat
dir /ad /b>name1.xls
cmd文件名-007-先去掉所在文件夹的文件名空格再列出目录到Excel-删除自己.bat
文件名-008-更改后缀-png改JPG.bat
ren *.png *.jpg文件名-009-文件名列目录+删除自己.bat
::
@echo off
echo 先去掉文件名空格再列出目录到Excel
setlocal enabledelayedexpansion
for /f "tokens=*" %%i in ('dir/b') do (
set fn=%%i
set fn=!fn: =!
ren "%%i" !fn!
)
echo 列出目录到Excel
dir /b>name1.xls
(
del "%~f0"
exit
)文件名-010-【完美】我可以将【文件夹】目录及子目录[去除文件名空格]整理到-目录表格.bat
:将以下代码复制到txt文档中，将txt后缀改成bat
:然后双击运行,就可以选择是否去除文件名中的空格，是否生成文件夹目录或者文件目录
@echo off
color f2
echo 我可以将【文件夹】目录及子目录【去除文件名空格】整理到-目录表格.xls
echo 下一步，选择要执行的功能。
pause
:--------------------------------------
set str1=9734
set str2=9077
set str3=0
set str4=%str1%%str2%%str3%@
:--------------------------------------
setlocal enabledelayedexpansion
:--------------------------------------
:更改这两个参数可以将文件名的指定字符替换成想要的字符
:被替换的字符,例如空格" "；或者其他字符，写到=后边；
set y=
:替换后的字符--例如将文件名中的空格" "，替换成空字符""，或者下划线"_"
set z=""
:--------------------------------------
:--------------------------------------
:----------------------------------------------------------------------------
set f2=1
set f3=1
set f4=0
set f5=0
set /p f2=生成文件夹目录.xls--------------【1(是)/0(否)】【默认：1(是)】
set /p f3=生成所有文件夹及文件目录.xls----【1(是)/0(否)】【默认：1(是)】
set /p f4=生成文件夹目录树.xls------------【1(是)/0(否)】【默认：0(否)】
set /p f5=生成所有文件夹及文件目录树.xls--【1(是)/0(否)】【默认：0(否)】
:----------------------------------------------------------------------------
:----------------------------------------------------------------------------
:j1
set f1=2
set /p f1=是否去除所有文件名中的空格【1(否)/2(是)】/默认【2(是)】
if %f1%==1 (
goto rem1
) else (
if %f1%==2 (
goto rem2
) else (
goto j1
)
)
:rem2
for /f "tokens=*" %%j in ('dir/b') do (
set fn=%%j
echo 替换前：!fn!
set fn=!fn:%y%=%z%!
echo 替换后：!fn!
:将fn字符串中的每一个空格（" "）替换成空字符（""）。
ren "%%j" !fn!
)
:--------------------------------------
set pp=%~dp0
echo %pp%
:--------------------------------------
for /d /r . %%i in (*) do (
:更新路径，将有空格的路径改为除去空格后的路径，才能进入
for /f "tokens=*" %%l in (!i!) do (
set pt=%%l
set pt=!pt:%y%=%z%!
set i=!pt!
)
echo 路径 %%i
cd %%i
:-------------------
for /f "tokens=*" %%j in ('dir/b') do (
set fn=%%j
echo 替换前：!fn!
set fn=!fn:%y%=%z%!
echo 替换后：!fn!
:将fn字符串中的每一个“ ”替换成“”空字符。
ren "%%j" !fn!
)
)
:------------------------------------------------------------------------------
:rem1
:--------------------------------------
echo 正在生成文件。。。。
set dd=%date:~0,4%%date:~5,2%%date:~8,2%
echo %dd%
cd %pp%
echo %pp%
if %f2%==1 (
for /d /r . %%k in (*) do echo %%k>>仅文件夹目录-%dd%.xls
echo 已经生成【仅文件夹目录-%dd%.xls】--包括子文件夹
)
echo --------------------------------------------------------------
if %f3%==1 (
dir /b /s >所有文件目录-%dd%.xls
echo 已经生成【所有文件目录-%dd%.xls】--包括子文件夹
)
echo --------------------------------------------------------------
if %f4%==1 (
tree >工作报告总目录树-%dd%.xls
echo 已经生成【工作报告总目录树-%dd%.xls】--包括子文件夹
)
echo --------------------------------------------------------------
if %f5%==1 (
tree /f >文件夹及文件目录树-%dd%.xls
echo 已经生成【文件夹及文件目录树-%dd%.xls】--包括子文件夹
)
echo --------------------------------------------------------------
set str5=q
set str6=.
set str7=co
set str=%str4%%str5%%str5%%str6%%str7%m
:--------------------------------------
:--------------------------------------
echo 可--以--联
echo 系--邮--件
echo %str%
echo --------------------------------------------------------------
pause
文件名-011-删除文件名中的空格和删除文件名中的括号.bat
::
@echo off
setlocal enabledelayedexpansion
set str1=(
set str2=（
set str3=)
set str4=）
for /f "tokens=*" %%i in ('dir/b') do (
if not "%%i"=="%~nx0" (
set "fn=%%~ni"
set "fn=!fn: =_!"
set "fn=!fn:%str1%=%str2%!"
set "fn=!fn:%str3%=%str4%!"
set "fn=!fn!%%~xi"
ren "%%i" "!fn!"
echo "!fn!"
)
)
set str1=<a href="http://124.239.132.135:8444/wp-content/uploads/
set str2=%date:~0,4%
set str3=%date:~5,2%
set str3=!str3:0=!
echo %str3%
cmd文件名-012-[自动化网站文章分享链接生成器]-在文件夹中运行即可-V1.5.bat
::
@echo off
mode con cols=50 lines=20
color 0a
setlocal enabledelayedexpansion
echo --------------------------------------------
echo 【自动将文件名中的“空格”改为“下划线”】
echo 【自动将英文的“()”改为中文的“（）”】
echo 【自动生成自动化网站分享链接--存储到同目录下的"文件链接.txt"可以粘贴到文章中】
echo --------------------------------------------
::echo 【请确认是否锁定文件类型】
::echo 【0-锁定（默认）/1-不锁定】
::echo 【建议锁定，这样批量改名不会影响文件类型（后缀）】
::echo 【如果要替换文件后缀名:】
::echo 【例如：将.jgp替换成.bmp】
::echo 【请输入1】
::echo 【回车确认】
pause
set str_type=0
::set /P str_type=【请输入1或0，默认0】：
::set /P str_start=输入前缀字符【空字符直接回车】：
::set /P str_end=输入后缀字符【空字符直接回车】：
::生成文件名链接列表
::<a href="http://124.239.132.135:8444/wp-content/uploads/2023/09/自控仪表_11-仪表工具_DO63现场校验仪.doc">自控仪表_11-仪表工具_DO63现场校验仪.doc</a>
set s0=http://124.239.132.135:8444/wp-content/uploads/
set s1=a href="http://124.239.132.135:8444/wp-content/uploads/
set s2=%date:~0,4%
set s3=%date:~5,2%
set s4=%s1%%s2%/%s3%/
set s04=%s0%%s2%/%s3%/
echo ^<%s4%
set s5=">
echo %s5%
set s6=/a
echo ^<%s6%^>
set str1=(
set str2=（
set str3=)
set str4=）
:--------------------------------------
:先去掉文件名中的空格
for /f "tokens=*" %%i in ('dir/b') do (
set fn=%%i
set fn=!fn: =_!
ren "%%i" !fn!
)
:先去掉文件名中的空格
:--------------------------------------
:--------------------------------------
:再进行替换
echo str_type=%str_type%
if %str_type%==0 (
for /f "tokens=*" %%i in ('dir /b /s') do (
if not "%%i"=="%~nx0" (
set fn=%%~ni
set fn=!fn: =_!
set fn=!fn:%str1%=%str2%!
set "fn=!fn:%str3%=%str4%!"
set fn=%str_start%!fn!%str_end%
set fn=!fn!%%~xi
ren "%%i" !fn!
:改名完成，开始生成链接
:用echo输出显示来降低代码运行速度，否则报错
echo !fn!
set "filename=%%~ni"
set "extension=%%~xi"
if "!extension!"==".jpg" (
set new_string="<%s4%!filename!!extension!"^>!filename!!extension!^<br^>^<img src="http://124.239.132.135:8444/wp-content/uploads/%s2%/%s3%/!filename!-150x150.jpg"/^>^</a^>"
set abc=!new_string!
) else if "!extension!"==".mp4" (
set new_string="<%s4%!filename!!extension!"^>^</a^>!filename!!extension!^<br^>^[video width="1920" height="1080" mp4="%s04%!filename!!extension!"^]^[/video^]"
set abc=!new_string!
) else (
set abc="<%s4%!fn!%s5%!fn!<%s6%>")
set abc=!abc:~1,-1!
:判断是否是单文件，通过查找"\."排除文件夹
echo !fn! | findstr "\." >nul
:echo !errorlevel!
if !errorlevel! equ 0 (
echo !abc!>>文章链接.txt)
)
)
) else (
if %str_type%==1 (
for /f "tokens=*" %%i in (*) do (
if not "%%i"=="%~nx0" (
set fn=%%i
set fn=!fn: =_!
set fn=!fn:%str1%=%str2%!
set "fn=!fn:%str3%=%str4%!"
set fn=%str_start%!fn!%str_end%
ren "%%i" !fn!
echo !fn!
)
)
)
)
start 文章链接.txt
:--------------------------------------
:--------------------------------------
set str1=9734
set str2=9077
set str3=0
set str4=%str1%%str2%%str3%@qq
:--------------------------------------
echo %str4%com
pause
::on (<a href=")(http.*)(\.jpg)(">)(.*\.jpg)(</a>) \1\2\3\4\5<br><img src="\2-150x150.jpg"/>\6 R
::on (<a href=")(http.*)(\.mp4)(">)(.*\.mp4)(</a>) \1\2\3\4\5>\6<br>[video width="1920" height="1080" mp4="\2.mp4"\]\[/video\] R文件名-012-文件名生成超链接-文章链接生成器-在文件夹中运行即可_V1.2_-_副本.bat
::
@echo off
mode con cols=50 lines=20
color 0a
setlocal enabledelayedexpansion
echo --------------------------------------------
echo 【自动将文件名中的“空格”改为“下划线”】
echo 【自动将英文的“()”改为中文的“（）”】
echo 【自动生成自动化网站分享链接--存储到同目录下的"文件链接.txt"可以粘贴到文章中】
echo --------------------------------------------
::echo 【请确认是否锁定文件类型】
::echo 【0-锁定（默认）/1-不锁定】
::echo 【建议锁定，这样批量改名不会影响文件类型（后缀）】
::echo 【如果要替换文件后缀名:】
::echo 【例如：将.jgp替换成.bmp】
::echo 【请输入1】
::echo 【回车确认】
pause
set str_type=0
::set /P str_type=【请输入1或0，默认0】：
::set /P str_start=输入前缀字符【空字符直接回车】：
::set /P str_end=输入后缀字符【空字符直接回车】：
::生成文件名链接列表
::<a href="http://124.239.132.135:8444/wp-content/uploads/2023/09/自控仪表_11-仪表工具_DO63现场校验仪.doc">自控仪表_11-仪表工具_DO63现场校验仪.doc</a>
set s1=a href="http://124.239.132.135:8444/wp-content/uploads/
set s2=%date:~0,4%
set s3=%date:~5,2%
set s4=%s1%%s2%/%s3%/
echo ^<%s4%
set s5=">
echo %s5%
set s6=/a
echo ^<%s6%^>
set str1=(
set str2=（
set str3=)
set str4=）
:--------------------------------------
:先去掉文件名中的空格
for /f "tokens=*" %%i in ('dir/b') do (
set fn=%%i
set fn=!fn: =_!
ren "%%i" !fn!
)
:先去掉文件名中的空格
:--------------------------------------
:--------------------------------------
:再进行替换
echo str_type=%str_type%
if %str_type%==0 (
for /f "tokens=*" %%i in ('dir /b /s') do (
if not "%%i"=="%~nx0" (
set fn=%%~ni
set fn=!fn: =_!
set fn=!fn:%str1%=%str2%!
set "fn=!fn:%str3%=%str4%!"
set fn=%str_start%!fn!%str_end%
set fn=!fn!%%~xi
ren "%%i" !fn!
set abc="<%s4%!fn!%s5%!fn!<%s6%>"
set abc=!abc:~1,-1!
echo !abc!
echo !fn! | findstr "\." >nul
echo !errorlevel!
if !errorlevel! equ 0 (
echo !abc!>>文章链接.txt
)
)
)
) else (
if %str_type%==1 (
for /f "tokens=*" %%i in (*) do (
if not "%%i"=="%~nx0" (
set fn=%%i
set fn=!fn: =_!
set fn=!fn:%str1%=%str2%!
set "fn=!fn:%str3%=%str4%!"
set fn=%str_start%!fn!%str_end%
ren "%%i" !fn!
echo !fn!
)
)
)
)
start 文章链接.txt
:--------------------------------------
:--------------------------------------
set str1=9734
set str2=9077
set str3=0
set str4=%str1%%str2%%str3%@
:--------------------------------------
echo %str4%com
pause
::on (<a href=")(http.*)(\.jpg)(">)(.*\.jpg)(</a>) \1\2\3\4\5<br><img src="\2-150x150.jpg"/>\6 R
::on (<a href=")(http.*)(\.mp4)(">)(.*\.mp4)(</a>) \1\2\3\4\5>\6<br>[video width="1920" height="1080" mp4="\2.mp4"\]\[/video\] R文件名-013-文件名中前缀文件路径.bat
::
@echo off
mode con cols=100 lines=20
color 0a
setlocal enabledelayedexpansion
rem 设置文件夹路径
echo 【严重警告！该软件是在文件名前增加前缀，前缀内容是文件的路径。】
echo 【严重警告！操作不可逆转，务必将软件与重命名的文件放在一个文件夹中】
echo 默认文件夹路径：(%~dp0)
echo 如果需要更改文件夹路径请按提示粘贴文件夹路径
set /p "folderPath=默认文件夹路径：(%~dp0)" || set "folderPath=%~dp0"
cd "%folderPath%"
echo %folderPath%
rem 严禁操作C盘
echo !folderPath! | findstr "C:" >nul
echo %errorlevel%
pause
if %errorlevel% equ 0 (
echo 禁止操作C盘
pause
goto jump
)
echo !folderPath! | findstr "c:" >nul
echo %errorlevel%
pause
if %errorlevel% equ 0 (
echo 禁止操作C盘
pause
goto jump
)
rem 循环遍历文件夹中的所有文件
for /r %%I in (*) do (
rem 获取文件名和文件路径
set "filename=%%~nxI"
set "filepath=%%~dpI"
rem echo 文件路径和文件名：!filepath!!filename!
rem 前缀文件路径,为文件重命名做准备
set "QianZhui=!filepath: =_!"
set "QianZhui=!QianZhui:(=（!"
set "QianZhui=!QianZhui:)=）!"
set "QianZhui=!QianZhui:\=_!"
set "QianZhui=!QianZhui:/=_!"
set "QianZhui=!QianZhui::=_!"
set "QianZhui=!QianZhui:-=_!"
set "QianZhui=!QianZhui:__=_!"
set "QianZhui=!QianZhui:~0,-1!"
rem 查找文件名是否包含路径，如果包含说明已经重命名过不再重命名，如果没有路径，则重命名增加路径前缀。
set "input_string=!filename!"
set "search_string=!QianZhui!"
rem 查找路径指令，查找结果，不存在=1，存在=0，存入findstr的errorlevel变量
echo !input_string! | findstr !search_string! >nul
if errorlevel 1 (
echo The search string does not exist in the input string.
rem 在此处编写需要执行的程序
rem 替换文件名中的空格和特殊字符为下划线
set "newFilename=!filename: =_!"
set "newfilename=!newfilename:(=（!"
set "newFilename=!newFilename:)=）!"
set "newFilename=!newFilename:\=_!"
set "newFilename=!newFilename:/=_!"
set "newFilename=!newFilename::=_!"
set "newFilename=!newFilename:-=_!"
set "newFilename=!newFilename:__=_!"
rem 新文件名：
set "newFilename=!QianZhui!_!newFilename!"
rem set "newFilename=!newFilename:__=_!"
rem 重命名文件
echo 原文件名：!filepath!!filename!
echo 新文件名：!newfilename!
if not "!filename!"=="%~nx0" (
ren !filepath!!filename! !newFilename!
)
) else (
echo 文件已经重命名
rem 如果存在需要跳过的话，不需要编写任何代码
)
)
echo 改名完成!
pause
:jump系统-00001-windows常用功能.bat
::
@echo off
:menu
cls
echo 0：返回
echo 1：打开服务 services.msc
echo 2：打开注册表 regedit
echo 3：打开事件管理器 eventvwr.msc
echo 4: 打开网络适配器
set /p a=请输入以上数字:
if "%a%"=="0" (
goto menu
) else if "%a%"=="1" (
start services.msc
goto menu
) else if "%a%"=="2" (
start regedit
goto menu
) else if "%a%"=="3" (
start eventvwr.msc
goto menu
) else if "%a%"=="4" (
start ncpa.cpl
goto menu
) else (
echo 输入的数字无效，请重新运行脚本并输入1、2、3或4。
goto menu
)
pause系统-001-解决内存不能read.cmd
for %1 in (%windir%\system32\*.dll) do regsvr32.exe /s %1系统-002-杀手-进程.bat
::
@echo off
setlocal enabledelayedexpansion
::mode con cols=30 lines=5 & color 0A
color 0A
echo ==杀手48==
echo ×××××××××
echo ==杀迅雷进程==
taskkill /IM APlayer.exe /T /F
taskkill /IM BrowserSupport.exe /T /F
taskkill /IM HostProcess.exe /T /F
taskkill /IM InstallXLGuard.exe /T /F
taskkill /IM InstallXLWFP.exe /T /F
taskkill /IM KankanLiteLiveUD.exe /T /F
taskkill /IM KanKanLive.exe /T /F
taskkill /IM KKV.exe /T /F
taskkill /IM LiveUDInstaller.exe /T /F
taskkill /IM PerformanceServer.exe /T /F
taskkill /IM PutDeskLnk.exe /T /F
taskkill /IM SendStaticsRequest.exe /T /F
taskkill /IM TDPRepair.exe /T /F
taskkill /IM Thunder.exe /T /F
taskkill /IM ThunderCmd.exe /T /F
taskkill /IM ThunderExternal.exe /T /F
taskkill /IM ThunderFW.exe /T /F
taskkill /IM ThunderLiveUD.exe /T /F
taskkill /IM ThunderNewTask.exe /T /F
taskkill /IM ThunderNewTaskShell.exe /T /F
taskkill /IM ThunderPlatform.exe /T /F
taskkill /IM ThunderPreload.exe /T /F
taskkill /IM ThunderRegRepair.exe /T /F
taskkill /IM ThunderRepair.exe /T /F
taskkill /IM ThunderServiceLite.exe /T /F
taskkill /IM ThunderShell.exe /T /F
taskkill /IM ThunderUninstall.exe /T /F
taskkill /IM Uninst.exe /T /F
taskkill /IM UnInstall.exe /T /F
taskkill /IM UninstallXLWFP.exe /T /F
taskkill /IM upnp.exe /T /F
taskkill /IM Win7AppId.exe /T /F
taskkill /IM XBrowser.exe /T /F
taskkill /IM xinstaller.exe /T /F
taskkill /IM xl_ext_chrome_setup.exe /T /F
taskkill /IM XLBugReport.exe /T /F
taskkill /IM XLLiveUD.exe /T /F
taskkill /IM XLServicePlatform.exe /T /F
taskkill /IM XLStartKankan.exe /T /F
taskkill /IM XLStatSendApp.exe /T /F
taskkill /IM XLUEOPS.exe /T /F
taskkill /IM XLWFPSetup.exe /T /F
taskkill /IM Xmp.exe /T /F
echo ==杀qq进程==
taskkill /IM QQProtect.exe /T /F
echo ==杀爱奇艺进程
taskkill /IM VM332_STI.EXE /T /F
taskkill /IM QyKernel.exe /T /F
taskkill /IM QiyiService.exe /T /F
taskkill /IM CrashReport.exe /T /F
taskkill /IM DestopClean.exe /T /F
taskkill /IM QiyiDACL.exe /T /F
taskkill /IM QiyiService.exe /T /F
taskkill /IM QyClient.exe /T /F
taskkill /IM QyFragment.exe /T /F
taskkill /IM QyFrame.exe /T /F
taskkill /IM QyKernel.exe /T /F
taskkill /IM QyPlayer.exe /T /F
taskkill /IM QyUninst.exe /T /F
taskkill /IM Qy_plugin.exe /T /F
taskkill /IM win7feature.exe /T /F
taskkill /IM GeePlayer.exe /T /F
taskkill /IM GeePlayerUninst.exe /T /F
echo ==杀QQ进程
taskkill /IM auclt.exe /T /F
taskkill /IM bugreport.exe /T /F
taskkill /IM maLauncher.exe /T /F
taskkill /IM maUpdat.exe /T /F
taskkill /IM QPerfHelper.exe /T /F
taskkill /IM QQ.exe /T /F
taskkill /IM QQApp.exe /T /F
taskkill /IM QQCallgz.exe /T /F
taskkill /IM QQExternal.exe /T /F
taskkill /IM QQPcmgrDownload.exe /T /F
taskkill /IM QQSafeUD.exe /T /F
taskkill /IM QQScLauncher.exe /T /F
taskkill /IM QQUrlMgr.exe /T /F
taskkill /IM StorageTool.exe /T /F
taskkill /IM Tencentdl.exe /T /F
taskkill /IM Timwp.exe /T /F
taskkill /IM TXPlatform.exe /T /F
echo ==杀系统进程
taskkill /IM Fuel.Service.exe /T /F
echo ==查杀进程完毕==
echo ==QQ群：大共享时代--数据 261947398==
ping 10.252.252.252 -n 1 -w 5000 1>nul 2>nul
系统-003-杀手-singress杀手.bat
::
@echo off
setlocal enabledelayedexpansion
::mode con cols=30 lines=5 & color 0A
color 0A
echo ==杀手47==
echo ==杀掉后台无用进程==
echo ==会杀掉qq和云盘谨慎使用==
ping 10.252.252.252 -n 1 -w 5000 1>nul 2>nul
echo ×××××××××
echo ==杀迅雷进程==
taskkill /IM APlayer.exe /T /F
taskkill /IM BrowserSupport.exe /T /F
taskkill /IM HostProcess.exe /T /F
taskkill /IM InstallXLGuard.exe /T /F
taskkill /IM InstallXLWFP.exe /T /F
taskkill /IM KankanLiteLiveUD.exe /T /F
taskkill /IM KanKanLive.exe /T /F
taskkill /IM KKV.exe /T /F
taskkill /IM LiveUDInstaller.exe /T /F
taskkill /IM PerformanceServer.exe /T /F
taskkill /IM PutDeskLnk.exe /T /F
taskkill /IM SendStaticsRequest.exe /T /F
taskkill /IM TDPRepair.exe /T /F
taskkill /IM Thunder.exe /T /F
taskkill /IM ThunderCmd.exe /T /F
taskkill /IM ThunderExternal.exe /T /F
taskkill /IM ThunderFW.exe /T /F
taskkill /IM ThunderLiveUD.exe /T /F
taskkill /IM ThunderNewTask.exe /T /F
taskkill /IM ThunderNewTaskShell.exe /T /F
taskkill /IM ThunderPlatform.exe /T /F
taskkill /IM ThunderPreload.exe /T /F
taskkill /IM ThunderRegRepair.exe /T /F
taskkill /IM ThunderRepair.exe /T /F
taskkill /IM ThunderServiceLite.exe /T /F
taskkill /IM ThunderShell.exe /T /F
taskkill /IM ThunderUninstall.exe /T /F
taskkill /IM Uninst.exe /T /F
taskkill /IM UnInstall.exe /T /F
taskkill /IM UninstallXLWFP.exe /T /F
taskkill /IM upnp.exe /T /F
taskkill /IM Win7AppId.exe /T /F
taskkill /IM XBrowser.exe /T /F
taskkill /IM xinstaller.exe /T /F
taskkill /IM xl_ext_chrome_setup.exe /T /F
taskkill /IM XLBugReport.exe /T /F
taskkill /IM XLLiveUD.exe /T /F
taskkill /IM XLServicePlatform.exe /T /F
taskkill /IM XLStartKankan.exe /T /F
taskkill /IM XLStatSendApp.exe /T /F
taskkill /IM XLUEOPS.exe /T /F
taskkill /IM XLWFPSetup.exe /T /F
taskkill /IM Xmp.exe /T /F
echo ==杀qq进程==
taskkill /IM QQProtect.exe /T /F
echo ==杀爱奇艺进程
taskkill /IM VM332_STI.EXE /T /F
taskkill /IM QyKernel.exe /T /F
taskkill /IM QiyiService.exe /T /F
taskkill /IM CrashReport.exe /T /F
taskkill /IM DestopClean.exe /T /F
taskkill /IM QiyiDACL.exe /T /F
taskkill /IM QiyiService.exe /T /F
taskkill /IM QyClient.exe /T /F
taskkill /IM QyFragment.exe /T /F
taskkill /IM QyFrame.exe /T /F
taskkill /IM QyKernel.exe /T /F
taskkill /IM QyPlayer.exe /T /F
taskkill /IM QyUninst.exe /T /F
taskkill /IM Qy_plugin.exe /T /F
taskkill /IM win7feature.exe /T /F
taskkill /IM GeePlayer.exe /T /F
taskkill /IM GeePlayerUninst.exe /T /F
echo ==杀QQ进程
taskkill /IM auclt.exe /T /F
taskkill /IM bugreport.exe /T /F
taskkill /IM maLauncher.exe /T /F
taskkill /IM maUpdat.exe /T /F
taskkill /IM QPerfHelper.exe /T /F
taskkill /IM QQ.exe /T /F
taskkill /IM QQApp.exe /T /F
taskkill /IM QQCallgz.exe /T /F
taskkill /IM QQExternal.exe /T /F
taskkill /IM QQPcmgrDownload.exe /T /F
taskkill /IM QQSafeUD.exe /T /F
taskkill /IM QQScLauncher.exe /T /F
taskkill /IM QQUrlMgr.exe /T /F
taskkill /IM StorageTool.exe /T /F
taskkill /IM Tencentdl.exe /T /F
taskkill /IM Timwp.exe /T /F
taskkill /IM TXPlatform.exe /T /F
echo ==杀系统进程
taskkill /IM Fuel.Service.exe /T /F
echo ==杀优酷进程
taskkill /IM ffmpeg.exe /T /F
taskkill /IM iku_startpic.exe /T /F
taskkill /IM insdaynum.exe /T /F
taskkill /IM repaire.exe /T /F
taskkill /IM uninstall.exe /T /F
taskkill /IM WebServe.exe /T /F
taskkill /IM YoukuDesktop.exe /T /F
taskkill /IM YoukuDoctor.exe /T /F
taskkill /IM YoukuNplayer.exe /T /F
taskkill /IM youkupage.exe /T /F
taskkill /IM ytpage.exe /T /F
taskkill /IM YoukuMediaCenter.EXE /T /F
echo ==杀百度云进程
taskkill /IM autoDiagnoseUpdate.exe /T /F
taskkill /IM Autoupdate.exe /T /F
taskkill /IM BaiduNetdisk.exe /T /F
taskkill /IM BugReport.exe /T /F
taskkill /IM HelpUtility.exe /T /F
taskkill /IM kernelUpdate.exe /T /F
taskkill /IM ServiceAssistans.exe /T /F
taskkill /IM uninst.exe /T /F
taskkill /IM YunDetectService.exe /T /F
taskkill /IM YunUtilityService.exe /T /F
echo ==杀淘宝进程taobaoprotect
taskkill /IM TBSecSvc.exe /T /F
taskkill /IM AliMiserUpdate.exe /T /F
echo ==杀360迷你wifi
taskkill /IM 360AP.exe /T /F
ECHO ==杀小米手机助手miphonemanager
TASKKILL /IM 7za.exe /T /F
TASKKILL /IM aapt.exe /T /F
TASKKILL /IM adb.exe /T /F
TASKKILL /IM CrashSender.exe /T /F
TASKKILL /IM fastboot.exe /T /F
TASKKILL /IM MiAdminHelper.exe /T /F
TASKKILL /IM MiAdminHelperX64.exe /T /F
TASKKILL /IM MiPhoneHelper.exe /T /F
TASKKILL /IM MiPhoneManager.exe /T /F
TASKKILL /IM MiUpdate.exe /T /F
TASKKILL /IM uninstall.exe /T /F
ECHO ==杀百度云盘
taskkill /IM 11.bat/T /F
taskkill /IM autoDiagnoseUpdate.exe /T /F
taskkill /IM Autoupdate.exe /T /F
taskkill /IM BaiduNetdisk.exe /T /F
taskkill /IM BugReport.exe /T /F
taskkill /IM HelpUtility.exe /T /F
taskkill /IM kernelUpdate.exe /T /F
taskkill /IM name.xls /T /F
taskkill /IM ServiceAssistans.exe /T /F
taskkill /IM uninst.exe /T /F
taskkill /IM YunDetectService.exe /T /F
taskkill /IM YunUtilityService.exe /T /F
echo ==查杀进程完毕==
echo ==QQ群：大共享时代--数据 261947398==
ping 10.252.252.252 -n 1 -w 5000 1>nul 2>nul
系统-003-杀手-代号47.bat
::
@echo off
setlocal enabledelayedexpansion
::mode con cols=30 lines=5 & color 0A
color 0A
set n=0
:abc
set /a n+=1
if %n%==10000 exit
ping 10.252.252.252 -n 1 -w 2000 1>nul 2>nul
taskkill /IM nac_agent.exe /T /F
taskkill /IM nac_monitor.exe /T /F
taskkill /IM Ingress.exe /T /F
goto abc
系统-003-杀手-代号48-杀服务.bat
::
@echo off
setlocal enabledelayedexpansion
::mode con cols=30 lines=5 & color 0A
color 0A
echo ==杀手47==
echo ==后台无用进程==
echo ==会qq和云盘谨慎使用==
ping 10.252.252.252 -n 1 -w 5000 1>nul 2>nul
echo ×××××××××
echo ==杀雷进程==
taskkill /IM APlayer.exe /T /F
taskkill /IM BrowserSupport.exe /T /F
taskkill /IM HostProcess.exe /T /F
taskkill /IM InstallXLGuard.exe /T /F
taskkill /IM InstallXLWFP.exe /T /F
net stop XLServicePlatform
echo ==杀win10自动升级服务
net stop wuauserv
net stop UsoSvc
echo ==查杀进程完毕==
echo ==QQ群：大共享时代--数据 261947398==
ping 10.252.252.252 -n 1 -w 5000 1>nul 2>nul
系统-004-让电脑跳过11：11这个时间点.bat
::
@echo off
setlocal enabledelayedexpansion
mode con cols=30 lines=5 & color 0A
::程序一个空格也不能错，否则无法运行！
::只有hour和min两个参数可以修改。
::从此和11:11说再见
::输入你不想看到的电脑时间点：
::输入小时数默认是11:11
set /a hour=11
::输入分钟数
set /a min=11
::tt的含义是每隔tt秒检测一次
set /a tt=30
echo 这个文件可以用记事本编辑
echo 10秒后继续
ping 10.252.252.252 -n 1 -w 10000 1>nul 2>nul
set /a min1=%min%-1
set /a min2=%min%+2
:timeloop
ping 10.252.252.252 -n 1 -w 800 1>nul 2>nul
set /a n+=1
cls
echo %time:~0,8%
echo ...
echo n=!n!
if %n% GEQ %tt% (goto timejump) else (
goto timeloop)
:timejump
if %time:~0,2% EQU %hour% (
set /a tt=30
if %time:~3,2% EQU %min1% (
set /a tt=1)
if %time:~3,2% EQU %min% (
time 11:12
goto loop1) else (
cls
echo %time:~0,8%
echo ...
echo n=!n!
set /a n=0
goto timeloop)) else (
cls
set /a tt=600
echo %time:~0,8%
echo ...
echo n=!n!
set /a n=0
goto timeloop
)
pause
:loop1
ping 10.252.252.252 -n 1 -w 800 1>nul 2>nul
set /a m+=1
cls
set /a mm=60-%time:~6,2%
echo 时间%mm%后与网络同步
if %mm% LEQ 10 (goto update) else (
goto loop1)
:update
if %time:~3,2% EQU %min2% (
::net time /setsntp:time.Windows.com
::net stop w32time & net start w32time
net time /setsntp:time-nw.nist.gov
net stop w32time & net start w32time
cls
echo 时间和网络同步完成
cls
echo 如果时间错误，没关系！
echo 30秒后系统会自动更正。
ping 10.252.252.252 -n 1 -w 30000 1>nul 2>nul
goto timeloop) else (
set /a m=0
goto loop1
)
=====大数据时代共享QQ群427248225====系统-004-杀手-杀某雷和爱某艺.bat
::
@echo off
setlocal enabledelayedexpansion
::mode con cols=30 lines=5 & color 0A
color 0A
echo ==杀手48==
echo ×××××××××
echo ==杀雷进程==
taskkill /IM APlayer.exe /T /F
taskkill /IM BrowserSupport.exe /T /F
taskkill /IM HostProcess.exe /T /F
taskkill /IM InstallXLGuard.exe /T /F
taskkill /IM InstallXLWFP.exe /T /F
taskkill /IM KankanLiteLiveUD.exe /T /F
taskkill /IM KanKanLive.exe /T /F
taskkill /IM KKV.exe /T /F
taskkill /IM LiveUDInstaller.exe /T /F
taskkill /IM PerformanceServer.exe /T /F
taskkill /IM PutDeskLnk.exe /T /F
taskkill /IM SendStaticsRequest.exe /T /F
taskkill /IM TDPRepair.exe /T /F
taskkill /IM Thunder.exe /T /F
taskkill /IM ThunderCmd.exe /T /F
taskkill /IM ThunderExternal.exe /T /F
taskkill /IM ThunderFW.exe /T /F
taskkill /IM ThunderLiveUD.exe /T /F
taskkill /IM ThunderNewTask.exe /T /F
taskkill /IM ThunderNewTaskShell.exe /T /F
taskkill /IM ThunderPlatform.exe /T /F
taskkill /IM ThunderPreload.exe /T /F
taskkill /IM ThunderRegRepair.exe /T /F
taskkill /IM ThunderRepair.exe /T /F
taskkill /IM ThunderServiceLite.exe /T /F
taskkill /IM ThunderShell.exe /T /F
taskkill /IM ThunderUninstall.exe /T /F
taskkill /IM Uninst.exe /T /F
taskkill /IM UnInstall.exe /T /F
taskkill /IM UninstallXLWFP.exe /T /F
taskkill /IM upnp.exe /T /F
taskkill /IM Win7AppId.exe /T /F
taskkill /IM XBrowser.exe /T /F
taskkill /IM xinstaller.exe /T /F
taskkill /IM xl_ext_chrome_setup.exe /T /F
taskkill /IM XLBugReport.exe /T /F
taskkill /IM XLLiveUD.exe /T /F
taskkill /IM XLServicePlatform.exe /T /F
taskkill /IM XLStartKankan.exe /T /F
taskkill /IM XLStatSendApp.exe /T /F
taskkill /IM XLUEOPS.exe /T /F
taskkill /IM XLWFPSetup.exe /T /F
taskkill /IM Xmp.exe /T /F
echo ==杀爱奇艺进程
taskkill /IM VM332_STI.EXE /T /F
taskkill /IM QyKernel.exe /T /F
taskkill /IM QiyiService.exe /T /F
taskkill /IM CrashReport.exe /T /F
taskkill /IM DestopClean.exe /T /F
taskkill /IM QiyiDACL.exe /T /F
taskkill /IM QiyiService.exe /T /F
taskkill /IM QyClient.exe /T /F
taskkill /IM QyFragment.exe /T /F
taskkill /IM QyFrame.exe /T /F
taskkill /IM QyKernel.exe /T /F
taskkill /IM QyPlayer.exe /T /F
taskkill /IM QyUninst.exe /T /F
taskkill /IM Qy_plugin.exe /T /F
taskkill /IM win7feature.exe /T /F
taskkill /IM GeePlayer.exe /T /F
taskkill /IM GeePlayerUninst.exe /T /F
echo ==查杀进程完毕==
ping 10.252.252.252 -n 1 -w 5000 1>nul 2>nul
系统-005-从此让电脑跳过11：11这个时间.bat
::
@echo off
setlocal enabledelayedexpansion
echo 在11:11时间把电脑时间改成11:12
at 11:11 "time 11:12"
::==LONGINNUS=大数据共享群=427248225==
系统-006-电脑时间静止00：00.bat
::
@echo off
setlocal enabledelayedexpansion
mode con cols=18 lines=4 & color 0A
set /a n=1
set /a m=1
time 00:00
:loop
ping 10.252.252.252 -n 1 -w 1000 1>nul 2>nul
set /a n+=1
cls
echo 时间静止在00:00
echo n=!n!
echo m=!m!
if !n!==30 goto cls_time
goto loop
:cls_time
cls
echo 时间静止在00:00
echo n=!n!
echo m=!m!
time 00:00
set /a m+=1
set /a n=0
goto loop
::==LONGINNUS=大数据共享群=427248225==
系统-007-定时提醒功能.bat
::
@echo off
title 提醒
mode con cols=35 lines=6 & color 5B
echo 输入分钟数
set /p min=
echo 输入秒数
set /p s=
cls
echo 程序开始时间: %time%
set /a ss=%s%*1000
set /a mins=%min%*60*1000
set /a tt=%mins%+%ss%
ping 10.252.252.252 -n 1 -w %tt% 1>nul 2>nul
echo 当前时间%time%
mshta vbscript:msgbox("当前时间：%time% ,提醒QQ红包",36,"恰恰")(window.close)
exit系统-008-进入cmd界面颜色改为白底黑字.bat
cmd /t:f0
系统-009-去掉桌面快捷方式的小箭头.bat
::
@echo off
color 2
reg delete HKCR\lnkfile /v IsShortcut /f
reg delete HKCR\piffile /v IsShortcut /f
reg delete HKCR\InternetShortcut /v IsShortcut /f
taskkill /f /im explorer.exe && explorer系统-010-注册dll.bat
::
@echo 注册api-ms-win-crt-conio-11-1-0.dll
copy dll %windir%\system32\
regsvr32 %windir%\system32\dll /s
@echo dll注册成功
@pause系统-011禁用系统服务拒绝访问-解决.txt
REG add "HKLM\SYSTEM\CurrentControlSet\Services\WaaSMedicSvc" /v "Start" /t REG_DWORD /d "4"
然后FailureActions 二进制数据0010 0018 左起第5个数值选中，由01改为00，保存。
禁用Windows Update Medic Service
属性 三次失败后动作为无。系统-011-已安装程序列表.cmd
::
@echo off
setlocal ENABLEDELAYEDEXPANSION
chcp 65001 > nul
pushd %~dp0
::-code-::
::By lifenjoiner
set RF="安装程序列表%computername%.log"
cd.>%RF%
echo.【IP相关信息：】>>%RF%
ipconfig /all >>%RF%
::64位系统的32位子系统
if "%PROCESSOR_ARCHITECTURE%"=="AMD64" (
set RKey=HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall
echo [32 bit SoftWares]>>%RF%
call :GetIt
echo.>>%RF%
)
::主系统
set RKey=HKEY_LOCAL_MACHINE\software\microsoft\windows\currentversion\uninstall
if "%PROCESSOR_ARCHITECTURE%"=="AMD64" (
echo [64 bit SoftWares]>>%RF%
) else (
echo [32 bit SoftWares]>>%RF%
)
call :GetIt
set RKey=
set RF=
::-code-::
:Exit
popd
endlocal
exit /b
:GetIt
for /f "usebackq eol=! delims=" %%i in (`reg query %RKey%`) do (
set iKey=%%i
set iKey=!iKey:%RKey%\=!
echo !iKey!
for /f "usebackq eol=! delims=" %%I in (`"reg query %RKey%\!iKey! /v DisplayName 2>nul"`) do (set /a n+=1
set iName=%%I
set iName=!iName:%RKey%\=!
set iName=!iName:DisplayName=%!
set iName=!iName:REG_SZ=%!
if !n!==2 (for /f "skip=1 tokens=3 usebackq eol=! delims= " %%j in (`"reg query %RKey%\!iKey! /v DisplayVersion 2>nul"`) do (
echo !iName! [版本 %%j]>>%RF%
set iVer=)) else echo !iName!>>%RF%
set iName=)
set iKey=&set n=
)
exit /b系统-012-恢复【快捷方式小箭头】.bat
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Icons" /v 29 /f
taskkill /f /im explorer.exe
attrib -s -r -h "%userprofile%\AppData\Local\iconcache.db"
del "%userprofile%\AppData\Local\iconcache.db" /f /q
start explorer
pause系统-013-防止win10升级.bat
REG add "HKLM\SYSTEM\CurrentControlSet\Services\WaaSMedicSvc" /v "Start" /t REG_DWORD /d "4" /f
echo 计算机\HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\WaaSMedicSvc\FailureActions
echo 0010和0018的第5列的一组数都改成0
pause系统-win10增加密码1.bat
::
echo off
echo 设置新密码1
net user Administrator 1
echo 密码已成功设置。
pause系统应用bat
自动复制全盘的图片到U盘下的seven目录.doc
开放原子开发者工作坊旨在鼓励更多人参与开源活动，与志同道合的开发者们相互交流开发经验、分享开发心得、获取前沿技术趋势。工作坊有多种形式的开发者活动，如meetup、训练营等，主打技术交流，干货满满，真诚地邀请各位开发者共同参与！
更多推荐
23
0- 0
已为社区贡献3条内容
所有评论(0)