@echo off
SETLOCAL enabledelayedexpansion

set "name=AIDA64"
set "progname=aida64.exe"
set "downlink=http://www.aida64.com/downloads/a64xe"

if exist "%~dp0log.txt" del /q /f "%~dp0log.txt"
if exist "%~dp0size_test.txt" move /y "%~dp0size_test.txt" "%~dp0size.txt"

echo %time:~0,-3% Обновление %name%

echo Поиск ссылки...

call :findlink>nul
if not "%error%"=="0" (
  echo Ошибка. Ссылка не найдена
  exit /b 32
)
set "link=http://download.aida64.com/%fname%"
echo %link%
set "referer=http://www.aida64.com/downloads/%fname:~0,-4%zip"

echo Проверка необходимости обновления...

"%~dp0..\..\scripts\aria2c.exe" -q --dry-run=true -llog.txt --deferred-input=true --async-dns=false -V -c ^
--allow-overwrite=true --connect-timeout=30 --max-tries=5 --max-file-not-found=5  --retry-wait=5 ^
--user-agent="Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0" --check-certificate=false --http-accept-gzip=true ^
--referer=%referer% %link%

set "error=!ERRORLEVEL!"
if not "%error%"=="0" (
  call "%~dp0..\..\scripts\err.bat"
  exit /b %error%
) else  (
  type "%~dp0log.txt" | find /i  "Content-Length" >"%~dp0size_test.txt"
  DEL /f /q "%~dp0log.txt"
  if exist "%~dp0size.txt" (
   fc /C /W "%~dp0size_test.txt" "%~dp0size.txt">nul
   if "!ERRORLEVEL!"=="0" (
    del /f /q "%~dp0size_test.txt"
    if not exist "%~dp0%fname%" (
     echo Обновление не требуется
     exit /b 0
    ) else (
       echo Докачка %fname%
       goto download
      )
   ) else (  
      rem "%~dp0size_test.txt"  
   move /y "%~dp0size_test.txt" "%~dp0size.txt"
      if exist "%~dp0%fname%" del /f /q "%~dp0%fname%"
  )
  )
  echo Закачка %fname%
  :download
  "%~dp0..\..\scripts\aria2c.exe" --summary-interval=0 --deferred-input=true --async-dns=false -V -c --always-resume=false --max-resume-failure-tries=5 ^
  --allow-overwrite=true --file-allocation=none --connect-timeout=60 --max-tries=5 --max-file-not-found=5  --retry-wait=5 ^
  --user-agent="Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0" --check-certificate=false --http-accept-gzip=true ^
  --referer=%referer% %link%
  set "error=!ERRORLEVEL!"
  if not "%error%"=="0" (
   call "%~dp0..\..\scripts\err.bat"
   exit /b %error%
  ) else (  
     if exist "%~dp0%fname%" (
     echo Распаковка %fname% ...
  call :unpack>nul
  call :filework>nul
     ) else (
        echo Ошибка обновления. Возможно поменялась ссылка на обновление.
        if exist "%~dp0size_test.txt" del /f /q "%~dp0size_test.txt"
        if exist "%~dp0size.txt" del /f /q "%~dp0size.txt"
        exit /b 31
       )
    )
)  
if exist "%~dp0%fname%" del /f /q "%~dp0%fname%"
echo Обновление %name% завершено.
if not exist "%~dp0pkey.txt" echo Предупреждение! Отсутствует файл лицензии.
exit /b 0

:unpack
taskkill /f /t /fi "STATUS eq RUNNING" /im %progname%
"%~dp0..\SFX Tool\7z.exe" x "%~dp0%fname%" -y -o"%~dp0"
    if not !ERRORLEVEL!==0 (
     echo Ошибка распаковки.
     exit /b 32
    )
goto :eof    
:filework
del /f /q "%~dp0aida64.chm"
del /f /q "%~dp0license.txt"  
copy /y "%~dp0Language\lang_ru.txt" "%~dp0"
rd /s /q "%~dp0Language"
goto :eof   
:findlink
"%~dp0..\..\scripts\aria2c.exe" -q --summary-interval=0 --deferred-input=true --async-dns=false -V -c --always-resume=false --max-resume-failure-tries=5 ^
  --allow-overwrite=true --file-allocation=none --connect-timeout=60 --max-tries=5 --max-file-not-found=5  --retry-wait=5 ^
  --user-agent="Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0" --check-certificate=false --http-accept-gzip=true ^
%downlink%
set "error=!ERRORLEVEL!"
if "!error!"=="0" (
  @findstr "[0-9][0-9][0-9]zip" "%~dp0a64xe"
  for /f "tokens=2 delims= " %%i in ('findstr "[0-9][0-9][0-9]zip" "%~dp0a64xe"') do set "fname=%%i"
  for /f "tokens=3 delims=/" %%i in ("!fname!") do set "fname=%%i"
  set "fname=!fname:~0,-4!.zip"
  del /f /q "%~dp0a64xe"
)
exit /b