hitme批处理集合

rip.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©去别处，再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.           echo.4.查询WHO是主控域浏览器?           echo.           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与Ho