联盟域名: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