|
|
发表于 2009-11-18 17:29:47
|
显示全部楼层
代码 脚本自动更新模块
模块中所有变量统一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 编辑 ] |
|