是否能编一个自动升级批处理。。
来更新软件???
..
来更新软件???
..
联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
: downlb
::校验
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")::P.O^pen "GET","%1",0:P.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