阅读(11.9k) 书签赞(0) 我要纠错

hitme批处理集合

2020-04-22 14:21 更新

此文本文档由pdf格式转换过来，由于转换的限制，

代码可能存在断行的情况，在使用的过程中请注意检查。

-----------------------------------------------------------------------------

1. CMD.mdb

1. 16<=>10

欲在cmd下转进制，自己搞加减乘除? 喝多了头疼死，算了

偷了把鸡，利用ping和set帮忙运算了一把

hoho，什么都不会，就会投机，巨人肩膀上一站，技术在那里？

用法: DxH 数字

例如:

DxH 1234567

DxH 0x1234fd3

@echo off

if "%1" "" goto :syntax

if "%1" "/?" goto :syntax

:H2D

set tmpx=%1

if "%tmpx:~0,2%" "0x" (

for /f "delims=" %%i in ('set /a %1') do (

echo.

echo %1 = %%i

goto :end

)

:D2H

setlocal ENABLEDELAYEDEXPANSION

for /f "tokens=2" %%i in ('ping %1 -n 1 -w 1 ^|find "Pinging"') do (

for /f "tokens=1-4 delims=." %%a in ("%%i") do (

set /a tmp1 = %%a / 16

set /a tmp2 = %%a - 16 * !tmp1!

set /a tmp3 = %%b / 16

set /a tmp4 = %%b - 16 * !tmp3!

set /a tmp5 = %%c / 16

set /a tmp6 = %%c - 16 * !tmp5!

set /a tmp7 = %%d / 16

set /a tmp8 = %%d - 16 * !tmp7!

for /l %%a in (1,1,8) do (

if !tmp%%a! 10 set tmp%%a=!tmp%%a:10=A!

if !tmp%%a! 11 set tmp%%a=!tmp%%a:11=B!

if !tmp%%a! 12 set tmp%%a=!tmp%%a:12=C!

if !tmp%%a! 13 set tmp%%a=!tmp%%a:13=D!

if !tmp%%a! 14 set tmp%%a=!tmp%%a:14=E!

if !tmp%%a! 15 set tmp%%a=!tmp%%a:15=F!

)

echo.

echo %1 = 0x!tmp1!!tmp2!!tmp3!!tmp4!!tmp5!!tmp6!!tmp7!!tmp8!

endlocal

:end

goto:eof

:syntax

cls

echo.

echo.DxH.cmd 16进制^<=^>10进制互转脚本. Written by hitme 2005.7.27

echo.

echo.用法: DxH 数字

echo.

echo.例如: DxH 1234567

echo. DxH 0x1234fd3

DxH.rar

2. CCF

attachment.rar

3. cmd

述求：有一个party，达到对到场人员，随机分组玩团队游戏的目的。。。

能够随意的输入姓名，输入完后，把随机分组排列的姓名显示在屏幕上

设姓名文本为name.txt,一个名字一行

分组规则为：4人一组

思路为：乱编号+编号排序=乱序，然后分组

随机空间大小为10的3次方,几十人的party应该够了吧

准备好name.txt,保存为xy.cmd运行,自定义修改红色部分

@echo off

for /f "delims=" %%i in (name.txt) do (

setlocal ENABLEDELAYEDEXPANSION

for /l %%a in (1,1,3) do (

echo %random% >nul

set m=!m!!random:~-1!

)

echo !m!!:%%i>>tmp.txt

endlocal

)

setlocal ENABLEDELAYEDEXPANSION

set /a num=0

set /a linenum=0

for /f "delims=" %%i in (tmp.txt) do set /a linenum=!linenum!+1

for /f "tokens=1,2* delims=: " %%i in ('sort tmp.txt ^| findstr /n

"."') do (

set n=%%k

set m=!m!!n!

set /a num=!num!+1

if !num! 4 (

echo !m!>>tmp1.txt

set /a num=0

set m=)

if "%%i" "!linenum!" (

if "!m!" neq "" echo !m!>>tmp1.txt)

)

endlocal

findstr /n "." tmp1.txt>list.txt

del tmp*.txt

start list.txt

xy.rar

4. cmd

cmd下的一些文本处理

开头跑个题，插播个广告，隆重推出，铛铛铛铛~~~，excel!excel!excel!

m$那个电子表格软件？提它做什么？这题太跑了吧?

做行文本处理！排序，过滤，中间插入，翻个身，倒个个，奇偶行交换，抽取

1，4，9..行，合并，交叉合并，首行填充奇数行，等等72变

相比xnix shell,各种文本编辑软件，决不逊色，入门还更容易，帮助文件更

为详尽，实为居家旅行，杀人越货的强手货，没有概念的赶紧试用。

使用时需要的仅仅是个思路。思路..思路很重要！

言归正传，还是cmd，用它做文本处理，只能算是勉为其难，凑合着用吧，常

做深呼吸，小心给"憋"着了

1.列表多个文本文件文件名+文件内容

2.构造001.txt 002.txt 999.txt 文本内容分别是text001 text002

3.构造http://..001|002|003../01|02|03.htm序列

4.将一堆文本形式的网址单独转换成IE收藏夹的快捷方式

5.将IE收藏夹导出为CSV格式文档

6.有txt文件all.txt 和 a.txt 里面存放的是文件列表，求出a.txt里面没有

，而all.txt里有的文件列表

7.文本文件中的单词实现全文自动统计并排序

8.统计一个文本文件中某一单词出现的次数？

9.GB和Maxthon群组转换

10.合并2个字幕文本文件

11.snap&compare 多个html的固定内容

1.列表多个文本文件文件名+文件内容

find /v "" *.txt >list.txt

*继续观察自带命令的有价值输出

------------------------------------------------------------

2.构造001.txt 002.txt 999.txt 文本内容分别是text001 text002

for /l %i in (1,1,9) do @echo text00%i >00%i.txt

for /l %i in (10,1,99) do @echo text0%i >0%i.txt

for /l %i in (100,1,999) do @echo text%i >%i.txt

*分段补零

-----------------------------------------------------------------

3.构造http://..001|002|003../01|02|03.htm文件,以下内容保存为.bat文件

执行

代码:

setlocal ENABLEDELAYEDEXPANSION

for /l %%i in (1001,1,1162) do for /l %%j in (101,1,112) do @(set

s=%%i && set t=%%j && echo ^<td^>^<a

href="http://www.sergeaura.net/TGP/!s:~1,3!/images/!t:~1,2!.jpg" rel="external nofollow" target="_blank" ^>!s

:~1,3!!t:~1,2!.jpg^</a^>^</td^> >>file.htm)

endlocal

*嵌套for，两组变量

*00x,0x序号构造，加减高位 ccfer su99原创

------------------------------------------------------------

4.将一堆文本形式的网址单独转换成IE收藏夹的快捷方式

for /f "tokens=1,2,3 delims=:/" %i in ('findstr /n "." 文本.txt') do

echo [InternetShortcut] >>%k_%i.url && echo url=http://%k

>>%k_%i.url

*没什么特别的

------------------------------------------------------------

5.将IE收藏夹导出为CSV格式文档,以下内容保存为.bat文件执行

代码:

for /f "tokens=1,3,4 delims=:" %%i in ('findstr /s "http" *.url') do

if %%k neq 0 (echo %%i,http:%%j:%%k >>list.csv) else echo

%%i,http:%%j >>list.csv

*findstr /s *.*得到文件相对路径，利用之

------------------------------------------------------------

6.有txt文件all.txt 和 a.txt 里面存放的是文件列表，求出a.txt里面没有

，而all.txt里有的文件列表

#有txt文件 all.txt 和 a.txt 里面存放的是文件列表,a.txt 是 all.txt 的

子集,求出a.txt里面没有，而all.txt里有的文件列表

for /f "delims=" %i in (all.txt) do @findstr /x /c:"%i" a.txt >nul

|| @findstr /x /c:"%i " b.txt >nul || @echo %i>>b.txt

*连续的||..||应用

------------------------------------------------------------

7.文本文件中的单词实现全文自动统计并排序

一个文本文件，每行有一个单词或字符串（有重复的），几千行。用word或

UE只能做到按字典顺序重新排列、或选中某词统计其个数。

有没有一种方法能自动统计每一不同单词的出现次数，并输出结果列表（加按

出现次数排序就更好了）。

源文件内容：

abc

adfg

aew

dew

abc

aew

adfg

abc

dew

adfg

ewq

abc

自动统计并排序后输出列表（假设）：

abc　　　　5

adfg　　　 3

aew　　　　2

dew　　　　2

ewq　　　　1

设输入文本为tmp

for /f "delims=" %i in (tmp) do @echo %i >> %i.txt

@findstr /n "." *.txt >tmp1

for /f "tokens=1-3 delims=:" %i in (tmp1) do @echo %k %j>%i

copy *.txt result.txt

*分类汇总,excel,awk。。不合用的时候，cmd顶住

*行号=数量

------------------------------------------------------------

8.统计一个文本文件中某一单词出现的次数？,以下内容保存为.bat文件执行

find_word.bat

代码:

@echo off

setlocal ENABLEDELAYEDEXPANSION

set /p file=请输入要查询的文件名:

set /p name=请输入要查询的单词:

set /a n=0

:loop

set /a n=n+1

for /f "tokens=%n% delims=,;.()[]{}!? " %%i in (%file%) do if /i %%i

equ %name% echo %name% >>%name%.txt

if %n% neq 255 (goto loop) else goto end

:end

for /f "delims=:" %%i in ('findstr /n "." %name%.txt') do set x=%%i

echo %name%出现的次数为:%x%

del %name%.txt

endlocal

*for进行单词匹配，慢死人的那种，纯属yy

------------------------------------------------------------

9.GB和Maxthon群组转换,以下内容保存为.bat文件执行

GB和Maxthon群组转.bat

代码:

@echo off

:common

setlocal ENABLEDELAYEDEXPANSION

findstr "CaptorGroup" *.cgp && goto max_gb || goto gb_max

:max_gb

rd /s/q gb_group

md gb_group

for %%i in (*.cgp) do echo [Group]>>gb_group\\%%i

for %%a in (*.cgp) do for /f "tokens=1-4 delims :" %%i in ('findstr

/n "=" "%%a " ') do set /a n=%%i-2 && echo

name!n!=%%j>>gb_group\%%a && echo ^url!n!=%%k:%%l>>gb_group\%%a

goto end

:gb_max

rd /s/q max_group

md max_group

for %%a in (*.cgp) do for /f "tokens=2 delims " %%i in ('findstr

"." "%%a " ') do echo %%i>>max_group\%%~na.txt

for %%a in (max_group\*.txt) do echo

[CaptorGroup]>>max_group\%%~na.cgp

for %%a in (max_group\*.txt) do for /f "tokens=1,2 delims=: " %%i in

('findstr "." "%%a " ') do if "%%i" neq "http" (set

n=%%i) else (if "%%i" "http" echo

!n!=http:%%j>>max_group\%%~na.cgp)

del /q max_group\*.txt

goto end

endlocal

:end

cls

echo 转换完成，请查看子目录

pause

exit

*两行并一行，一行拆两行

------------------------------------------------------------

10.合并2个字幕文本文件

合并2个字幕文本文件

原始文件1如下

代码:

00:00:17,920 --> 00:00:18,625

Charlie?

00:00:19,858 --> 00:00:20,606

Charlie?

00:00:21,635 --> 00:00:23,140

和我一块儿去散步怎样?

00:00:23,739 --> 00:00:24,456

不

00:00:24,972 --> 00:00:27,317

不，不去，Locke，今天我哪儿都不想去

原始文件2如下

代码:

00:00:17,820 --> 00:00:18,525

Charlie?

00:00:19,758 --> 00:00:20,506

Charlie?

00:00:21,535 --> 00:00:23,040

How about you and I go for a walk?

00:00:23,639 --> 00:00:24,356

No.

00:00:24,872 --> 00:00:27,217

No, thanks, Locke. I think I'm gonna stay in today.

要求合并后的文件如下

代码:

00:00:17,920 --> 00:00:18,625

Charlie?

00:00:19,858 --> 00:00:20,606

Charlie?

00:00:21,635 --> 00:00:23,140

和我一块儿去散步怎样?

How about you and I go for a walk?

00:00:23,739 --> 00:00:24,456

不

No.

00:00:24,972 --> 00:00:27,317

不，不去，Locke，今天我哪儿都不想去

No, thanks, Locke. I think I'm gonna stay in today.

想把中英文字幕合并起来，边看片子还可以边学学英文

其实软件上是可以同时加载2个字幕的，也可以实现要求

可是我现在看片子都是在Xbox上看，XBMC这个播放软件在同一时间只能支持一

个srt字幕，所以才会有此要求

设文件名为file1.txt file2.txt,以下内容保存为.bat文件执行

f.bat

代码:

del 1.txt 2.txt all.txt 合并后文档.txt

echo 加一行 >2.txt

type file2.txt >>2.txt

copy file1.txt 1.txt

:#源文件准备

findstr /n "." 1.txt 2.txt >tmp.txt

:#合并源文件并添加行号

for /l %%i in (1,1,500) do findstr /r "^1.txt:%%i:" tmp.txt

>>all.txt || findstr /r "^2.txt:%%i:" tmp.txt >>all.txt

:#分析,构造目标文件

for /f "tokens=3,* delims=:" %%i in (all.txt) do echo %%i%%j >>合并

后文档.txt

:#滤除多余信息

*交叉合并

------------------------------------------------------------

11.snap&compare 多个html的固定内容

有以下内容

http://www.abcd.com/pub/wrok1.html

http://www.abcd.com/pub/wrok2.html

http://www.abcd.com/pub/wrok3.html

...

http://www.abcd.com/pub/wrok(*).html

每个html，几乎整个html部分都是固定内容，除了我要监测的（文本方式打开

)第225行，第38位开始，75位结束这段，它们

有不定时的改变，所有html更新的部分也许不止这一个地方，但我只想监测这

一段

有没有软件或方法snap一次镜像，然后下次再snap后作出对上次snap的对比

，得出哪个url的html内容监测段作出了改变？

无错误控制,以下内容保存为.bat文件执行

snap&compare.bat

代码:

@echo off

del 差异.txt 2>nul

copy /y snap.txt snap_old.txt 1>nul

:#清理及悲愤snap

:snap

echo %date% %time% >snap.txt

:#加入时间戳

set url=http://www.abcd.com/pub/wrok

:#url变量赋值

for /l %%i in (1,1,100) do curl %url%%%i.html | findstr /n "." |

findstr /r "^225:" >>tmp.txt && echo %url%%%i >>tmp.txt

:#下载htm并过滤所需行

setlocal ENABLEDELAYEDEXPANSION

for /f "tokens=1* delims=:" %%i in (tmp.txt) do if "%%i" "http"

(echo %%i%%j !n! >>snap.txt) else set n=%%j

endlocal

:#整型快照

del tmp.txt

:#删除临时文件

:goto

if not exist snap_old.txt cls && echo 第一次建立快照文件

snap^.txt^,请再次运行snap^&compare^.cmd获取文件差异 && pause

&& goto end

:#判断是否存在对比快照，如不存在则不进行差异比较

:compare

findstr /n "." snap.txt >tmp1.txt

findstr /n "." snap_old.txt >tmp2.txt

:#为snap文本加入行号

for /l %%i in (2,1,100) do findstr /r "^%%i:" tmp1.txt tmp2.txt

>>tmp3.txt

:#以行号为序合并tmp文件

findstr /r "1:" tmp*.txt >>差异.txt

:#添加时间戳

setlocal ENABLEDELAYEDEXPANSION

for /f "tokens=1* delims=:" %%i in (tmp3.txt) do if %%i tmp1.txt

(set n=%%j) else (if %%j neq !n! echo %%j>>差异.txt)

endlocal

:#比较文本，计算差异行及行号

del tmp*.txt

:#清理临时文件

cls && echo 完成差异比较,请查看"差异.txt" &&

pause

end:

*两行并一行，相似文本比较

5. cmd

cmd下的一些文件处理:

1.保持文件夹结构，copy特定大小，时间，类型文件

2.保持文件夹结构，copy文件名，内容空

3.按文件数量移动文件到目标目录

4.copy某层(3..4..5)子目录下的文件到目标路径

5.删除文件夹中非某扩展名(如txt)的文件

6.copy不同文件夹下的同名文件到目标文件夹

7.同一文件copy到所有子文件夹中

8.处理所有扩展名为e??且不是exe的文件

9.每个文件生成一个同名文件夹，然后把各个文件拷贝到同名文件夹中

10.删除空文件夹

1.保持文件夹结构，copy特定大小，时间，类型文件

#特定类型

xcopy /s/y *.exe 目标路径

*很多单独的命令(dir;xcopy等)自身就富有变化，善用之

#特定大小

(例如小于50000字节，具体运算符号:EQU - 等于 NEQ - 不等LSS - 小于 LEQ

- NEQ - 不等于)

for /r %i in (*.*) do if %~zi lss 50000 xcopy /s "%i" 目标路径"%~pi"

*出动循环武器for命令，可与众多命令搭配使用，例如if,findstr,echo等等

*这里用它枚举子文件夹下的文件，%~zi扩冲为文件大小,交给if命令进行比较

运算，成功后xcopy至目标路径并copy文件夹

*for命令执行顺序)输入，for枚举，do...爱干吗干嘛

#特定时间

例:拷贝特定时间（2005-04-19）的文件,以下内容保存为.bat文件执行

代码:

setlocal ENABLEDELAYEDEXPANSION

for /r %%i in (*.*) do set dd=%%~ti && if "!dd:~0,8!" "05-04-19"

xcopy /s "%%i" 目标路径"%%~pi"

endlocal

*同上一条，还是for,if,xcopy,由于不能直接对for变量%~ti进行%~ti:~0,8这

样的扩展，变通一下,set给普通变量，再做扩展

*%var~:0,8%扩展的说明：两个数字表示偏移量和长度，具体参看set /?

*关于ENABLEDELAYEDEXPANSION延迟环境变量扩充，参看set /?,有实例说明

-----------------------------------------------

2.保持文件夹结构，copy文件名，内容空

xcopy /t/s *.* 目标路径

for /r %i in (*.*) do echoc >目标路径"%~pnxi"

*xcopy /t/s建立镜象文件夹，for /r in (*.*)枚举子文件夹中的文件，利用

echoc的bug,写入0字节文件

-----------------------------------------------

3.按文件数量移动文件到目标文件夹，以下内容保存为.bat文件执行

代码:

setlocal ENABLEDELAYEDEXPANSION

set /a n=0

:loop

set /a n=n+1

md 文件夹%n%

for %%i in (*.*) do move "%%i" 文件夹%n% & dir 文件夹%n% | findstr

/c:"100 个文件" && goto loop

endlocal

*需求将源文件夹中的文件,每100个移动至文件夹1..2..3

*for (*.*) do move一个 && 查找是否有100个了 && 找到跳出去,移动下

100个

-----------------------------------------------

4.copy某层(3..4..5)子目录下的文件到目标路径

#复制第3层文件夹下的文件到目标路径

dir /s/b/a:d >d.txt

for /f "tokens=1-4 delims=\" %i in (d.txt) do echo n | xcopy /e

"%i\%j\%k\%l" 目标路径

*dir 列出没有标题信息或摘要的子文件夹，并重定向到d.txt

*for /f ..(d.txt)，分析d.txt，交xcopy复制

*也可以直接用for /f ..('dir /s/b/a:d') do dir输出会被抓进内存，当作

文件分析。分两行写主要是考虑到文件夹复杂时的脚本效率

-----------------------------------------------

5.删除文件夹中非某扩展名(如txt)的文件

for /f "delims=/" %i in ('dir /b/s *.*') do dir /b/s *.txt | find

"%i" || del "%i"

*抓dir *.*的输出,在dir *.txt输出中查找,没找到则不是txt文件,删除之

*可扩充为非txt+jpg+gif的文件,不会眼花了

-----------------------------------------------

6.copy不同文件夹下的同名文件到目标文件夹

文件夹1下面有一个文件123.jpg

文件夹2下面也有一个文件123.jpg，文件名相同，内容不同

文件夹3下面也有一个文件123.jpg，文件名相同，内容不同

……

我想搜索所有的文件123.jpg，copy到一个目标文件夹下，但是我用搜索->复

制，出现后者覆盖前者的问题，只能保留一个文件123.jpg，有没有

办法把这些同名文件拷贝到相同文件夹下？或者是说如何自动重命名搜索到的

文件？

dir /s/b 123.jpg | find /n "123.jpg" >temp.txt

for /f "tokens=1,2 delims=[]" %i in (temp.txt) do copy "%j" d:\123-

"%i".jpg

*枚举所有123.jpg文件的完整路径,并加上行号重定向到temp.txt

*for /f () do copy 同时重命名为123_行号.jpg,行号不会重复,利用一下

-----------------------------------------------

7.同一文件copy到所有子文件夹中

for /r %a in (.) do xcopy /y filename "%~pa"

*for /r ..(.) do 只枚举文件夹

-----------------------------------------------

8.处理所有扩展名为e??且不是exe的文件

for %i in (*.e??) do if /i "%~xi" neq ".exe" echo %i

-----------------------------------------------

9.每个文件生成一个同名文件夹，然后把各个文件拷贝到同名文件夹中

for %i in (*.*) do md "%~ni" && copy %i "%~ni"

------------------------------------------------

10.删除空文件夹

for /l %a in (1,1,9) do for /r %i in (.) do rd %~si

6. cmdhtm

list.rar

1.rar

7. cmd

cmd一些其他应用

1.快速建用户和共享文件夹

2.让服务器在空闲时自动关机或休眠

3.通过FTP自动备份文件

4.扫描一个网段.用for和ping.然后得到存活主机把结果存为ip和ip之间用,隔

开

5.DOS下文件列表按文件名长度递增排列

6.远程关机

1.快速建用户和共享文件夹

又要给学生机房装机了

因为现在有这样的要求:

在教师上加用户 (A1、A2、……A7、B1……H7)（对应学生机）

在教师机上建目录共享（要对应机器.........）

就是要建A1目录给A1那台机用。

好繁啊，有什么好的介绍吗？

for %i in (a b c d e f h) do for /l %j in (1,1,7) do echo %i%j

>>name.txt

:#构造序号文件

for /f %i in (name.txt) do net user %i %i /add

:#天家用户

for /f %i in (name.txt) do md %i

:#建目录

for /f %i in (name.txt) do net share %i=盘符:\%i

:#共享目录

for /f %i in (name.txt) do cacls \%i /g %i:f administrator:f

:#配置权限，一路y回车，即可

*有for不繁

---------------------------------------------------------------

2.让服务器在空闲时自动关机或休眠

单位有一局域网，由于win2000的服务器代理上网，内网IP：192.168.0.*

因大家不定时上网，一般在后半夜便无人再使用网络，但也不能搞一刀切，不

能设定某个时间自动关机，现求一软件，能自动检测内网有无人开机，如果发

现在0点后，半个小时无人上网，服务器则自动关机（或休眠），我发现

poweroff软件无法实现这个功能。希望大家帮忙。

run.bat #计划任务 0：30分执行这个bat。每30分钟重复执行.注意别ping了

服务器,没测试过，不太可靠

以下内容保存为.bat文件执行

代码:

del reply.txt

echo 关机日志 > reply.txt

for /l %%i in (2,1,254) do ping -n 1 192.168.0.%%i | find "Reply"

>>reply.txt

find "Reply" reply.txt || shutdown

---------------------------------------------------------------

3.通过FTP自动备份文件

机器 A

D:\\aaa\a\ ——》a.rar

D:\\bbb\ ————》b.rar

每 2个小时自动生成一个RAR文件，存放到 D:\\bak\日期\时间\ 目录下

（D:\\bak\2005-01-04\02.00\）然后自动通过FTP传送到机器B（专用备份机

器）

请问谁能帮忙写个脚本谢谢。或者把压缩过程省略，直接传送文件夹也可以

?传送目录？flashfxp啊

以下内容保存为.bat文件执行

代码:

@echo off

path=%path%;c:\program files\winrar

:rar

set tdate=%date:~4,10%

set ttime=%time:~0,2%

mkdir "d:\bak\%tdate%\%ttime%"

rar a -r "d:\bak\%tdate%\%ttime%\a.rar" d:\aaa\*.*

rar a -r "d:\bak\%tdate%\%ttime%\b.rar" d:\bbb\*.*

:ftp

echo open ftp.hitme.com >ftp.txt

echo hitme >>ftp.txt

echo password >>ftp.txt

echo bin >>ftp.txt

echo hash >>ftp.txt

echo prompt >>ftp.txt

echo cd bak >>ftp.txt

echo lcd "d:\bak\%tdate%\%ttime%" >>ftp.txt

echo mkdir %tdate% >>ftp.txt

echo mkdir %tdate%/%ttime% >>ftp.txt

echo cd %tdate%/%ttime% >>ftp.txt

echo mput *.* >>ftp.txt

echo cd /bak >>ftp.txt

echo quit >>ftp.txt

ftp -s:ftp.txt

*echo 构造ftp.txt,利用了系统变量%date%,%time%的扩充形式

---------------------------------------------------------------

4.扫描一个网段.用for和ping.然后得到存活主机把结果存为ip和ip之间用,隔

开

for /l %i in (1,1,254) do @echo connecting 192.168.1.%i && @(for /f

"tokens=1,3 skip=2 delims=: " %j in ('ping 192.168.1.%i') do @if

'%j' 'Reply' @find "192.168.1.%i" list.txt > nul 2>nul || @echo

%k>>list.txt && @echo 192.168.1.%i connected)

*code by su99

*单行精品

---------------------------------------------------------------

5.DOS下文件列表按文件名长度递增排列

如果一个目录里面有如下四个文件(当然，实际中文件数量和文件名是随机的)

1.txt,2.txt,10.txt,20.txt

在DOS下要如何使用如何才能让他们按

1.txt

2.txt

10.txt

20.txt

输出，而非

1.txt

10.txt

2.txt

20.txt

输出？

我用的系统是xp~多谢大家～

for /l %a in (1,1,20) do @(if exist "%a.txt" echo %a.txt)

*思路是穷举。前提是文件名有一定规律：除了数字外的部分要一样，如果是

abc1.txt, xyz10.txt这样乱来，这个方法就不管用了（严格说，如果是有限

个不同的pattern，仍然可以做到，不过麻烦一些）

*code by su99

list.bat,以下内容保存为.bat文件执行

代码:

@echo off

set t=....

:loop

set t=%t%.

dir /b /a:-d | findstr /r "^%t%$"

if "%t%" "........................." goto end

goto loop

:end

*findstr/r "^.....$过滤排序

---------------------------------------------------------------

6.远程批量关机,以下内容保存为.bat文件执行

代码:

for /l %%i in (1,1,254) do @(arp -d & ping 192.168.3.%%i -n 1 -w 100

& arp -a | find "00-00-00-00-00-00" > nul || shutdown -m

\\192.168.3.%%i -s -f)

*关闭了icmp,照关

8. cmd

cmd中一些符号的说明：

最简单的组合命令，作用是连接n个命令，按顺序执行，不管是否有执行失败

。

a & b

#依次执行a,b

组合命令，与&命令不同之处在于，判断是否有执行失败，如失败将不继续执

行剩下的命令。

a && b

#a成功，b执行

作用与&&相反

a || b

#a失败，b执行

连着用a && b || c,表示a成功，则执行b，b失败，则执行c

>、>>

输出重定向命令，将命令的输出写入到一个文件中。

区别:>覆盖写入，>>尾部追加写入

echo a>a.txt

find /v "" *.txt >list.txt

管道命令，前一命令的输出作为后一命令的输入,常用于文本过滤操作

dir | find "hitme.exe"

9. cmdUnicode to ASCII

TYPE Unicode.txt > ASCII.txt

10. Curl-

CURL? 嗯，说来话长了~~~~

这东西现在已经是苹果机上内置的命令行工具之一了，可见其魅力之一斑

二话不说，先从这里开始吧！

curl http://www.yahoo.com

回车之后，www.yahoo.com 的html就稀里哗啦地显示在屏幕上了~~~~~

嗯，要想把读过来页面存下来，是不是要这样呢？

curl http://www.yahoo.com > page.html

当然可以，但不用这么麻烦的！

用curl的内置option就好，存下http的结果，用这个option: -o

curl -o page.html http://www.yahoo.com

这样，你就可以看到屏幕上出现一个下载页面进度指示。等进展到100%，自然

就OK咯

什么什么？！访问不到？肯定是你的proxy没有设定了。

使用curl的时候，用这个option可以指定http访问所使用的proxy服务器及其

端口： -x

curl -x 123.45.67.89:1080 -o page.html http://www.yahoo.com

访问有些网站的时候比较讨厌，他使用cookie来记录session信息。

像IE/NN这样的浏览器，当然可以轻易处理cookie信息，但我们的curl呢

？.....

我们来学习这个option: -D <-- 这个是把http的response里面的cookie信息

存到一个特别的文件中去

curl -x 123.45.67.89:1080 -o page.html -D cookie0001.txt

http://www.yahoo.com

这样，当页面被存到page.html的同时，cookie信息也被存到了

cookie0001.txt里面了

5）

那么，下一次访问的时候，如何继续使用上次留下的cookie信息呢？要知道

，很多网站都是靠监视你的cookie信息，

来判断你是不是不按规矩访问他们的网站的。

这次我们使用这个option来把上次的cookie信息追加到http request里面去：

-b

curl -x 123.45.67.89:1080 -o page1.html -D cookie0002.txt -b

cookie0001.txt http://www.yahoo.com

这样，我们就可以几乎模拟所有的IE操作，去访问网页了！

6）

稍微等等~~~~~我好像忘记什么了~~~~~

对了！是浏览器信息~~~~

有些讨厌的网站总要我们使用某些特定的浏览器去访问他们，有时候更过分的

是，还要使用某些特定的版本~~~~

NND，哪里有时间为了它去找这些怪异的浏览器呢！？

好在curl给我们提供了一个有用的option，可以让我们随意指定自己这次访问

所宣称的自己的浏览器信息： -A

curl -A "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" -x

123.45.67.89:1080 -o page.html -D cookie0001.txt

http://www.yahoo.com

这样，服务器端接到访问的要求，会认为你是一个运行在Windows 2000上的

IE6.0，嘿嘿嘿，其实也许你用的是苹果机呢！

而"Mozilla/4.73 [en] (X11; U; Linux 2.2; 15 i686"则可以告诉对方你是

一台PC上跑着的Linux，用的是Netscape 4.73，呵呵呵

7）

另外一个服务器端常用的限制方法，就是检查http访问的referer。比如你先

访问首页，再访问里面所指定的下载页，这第二次访问的referer地址就是第

一次访问成功后的页面地址。这样，服务器端只要发现对下载页面某次访问的

referer地址不是首页的地址，就可以断定那是个盗连了~~~~~

讨厌讨厌~~~我就是要盗连~~~~~！！

幸好curl给我们提供了设定referer的option： -e

curl -A "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" -x

123.45.67.89:1080 -e "mail.yahoo.com" -o page.html -D cookie0001.txt

http://www.yahoo.com

这样，就可以骗对方的服务器，你是从mail.yahoo.com点击某个链接过来的了

，呵呵呵

8）

写着写着发现漏掉什么重要的东西了！----- 利用curl 下载文件

刚才讲过了，下载页面到一个文件里，可以使用 -o ，下载文件也是一样。

比如， curl -o 1.jpg http://cgi2.tky.3web.ne.jp/~zzh/screen1.JPG

这里教大家一个新的option： -O

大写的O，这么用： curl -O

http://cgi2.tky.3web.ne.jp/~zzh/screen1.JPG

这样，就可以按照服务器上的文件名，自动存在本地了！

再来一个更好用的。

如果screen1.JPG以外还有screen2.JPG、screen3.JPG、....、

screen10.JPG需要下载，难不成还要让我们写一个script来完成这些操作？

不干！

在curl里面，这么写就可以了：

curl -O http://cgi2.tky.3web.ne.jp/~zzh/screen[1-10].JPG

呵呵呵，厉害吧？！~~~

9）

再来，我们继续讲解下载！

curl -O http://cgi2.tky.3web.ne.jp/~{zzh,nick}/[001-201].JPG

这样产生的下载，就是

~zzh/001.JPG

~zzh/002.JPG

...

~zzh/201.JPG

~nick/001.JPG

~nick/002.JPG

...

~nick/201.JPG

够方便的了吧？哈哈哈

咦？高兴得太早了。

由于zzh/nick下的文件名都是001，002...，201，下载下来的文件重名，后面

的把前面的文件都给覆盖掉了~~~

没关系，我们还有更狠的！

curl -o #2_#1.jpg http://cgi2.tky.3web.ne.jp/~{zzh,nick}/[001-

201].JPG

--这是.....自定义文件名的下载？

--对头，呵呵！

#1是变量，指的是{zzh,nick}这部分，第一次取值zzh，第二次取值nick

#2代表的变量，则是第二段可变部分---[001-201]，取值从001逐一加到201

这样，自定义出来下载下来的文件名，就变成了这样：

原来： ~zzh/001.JPG ---> 下载后： 001-zzh.JPG

原来： ~nick/001.JPG ---> 下载后： 001-nick.JPG

这样一来，就不怕文件重名啦，呵呵

9）

继续讲下载

我们平时在windows平台上，flashget这样的工具可以帮我们分块并行下载

，还可以断线续传。

curl在这些方面也不输给谁，嘿嘿

比如我们下载screen1.JPG中，突然掉线了，我们就可以这样开始续传

curl -c -O http://cgi2.tky.3wb.ne.jp/~zzh/screen1.JPG

当然，你不要拿个flashget下载了一半的文件来糊弄我~~~~别的下载软件的半

截文件可不一定能用哦~~~

分块下载，我们使用这个option就可以了： -r

举例说明

比如我们有一个http://cgi2.tky.3web.ne.jp/~zzh/zhao1.mp3 要下载（赵老

师的电话朗诵 :D ）

我们就可以用这样的命令：

curl -r 0-10240 -o "zhao.part1"

http:/cgi2.tky.3web.ne.jp/~zzh/zhao1.mp3 &\

curl -r 10241-20480 -o "zhao.part1"

http:/cgi2.tky.3web.ne.jp/~zzh/zhao1.mp3 &\

curl -r 20481-40960 -o "zhao.part1"

http:/cgi2.tky.3web.ne.jp/~zzh/zhao1.mp3 &\

curl -r 40961- -o "zhao.part1"

http:/cgi2.tky.3web.ne.jp/~zzh/zhao1.mp3

这样就可以分块下载啦。

不过你需要自己把这些破碎的文件合并起来

如果你用UNIX或苹果，用 cat zhao.part* > zhao.mp3就可以

如果用的是Windows，用copy /b 来解决吧，呵呵

上面讲的都是http协议的下载，其实ftp也一样可以用。

用法嘛，

curl -u name:passwd ftp://ip:port/path/file

或者大家熟悉的

curl ftp://name:passwd@ip:port/path/file

10)

说完了下载，接下来自然该讲上传咯

上传的option是 -T

比如我们向ftp传一个文件： curl -T localfile -u name:passwd

ftp://upload_site:port/path/

当然，向http服务器上传文件也可以

比如 curl -T localfile http://cgi2.tky.3web.ne.jp/~zzh/abc.cgi

注意，这时候，使用的协议是HTTP的PUT method

刚才说到PUT，嘿嘿，自然让老服想起来了其他几种methos还没讲呢！

GET和POST都不能忘哦。

http提交一个表单，比较常用的是POST模式和GET模式

GET模式什么option都不用，只需要把变量写在url里面就可以了

比如：

curl http://www.yahoo.com/login.cgi?user=nickwolfe&password=12345

而POST模式的option则是 -d

比如，curl -d "user=nickwolfe&password=12345"

http://www.yahoo.com/login.cgi

就相当于向这个站点发出一次登陆申请~~~~~

到底该用GET模式还是POST模式，要看对面服务器的程序设定。

一点需要注意的是，POST模式下的文件上的文件上传，比如

<form method="POST" enctype="multipar/form-data"

action="http://cgi2.tky.3web.ne.jp/~zzh/up_file.cgi">

</form>

这样一个HTTP表单，我们要用curl进行模拟，就该是这样的语法：

curl -F upload=@localfile -F nick=go

http://cgi2.tky.3web.ne.jp/~zzh/up_file.cgi

罗罗嗦嗦讲了这么多，其实curl还有很多很多技巧和用法

比如 https的时候使用本地证书，就可以这样

curl -E localcert.pem https://remote_server

再比如，你还可以用curl通过dict协议去查字典~~~~~

curl dict://dict.org/d:computer

今天就先讲到这里吧，呵呵。疯狂的curl功能，需要你---一起来发掘。

2004.08.24 21:24应朋友之邀所作--初稿

curl.rar

11. MT<->IE cmd

快捷组cgp->收藏夹url

conv_c_u.cmd

MT Groups目录下运行

代码

@echo off

setlocal ENABLEDELAYEDEXPANSION

for %%a in (*.cgp) do (

set pathu=ie_url\%%~na

md !pathu!

set /a n=0

for /f "skip=1 tokens=1* delims " %%i in (%%a) do (

if "%%i" "[Properties]" (set /a n=1) else (

if !n! 0 (

echo [InternetShortcut]>>"!pathu!\%%i".url

echo URL=%%j>>"!pathu!\%%i".url)

)

endlocal

收藏夹url->快捷组cgp

conv_u_c.cmd

IE_Favorites目录下运行

代码

@echo off

echo [CaptorGroup]>>url.cgp

for /f %%i in ('dir /b/ad') do (

echo [CaptorGroup]>>%%i.cgp

)

setlocal ENABLEDELAYEDEXPANSION

for /f "usebackq tokens=1,2* delims=\=" %%i in (`findstr /s /r

"^URL=" *.url^|findstr "\\"`) do (

set n=%%j

echo !n:~0,-8!=%%k>>%%i.cgp

)

for /f "usebackq tokens=1* delims=\=" %%i in (`findstr /s /r "^URL="

*.url^|findstr /v "\\"`) do (

set n=%%i

echo !n:~0,-8!=%%j>>url.cgp

)

endlocal

conv_c_u.rar

conv_u_c.rar

12. PingDNS

@echo off

if [%1] [] (

set ip=emptyType

set str=Address

) else (

set ip=%1

set str=Name

)

for /f "tokens=2" %%i in ('nslookup %ip% ^|findstr "%str%"') do

ping %2 %3 %%i

13. ping()

试玩一下，test by win2kchs,部分系统注意自行替换红色部分

用法：cmd下

sping ip/hostname

sping.rar

14. treehtm

进入目录，一层层点，嫌烦

tree命令只给看看。。不给点。。。我就是要点

tree命令的htm版

htm,css都没搞过，现学的，高手奸笑了

根目录下运行，测试，保存为tree_htm.cmd运行

@echo off

del tree.htm 2>nul

echo tree命令的htm版

echo.

echo by hitme 2005.7.3 hitme@xiahaixiao.com

echo.

echo 可直接点击进入6层内目录，完美主义者请自行修改

echo

echo.

echo 请稍候.............

>end.htm echo ^<head^>

>>end.htm echo ^<meta http-equiv="Content-Type" content="text/html^;

charset=gb2312" ^/^>

>>end.htm echo ^<style type="text/css"^>

>>end.htm echo ^<!--

>>end.htm echo a:active { text-decoration: none ; color: red ; font-

size: 12pt }

>>end.htm echo a:visited { text-decoration: none ; color: green ;

font-size: 12pt }

>>end.htm echo a:link { text-decoration: none ; font-size: 12pt }

>>end.htm echo --^>

>>end.htm echo ^</style^>

>>end.htm echo ^</head^>

>>end.htm echo ^<body^>

setlocal ENABLEDELAYEDEXPANSION

for /f "skip=2 delims=" %%i in ('tree') do (

set n=%%i

if "!n:~1,1!" ":" set n0=!n:~0,2!

if "!n:~1,1!" "─" (set n1=!n:~2!

set n2

set n3

set n4

set n5

set n6

set n7=)

if "!n:~4,1!" "─" (set n2=!n:~5!

set n3

set n4

set n5

set n6

set n7=)

if "!n:~5,1!" "─" (set n2=!n:~6!

set n3

set n4

set n5

set n6

set n7=)

if "!n:~7,1!" "─" (set n3=!n:~8!

set n4

set n5

set n6

set n7=)

if "!n:~8,1!" "─" (set n3=!n:~9!

set n4

set n5

set n6

set n7=)

if "!n:~9,1!" "─" (set n3=!n:~10!

set n4

set n5

set n6

set n7=)

if "!n:~10,1!" "─" (set n4=!n:~11!

set n5

set n6

set n7=)

if "!n:~11,1!" "─" (set n4=!n:~12!

set n5

set n6

set n7=)

if "!n:~12,1!" "─" (set n4=!n:~13!

set n5

set n6

set n7=)

if "!n:~13,1!" "─" (set n5=!n:~14!

set n6

set n7=)

if "!n:~14,1!" "─" (set n5=!n:~15!

set n6

set n7=)

if "!n:~15,1!" "─" (set n5=!n:~16!

set n6

set n7=)

if "!n:~16,1!" "─" (set n5=!n:~17!

set n6

set n7=)

if "!n:~17,1!" "─" (set n6=!n:~18!)

if "!n:~18,1!" "─" (set n6=!n:~19!)

if "!n:~19,1!" "─" (set n6=!n:~20!)

if "!n:~20,1!" "─" (set n6=!n:~21!)

set n=!n: =^ !

>>end.htm echo ^<a href="!n0!\!n1!\!n2!\!n3!\!n4!\!n5!\!n6!"

target="_blank"^>!n!^</a^>

>>end.htm echo ^</br^>

)

for /f "delims=" %%i in (end.htm) do (

set x=%%i

for /l %%a in (1,1,5) do (

set x=!x:\\=\!

)

echo !x!>>tree.htm

)

endlocal

del end.htm

start tree.htm

tree_htm.rar

15. wget

hxxp://www.sergeaura.net/TGP/001/images/01.jpg

...

hxxp://www.sergeaura.net/TGP/001/images/12.jpg

......

hxxp://www.sergeaura.net/TGP/162/images/01.jpg

...

hxxp://www.sergeaura.net/TGP/162/images/12.jpg

curl cmd下运行

curl -o #1_#2.jpg hxxp://www.sergeaura.net/TGP/[001-162]/images/[01-

12].jpg

wget+for......九阳神功，内功部分稍显复杂，打通2脉后，功力日进。保存

为get.cmd运行

setlocal ENABLEDELAYEDEXPANSION

for /l %%i in (1001,1,1162) do for /l %%j in (101,1,112) do @(

set s=%%i

set t=%%j

wget -O !s:~1,3!!t:~1,2!.jpg

hxxp://www.sergeaura.net/TGP/!s:~1,3!/images/!t:~1,2!.jpg)

endlocal

wget.zip

16.

for /r %I in (*.*) do echo %~fnI >> c:\列表.txt

简单: tree /f

17. QQ 3

1.查看长期没联系的QQ好友，方便删除比如3个月内没和你说话

设导出的混在一起聊天记录为qq.txt

-------------------------------------------

findstr "消息对象:" qq.txt >联系人.txt

for /f "tokens=2 delims=()" %i in (联系人.txt) do findstr "2004-0[5-

7]-" qq.txt ^ | find "%i"|| echo %i >>结果.txt

2.提取msn 联系人email列表方便导入邮件收发软件

设导出的文件为msn.ctt,list.csv为结果

for /f "tokens=3 delims=<>" %%i in (msn.ctt) do echo %%i >>list.csv

1，导出总谈话记录

2，为了最大兼容，把qq.txt拷贝到C盘根目录

3，运行 -CMD（XP）或者 windows 98 进入dos 状态

4，输入

findstr "消息对象:" qq.txt >联系人.txt

回车

5，输入

for /f "tokens=2 delims=()" %i in (联系人.txt) do findstr "2004-0[5-

7]-" qq.txt ^ | find "%i"|| echo %i >>结果.txt

回车

6，等待

引用回复

18. 357

吃完饭，mm要我给折腾个35选7的选号器，去试试运气，我运气很背的，买了

5,6w了，基本没中300以上过，写的东西不知道背不背

思路是：

构造1-35数字的文本行，每行一个，同时加上3位的随机数

例如

234:1

214:2

523:3

...

然后对此文本排序，取前7个数字，完成

年纪大了，两瓶啤酒下去，就有点晕了。。。有兴趣的试试

保存为35x7.cmd运行

@echo off

:start

del tmp.txt 2>nul

for /l %%i in (1,1,35) do (

setlocal ENABLEDELAYEDEXPANSION

for /l %%a in (1,1,3) do (

echo %random% >nul

set m=!m!!random:~-1!

)

echo !m!:%%i>>tmp.txt

endlocal

)

setlocal ENABLEDELAYEDEXPANSION

set /a num=0

for /f "tokens=2 delims=:" %%i in ('sort tmp.txt') do (

set n=%%i

set m=!m! !n!

set /a num=!num!+1

if !num! 7 echo 本期35选7的中奖号码是: !m:~1! && goto :save

)

:save

set /p x=保留号码至num.txt[y/n]

if /i [%x%] [y] (echo !m:~1!>>num.txt && endlocal && goto :start)

else (endlocal && goto :start)

35x7.rar

19.

保存为xx.cmd文档目录下运行，再次运行恢复

@echo off

setlocal ENABLEDELAYEDEXPANSION

for /f "delims=" %%i in ('dir /s/b *.doc') do (

set n=%%~ni

set r_name=%%~ni

set t_name

for /l %%a in (1,1,100) do (

set n1=!n:~0,1!

set n=!n:~1!

set t_name=!n1!!t_name!

if "!n!" "" (

cd "%%~dpi"

ren "!r_name!.doc" "!t_name!.doc" 2>nul>nul

)

endlocal

xx.rar

20. htm-----CMD

这是基础了。。。格式简单，构造起来较容易

cmd查查也方便如:help dir

有人需要就造个htm手册玩玩

保存为cmd_help.cmd运行

@echo off

del net_cmd_help.htm 2>nul

echo.

echo......请稍候，构造htm文件中.....

echo.

>cmd_help.htm echo ^<head^>

>>cmd_help.htm echo ^<title^>Help for Net commands^</title^>

>>cmd_help.htm echo ^<meta http-equiv="Content-Type"

content="text/html^; charset=gb2312" ^/^>

>>cmd_help.htm echo ^</head^>

>>cmd_help.htm echo ^<A NAME="Top"^>

>>cmd_help.htm echo ^<center^>

>>cmd_help.htm echo ^<h1^>CMD 命令速查手册^</h1^>

>>cmd_help.htm echo Written by Hitme

>>cmd_help.htm echo ^</center^>

>>cmd_help.htm echo ^<br^>

ver|find "Windows XP" && goto:joke

for /f "tokens=1*" %%i in ('help^|more +3') do (

help %%i>nul && echo ^<a href="#%%i"^>%%i^</a^>^ ^ %%j

>>cmd_help.htm || echo ^ ^ ^ ^  %%i

%%j>>cmd_help.htm

>>cmd_help.htm echo ^</br^>

)

for /f %%i in ('help^|more +3') do (

help %%i>nul && (

>>cmd_help.htm echo ^<a name="%%i"^>

>>cmd_help.htm echo ^<h2^>%%i^</h2^>

>>cmd_help.htm echo ^<pre^>

help %%i>>cmd_help.htm

>>cmd_help.htm echo ^</pre^>

>>cmd_help.htm echo ^<a href="#top"^>返回页首^</a^>

)

start cmd_help.htm

goto:eof

:joke

for /f "tokens=1*" %%i in ('help^|more +1') do (

help %%i>nul && echo ^ ^ ^ ^  %%i

%%j>>cmd_help.htm || echo ^<a

href="#%%i"^>%%i^</a^>^ ^ %%j >>cmd_help.htm

>>cmd_help.htm echo ^</br^>

)

for /f %%i in ('help^|more +1') do (

help %%i>nul || (

>>cmd_help.htm echo ^<a name="%%i"^>

>>cmd_help.htm echo ^<h2^>%%i^</h2^>

>>cmd_help.htm echo ^<pre^>

help %%i>>cmd_help.htm

>>cmd_help.htm echo ^</pre^>

>>cmd_help.htm echo ^<a href="#top"^>返回页首^</a^>

)

start cmd_help.htm

cmd_help.rar

21. htm-----Net

net /?

net view /help

查看太烦，倒腾个手册玩玩

保存为make.cmd运行

@echo off

del net_help.htm 2>nul

echo.

echo......请稍候，构造htm文件中.....

echo.

setlocal ENABLEDELAYEDEXPANSION

for /f "tokens=1,2 delims=:" %%i in ('net help^|more +9^|findstr /n

"."') do (

set n=%%j

if %%i gtr 0 (if %%i lss 10 (

echo !n:~3,22!>>tmp.txt

echo !n:~28,14!>>tmp.txt

echo !n:~50,14!>>tmp.txt

)

for /f "delims=" %%i in ('sort tmp.txt') do (

set x=%%i

set x=!x: =!

set x=!x:CONFIGWORKSTATION=CONFIG WORKSTATION!

set x=!x:CONFIGSERVER=CONFIG SERVER!

set x=!x:NET=NET !

echo !x!>>tmp1.txt

)

endlocal

>net_help.htm echo ^<head^>

>>net_help.htm echo ^<title^>Help for Net commands^</title^>

>>net_help.htm echo ^<meta http-equiv="Content-Type"

content="text/html^; charset=gb2312" ^/^>

>>net_help.htm echo ^</head^>

>>net_help.htm echo ^<A NAME="Top"^>

>>net_help.htm echo ^<center^>

>>net_help.htm echo ^<h1^>Net 命令速查手册^</h1^>

>>net_help.htm echo Written by Hitme

>>net_help.htm echo ^</center^>

for /f "delims=" %%i in (tmp1.txt) do (

>>net_help.htm echo ^<a href="#%%i"^>%%i^</a^>

>>net_help.htm echo ^</br^>

)

for /f "delims=" %%i in (tmp1.txt) do (

>>net_help.htm echo ^<a name="%%i"^>

>>net_help.htm echo ^<h2^>%%i^</h2^>

>>net_help.htm echo ^<pre^>

%%i /help|more /s>>net_help.htm

>>net_help.htm echo ^</pre^>

>>net_help.htm echo ^<a href="#top"^>返回页首^</a^>

)

del tmp*.txt

start net_help.htm

net_help.rar

make.rar

22. 297

@echo off

:start

setlocal ENABLEDELAYEDEXPANSION

:loop

del tmp.txt 2>nul

for /l %%i in (1,1,7) do (

echo %random% >nul

set /a m%%i=!random:~-1!+1

set /a m%%i=!m%%i!/4

set /a m%%i=!m%%i:~0,1!

echo %random% >nul

set /a n%%i=!random:~-1!

if !m%%i!!n%%i! 00 goto:loop

findstr /m "!m%%i!!n%%i!" tmp.txt 2>nul >nul && goto :loop

echo !m%%i!!n%%i!>>tmp.txt

)

endlocal

setlocal ENABLEDELAYEDEXPANSION

for /f %%i in ('sort tmp.txt') do (

set n=%%i

set m=!m! !n!

)

del tmp.txt

cls

echo.

echo.￥100000000000000000000000000000000000000000.00

echo.

echo. Hitme,29选7必中,号码是 !m!

echo.

echo.￥100000000000000000000000000000000000000000.00

echo.

set /p x=保留号码至num.txt[y/n]

if /i [%x%] [y] (echo !m!>>num.txt && endlocal && goto :start) else

(endlocal && goto :start)

29x7.rar

23. 6+1

@echo off

setlocal ENABLEDELAYEDEXPANSION

cls

del num.txt 2>nul

:loop

for /l %%i in (1,1,7) do (

echo %random% >nul

set n%%i=!random:~-1!

)

set num=%n1%%n2%%n3%%n4%%n5%%n6%%n7%

echo.

echo.***********************************

echo Hitme,6+1必中,号码是%num%

echo.***********************************

echo.

set /p x=保留号码至num.txt[y/n]

if /i %x% y (echo %num%>>num.txt && goto :loop) else (goto :loop)

endlocal

6+1.rar

24.

@echo off

:start

setlocal ENABLEDELAYEDEXPANSION

:loop_a

del tmp*.txt 2>nul

for /l %%i in (1,1,6) do (

echo %random% >nul

set /a s%%i=!random:~-1!

echo %random% >nul

set /a g%%i=!random:~-1!

if "!s%%i!" "0" (set /a _VAR_=!g%%i! / 3) else (set /a

_VAR_=!s%%i!!g%%i! / 3)

if "!_VAR_:~1,1!" "" set _VAR_=0!_VAR_!

findstr /m "!_VAR_!" tmp.txt 2>nul >nul && goto :loop_a

if "!_VAR_!" "00" (echo 33>>tmp.txt) else (echo !_VAR_!>>tmp.txt)

)

sort tmp.txt>tmp1.txt

endlocal

:loop_b

setlocal ENABLEDELAYEDEXPANSION

echo %random% >nul

set /a s=!random:~-1!

echo %random% >nul

set /a g=!random:~-1!

if "!s!" "0" (set /a _VAR_=!g! / 6) else (set /a _VAR_=!s!!g! / 6)

if "!_VAR_:~1,1!" "" set _VAR_=0!_VAR_!

echo ^|>>tmp1.txt

if "!_VAR_!" "00" (echo 16>>tmp1.txt) else (echo !_VAR_!>>tmp1.txt)

endlocal

:echo

setlocal ENABLEDELAYEDEXPANSION

for /f %%i in (tmp1.txt) do (

set n=%%i

set m=!m! !n!

)

del tmp*.txt

cls

echo.

echo.￥1000000000000000000000000000000000000000000.00

echo.

echo. Hitme,双色球必中,号码是 !m!

echo.

echo.￥1000000000000000000000000000000000000000000.00

echo.

:save

set /p x=保留号码至num.txt[y/n]

if /i [%x%] [y] (echo !m!>>num.txt && endlocal && goto :start) else

(endlocal && goto :start)

ab.rar

25. &

for windows2000+

@echo off

:run

for /F "tokens=2" %%i in ('netstat -e ^| find "Bytes"') do set

down1=%%i

for /F "tokens=3" %%i in ('netstat -e ^| find "Bytes"') do set

up1=%%i

ping -w 850 -n 1 1.1.1.1 2>nul >nul

for /F "tokens=2" %%i in ('netstat -e ^| find "Bytes"') do set /a

down=(%%i-%down1%)/1024

for /F "tokens=3" %%i in ('netstat -e ^| find "Bytes"') do set /a

up=(%%i-%up1%)/1024

cls

echo Down %down% KB

echo Up %up% KB

title %down% KB Down %up% KB Up

goto:run

--------------------------------------

@echo off

start /wait regedit /e tmp1.txt

"HKEY_LOCAL_MACHINE\SYSTEM\MountedDevices\"

for /f "tokens=3 delims=\:" %%i in ('find "\\DosDevices\\"

tmp1.txt') do echo %%i >>tmp2.txt

setlocal ENABLEDELAYEDEXPANSION

for %%i in (C D E F G H I J K L M N O P Q R S T U V W X Y Z) do find

"%%i" tmp2.txt 2>nul >nul|| set n=!n!:,%%i

echo freedrv=!n:~2!

endlocal

pause

att-1.rar

26. TOP10

可以利用ftp登录显示最近更新的东西，方便抓取特定目录到最近更新的目录

测试

用法,cmd下

t_ls /top数量目录名

1,以为if不能else，原来else (要带个空

2,%var:~n,m%

3,more +n| 去掉前几行，嘿，在管道里没有more作用

4,setlocal ENABLEDELAYEDEXPANSION ,在for里可以用累“加”了。

5,%var:string1=string2% 替换

6,!var! 用在delayedexpansion

@echo off

cls

echo.

echo.....列表中....请少等

echo.

if "%1" "" goto :syntax

if "%1" "/?" goto :syntax

if "%1" "/" goto :syntax

if "%1" "?" goto :syntax

if "%1" "/help" goto :syntax

setlocal ENABLEDELAYEDEXPANSION

:input

set n=%1

if "%n:~0,1%" "/" (

for /l %%i in (0,1,%n:~1%) do set var=!var! %%i:.

set m=%*

set m=!m:%n% =!) else (

for /l %%i in (0,1,10) do set var=!var! %%i:.

set m=%*

)

:head

(echo.^<head^>

echo.^<title^>列表目录下最新目录名TOP10^</title^>

echo.^<meta http-equiv="Content-Type" content="text/html^;

charset=gb2312" ^/^>

echo.^<style type="text/css"^>

echo.^<!--

echo.a:active { text-decoration: none ; color: red ; font-size: 12pt

}

echo.a:visited { text-decoration: none ; color: green ; font-size:

12pt }

echo.a:link { text-decoration: none ; font-size: 12pt }

echo.--^>

echo.^</style^>

echo.^</head^>

echo.^<h1^> 列表目录下最新目录名TOP10 ^</h1^>

echo. written by hitme 2005.9.3

echo.^</br^>)>list.htm

:list

for /f "delims=" %%i in ('dir "!m!\" /ad/b/tc/o-d^|more +0

') do (

(echo.-----------------------------------

echo.^</br^>

echo.^<a href="!m!\%%i"^>"!m!\%%i"^</a^>

echo.^</br^>

echo.^</br^>)>>list.htm

for /f "tokens=1-5* delims=: " %%a in ('dir "!m!\%%i"

/ad/tc/o-d^|more +5^|findstr /v /c:"<DIR> ."^|findstr /n

"."^|findstr /r /b "!var!"

') do (

if "%%f" neq "" (

>>list.htm echo.^<a href="!m!\%%i\%%f"^>%%a:

%%b %%c:%%d %%f^</a^>

>>list.htm echo.^</br^>)

)

start list.htm

endlocal

goto:eof

:syntax

cls

echo.

echo.T_ls.cmd

echo.

echo.written by hitme 2005.9.3

echo.

echo.用法:

echo. t_ls /top数量目录名

echo.

echo.例如:

echo. t_ls c:windows

echo. t_ls /20 c:

echo.

T_ls-1.rar

27.

renx.rar

28.

今天格了盘，忘了备绿色/准绿色程序的快截方式，目录进进出出实在烦

explorer搜索*.exe，右键拖出快捷方式，受到非入口exe的干扰，迷眼睛啊

想办法呀，想办法呀，cmd滤一下

两个策略:

1,枚举路径，如本层路径下存在有exe文件，则不深入到下一层

2,滤出上次访问时间最新的exe文件,就当它是入口吧，眼睛是我们宝贵的辩识

力量

偶然发现的好处:

1.发掘出了几个压箱底的东东

2.如本身有较好的分类，稍改下cmd，也能实现lnk的自动分类

@echo off

echo.

echo.批量跑出程序的快捷方式.cmd by hitme 2005.5.11

echo.

echo.稍等...

:P1

::***********************************************************

::#列表路径

::#滤镜1:路径下存在有exe文件

::#滤镜1:枚举路径，如本层路径下存在有exe文件，则不深入到下一层

::***********************************************************

setlocal ENABLEDELAYEDEXPANSION

for /f "delims=" %%i in ('dir /s/b *.exe ^| findstr /v /i

"shortcut\.exe$"') do (

find "%%~dpi" tmp.txt>nul || (

echo %%~dpi | find "!n!">nul || (

echo %%~dpi>>tmp.txt

set n=%%~dpi

)

endlocal

:P2

::***********************************************************

::#以P1路径列表为原料，继续加工

::#过滤上次访问时间最新的exe文件

::***********************************************************

for /f "delims=" %%i in (tmp.txt) do (

dir /ta "%%i*.exe" | sort /r | findstr /n "." |

findstr /r "^1:">>tmp1.txt

)

:P3

::***********************************************************

::#同行合并P1,P2=>list.txt

::***********************************************************

set /a N1=0

for /f %%i in (tmp.txt) do set /a N1+=1

for /l %%a in (1,1,%N1%) do (

for /f "tokens=1* delims=:" %%i in ('findstr /n "." tmp.txt

^|findstr /r "^%%a:"') do set dir=%%j

for /f "tokens=3*" %%i in ('findstr /n "." tmp1.txt ^|findstr /r

"^%%a:"') do set filename=%%j

setlocal ENABLEDELAYEDEXPANSION

echo !dir!!filename!

echo !dir!!filename!>>list.txt

endlocal

)

:shortcut

::***********************************************************

::#依据list.txt路径列表，创建link

::***********************************************************

pause

for /f "delims=" %%i in (list.txt) do (

shortcut -d %%~dpi "%%i"

)

:clean

::***********************************************************

::#打扫卫生

::***********************************************************

del tmp*.txt list.txt 2>nul

creat_shortcut.rar

29. n

copy自yesterday.vbs

搞不明白如何将vbs变量传递给cmd变量，算了，用

for...('cscript.exe..)..来取了

用法:cmd下

del_day 5

删除文件修改时间为5天前的文件，测试，删除操作务必谨慎

@echo off

>t_day.vbs echo ' Yesterday.vbs, Version 1.01

>>t_day.vbs echo '

>>t_day.vbs echo ' Written by Rob van der Woude

>>t_day.vbs echo ' http://www.robvanderwoude.com

>>t_day.vbs echo '

>>t_day.vbs echo ' Calculate yesterday's date

>>t_day.vbs echo dtmYesterday = DateAdd("d",-%1,Date)

>>t_day.vbs echo '

>>t_day.vbs echo ' Get yesterday's year

>>t_day.vbs echo strYear = DatePart("yyyy",dtmYesterday)

>>t_day.vbs echo '

>>t_day.vbs echo ' Get yesterday's month, add leading zero if

necessary

>>t_day.vbs echo If DatePart("m",dtmYesterday) ^< 10 Then

>>t_day.vbs echo strMonth = 0 ^& DatePart("m",dtmYesterday)

>>t_day.vbs echo Else

>>t_day.vbs echo strMonth = DatePart("m",dtmYesterday)

>>t_day.vbs echo End If

>>t_day.vbs echo '

>>t_day.vbs echo ' Get yesterday's day, add leading zero if

necessary

>>t_day.vbs echo If DatePart("d",dtmYesterday) ^< 10 Then

>>t_day.vbs echo strDay = 0 ^& DatePart("d",dtmYesterday)

>>t_day.vbs echo Else

>>t_day.vbs echo strDay = DatePart("d",dtmYesterday)

>>t_day.vbs echo End If

>>t_day.vbs echo '

>>t_day.vbs echo ' Format output for yesterday

>>t_day.vbs echo strYest = strYear ^& strMonth ^& strDay

>>t_day.vbs echo '

>>t_day.vbs echo ' echo

>>t_day.vbs echo Wscript.echo( strYest )

@echo on

for /f "delims=" %%i in ('cscript.exe //nologo t_day.vbs') do set

t_day=%%i

setlocal ENABLEDELAYEDEXPANSION

for /r %%i in (*.*) do set c_day=%%~ti && if

"!c_day:~0,2!!c_day:~3,2!!c_day:~6,2!" lss "%t_day:~2,6%" del /q

"%%i"

endlocal

cls

@echo

@echo 删除完毕.

@echo

30. “”

以明星写真为例；http://www.imagegarden.net/material/index.php?s

保存为.cmd运行，albumid从595到2210

@echo off

set /a _n_=595

:loop

curl -A "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" -o

tmp.txt

http://www.imagegarden.net/viewimage.php?s=^&cataid=4^&albumid=2202^

&imageid=8^&type=jpeg

for /f "tokens=4 delims &" %%i in ('findstr

"cataid=4&albumid=2202&imageid=8&type=jpeg" tmp.txt') do (

set _session_=%%i

)

set /a _n_=%_n_%+1

if %_n_% 2210 goto :clean

md %_n_%

del /q *.jpg 2>nul

:dl

for /l %%a in (1,1,9) do (

curl -A "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" -o

%_n_%_00%%a.jpg

http://www.imagegarden.net/image_a.php?imagesession=%_session_%^&cat

aid=4^&albumid=%_n_%^&imageid=%%a^&type=jpeg

for %%i in (%_n_%_*.jpg) do (

if %%~zi 11527 (goto :loop) else move *.jpg %_n_%

)

for /l %%a in (10,1,99) do (

curl -A "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" -o

%_n_%_0%%a.jpg

http://www.imagegarden.net/image_a.php?imagesession=%_session_%^&cat

aid=4^&albumid=%_n_%^&imageid=%%a^&type=jpeg

for %%i in (%_n_%_*.jpg) do (

if %%~zi 11527 (goto :loop) else move *.jpg %_n_%

)

for /l %%a in (100,1,999) do (

curl -A "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" -o

%_n_%_%%a.jpg

http://www.imagegarden.net/image_a.php?imagesession=%_session_%^&cat

aid=4^&albumid=%_n_%^&imageid=%%a^&type=jpeg

for %%i in (%_n_%_*.jpg) do (

if %%~zi 11527 (goto :loop) else move *.jpg %_n_%

)

:clean

for /r %%i in (.) do rd /q "%%i"

del /q *.jpg

del /q tmp.txt

dl-1.rar

31.

对象:

http://www.sophoto.cn/photopost/showgallery.php?si=&perpage=24&sort

1&cat=501&ppuser

目标:得到图片url,方便flashget批量下载

简单看下页面:连接有分大中小图,规模为12*41张左右

思路:

curl抓取41个缩略页面，分析出缩略图url

由于图片命名具有规律,缩掠与大图的区别在于结尾

thumb.gif -thumb.jpg =缩略图

.gif .jpg =大图

med.jpg =中图

这下更简单了,抓取时,替换部分url内容即可

保存为.cmd运行

需要curl

@echo off

curl -o #1.htm

http://www.sophoto.cn/photopost/showgallery.php?cat=501^&si=^&page=[

1-41]^&sort=1^&perpage=12^&password=0^&ppuser=^&what=^&name=^&

setlocal ENABLEDELAYEDEXPANSION

for /f "tokens=9 delims " %%i in ('findstr /r

"http://www\.sophoto\.cn/photopost/data/" *.htm') do (

set n=%%i

set n=!n:-thumb.gif" alt=.gif!

set n=!n:-thumb.jpg" alt=.jpg!

set n=!n:-thumb.jpeg" alt=.jpeg!

set n=!n:"=!

echo !n! >>list.txt

)

endlocal

del *.htm

start list.txt

list.txt

32.

下载www.sky-fire.com的100多部漫画

毛估有几十万张的漫画图片

需要curl

33.

述求：批量下载http://www.wulffmorgenthaler.com/中的每日图片

图片都是这个格式

http://www.wulffmorgenthaler.com/log/xxxxxxxxx.gif

开工：

1.找文件名规律，gif文件名有两位随机位，碰壁

2.查看htm文件

，http://www.wulffmorgenthaler.com/thestrip.asp?cDay=09&cMonth=05&cY

ear=2005，带年月日，有规律真好

3.列表年月日，备用

4.出动curl,下载htm,分析htm,下载gif

5.收工

保存为get_gif.cmd运行，自行修改红色部分，现表示下载前10天的gif文件

需要curl

@echo off

::/ * list date */

set /a n=0

:loop

set /a n+=1

>t_day.vbs echo ' Yesterday.vbs, Version 1.01

>>t_day.vbs echo '

>>t_day.vbs echo ' Written by Rob van der Woude

>>t_day.vbs echo ' http://www.robvanderwoude.com

>>t_day.vbs echo '

>>t_day.vbs echo ' Calculate yesterday's date

>>t_day.vbs echo dtmYesterday = DateAdd("d",-%n%,Date)

>>t_day.vbs echo '

>>t_day.vbs echo ' Get yesterday's year

>>t_day.vbs echo strYear = DatePart("yyyy",dtmYesterday)

>>t_day.vbs echo '

>>t_day.vbs echo ' Get yesterday's month, add leading zero if

necessary

>>t_day.vbs echo If DatePart("m",dtmYesterday) ^< 10 Then

>>t_day.vbs echo strMonth = 0 ^& DatePart("m",dtmYesterday)

>>t_day.vbs echo Else

>>t_day.vbs echo strMonth = DatePart("m",dtmYesterday)

>>t_day.vbs echo End If

>>t_day.vbs echo '

>>t_day.vbs echo ' Get yesterday's day, add leading zero if

necessary

>>t_day.vbs echo If DatePart("d",dtmYesterday) ^< 10 Then

>>t_day.vbs echo strDay = 0 ^& DatePart("d",dtmYesterday)

>>t_day.vbs echo Else

>>t_day.vbs echo strDay = DatePart("d",dtmYesterday)

>>t_day.vbs echo End If

>>t_day.vbs echo '

>>t_day.vbs echo ' Format output for yesterday

>>t_day.vbs echo strYest = strYear ^& strMonth ^& strDay

>>t_day.vbs echo '

>>t_day.vbs echo ' echo

>>t_day.vbs echo Wscript.echo( strYest )

for /f "delims=" %%i in ('cscript.exe //nologo t_day.vbs') do echo

%%i>>tmp.txt

if %n% neq 10 goto :loop

::/ * get htm&gif * /

for /f "delims=" %%i in (tmp.txt) do (

setlocal ENABLEDELAYEDEXPANSION

set n=%%i

curl -o !n!.htm

http://www.wulffmorgenthaler.com/thestrip.asp?cDay=!n:~-

2!^&cMonth=!n:~4,2!^&cYear=!n:~0,4!

for /f "tokens=4 delims " %%j in ('findstr "log" *.htm') do (

set m=%%j

curl -o !m:~5,-5! http://www.wulffmorgenthaler.com/!m:~1,-5!

)

del *.htm

endlocal

)

::/ * clean * /

del tmp.txt

get_gif.rar

34.

7.9更新，支持分次下载

http://automobile.2405.com/

这里面的汽车图片不错.想办法把它全部下载下来

测试下,保存为dl.cmd运行

需要curl

@echo off

setlocal ENABLEDELAYEDEXPANSION

for /f "tokens=2 delims " %%i in ('curl

http://automobile.2405.com/index.html ^|findstr

"automotive_catalog"') do (

set n=%%i

curl http://automobile.2405.com/!n:~1,-7! |findstr

"automobile_gallery" >tmp.txt

for /f "tokens=2 delims " %%a in (tmp.txt) do (

set m=%%a

curl http://automobile.2405.com/!m:~4,-7!/index.html |findstr "jpg"

>tmp1.txt

set x=!n:~1,-7!!m:~4,-7!

set x=!x:/=\!

md !x! 2>nul

for /f "tokens=2 delims " %%b in (tmp1.txt) do (

set l=%%b

if not exist "!x!\!l:~1,-10!" curl -o "!x!\!l:~1,-10!"

http://automobile.2405.com/!m:~4,-7!!l:~1,-10!

)

endlocal

del tmp*.txt

dl.rar

35. txt

有时候不太方便先cut&copy去别处，再del，又想要一点点自动化感觉的

cmd下

for /f "delims=/" %i in ('dir /b/s *.*') do dir /b/s *.txt | find

"%i" || del "%i"

需保留下数种类型？

例：保留txt rar

for /f "delims=/" %i in ('dir /b/s *.*') do dir /b/s *.txt *.rar|

find "%i" || del "%i"

36.

功能：挂接网络中某主机（例如:192.168.1.99)的全部共享为网络驱动器

用法:cmd下运行mntshare /?

net view \\ip的输出太过bt

共享名过长时列表错行，共享名含空格又造成for抓取困难(字段间隔非跳格键

,而是空格)

就是要搞翻它。。。

出个嗖招：利用了类型Disk字段定位，把文本行翻过来，替换，倒回去。。

呵呵，坚持，坚持就是胜利,测试下

顺便感慨下。。。裸奔cmd的文本替换能力太肉了..

想想还是吃饱了撑的， xp以后的系统都带自动扫描了，给2000顶一顶好了

@echo off

echo.主机%1共享挂接中.........

del tmp.txt 2>nul

if "%1" "" goto :syntax

if "%1" "/?" goto :syntax

if "%1" "/" goto :syntax

if "%1" "?" goto :syntax

if "%1" "/help" goto :syntax

setlocal ENABLEDELAYEDEXPANSION

for /f "delims=" %%i in ('net view \\%1 ^|more +7') do (

set n=%%i

set r_n

for /l %%a in (1,1,40) do (

if "!n!" "" set n

set n1=!n:~0,1!

set n=!n:~1!

set r_n=!n1!!r_n!

)

set r_n=!r_n:*ksiD=!

echo !r_n!>>tmp.txt

)

for /f "tokens=*" %%j in (tmp.txt) do (

set m=%%j

set r_m

for /l %%b in (1,1,40) do (

if "!m!" "" net use * "\\%1\!r_m!" /persistent:yes 2>nul >nul

set m1=!m:~0,1!

set m=!m:~1!

set r_m=!m1!!r_m!

)

endlocal

cls

echo.

echo.挂接主机%1共享完成。

echo.

net use |more +5

pause

del tmp.txt 2>nul

explorer /e

:syntax

cls

echo.

echo.mntshare.cmd 挂接网络共享cmd脚本

echo.

echo.written by hitme 2005.8.16

echo.

echo.用法:

echo.mntshare ip或者主机名

echo.

echo.例如:

echo.mntshare 192.168.1.99

echo.mntshare mycomputer

echo.

echo.删除挂接请使用 net use * /delete

echo.

pause

mntshare.rar

37. ()

闲来无聊，瞎搞个简易网络信息搜集

现包括

1.IP与Mac Address对应表

2.IP与Hostname对应表

3.IP与Workgroup对应表

4.查询WHO是主控域浏览器?

全部基于nbtstat命令，闹着玩

@echo off

setlocal

:menu

cls

mode con:cols=80 lines=25

title 网络信息搜集(简易)

color f2

echo.

echo.***********************

echo. 网络信息搜集(简易)

echo.***********************

echo.1.IP与Mac Address对应表

echo.

echo.2.IP与Hostname对应表

echo.

echo.3.IP与Workgroup对应表

echo.

echo.4.查询WHO是主控域浏览器?

echo.

echo.x.退出

echo.---------------------------------------------------------------

---

:input

set /p x=请选择项目号:

if /i "%x%" "x" goto :end

echo.

set /p y=请输入IP范围(例如:192.168.1.1-254):

for /f "tokens=1-5 delims=.-" %%a in ("%y%") do (

set ip=%%a.%%b.%%c

set n1=%%d

set n2=%%e

)

if "%x%" "1" goto :mac

if "%x%" "2" goto :hostname

if "%x%" "3" goto :group

if "%x%" "4" goto :msbrowse

endlocal

::------------------------------------------------------------------

-----------

:mac

setlocal

cls

mode con:cols=40 lines=40

color f4

title IP与Mac Address对应表

echo.IP ^<=^> MAC Address's Table

echo.

(

echo.IP ^<=^> MAC Address's Table

echo.

) >mac.txt

for /l %%i in (%n1%,1,%n2%) do (

ping -n 1 -w 1 %ip%.%%i |find "Reply" >nul 2>nul && (

for /f "tokens=2 delims " %%a in ('nbtstat -a "%ip%"."%%i"^|findstr

/c:"MAC Address"') do (

echo.%ip%.%%i%%a

echo.%ip%.%%i%%a>>mac.txt

)

findstr /n "." mac.txt |findstr /r "^3:" && start mac.txt

endlocal

goto :menu

::------------------------------------------------------------------

----------

:hostname

setlocal

cls

mode con:cols=40 lines=40

color f5

title Ip与Hostname对应表

echo.IP ^<=^> Host_name's Table

echo.

(

echo.IP ^<=^> Host_name's Table

echo.

) >hostname.txt

for /l %%i in (%n1%,1,%n2%) do (

ping -n 1 -w 1 %ip%.%%i |find "Reply" >nul 2>nul && (

for /f %%b in ('nbtstat -a "%ip%"."%%i"^|findstr /r /c:"\<20\>

UNIQUE"') do (

echo.%ip%.%%i%%b

echo.%ip%.%%i%%b>>hostname.txt

)

findstr /n "." hostname.txt |findstr /r "^3:" && start hostname.txt

endlocal

goto :menu

::------------------------------------------------------------------

------------

:group

setlocal

cls

mode con:cols=40 lines=40

color f1

title IP与Workgroup对应表

echo.IP ^<=^>Group Name's Table

echo.

(

echo.IP ^<=^>Group Name's Table

echo.

) >group.txt

for /l %%i in (%n1%,1,%n2%) do (

ping -n 1 -w 1 %ip%.%%i |find "Reply" >nul 2>nul && (

for /f %%c in ('nbtstat -a "%ip%"."%%i"^|findstr /r /c:"\<00\>

GROUP"') do (

echo.%ip%.%%i%%c

echo.%ip%.%%i%%c>>group.txt

)

findstr /n "." group.txt |findstr /r "^3:" && start group.txt

endlocal

goto :menu

:msbrowse

cls

title 查询WHO是主控域浏览器?

echo.查询中.........

for /l %%i in (%n1%,1,%n2%) do (

ping -n 1 -w 1 %ip%.%%i |find "Reply" >nul 2>nul && (

nbtstat -a %ip%.%%i|findstr "__MSBROWSE__" 2>nul >nul && (

echo.主控域浏览器是:%ip%.%%i

pause

goto :menu

)

cls

echo.未找到......汗 & pause & goto:menu

:end

cls

echo.

echo.written by hitme 2005.08.18

pause

goto :eof

net_Tab.rar

38. cmd

39.

闲来无聊，瞎搞一个，测试

功能：统计每个单词在文本中出现的次数

用法:

cmd下

word_num 文件名

统计结果样式：

0152 fixed

0108 added

0094 in

0091 to

0070 will

0069 not

0062 problem

0059 the

0056 bar

0054 support

0054 at

0053 and

0050 for

0047 menu

0046 tab

0042 when

0041 new

0040 option

0040 changed

0038 myie2

0037 plugin

0036 favorite

0035 toolbar

0035 on

代码

@echo off

cls

echo.

echo.-----------------------------

echo....统计中.....请少等...

echo.-----------------------------

echo.

if "%*" "" goto :syntax

if "%*" "/?" goto :syntax

if "%*" "/" goto :syntax

if "%*" "?" goto :syntax

if /i "%*" "/help" goto :syntax

:: /* 拆解文本为每行一单词 */

setlocal ENABLEDELAYEDEXPANSION

del end.txt tmp*.txt 2>nul

set /a m=0

:loop

set /a m+=1

for /f "tokens=%m% delims=.,:;/[]()!'@=\<> " %%i in (%*) do (

set n=%%i

set n=!n:"=!

echo.1 !n!>>tmp.txt

)

if "%m%" "200" goto:add

goto:loop

endlocal

:add

:: /* 分类汇总 */

setlocal ENABLEDELAYEDEXPANSION

for /f "tokens=1,2" %%i in ('sort tmp.txt^|findstr /r "^1\ [a-z][A-

Z]"') do (

if /i "!y!" "%%j" (

set /a x+=1) else (if "!x!" neq "" (

if !x! lss 10 (echo.000!x! !y!>>tmp1.txt) else (

if !x! lss 100 (echo.00!x! !y!>>tmp1.txt) else (

if !x! lss 1000 (echo.0!x! !y!>>tmp1.txt))))

set y=%%j

set x=%%i)

)

if !x! lss 10 (echo.000!x! !y!>>tmp1.txt) else (

if !x! lss 100 (echo.00!x! !y!>>tmp1.txt) else (

if !x! lss 1000 (echo.0!x! !y!>>tmp1.txt)))

endlocal

sort /r tmp1.txt>tmp2.txt

:ex

:: /* 大写转小写 */

setlocal ENABLEDELAYEDEXPANSION

for /f "delims=" %%i in (tmp2.txt) do (

set ex=%%i

set ex=!ex:A=a!

set ex=!ex:B=b!

set ex=!ex:C=c!

set ex=!ex:D=d!

set ex=!ex:E=e!

set ex=!ex:F=f!

set ex=!ex:G=g!

set ex=!ex:H=h!

set ex=!ex:I=i!

set ex=!ex:J=j!

set ex=!ex:K=k!

set ex=!ex:L=l!

set ex=!ex:M=m!

set ex=!ex:N=n!

set ex=!ex:O=o!

set ex=!ex:P=p!

set ex=!ex:Q=q!

set ex=!ex:R=r!

set ex=!ex:S=s!

set ex=!ex:T=t!

set ex=!ex:U=u!

set ex=!ex:V=v!

set ex=!ex:W=w!

set ex=!ex:X=x!

set ex=!ex:Y=y!

set ex=!ex:Z=z!

echo.!ex!>>end.txt

)

del tmp*.txt

start end.txt

:syntax

cls

echo.

echo.word_num.cmd

echo.

echo.written by hitme 2005.9.2

echo.用法：

echo.word_num 文件名

echo.

echo.例如:

echo.word_num License.txt

echo.

统计中文字的，用法同顶楼，想

办法搞成竖排一列,试试

代码:

@echo off

setlocal ENABLEDELAYEDEXPANSION

for /f "delims=" %%i in (%1) do (

set n=%%i

echo.!n!>tmp.txt

echo.x>>tmp.txt

for /f "tokens=1 delims=:" %%a in ('findstr /o "x"

tmp.txt') do set lenth=%%a

for /l %%a in (0,1,!lenth!) do (

set m=!n:~%%a,1!

if "!m!" neq "" echo.1 !m!>>tmp1.txt

)

:add

for /f "tokens=1,2" %%i in ('sort tmp1.txt') do (

if "!y!" "%%j" (

set /a x+=1) else ( if "!x!" neq "" (

if !x! lss 10 (echo.000!x!

!y!>>tmp2.txt) else (

if !x! lss 100 (echo.00!x!

!y!>>tmp2.txt) else (

if !x! lss 1000 (echo.0!x!

!y!>>tmp2.txt))))

set y=%%j

set x=%%i)

)

if !x! lss 10 (echo.000!x! !y!>>tmp2.txt) else (

if !x! lss 100 (echo.00!x! !y!>>tmp2.txt) else (

if !x! lss 1000 (echo.0!x! !y!>>tmp2.txt)))

endlocal

sort /r tmp2.txt>end.txt

del tmp*.txt

start end.txt

word_num.rar

40. sample

设源文件为text.txt

欲替换problem为hitme,最简单的替换

代码:

setlocal ENABLEDELAYEDEXPANSION

for /f "delims=" %%i in (text.txt) do set n=%%i && set

m=!n:problem=hitme! && echo !m! >>replace.txt

endlocal

start replace.txt

att-2.rar

41. usb&

请谨慎使用

devcon挺好使的，就为推荐它

@echo off

for /f %%i in ('devcon findall ^=usb ^| find ":"') do devcon remove

"@%%i"

for /f %%i in ('devcon findall usb* ^| find ":"') do devcon remove

"@%%i"

devcon rescan

renew_usb.rar

以上内容是否对您有帮助：

← for语句中的几种分隔符形式

Norton Ghost批处理命令用法详细介绍 →

写笔记

我要补充