sl543001

报名,留一行代码:  对for的使用这行代码应该就行了,其他的使用见楼下
(ping baidu 并记录ping值到变量)

for /f "tokens=1,2,3,4,5,6" %%a in ('ping www.baidu.com -n 1^|find "time="') do if not "%%e" == "" set b%%e
复制代码

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

建议多在论坛帮助他人解决实际问题，让大家了解你的批处理水平以及乐于助人的精神。

Batcher

sl543001

模块中所有变量统一soyd开头,标签统一down开头,临时文件放入%tmp%目录
可以直接添加到各种脚本中用,使之具有自动更新功能(当然,你必须有自己的服务器才可以)
服务器端必须有对应的列表文件和新版的脚本,更新后可以到%tmp%\downLB.txt查看列表文件

: downlb
::校验
::版本
set soydb=1.20
::服务器地址
set soydw=http://down.lpfcn.cn/cmddown/
::被更新文件名
set soydm=默认网关.cmd
call :downvb %soydw%downLB.txt %tmp%\downLB.txt
if exist %tmp%\downLB.txt for /f "eol=# tokens=1" %%a in (%tmp%\downLB.txt) do set soyd%%a &&if "%%a" == "mz=%soydm%" goto :downgx
goto :EOF
:downvb
::下载 添加^符号防误杀
echo on error resume next:Set P=Crea^teObject("Microsoft.XMLHTTP"):.O^pen "GET","%1",0.Send()::Set G=Cre^ateObject("ADODB.Stream")>%tmp%\tmp.vbs
echo G.Mode=3:G.Type=1:G.Open()::G.Wr^ite(P.response^Body):G.SaveToFile "%2",2 >>%tmp%\tmp.vbs
call %tmp%\tmp.vbs
goto :EOF
:downgx
::更新
if %soydb2% gtr %soydb% (
call :downvb %soydw%%soydwj% %soydwj%
if exist %soydm% del %soydm%
ren %soydwj% %soydm%
if exist %soydm% echo :%soydgxcg%
%soydm%
)
echo :%soydgxsb%
%0
复制代码

[ 本帖最后由 sl543001 于 2009-11-18 17:34 编辑 ]