中国DOS联盟

: 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