@echo off
set dowhosts="%temp%\dowhosts.vbs"
set hosts0=https://coding.net/u/idoog/p/apkdbup/git/raw/master/down
set hosts1=https://coding.net/u/idoog/p/apkdbup/git/raw/master/Changes
mode con lines=31 cols=79
cls
cd /d "%~dp0"
color 0e
ECHO.
ECHO.==============================================================================
ECHO.
ECHO. 
ECHO. 
ECHO.                           正在检测可更新版本
ECHO.                       (Testing updatable version)
ECHO.
ECHO. 
ECHO.
echo Sub download(url,target) > %dowhosts%
echo 	Const adTypeBinary = 1 >> %dowhosts%
echo 	Const adSaveCreateOverWrite = 2 >> %dowhosts%
echo 	Dim http,ado >> %dowhosts%
echo 	Set http = CreateObject("MSXML2.ServerXMLHTTP") >> %dowhosts%
echo 	http.open "GET",url,False >> %dowhosts%
echo 	http.send >> %dowhosts%
echo 	Set ado = createobject("Adodb.Stream") >> %dowhosts%
echo 	ado.Type = adTypeBinary >> %dowhosts%
echo 	ado.Open >> %dowhosts%
echo 	ado.Write http.responseBody >> %dowhosts%
echo 	ado.SaveToFile target >> %dowhosts%
echo 	ado.Close >> %dowhosts%
echo End Sub >> %dowhosts%
::
echo download "%hosts0%","%cd%\down.bat" >> %dowhosts%
echo download "%hosts1%","%cd%\Changes" >> %dowhosts%
del /F /Q "down.bat" & %dowhosts% & call "%~dp0down.bat"