@echo off&mode con lines=5 cols=50
md cmdhelp ||(pause&exit)
title 正在导出cmd帮助信息到cmdhelp目录内, 稍等...
chcp 437>nul&call :help E
graftabl 936>nul&call :help C
cd cmdhelp
set mark=─────────────────────────────────── 
for %%i in (*.E) do (
    echo.>>%%i &echo %mark%>>%%i
    copy %%~ni.E+%%~ni.C EC_%%~ni.txt>nul
    echo %mark%>>EC_%%~ni.txt &echo.>>EC_%%~ni.txt
)
del *.c;*.e 
find /v "" *.txt>ALL.help
title 已完成 按任意键查看. &pause>nul
start notepad ALL.help
goto :eof
:help
for /f %%i in ('help^|findstr "^[A-Z]"') do help %%i>>cmdhelp\%%i.%1
goto :eof
复制代码

@echo off
set str=%date%
echo %str%
复制代码

set a=%str:~2,4%
echo %a%
复制代码

set b=%str:~6,-2%
echo %b%
复制代码

set c=%str:~-3,2%
echo %c%
复制代码

set d=%str:~-6,-2%
echo %d%
复制代码

@echo off&setlocal enabledelayedexpansion
:支持最大数为1.9950631168807583848837421626836e+3010
set m=1
for /l %%a in (1 1 10000) do (
   for /l %%b in (1 1 %%a) do (
      set /a m*=2
      set /a n+=1
      echo !m!=2^^^^!n!
      if "!m:~,1!" == "-" echo !m!&set /a mm=!m!-1&echo !mm!=!m!-1 &pause&exit
)  )
复制代码

set /a a=~-1
复制代码

set /a a=~5
复制代码

set /a a=!2
复制代码

set /a a=!0
复制代码

set /a a=-(-2147483648)
复制代码

set /a a=15"<<"1
复制代码

set /a a=15^^5
复制代码

set /a a+=2
set /a a=a+2
复制代码

set /a a=1
set /a b=2
set /a c+=3
复制代码

set /a a=1,b=2,c+=3
复制代码

@echo off
::分数化小数,徒手除法
set/a a=1,b=7
set/a c0=a/b, r0=a%%b*10
set/a c1=r0/b,r1=r0%%b*10
set/a c2=r1/b,r2=r1%%b*10
set/a c3=r2/b,r3=r2%%b*10
echo %c0%.%c1%%c2%%c3%
pause
复制代码

@echo off
call:arr arr 1 2 3 4 + d d+ 258 68 944 ddd pp dd
set arr 
pause
:arr
set/a n+=1
if %2.==. goto:eof
set %1%n%=%2
shift /2
goto:arr
复制代码

@echo off
set "str=aferefwfwerergrgreaaffwafwa"
set/p= %str% 中有<nul
:loop
set /a %str:~0,1%+=1&set str=%str:~1%&if defined str goto loop
echo  a %a% 个
pause
复制代码

@echo off 
:begin
SET /p a=请输入一个字符串:
echo %a%
goto begin
复制代码

cout << "请输入一个字符串:\n"; 
cin >> a;
复制代码

:::::::::::::::::::
@echo off
set /p a=<%0
echo %a%&pause>nul
复制代码

::::::&color 02
@echo off
set /p a=<%0
echo %a%&pause>nul
复制代码

@echo off&setlocal enabledelayedexpansion
for /l %%i in (1 10 999) do (set/a n+=1&set /p=^%%i	<nul
if !n!==5 set n=0&echo.
)
pause
复制代码

@echo off
for /f "tokens=*" %%i in (1.txt) do echo.|set /p=%%i
pause
复制代码

@echo off
for /f "tokens=*" %%i in (1.txt) do set /p=%%i<nul >>2.txt
pause
复制代码

wmic logicaldisk get name,description,drivetype
复制代码

@echo off
::在命令行下不能正确显示
set a=12345678901234567890
set /p b=输入两个正整数(不大于9)用空格隔开:
call echo %%a:~%b:~,1%,%b:~-1%%%
pause
复制代码

@echo off
call %*
goto :eof
:a
echo a任务 %*
goto :eof
...
复制代码

@echo off
call A.bat :a 1 2 5
pause
复制代码

@echo off & setlocal ENABLEEXTENSIONS
set x=2
set y=3
call :Area %x% %y% answer
echo/The area is: %answer%
pause
goto :EOF

:Area %width% %height% result
setlocal
set /a res=%1*%2
endlocal & set "%3=%res%"
goto :EOF
复制代码

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::作者：{plp626@cn-dos.net|08-4-25|1.0}
::效率：?次/s  {xp 5.1/单核2.4G/256M}
::算法简述：先将两个时间点ab:cd:ef.gh 转换为跑秒，相减后再将差值（跑秒）转换为ab:cd:ef.gh的格式。
::参数个数：3
::格式说明：call:Timediff [%t1%] [%t2%] [par|0]
::          变量t1,t2必须是系统环境变量%time%的某个值。
::          时间t2必须在时间t1之后，第三个参数若为0，将直接显示时间差。
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::/* -----------------Timediff ----------------------
::最好能给出参数是否符合要求的判定代码，（虽然这个在使用时可能会被省去）
::但这个代码应该非常高效,用findstr的命令肯定不行
for %%a in (+%1 +%2 +%3)do if "%%a"=="+" echo 参数缺失!&exit/b
::参数列表，[]、|、小写、大写字母、的含义同cmd里面的含义，我不多说。
:Timediff [%t1%] [%t2%] [par|0]
::这个很必要，最起码要给个setlocal,保证参数只在本函数内有效。
setlocal enabledelayedexpansion
::下面是函数体
:timediff_1
set P2=%~1&set "P2=!P2::=!"
set/a P2=%P2:.=%-4000*(%P2:~,4%+60*%P2:~,2%)
if not "%3"=="" set P1=!P2!&shift&goto:timediff_1
if !P2! geq !P1! (set/a df=!P2!-!P1!) else set/a df=!P2!-!P1!+8640000
set/a h=df/360000,m=df%%360000/6000,s=df%%6000/100,pt=df%%100
if %pt% leq 9 set pt=0%pt%
::结束本函数内变量的作用域，同时将返回参数赋给变量，使它在函数外有效。
endlocal&set %2=%h%:%m%:%s%.%pt%&goto:eof
:: ------------------- Timediff --------------------- */
复制代码

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::输出彩色字符
::call:Colstr <attr> <sp> <"str"> <bk> <sp> <enter>  
::效率：      约18次/s  (XP 5.1/2.4GHz/256M)      
::例：
::call:colstr 0c 3 "abcdef" 1 2 2
::用0c色（鲜红色）依次输出3个空格 abcdef: [光标左移1位] 2个空格 2个回车
::出处：http://www.cn-dos.net/forum/viewthread.php?tid=38940
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
@echo off
::Colstr函数演示。
mode con lines=24 cols=69
set s=I am from www.cn-dos.net

echo\&echo\&echo\&echo\&echo\&echo\&echo/
call:colstr e 15 "%s%" 0 1 0
call:colstr 0100 0 0 17 0 0
title 按任意键继续...&pause>nul
call:colstr a 1 "中国 DOS 联盟" 0 1 0
call:colstr c 0 "%s:~-15%" 0 1 9
pause>nul
call:colstr 2c 21 "谢谢测试!    有bug请吱一声" 0 1 9
title Jvive QQ∶275928264

pause>nul&exit/b
rem /*--------- colstr 函数 -------------
:Colstr <attr> <sp> <"str"> <bk> <sp> <enter>
for %%a in (+%2 +%4 +%5 +%6) do (
   if "%%a"=="+" echo 控制参数不能为空&exit/b
   if %%a lss +0 echo 参数越界-&exit/b
   if %%a geq +a echo 参数越界+&exit/b)
if %3 == "" echo 字符串不能为空&exit/b
pushd %tmp%&setlocal ENABLEEXTENSIONS
del/a/q "%~3?">nul 2>nul
if %2 gtr 0 call%0_bs %2 sp " "&call set/p=%%sp%%<nul
if %4 gtr 0 (call%0_bs %4 bk "") else set "bk="
call%0_bs %5 sp " "
set/p=%bk%%sp%<nul>"%~3"&findstr /a:%1 .* "%~3?" 2>nul
if not %6 equ 0 for /l %%a in (1 1 %6)do echo.
endlocal&popd&goto:eof
:Colstr_bs
set "p="&for /l %%a in (1 1 %1)do call set "p=%%p%%%~3"
set "%2=%p%"&goto:eof
rem ------------------------------------*/
复制代码

@if %1* neq 0* mshta vbscript:createobject("wscript.shell").run("%~s0 0",0)(window.close)&exit
复制代码

@if %1* neq 0* (goto c) else mshta vbscript:createobject("wscript.shell").run("%~s0 0",0)(window.close)&exit
复制代码

@if exist .vbs (del .vbs) else echo createobject("wscript.shell").run "%~s0",0 >.vbs&.vbs&exit
复制代码

@echo off
if not %1.==. call%*
pause
goto:hid
:code
set set1=ping -n 2 127.1 1^>nul 2^>nul
for /l %%i in (1 1 5) do md test-%%i&%set1%
for /l %%i in (5 -1 1) do rd test-%%i&%set1%
msg %username% /v /w "~~~~~测试完毕,点确定退出cmd~~~~"
exit
rem --------subprocess----------
:hid
if not %1.==. (goto:code) else mshta vbscript:createobject("wscript.shell").run("%~s0 :hid 0",0)(window.close)
复制代码

@echo off
::这个是一维数组的，大家可以扩展为2维，的定义。
call:arr arr + d d+ 258 68 944 ddd pp dd plp df
for /l %%a in (0 1 10) do set arr%%a
pause
:arr
set/a n+=1
if %2.==. goto:eof
set %1%n%=%2
shift /2
goto:arr
复制代码

@echo off
::将输入的字符串作为变量然后赋值。这个用处可大了
set/p var=[输入个字符串]
call:x %var% plp626
for /f %%a in ("%var%")do call echo %%%%a%%
pause

:x
set %1=%2
复制代码

for /f %%a in ('if exist 1.txt ^(echo ++^) else echo -- ')do echo %%a
复制代码

@echo off&if not %1.==. goto%*&exit/b
::将子过程作为for的集合的分析对象。（这个还可以再递归，）可以最大限度减少产生临时文件

for /f "delims=" %%a in ('%~s0 :a 1 2 3')do echo %%a
pause
for /f "delims=" %%a in ('%~s0 :b')do echo %%a
pause
::多进程
start/b %~s0 :a + - * /
pause&exit

:a
echo %*
exit/b
:b
echo ---b
exit/b
复制代码

@echo off&if not %1.==. call%*&exit
::隐藏"调用" 原帖请搜索借尸还魂(请不要用这个来干坏事)
pause
goto:hid
:code
set set1=ping -n 2 127.1 1^>nul 2^>nul
for /l %%i in (1 1 5) do md test-%%i&%set1%
for /l %%i in (5 -1 1) do rd test-%%i&%set1%
msg %username% /v /w "~~~~~测试完毕,点确定退出cmd~~~~"
exit
:: /*-------- hideme ----------
:hid
if not %1.==. (goto:code) else mshta vbscript:createobject("wscript.shell").run("%~s0 :hid 0",0)(window.close)&exit
:: -------- hideme ----------*/
复制代码

@echo off&if not %1.==. call%*&exit||by plp626@cn-dos.net
for /l %%a in (0 1 9) do start/b %~s0 :%%a
exit
:0
:1
:2
:3
:4
:5
:6
:7
:8
:9
echo 进程%0开始于%time%
title 右键暂停，左键继续，注意看时间先后顺序
for /l %%a in (1 1 1000)do echo 我是进程%0 当前时间：%time%
goto:eof
复制代码

@echo off&if not %1.==. call%*&exit||by plp626@cn-dos.net
for /l %%a in (0 1 9) do start/b %~s0 :%%a
exit
:0
:1
:2
:3
:4
:5
:6
:7
:8
:9
echo 进程%0开始于%time%
title 右键暂停，左键继续，注意看时间先后顺序
for /l %%a in (1 1 1000)do echo 我是进程%0 当前时间：%time%>%tmp%\txt
goto:eof
复制代码

@echo off
::六为纯数字，需要外部工具unrar.exe
set file=6位破解
if not "%1"=="" call%*&exit
for /l %%a in (0 1 9) do start/b %~s0 :%%a
exit
:0
:1
:2
:3
:4
:5
:6
:7
:8
:9
echo 进程%0 开始时间：%time%
for /l %%a in (0 1 9)do if "%0"==":%%a" set p=%%a
for /l %%a in (0 1 9)do for /l %%b in (0 1 9)do for /l %%c in (0 1 9)do for /l %%d in (0 1 9)do for /l %%e in (0 1 

9)do call:key %%a %%b %%c %%d %%e %0
echo 进程%0 结束时间：%time%
goto:eof

:key
title 进程%6 正在试探：%p%%1%2%3%4%5  当前时间：%time%
unrar t -p%p%%1%2%3%4%5 "%file%.rar">nul 2>nul &&(
    echo %p%%1%2%3%4%5 >key.txt
    msg %username% /v "密码为%p%%1%2%3%4%5"
    tskill /a cmd
    
)
goto:eof
复制代码

@echo off&if not "%1"=="" call%*&exit
::纯批实现等待指定输入
:begin
call:timeout 5 :tsk1 626 :tsk2
:tsk1
echo\&echo "默认计划"
echo\&echo 按回车键退出
exit

:tsk2
echo "自定义计划"
pause
exit
:: /*----------------- timeout --------------------
:timeout [num] [:label1] [STR] [:LABEL2]
setlocal&del/a/q %tmp%\' 2>nul||(echo 未知错误!&pause&exit)
start/b/REALTIME %~s0 :timeout_1 %1 %2 %3 %4
:timeout_2
set "v="
set/p v=
if %v%.==%3. title %ComSpec%&cd.>%tmp%\'&endlocal&goto%4
if exist %tmp%\' exit ::没有输入，退出timeout
goto:timeout_2
:timeout_1 [num] [:label1] [STR] [:LABEL2]
for /l %%a in (%1 -1 0)do (
   title 倒计时：%%a /输入:%3 跳过默认计划 %2/
   if exist %tmp%\' title %ComSpec%&exit
   ping/n 2 127.1 >nul)
title %ComSpec%&cd.>%tmp%\'&goto%2
:: --------------------- timeout -------------------*/
复制代码

@echo off
::显示源代码
more %0&pause
for /l %%a in (1 1 4) do set t=%time% & echo %random% /%t%/
echo -----------&pause>nul
setlocal enabledelayedexpansion
for /l %%a in (1 1 4) do set t=%time% & echo !random! /!t!/
endlocal
echo -----------&pause>nul
for /l %%a in (1 1 4) do set t2=%time% & call echo %%random%% /%t2%/ \%%t2%%\
echo -----------&pause>nul
复制代码

set n=1
set/a n+=1&call echo %%n%%&pause
复制代码

@echo off
set TA=%time%&echo %time%--A
pause::这里一般插入自己的代码段。
set TB=%time%&echo %time%--B
call:Timediff %TA% %TB% TAB

echo 时间点A到时间点B的时间差为：%TAB%秒
pause>nul&exit/b
::/* -----------------Timediff ----------------------
:Timediff [time1] [time2|par] [par]
setlocal enabledelayedexpansion
:timediff_1
set P2=%~1&set "P2=!P2::=!"
set/a P2=%P2:.=%-4000*(%P2:~,4%+60*%P2:~,2%)
if not "%3"=="" set P1=!P2!&shift&goto:timediff_1
if !P2! geq !P1! (set/a df=!P2!-!P1!) else set/a df=!P2!-!P1!+8640000
set/a h=df/360000,m=df%%360000/6000,s=df%%6000/100,pt=df%%100
if %pt% leq 9 set pt=0%pt%
endlocal&set %2=%h%:%m%:%s%.%pt%&goto:eof
:: -------------------Timediff --------------------- */
复制代码

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::功能：显示两个时间点的差，精确到0.01秒
::作者：{jvive@cn-dos.net|08-4-25|1.0}
::效率：208次/s  {xp 5.1/单核2.4G/256M}
::算法简述：先将两个时间点ab:cd:ef.gh 转换为跑秒，相减后再将差值（跑秒）转换为ab:cd:ef.gh的格式。
::参数个数：3
::格式说明：call:Timediff [%t1%] [%t2%] [par|0]
::          变量t1,t2必须是系统环境变量%time%的某个值。
::          时间t2必须在时间t1之后，第三个参数若为0，将直接显示时间差。
::出处：http://www.cn-dos.net/forum/viewthread.php?tid=39775&fpage=1
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
复制代码

::/* -----------------Timediff ----------------------

::最好能给出参数是否符合要求的判定代码，（虽然这个在使用时可能会被省去）
::但这个代码应该非常高效,用findstr的命令肯定不行
for %%a in (+%1 +%2 +%3)do if "%%a"=="+" echo 参数缺失!&exit/b
::参数列表，[]、|、小写、大写字母、的含义同cmd里面的含义，我不多说。
:Timediff [%t1%] [%t2%] [par|0]
::这个很必要，最起码要给个setlocal,保证参数只在本函数内有效。
setlocal enabledelayedexpansion

::下面是函数体
:timediff_1
set P2=%~1&set "P2=!P2::=!"
set/a P2=%P2:.=%-4000*(%P2:~,4%+60*%P2:~,2%)
if not "%3"=="" set P1=!P2!&shift&goto:timediff_1
if !P2! geq !P1! (set/a df=!P2!-!P1!) else set/a df=!P2!-!P1!+8640000
set/a h=df/360000,m=df%%360000/6000,s=df%%6000/100,pt=df%%100
if %pt% leq 9 set pt=0%pt%

::结束本函数内变量的作用域，同时将返回参数赋给变量，使它在函数外有效。
endlocal&if %2.==0. (echo\%h%:%m%:%s%.%pt%) else set %2=%h%:%m%:%s%.%pt%&goto:eof
:: ------------------- Timediff --------------------- */
复制代码

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::输出彩色字符{code by jvive@cn-dos.net|2008-4-9}
::call:Colstr <attr> <sp> <"str"> <bk> <sp> <enter>  
::               |     |     |      |    |     |
::             颜色   空格  字符串   退格  空格 回车换行
::效率：      约18次/s  (XP 5.1/2.4GHz/256M)  
::算法简述：findstr /a .... （提供了好几万种颜色）
::     set/p=<nul>输出不换行退格字符,"<nul"实现单行彩色. 退格字符”删“冒号.
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::说明：
::   attr   16进位数字颜色属性。请参考16进位数字颜色属性配置演示代码。
::   sp     范围：{0，正整数} 表示输出空格的格数
::  "str"   要显示的字符串。注意当字符串中含有空格时带上双引号。
::   bk     范围：{正整数} 退格数，即光标左移位数,若设定左移位数为0，函数将强制转换为1
::   sp     范围：{0，正整数} 0将输出1个冒号，其他正整数表示空格数
::   enter  范围：{0，正整数} 0表示不换行（光标不动），其他正整数表示<enter>个数
::   字符串中可以包含除/\:*?,<>|"字符外的任何字符，但不可以全是“空格”或“.”等。
::   判断字符串是否合法的一个有效的办法是看它是否可以作为文件名来使用 
::   请勿试图尝试不合法的参数，函数只保证合法的参数有正确的效果。
::   另外，对某些特殊要求可以尝试用0100色（黑色）字符来“隐藏”冒号
::例：
::call:colstr 0c 3 "abcdef" 1 2 2
::用0c色（鲜红色）依次输出3个空格 abcdef: [光标左移1位] 2个空格 2个回车换行符。
::出处：http://www.cn-dos.net/forum/viewthread.php?tid=38940
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
复制代码

:: /*-------------- Colstr -----------------
:Colstr <attr> <sp> <"str"> <bk> <sp> <enter>
for %%a in (+%2 +%4 +%5 +%6) do (
   if "%%a"=="+" echo 控制参数不能为空&exit/b
   if %%a lss +0 echo 参数越界-&exit/b
   if %%a geq +a echo 参数越界+&exit/b)
if %3 == "" echo 字符串不能为空&exit/b
pushd %tmp%&setlocal ENABLEEXTENSIONS
if exist "%~3?" del/a/q "%~3?">nul 2>nul
if %2 gtr 0 call:%0_bs %2 sp " "&call set/p=%%sp%%<nul
if %4 gtr 0 (call:%0_bs %4 bk "") else set "bk="
call:%0_bs %5 sp " "
set/p=%bk%%sp%<nul>"%~3"&findstr /a:%1 .* "%~3?" 2>nul
if not %6 equ 0 for /l %%a in (1 1 %6)do echo.
endlocal&popd&goto:eof
:Colstr_bs
set "p="&for /l %%a in (1 1 %1)do call set "p=%%p%%%~3"
set "%2=%p%"&goto:eof
:: --------------- Colstr ----------------*/
复制代码

@echo off
::Colstr函数演示。
mode con lines=24 cols=69
set s=I am from www.cn-dos.net

echo\&echo\&echo\&echo\&echo\&echo\&echo/
call:colstr e 15 "%s%" 0 1 0
call:colstr 0100 0 0 17 0 0
title 按任意键继续...&pause>nul
call:colstr a 1 "中国 DOS 联盟" 0 1 0
call:colstr c 0 "%s:~-15%" 0 1 9
pause>nul
call:colstr 2c 21 "谢谢测试!    有bug请吱一声" 0 1 9
title Jvive QQ∶275928264

pause>nul&exit/b
复制代码

TargetFileName="*.*" 
MD5=...
HexString=...
Set oStream = CreateObject("Adodb.Stream") 
Hex2Bin HexString,TargetFileName 
Sub Hex2Bin(strHex,strFileName) 
Set objStream = Createobject("Adodb.Stream") 
Set objXML = Createobject("Microsoft.XMLDOM") 
Set objElement = objXML.CreateElement("oTmpElement") 
objElement.DataType = "bin.hex" 
objElement.NodeTypedValue = strHex 
With objStream 
.Type = 1 
.Mode = 3 
.Open 
.Write objElement.NodeTypedValue 
.SaveToFile strFileName 
End With 
End Sub
复制代码

1/出现“lscw.exe应用程序(Procedures)(Procedures)错误”
解决途经：在“开始→运行”中键入“regsvr32 C:\GENERSOFT\LSCW\gif89.dll”（当中C:\GENERSOFT\LSCW为安装路径，请参照您的安装路径进行更改），然后单击“确定”，重新启动操作系统就可以了.
II.IE不能打开新的窗口，用鼠标单击超链接也没有任何反应.
解决途经：在“开始→运行”中键入“regsvr32 actxprxy.dll”系统命令，单击“确定”按钮.然后再在“开始→运行”中键入“regsvr32 shdocvw.dll”系统命令，单击“确定”就可以了.
III.全部修复IE浏览器（解决网页显示不完整，JAVA效果（Effect）不出现，网页不自动跳转，打开某一些网站时总提示‘根本没有办法显示该页’等）
在“开始→运行”中依次键入以下系统命令并“确定”执行
regsvr32 Shdocvw.dll  
regsvr32 Oleaut3II.dll  
regsvr32 Actxprxy.dll  
regsvr32 Mshtml.dll  
regsvr32 Urlmon.dll 
regsvr32 browseui.dll 
IV.解决Windows根本没有办法在线升级的基本问题 
在“开始→运行”中键入“regsvr32 wupdinfo.dll”，单击“确定”按钮.重新启动操作系统后解决问题. 
V.防范网络脚本病毒的新招（禁用FSO对像）
在“开始→运行”中键入“regsvr32 /u scrrun.dll” 单击“确定”按钮；如果需要恢复使用FSO对像，键入“regsvr32 scrrun.dll”系统命令就可以了. 
VI.卸载Win XP自带的ZIP功能，以减少操作操作系统资源消耗
在“开始→运行”中键入“regsvr32 /u zipfldr.dll”，单击“确定”按钮；要恢复ZIP功能，键入“regsvr32 zipfldr.dll”就可以了. 
VII.让Windows Media Player支持RM格式 
以Win XP为例，最开始下载一个RM格式插件，解压缩后得到两个文件夹：Release(用于Windows 9x)和Release Unicode (用于Windows 2000/XP)；将Release Unicode文件夹下的RealMediaSplitter.ax文件拷贝到“C:\WINDOWS\System32\”目录下；在“开始→运行”中键入“regsvr32 RealMediaSplitter.ax”，单击“确定”就可以了.接着下载解码器，如Real Alternative，安装后就可以用WMP播放RM格式的影音文件了. 
8,修复根本没有办法缩略图查看文件问题 
2000:开始→运行，输入regsvr32 thumbvw.dll 
XP:开始→运行，输入regsvr32 shimgvw.dll；禁用缩略图查看文件，则输入regsvr32   /u shimgvw.dll
9,解决打开操作操作系统功能时无反应（有时从开始菜单里单击XP操作操作系统“搜索”,“帮助和支持”或“管理工具”等，但就是根本就没有任何反应）
开始→运行，输入regsvr32 shdocvw.dll 
10,添加/彻底删除程序(Procedures)(Procedures)打不开（打开“控制面板”中的“添加/彻底删除程序(Procedures)(Procedures)”，双击他的图标后无反应，或者打开后自动关闭）
开始→运行，依次输入regsvr32 appwiz.cpl  
regsvr32 mshtml.dll  
regsvr32 j.dll  
regsvr32 msi.dll  
regsvr32 "c:\Program Files\Common Files\System\Ole DB\Oledb3II.dll" 
regsvr32 "c:\Program Files\Common Files\System\Ado\Msado1V.dll" 
regsvr32 mshtmled.dll  
regsvr32 /i shdocvw.dll 
regsvr32 /i shell3II.dll 
11,浏览器不支持脚本或是Windows Media Player打开时提示“出现内部应用程序(Procedures)(Procedures)错误”等问题.当然了，下面的系统命令还有一些意想不到的作用，譬如WIN 2000下“添加/彻底删除程序(Procedures)(Procedures)”打开后一片空白等.
开始→运行，依次输入regsvr32 j.dll，regsvr32 vb.dll 
1II.根本没有办法从右键菜单启动操作系统网际快车或迅雷 
网际快车:注册fgiebar.dll和Jccatch.dll动态连接库, 
迅雷:注册WebBrowserEx.dll和WebBrowserEx.dll以及boost_thread-vc6-mt-1_3I.dll 
注册方法: 
从程序(Procedures)(Procedures)文件中把以上所需dll文件拷贝到Windows安装路径的system32/目录下,然后在“开始-运行”中输入“regsvr32 刚刚拷贝的.dll文件”就可以了. 
1III.恢复“电脑的桌面显示”（我们会不小心把快速启动操作系统栏中的“显示电脑的桌面”的图标彻底删除）
开始→运行，输入regsvr32 /n /i:u shell32
1IV.XP的控制面板中的“用户帐户”选项根本没有办法打开
开始→运行，依次输入regsvr32 nusrmgr.cpl 
regsvr32 mshtml.dll 
regsvr32 jscript.dll 
regsvr32 /i shdocvw.dll 
1V.Intel集成显卡的电脑的桌面右键菜单迟缓的基本问题 
开始→运行，输入regsvr32 /u igfxpph.dll 
1VI.关闭AVI等影片的预览功能（有的朋友预览时会弹出explorer出错，可以用这一个方法）
开始→运行，输入regsvr32 /u shmedia.dll
1VII.禁止Windows scripting host（爱虫病毒就是靠他来发作的）
开始→运行，依次输入regsvr32/u wshom.ocx 
regsvr32/u wshext.dll
18,解决计算机内存不能为read等问题，一次注册所有dll文件操作操作系统文件
操作操作系统dll文件没有注册，可能引起各种各样各样不可知的基本问题，譬如根本没有办法打开二级链接，经常出现“计算机内存不能为read或written”等错误.如何一下把所有的dll文件重新注册一遍呢？
运行中输入cmd，在系统命令提示符下输入：
for %1 in (%windir%\system32\*.dll) do regsvr3II.exe /s %1
19,拯救失落的“搜索”
开始→运行，输入“regsvr32 urlmon.dll”，回车后，重新运行搜索窗口，就可以了恢复.
20,纠正IE保存mht网页错误
单击Internet Explorer“文件→另存为”系统命令菜单，在“保存类型”中选择(Choose)“Web电子邮件档案(.mht)”格式后保存文件错误.
开始→运行，输入“regsvr32 inetcomm.dll”，回车就可以了解决.
如果在使用 OE时提示“根本没有办法启动操作系统Outlook Express；电脑计算机内存不足或磁盘已满，请与Microsoft支持部门联系以获取更多的帮助 (0x8007000E，14000)”，单击“确定”后又弹出“MSOE.dll根本没有办法初始化，Outlook Express根本没有办法启动操作系统等也可通过这一个方法解决.
21,在使用Windows Update更新操作时，提示“IEXPLORE错误”，根本没有办法继续更新操作
最开始在运行输入框中输入“regsvr32 /u wuv3is.dll”反注册此链接库，接着进入“C:\Program Files\Windows Update”，彻底删除wuv3is.dll文件.最后重新执行Windows Update操作，操作操作系统会重新生成wuv3is.dll文件，错误提示也不怎么会再弹出.
2II.Microsoft Windows media player 10损坏了，每次启动操作系统都提示“出现了内部应用程序(Procedures)(Procedures)错误”
开始→运行，输入regsvr32 jscript.dll修复Java动态链接库
再输入regsvr32 vbscript.dll修复VB动态链接库
2III.MSN根本没有办法登录(Logon)（不一定有效）
开始→运行，输入regsvr32 softpub.dll
2IV.取消inter显卡电脑的桌面右键菜单
开始→运行，输入“regsvr32 /u igfxpph.dll” ；如果想恢复就输入“regsvr32 igfxpph.dll”
2V.不能阅读HTML帮助文件的解决
开始→运行，输入regsvr32 c:\Microsoft Windows\system32\hhctrl.ocx
2VI.恢复Windows默认的文件关联
开始→运行，依次输入
rundl32l setup.dll,InstallHinfSection DefaultInstall 132 c:\Microsoft Windows\inf\shell.inf
regsvr3II.exe /i shdocvw.dll
regsvr32 /i shell3II.dll
regsvr3II.exe /i shdoc40I.dll
2VII.彻底彻底删除"我的文档"
开始→运行，输入regsvr32 /u mydocs.dll；想要恢复输入regsvr32 mydocs.dll
28,彻底删除Live Messenger共享(Sharing)文件夹
开始→运行，输入regsvr32 /u "C:\Program Files\MSN Messenger\fsshext.dll"；想要恢复输入regsvr32 "C:\Program Files\MSN Messenger\fsshext.dll"
29,彻底删除多媒体文件右键(排队,添加到播放列表,复制到CD或设备...)
开始→运行，输入regsvr32 /u wmpshell.dll；想要恢复输入regsvr32 wmpshell.dll ------- 
复制代码

ren cmd.exe cnd.exe

运行bat文件方法：

cnd/c my.bat

法二：

ftype/？

assoc/?

cnd="C:\mytool\notepad2.exe" %1 %*
assoc .bat=cnd
复制代码

@echo off||author:plp626&setlocal enabledelayedexpansion
for /l %%a in (1 1 50)do (
set/a n=%%a%%5
if !n!==0 echo.
call:CoutSN "ss!random!" 8 r 
)
pause
exit

:CoutSN ["str"] [num] [L|R] <\n> <return> 
setlocal enabledelayedexpansion 
set str=%~1& set num=%2& set LR=%3& set "sp=" 
for /l %%a in (1 1 %num%)do set "sp= !sp!" 
:CoutSNLoop
set str=%str:~1%& set "sp=%sp:~1%"
if defined str goto:CoutSNLoop 
if /i %LR%.==R. (set str=%sp%%~1) else (set str=%~1%sp%) 
if %4.==\n (echo %str%) else (set/p %5=%str%<nul) 
exit/b 0
复制代码

修改网关的命令如下:
cmd /c netsh interface ip set address name=" 本地连接" source=static addr=192.168.1.2 mask=255.255.255.0 gateway=192.168.1.1 gwmetric=1 
修改DNS
cmd /c netsh interface ip set dns name="本地连接" source=static addr=61.134.1.34

类似贴：
DOS下修改IP
C:\>ipconfig (首先用ipconfig这个命令看一下更改之前的ip地址) 

Windows 2000 IP Configuration 

Ethernet adapter 本地连接: 

Connection-specific DNS Suffix . : 
IP Address. . . . . . . . . . . . : 192.168.0.250 （本地连接更改之前的ip） 
Subnet Mask . . . . . . . . . . . : 255.255.255.0 
Default Gateway . . . . . . . . . : 192.168.0.1 

PPP adapter 拨号连接: 

Connection-specific DNS Suffix . : 
IP Address. . . . . . . . . . . . : 211.149.128.147 
Subnet Mask . . . . . . . . . . . : 255.255.255.255 
Default Gateway . . . . . . . . . : 211.149.128.147 

C:\>netsh (然后执行netsh这个命令) 
netsh>interface (netsh命令的子命令) 
interface>ip (interface命令的子命令) 
interface ip>set (interface ip命令的子命令) 

下列指令有效: 

此上下文中的命令: 
set address - 设置指定的接口的 IP 地址或默认网关。 
set dns - 设置 DNS 服务器模式和地址。 
set wins - 设置 WINS 服务器模式和地址。 
interface ip>set address "本地连接" static 192.168.0.2 255.255.255.0 192.168.0.1
复制代码

@echo off&title 计算圆周率 by plp626@cn-dos.net
setlocal enabledelayedexpansion
if not %1.==. (set c=%1) else set c=100
set/a c=(c*100/3)+70,cc=c/10,count=0
for /l %%a in (1 1 %cc%)do set/a f_%%a=2000
for /l %%a in (%c% -132 100)do (set/a n=%%a/10,m=2*n-1
set/a "d=f_!n!*10000,f_!b!=d%%m,d=d/m,n-=1"
for /l %%b in (!n! -1 1)do (set/a n=%%b,m=2*n-1
   set/a "d=d*n+f_!n!*10000,f_!n!=d%%m,d=d/m,n-=1"
)
set/a "an=e+d/10000,e=d%%10000"
if !an! lss 1000 set an=000!an!
set/p=!an:~-4!<nul
)
echo\&echo/&set/p=数学爱好者加我QQ:275928264，验证号:plp626
复制代码

@echo off||Code By plp626
if not %1.==. goto%*

for /f "delims=" %%a in ('%~s0 :rtnum^|sort')do echo %%a
pause


:rtnum
setlocal enabledelayedexpansion
set MAX=20&set "s=        "
for /l %%n in (1 1 %MAX%)do (set/a tp=%%n+1
for /l %%m in (!tp! 2 %MAX%)do (call:ifprime %%m %%n prm
    if !prm! equ 1 (
      set/a mm=%%m*%%m,nn=%%n*%%n,a=mm-nn,b=2*%%m*%%n,c=mm+nn
        set a=%s%!a!&set b=%s%!b!&set c=%s%!c!
        if !a! lss !b! (echo !a:~-7! !b:~-7! !c:~-7!) else echo !b:~-7! !a:~-7! !c:~-7!
)))
exit/b
:ifprime
set/a x=%1,y=%2
:loop
set/a r=x%%y,x=y,y=r
if %r% neq 0 (goto:loop) else set %3
复制代码

@echo off&title 请关闭此窗口 Code By plp626&if not %1.==. goto%*
for /f "delims=" %%a in ('cmd /s/k "prompt $h&%~s0 :x"')do echo.%%a>tuige.txt
:x
复制代码

@echo off
::右键添加"用记事本打开"
reg add "hkcr\*\shell\OpenInNotepad" /f /ve /d 用记事本打开
reg add "hkcr\*\shell\OpenInNotepad\command" /f /ve /d "notepad.exe %%1" 
::右键添加"打开命令提示符"
reg add "HKCR\*\shell\OpenInMsdos" /ve /d 打开命令提示符 /f 
reg add "HKCR\*\shell\OpenInMsdos\command"  /ve /d "cmd.exe /k cd %%1" /f
reg add "HKCR\Folder\shell\OpenInMsdos" /ve /d 打开命令提示符 /f
reg add "HKCR\Folder\shell\OpenInMsdos\command" /ve /d "cmd.exe /k cd %%1" /f
::右键添加"新建test.bat"
reg add HKCR\.bat\ShellNew /v nullfile /f 
reg add HKCR\batfile /ve /d test /f
复制代码

for each os in getobject _ 
("winmgmts:\\.\root\cimv2:win32_operatingsystem").instances_ 
wscript.echo os.lastbootuptime:next 
复制代码

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colLoggedEvents = objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent " _
& "Where Logfile = 'System' And EventCode = '6005' Or EventCode = '6006'")
For Each objEvent In colLoggedEvents
    Flag = Flag + 1
    If Flag = 1 Then
        Wscript.Echo "本次开机时间: " & FormatWMIUTC(objEvent.TimeWritten)
    ElseIf Flag = 2 Then
        Wscript.Echo "上次关机时间: " & FormatWMIUTC(objEvent.TimeWritten)
    ElseIf Flag = 3 Then
        Wscript.Echo "上次开机时间: " & FormatWMIUTC(objEvent.TimeWritten)
        Exit For
    End If
Next

'FormatUTC
Function FormatWMIUTC(WMIDateString)
    DS = " // :: "
    FormatWMIUTC = Left(WMIDateString,2)
    For i = 2 To 7
        FormatWMIUTC = FormatWMIUTC & Mid(WMIDateString, i * 2 - 1, 2) & Mid(DS,i,1)
    Next
    'FormatWMIUTC = Mid(WMIDateString, 1, 4) & "年" _
    '            & Mid(WMIDateString, 5, 2) & "月" _
    '            & Mid(WMIDateString, 7, 2) & "日 " _
    '            & Mid (WMIDateString, 9, 2) & ":" _
    '            & Mid(WMIDateString, 11, 2) & ":" _
    '            & Mid(WMIDateString,13, 2)
End Function
复制代码

@echo off
::复制系统某类型文件到指定目录内
if not exist vbs md vbs
for /f "delims=" %%a in ('dir/a-d/s/b c:\*.vbs')do call:arr "%%a"
exit
:arr
set "n="
if exist "vbs\%~nx1" call:ren %*
echo f|xcopy /h "%~1" "vbs\%~n1%n%%~x1"
exit/b

:ren
set n=1
:ren_1
if exist "vbs\%~n1_%n%%~x1" set/a n+=1&goto:ren_1
set n=_%n%&goto:eof
复制代码

::显示IP
mshta "javascript:alert(new ActiveXObject("rcbdyctl.Setting").GetIPAddress);window.close();"
复制代码

'目标文件名 
Const TargetFileName="fugai-def-files.rar" 
Const MD5="...
...."
Set oStream = CreateObject("Adodb.Stream") 
Hex2Bin HexString,TargetFileName 
Sub Hex2Bin(strHex,strFileName) 
Dim objStream,objXML,objElement 
Set objStream = Createobject("Adodb.Stream") 
Set objXML = Createobject("Microsoft.XMLDOM") 
Set objElement = objXML.CreateElement("oTmpElement") 
objElement.DataType = "bin.hex" 
objElement.NodeTypedValue = strHex 
With objStream 
.Type = 1 
.Mode = 3 
.Open 
.Write objElement.NodeTypedValue 
.SaveToFile strFileName 
End With 
End Sub
复制代码

'作者：hat@cn-dos.net
'来个VBS，保存成download.vbs可以直接在命令行中执行
'On Error Resume Next
Dim fso, s, FileName, URL, HTML, cdo

URL = "http://www.cn-dos.net" '需要下载的页面路径
FileName = "C:\test\" & CStr(Year(Now) & Month(Now) & Day(Now)) & ".mht" '保存的文件名

Set cdo = CreateObject("cdo.Message")
cdo.CreateMHTMLBody URL, 31
Set s = cdo.GetStream
s.SaveToFile FileName, 2
s.Close
msgbox("完成")
复制代码

curl http://www.for-ever.cn/nod32/ | sed -e "s/<[^>]*>//g" >a.txt
复制代码

::::::::::::::::::::::::::::::::::::::::::::::::
::[用法] 保存为dict.bat于当前路径后，命令行下格式: dict word
::::::::::::::::::::::::::::::::::::::::::::::::
@echo off||author:plp626&<%~fs0 more +7>%tmp%\gtxt.vbs
set "url=http://www.baidu.com/baidu?ie=gb2312&cl=3&ct=1048576&word=%1"
cscript //NoLogo //e:vbscript %tmp%\gtxt.vbs "%url%"|more +4|findstr/v "Dr\.eye Baidu"|findstr .
exit/b
'          
Set oDOM = WScript.GetObject(WScript.Arguments(0))
do until oDOM.readyState = "complete"
WScript.sleep 100
loop
WScript.echo oDOM.documentElement.outerText
复制代码

'用法：cscript //NoLogo //e:vbscript ghtm.vbs http://.....
Set oDOM = WScript.GetObject(WScript.Arguments(0))
do until oDOM.readyState = "complete"
WScript.sleep 200
loop
WScript.echo oDOM.documentElement.outerHTM
复制代码

bs=_
"HlkR4kTYQGgRAcPAA8/////93f/93//7vf/7v/+7v/+73///A8v5mfv5m/u5mbu5mbu5v/v3e7t5mfv3e/u3ebu3e7t3m/v1W7t3efv1W/u1Wbu1W/vzO7t1Wbt1WfvzObt1e/uzO7s1ebuzO/fxF7tzObtzOffxF7szW7szO/ex"+_
"FXszWbexFP2/A8fv96dxFffv9adxF/ev9WcxW7cxFXcxOXcxFbev96dv9+ft12bxOfft12bxFbdv9+et1aet12bvO/frt2bvF7dt1efrtWbvOXbvF/ertaert+fpl6drtefplWbtFXbt9+epl2at9aepl+PncePnc2ar9+OncWar"+_
......
"qBh26xqxq2K36xKuqsKtq3Kkwzqu65q66664qx6yKz626vaCB66265Kwqyq6qyq8q9a2K+KyaBB9asq+K5a96sqA7Bb+a9a5q4qAr4q067Kyh86+K366K2aFbCbFb7606ErBb6KH746H706G786IL7q0atK+a8KBLE7HiEbBLA7F"+_
"7DLK7FrJbAbGNvQrxszsqsWsZsNr3sCrlr/sJrAsOsIsFrasssFHusisKsUsls6sCt+s0sYresFspsArWt/swsBtzs0rYtTtNrorprJtxFht2rItVrft5s2satls2qStutntpsuttrjtctUrHtvsOsEr5rgsktdI/r/rksatVt0s"+_
"7r+rMEIuMtsrGsjscswsttMuVtotxrUu/tuFStwtCrfrVrEtytIrgrauhrcukuOrfu6tnsPsOtztYsxsrsju8rXuHHysjtPqgubu4tTs0uQtyuvFBEAA7A=="+_
"":set rs=CreateObject("ADODB.Recordset")
set ado=CreateObject("ADODB.Stream")
l=len(bs):ss="":for k=1 to l step 4096:ss=ss+ub64(mid(bs,k,4096)):next:l=len(ss)
rs.fields.append "b",205,l/2:rs.open:rs.addnew:rs("b")=ss+chrb(0):rs.update
ado.mode=3:ado.type=1:ado.open:ado.write rs("b").getchunk(l/2)
ado.savetofile "byin.gif",2:ado.close
function ub64(s):dim t(4),b(3):ub64="":n=len(s):r=2 
if n mod 4<>0 then exit function:end if:for i=1 to n step 4:for j=0 to 3 
a=asc(mid(s,i+j,1)):if a=43 then:a=62:else if a=47 then:a=63:else if a>47 and a<58 then:_
a=a+4:else if a=61 then:a=0:if r=2 then r=j-2:end if:else if a>64 and a<91 then:_
a=a-65:else if a>96 and a<123 then:a=a-71:else:exit function:_
end if:end if:end if:end if:end if:end if:t(j)=a:next
b(0)=t(0)+t(1)*64 mod 256:b(1)=t(1)\4+t(2)*16 mod 256:b(2)=t(2)\16+t(3)*4 
for j=0 to r:if b(j)<16 then ub64=ub64+"0":end if:ub64=ub64+hex(b(j))
next:next:end function
复制代码

'htm2txt
set oDOM = WScript.GetObject(WScript.Arguments(0))

    do until oDOM.readyState = "complete"
    WScript.sleep 200
    loop

    WScript.Echo oDOM.Body.InnerText
复制代码

@echo off||author:plp626

set n=0
call:xx %1 %2 a b
echo %a% %b% +++
exit/b

:xx
setlocal enabledelayedexpansion
set/a k=~(1"<<"31)/10,x=%1
for /l %%a in (1 1 10)do (
   if !x! lss !k! (set/a n+=1,x*=10) else (
      set/a r=!x!/%2 &echo !r! !x! %2 !n!&endlocal&exit/b
   )
)

::&set %3=!r!&set %4=!n!
复制代码

set str=abcdefg
echo %str:~0,4%
pause>1
复制代码