📄 多功能批处理.bat
字号:
@mode con cols=109 lines=40&color 1f&chcp 936&cls
@echo off
setlocal EnableDelayedExpansion
::多功能批处理 MADE by 网络痴迷 QQ：59061798
title 多功能批处理
if not "%1"=="" (color 1f&echo 外部调用本批处理功能%1&call :wbtyzb&cls&call %1
if errorlevel 1 echo 调用错误 & goto input)
for /l %%i in (0,1,15) do echo\
echo\
echo 程序准备中……
call :zb>nul2>nul
:input
cls
title 多功能批处理 MADE by 网络痴迷 ----- 热爱家乡辽源 欢迎使用本程序 QQ:59061798
call :caidan
echo\&echo\&set sel=
set /p sel=请输入功能代号：
if "%sel%"=="" goto input
call :cl
cls
call :%sel%
if errorlevel 1 msg * 输入错误的命令，想忽悠在下？&cls&goto input
:use
call :select "IP Address" "ip"
call :select "DNS Servers" "dns"
call :select "Subnet Mask" "subnet"
call :select "Default Gateway" "gateway"
call :select "Physical Address" "phyaddr"
call :select "Dhcp Enabled" "dhcp"
goto :eof
:fo
for /f "skip=1 tokens=* delims= " %%i in ('type %systemdrive%\progra~1\XuanYuan\tempaa.txt') do (
echo %%i
echo %%i >>%file%\system.txt
)
goto :eof
:select
ipconfig/all >%systemdrive%\progra~1\XuanYuan\ip.txt
for /f "tokens=2 delims=:" %%i in ('findstr /i /c:%1 %systemdrive%\progra~1\XuanYuan\ip.txt') do set "%~2=%%i"
goto :eof
:sudu
ping -n 3 %1 >%systemdrive%\progra~1\XuanYuan\ping.txt
for /f "tokens=3,6,9 delims=, " %%i in ('find /i "mini" %systemdrive%\progra~1\XuanYuan\ping.txt') do (
set min=%%i
set max=%%j
set ave=%%k
set min=!min:~0,-2!
set max=!max:~0,-2!
set ave=!ave:~0,-3!
echo 最小延迟 ：!min! 毫秒
echo 最大延迟 ：!max! 毫秒
echo 平均延迟 ：!ave! 毫秒
if !ave! leq 80 echo 连接速度 ………… 优&goto :eof
if !ave! leq 150 echo 连接速度 ………… 良&goto :eof
if !ave! leq 250 echo 连接速度 ………… 中&goto :eof
if !ave! gtr 250 echo 连接速度 ………… 差&goto :eof
echo\)
goto :eof
:lost
for /f "tokens=11 delims= " %%i in ('find /i "lost" %systemdrive%\progra~1\XuanYuan\ping.txt') do (
set lo=%%i
set lo=!lo:~1!)
echo 丢包率 ： %lo%
goto :eof
:qc
for /l %%i in (1,1,100) do set/p=<nul
for /l %%i in (1,1,100) do set/p= <nul
echo\&echo\ >>%file%\system.txt
goto :eof
:ycbh
set/p= <nul
for /l %%i in (0,1,28) do (
set ",=%1"
set/p=!,:~%%i,1!<nul
for /l %%a in (1,1,600) do ver>nul
)
echo\&echo\
goto :eof
:10youhua
echo\&echo\&echo\&echo\
set/p a= 已完成: <nul
for /l %%i in (%1 %1 100) do (
set /a jd=%%i
call :%2!jd! 2>nul
set/p=!jd!%%<nul
set /p=<nul
)
goto :eof
:1
echo 获取网络信息……
call :use
cls
set dhcp2=%dhcp:Yes=是%
set dhcp2=%dhcp2:No=否%
echo 自动获得IP：%dhcp2%
echo 当前IP:%ip%
echo 当前DNS:%dns%
echo 网关:%gateway%
echo 子网掩码:%subnet%
ping 127.1>nul
call :cl
goto input
:2
echo\&echo\
echo 程序正在分析……
cls
if not "%caidan2%"=="固定IP地址" goto :dhcp
:guding
title 设置静态IP
echo 准备中……
call :use
cls
@echo 正在设置静态IP地址……
netsh interface Ip set address "本地连接" source=static %ip% %subnet% %gateway% 1 >nul
@echo 静态IP地址设置成功，现在设置DNS地址……
Netsh interface IP set dns "本地连接" source=static %dns% both >nul
echo DNS设置成功！
set caidan2=获取动态IP
cls
call :1
:dhcp
call :cl
cls
title 设置动态IP
@echo 开始设置动态IP地址……
NETSH INTERFACE ip set address "本地连接" source=dhcp >nul
@echo 设置动态IP地址成功！现在设置DNS……
NETSH INTERFACE ip set dns "本地连接" source=dhcp >nul
@echo 动态DNS地址设置成功！
set caidan2=固定IP地址
cls
call :1
:3
title QQ临时聊天
echo 请输入对方QQ号码：
echo\
set/p QQ=
start tencent://message/?uin=%QQ%
call :cl
goto input
:4
reg add "hklm\system\currentcontrolset\services\schedule" /v "start" /t reg_dword /d "2" /f >nul
SC config Schedule start= auto >nul
sc start Schedule >nul
at|find "every" >nul
if errorlevel 1 goto not
if errorlevel 0 goto have
:not
echo %userprofile%>%systemdrive%\progra~1\XuanYuan\user.dat
echo 注释：该文件为功能4中的用户变量文件，请勿删除，否则将导致程序无法运行!>>%systemdrive%\progra~1\XuanYuan\user.dat
echo call %windir%\everybat.bat :4 >%windir%\every.bat
at 22:00 /interactive /every:M,T,W,Th,F,S,Su %windir%\every.bat >nul
:have
set /p user=<%systemdrive%\progra~1\XuanYuan\user.dat
echo %user%
cls
set ti=█████
echo 正在删除垃圾文件……
echo\&echo\&echo 【温馨提示】：删除内容在标题中显示出
for /l %%x in (0,1,2000) do ver>nul
for /l %%i in (1,1,33) do echo\
echo.
set/p=█<nul
for /l %%a in (1 1 10) do (
(set /a xs=%%a*10)
call :del!xs! 2>nul
(set "xs= 已完成!xs!")
(set "xs=!xs:~-6!")
(set /p=%ti%!xs!%%<nul)
(set /p=<nul)
for /l %%l in (1,1,1500) do ver>nul)
goto input
:del10
title 正在删除cookies~
del /f /s /q "%user%\cookies\*.*" 2>nul >nul
goto :eof
:del20
title 正在删除Temporary Internet Files~
attrib -a -s -h -r "%user%\Local Settings\Temporary Internet Files\" /s /d >nul 2>nul
del /f /s /q "%user%\Local Settings\Temporary Internet Files\*.*" 2>nul>nul
goto :eof
:del30
rd /s /q "%user%\Local Settings\Temporary Internet Files" & md "%userprofile%\Local Settings\Temporary Internet Files" >nul 2>nul
goto :eof
:del40
title 正在删除本地设置临时文件~
del /f /s /q "%user%\Local Settings\Temp\*.*" 2>nul >nul
goto :eof
:del50
title 正在删除系统临时文件~
del /f /s /q "%windir%\Temp\*.*" >nul 2>nul
goto :eof
:del60
title 正在删除开机预读文件~
del /f /s /q "%windir%\Prefetch\*.*" >nul 2>nul
goto :eof
:del70
title 正在删除IE下载残留文件~
rd /q /s "%windir%\Downloaded Program Files" &md "%windir%\Downloaded Program Files" >nul 2>nul
goto :eof
:del80
title 正在清理系统缓存~
SFC /PURGECACHE >nul 2>nul
:del90
title 正在清理回收文件
del /f /q "%USERPROFILE%\Recent\*.*">nul 2>nul
goto :eof
:del100
title 正在Dr Watson残留文件
del /f /q "%ALLUSERSPROFILE%\Application Data\Microsoft\Dr Watson\*.*">nul 2>nul
set/p= 已完成所有任务！<nul
set /p=<nul
ping /n 3 127.1>nul
cls
goto input
:5
call :cl
cls
title 清理磁盘
cleanmgr
call :cl
goto input
:6
for /f "skip=1 tokens=1,2 delims=\" %%i in ('fsutil fsinfo drives^|find /v ""') do (
set drive=%%i
set drive=!drive:~-2!
echo 正在检查!drive!磁盘
title 正在检查!drive!磁盘
echo\&echo\
chkdsk !drive! /v
)
ping -n 2 127.1>nul
call :cl
goto input
:7
title 定时关机
echo\&echo\
echo 分析中……
if not "%caidan7%"=="开启自动关机" goto shutdel
:shutadd
cls
echo 当前时间:%date%,%time%
echo\&echo 请输入定时关机时间。（需24小时制，如23:30 ":"为英文标点。）
set tim=
set/p tim=
at %tim% /INTERACTIVE shutdown -s -t 10 >nul
if errorlevel 1 msg * 输入错误，请重新输入！&goto 7
echo 设置成功！将在%tim%进行关机！
ping -n 2 127.1>nul
set caidan7=删除自动关机
call :cl
goto input
:shutdel
cls
echo\&echo\
for /f "tokens=*" %%i in ('at^|find "shutdown"') do (set shut=%%i
set shuttime=!shut:~26,8!
set shuttime=!shuttime: =!)
for /f "tokens=1" %%i in ('at^|find "shutdown"') do at %%i /del
echo 删除在%shuttime%的定时关机关机成功！
set caidan7=开启自动关机
call :cl
goto input
:8
title 网速检测
echo 检查是否连接互联网……
ping -n 2 www.baidu.com>nul
if errorlevel 1 msg * 互联网连接不通,无法检测！ &goto input
if errorlevel 0 echo 已连接互联网，开始检测……&ping -n 1 127.1>nul
cls
echo 正在检测与中国电信的连接速度……&echo\
call :sudu www.chinatelecom.com.cn
set dx=%ave%
call :lost
echo 正在检测与中国网通的连接速度……&echo\
call :sudu www.chinanetcom.com.cn
set wt=%ave%
call :lost
echo 正在检测与百度的连接速度……&echo\
call :sudu www.baidu.com
set bd=%ave%
call :lost
echo 正在检测与腾讯的连接速度……&echo\
call :sudu www.qq.com
set qq=%ave%
call :lost
echo 正在检测与网易的连接速度……&echo\
call :sudu www.163.com
set wy=%ave%
call :lost
set /a ave1=(%dx%+%wt%+%bd%+%qq%+%wy%)/5
echo\&echo\
echo 总体平均速度 ：%ave1% 毫秒
echo\&echo\
if %ave1% leq 80 echo 总体连接速度 ………… 优&goto textfinished
if %ave1% leq 150 echo 总体连接速度 ………… 良&goto textfinished
if %ave1% leq 250 echo 总体连接速度 ………… 中&goto textfinished
if %ave1% gtr 250 echo 总体连接速度 ………… 差&goto textfinished
:textfinished
echo\
echo 检测完成！
ping 127.1>nul
call :cl
goto input
:9
title 查看系统详细信息
echo\&echo\ >>%file%\system.txt&echo\ >>%file%\system.txt
set/p=正在加载BISO信息……<nul
wmic bios get name,VERSION,Manufacturer >%systemdrive%\progra~1\XuanYuan\tempaa.txt
for /f "tokens=1,2,3,6,7,9,10,11 skip=1 delims= " %%i in ('TYPE %systemdrive%\progra~1\XuanYuan\tempaa.txt') do (
call :qc
echo BISO信息:
echo BISO信息: >%file%\system.txt
echo\&echo\ >>%file%\system.txt
echo BIOS生产商 ：%%i %%j %%k
echo BIOS生产日期：%%l
echo BIOS生产时间：%%m
echo BIOS版本: %%o%%p %%n
echo BIOS生产商 ：%%i %%j %%k >>%file%\system.txt
echo BIOS生产日期：%%l >>%file%\system.txt
echo BIOS生产时间：%%m >>%file%\system.txt
echo BIOS版本: %%o%%p %%n >>%file%\system.txt
)
set/p=正在加载CD-Rom信息……<nul
wmic cdrom get name,id,Manufacturer >%systemdrive%\progra~1\XuanYuan\tempaa.txt
call :qc
echo CD-Rom 信息 :
echo CD-Rom 信息 : >>%file%\system.txt
echo\&echo\ >>%file%\system.txt
echo 盘符 类型 名称
echo 盘符 类型 名称 >>%file%\system.txt
echo\&echo\ >>%file%\system.txt
echo\ >>%file%\system.txt
for /f "skip=1 tokens=1,2,3 delims= " %%i in ('type %systemdrive%\progra~1\XuanYuan\tempaa.txt') do (
echo %%i %%j
echo %%i %%j >>%file%\system.txt
echo\&echo\ >>%file%\system.txt
echo\ >>%file%\system.txt
)
set/p=正在加载系统管理信息……<nul
wmic computersystem get name,username,domain >%systemdrive%\progra~1\XuanYuan\tempaa.txt
call :qc
echo 系统管理信息：
echo 系统管理信息：>>%file%\system.txt
echo\&echo\ >>%file%\system.txt
for /f "skip=1 tokens=1,2,3 delims= " %%i in ('type %systemdrive%\progra~1\XuanYuan\tempaa.txt') do (
echo 主机名: %%j
echo 当前用户: %%k
echo 登陆域: %%i
echo 主机名: %%j >>%file%\system.txt
echo 当前用户: %%k >>%file%\system.txt
echo 登陆域: %%i >>%file%\system.txt
)
set/p=正在加载处理器信息……<nul
wmic cpu get Name,Version,DeviceID,MaxClockSpeed >%systemdrive%\progra~1\XuanYuan\tempaa.txt
call :qc
echo 处理器信息:
echo 处理器信息: >>%file%\system.txt
echo\&echo\ >>%file%\system.txt
echo ID 频率(MHZ) 名称 版本
echo ID 频率(MHZ) 名称 版本 >>%file%\system.txt
echo\&echo\ >>%file%\system.txt&echo\ >>%file%\system.txt
call :fo
set/p=正在加载用户桌面信息……<nul
wmic desktop get Name,ScreenSaverExecutable,ScreenSaverTimeout >%systemdrive%\progra~1\XuanYuan\tempaa.txt
call :qc
echo 桌面信息:
echo 桌面信息: >>%file%\system.txt
echo\&echo\ >>%file%\system.txt
echo 用户 屏保地址 屏保等待时间(秒)
echo 用户 屏保地址 屏保等待时间(秒) >>%file%\system.txt
echo\&echo\ >>%file%\system.txt&echo\ >>%file%\system.txt
call :fo
set/p=正在加载显示器信息……<nul
wmic desktopmonitor get Caption,MonitorManufacturer,PixelsPerXLogicalInch,ScreenHeight,ScreenWidth >%systemdrive%\progra~1\XuanYuan\tempaa.txt
call:qc
echo 显示器信息:
echo 显示器信息: >>%file%\system.txt
echo\&echo\ >>%file%\system.txt
echo 名称 类型 大小(dpi) 宽像素 高像素
echo 名称 类型 大小(dpi) 宽像素 高像素 >>%file%\system.txt
echo\&echo\ >>%file%\system.txt&echo\ >>%file%\system.txt
call :fo
set/p=正在加载硬盘信息……<nul
wmic DISKDRIVE get Caption,Manufacturer, Size >%systemdrive%\progra~1\XuanYuan\tempaa.txt
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -