Download der Avast-Free-Offline-Dateien klappt seit ein paar Tagen nicht mehr mit AutoIt ... ?

#include <AutoItConstants.au3>

Curl("https://bits.avcdn.net/productfamily_ANTIVIRUS/insttype_FREE/platform_WIN/installertype_FULL/build_RELEASE/cookie_mmm_ava_998_999_000_m", @TempDir & "\Avast_Offline.exe")
Msgbox(0,"", "done")


Func Curl($source, $dest);by Mikell
   $cmd = "curl -L -k -A 'Mozilla/4.0(compatible;MSIE7.0;WindowsNT5.1)' " & $source & " -o " & $dest
   ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $cmd = ' & $cmd & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
   RunWait($cmd, "", @SW_show)
EndFunc

#cs
-L   --location  :  follow redirection(s)
-s   --silent   :  show only requested data
-k   --insecure  :  for SSL connections possibly insecure
-A  --user-agent
#ce

Global $sUrl = "https://bits.avcdn.net/productfamily_ANTIVIRUS/insttype_FREE/platform_WIN/installertype_FULL/build_RELEASE/cookie_mmm_ava_998_999_000_m"

Global $sOutput = _curl_dl($sUrl, @ScriptDir & "\avast.exe")
If @error Then ; Fehler während curl-Ausführung
    MsgBox(48, "Fehler (Exit-Code: " & @extended & ")", $sOutput)
Else ; alles i.o.
    ConsoleWrite($sOutput & @CRLF)
EndIf


; #FUNCTION# ====================================================================================================================
; Name ..........: _curl_dl
; Description ...: downloads a file with curl
; Syntax ........: _curl_dl(Const $sUrl,  $sTarget[,  Const $iTimeOut = 0])
; Parameters ....: Const sUrl           - the URL of the file to download
;                  $sTarget             - the complete (with filename) destination path of the file
;                  Const                - [optional] timeout to prevent endless running
; Return values .: Success - Return the cmdline output of curl
;                  Failure - Return the error cmdline output of curl, set @extended to the exit-code of curl and set @error to:
;                        @error = 1 - timeout reached
;                              = 2 - error during running curl
; Author ........: AspirinJunkie
; Modified ......: 2023-05-05
; ===============================================================================================================================
Func _curl_dl(Const $sUrl, $sTarget, Const $iTimeOut = 0)
    If StringInStr($sTarget, ' ', 1) Then $sTarget = '"' & $sTarget & '"'

    Local $sCmd = StringFormat("curl.exe -L -o %s %s", $sTarget, $sUrl)
    Local $hPID = Run($sCmd, '', @SW_HIDE, 8);

    If ProcessWaitClose($hPID, $iTimeOut) = 0 Then Return SetError(1, @extended, False)
    Local $sRetVal = @extended

    ; read out the console outputs
    Local $sOutput = StdoutRead($hPID)

    ; if errors occured
    If $sRetVal <> 0 Then Return SetError(2, $sRetVal, $sOutput)

    Return SetExtended($sRetVal, $sOutput)
EndFunc

#include <WinAPIConv.au3>

ProgressOn("avast-Download", "") ; für Fortschrittsanzeige in _myProgress()

Global $sUrl = "https://bits.avcdn.net/productfamily_ANTIVIRUS/insttype_FREE/platform_WIN/installertype_FULL/build_RELEASE/cookie_mmm_ava_998_999_000_m"
Global $sOutput = _curl_dl($sUrl, "avast.exe", 0 , _myProgress)

ProgressOff()



; benutzerdefinierte Funktion, welche während des Downloads die Fortschrittsangaben weiterverarbeitet
Func _myProgress($mData)
    ProgressSet($mData.percentTotal, _
        StringFormat("Bisher: %s\nNoch: %s", $mData.timeCurrent, $mData.timeLeft), _
        StringFormat("%s / %s (%s/s)", _WinAPI_StrFormatByteSize($mData.bytesDownload), _WinAPI_StrFormatByteSize($mData.bytesTotal), _WinAPI_StrFormatByteSize($mData.speedCurrent)) _
    )
EndFunc



; #FUNCTION# ====================================================================================================================
; Name ..........: _curl_dl
; Description ...: downloads a file with curl
; Syntax ........: _curl_dl(Const $sUrl,  $sTarget[,  Const $iTimeOut = 0, [$cbProgress = Default, [$sAdditionalParams = "-L"]]])
; Parameters ....: $sUrl           - the URL of the file to download
;                  $sTarget        - the complete (with filename) destination path of the file
;                  $iTimeOut       - [optional] timeout to prevent endless running
;                  $cbProgress     - If a function variable is set, it acts as a callback function to process the values of the current download progress.
;                                    The function receives a map with the progress data as the only parameter.
;                  $sAdditionalParams - additional user defined cmdline parameters for curl
; Return values .: Success - Return the cmdline output of curl
;                  Failure - Return the error cmdline output of curl, set @extended to the exit-code of curl and set @error to:
;                        @error = 1 - timeout reached
;                              = 2 - error during running curl
; Author ........: AspirinJunkie
; Modified ......: 2023-05-06
; ===============================================================================================================================
Func _curl_dl(Const $sUrl, $sTarget, Const $iTimeOut = 0, $cbProgress = Default, $sAdditionalParams = "-L")
    If StringInStr($sTarget, ' ', 1) Then $sTarget = '"' & $sTarget & '"'

    Local $sCmd = StringFormat("curl.exe " & $sAdditionalParams & " -o %s %s", $sTarget, $sUrl)
    Local $hPID = Run($sCmd, '', @SW_HIDE, 8);

    If IsKeyWord($cbProgress) = 1 Then
    ; no progress function

        If ProcessWaitClose($hPID, $iTimeOut) = 0 Then Return SetError(1, @extended, False)
        Local $sRetVal = @extended

        ; read out the console outputs
        Local $sOutput = StdoutRead($hPID)

        ; if errors occured
        If $sRetVal <> 0 Then Return SetError(2, $sRetVal, $sOutput)

        Return SetExtended($sRetVal, $sOutput)

    Else
    ; progress function
        Local $iPercent, $fBytes, $fBytesWhole, $sOutput, $sStdOutCurrent, $sLastLine, $aProgressInfos

        Do
            $sStdOutCurrent = StdoutRead($hPID)
            If @error Then ExitLoop
            If $sStdOutCurrent = "" Then ContinueLoop

            $sOutput &= $sStdOutCurrent
            $sLastLine = StringRegExp($sOutput, '\V*$', 3)[0]

            $aProgressInfos = StringRegExp($sLastLine, '(?i)^(\s\s\d|\s\d\d|\d{3}|\h\h0)\h(.{5})\h(.{4})\h(.{5})\h(.{4})\h(.{5})\h(.{6})\h(.{6})\h(.{8})\h(.{8})\h(.{8})\h(.{5})$', 3)
            If @error Then ContinueLoop

            Local $mProgress[] ; map holding the data for the progress callback function
            ; 0      , 1         , 2   , 3       , 4   , 5       , 6           , 7           , 8         , 9            , 10       , 11
            ; % total, total size, % dl, bytes dl, % ul, bytes ul, dl avg speed, ul avg speed, time total, time current , time left, curr speed (bytes/s over last 5s)
            $mProgress["percentTotal"]     = Int($aProgressInfos[0])
            $mProgress["bytesTotal"]       = _SizeStringToBytes($aProgressInfos[1])
            $mProgress["percentDownload"]  = Int($aProgressInfos[2])
            $mProgress["bytesDownload"]    = _SizeStringToBytes($aProgressInfos[3])
            $mProgress["percentUpload"]    = Int($aProgressInfos[4])
            $mProgress["bytesUpload"]      = _SizeStringToBytes($aProgressInfos[5])
            $mProgress["speedAvgDownload"] = _SizeStringToBytes($aProgressInfos[6])
            $mProgress["speedAvgUpload"]   = _SizeStringToBytes($aProgressInfos[7])
            $mProgress["timeTotal"]        = StringStripWS($aProgressInfos[8], 1)
            $mProgress["timeCurrent"]      = StringStripWS($aProgressInfos[9], 1)
            $mProgress["timeLeft"]         = StringStripWS($aProgressInfos[10], 1)
            $mProgress["speedCurrent"]     = _SizeStringToBytes($aProgressInfos[11])  ;(bytes/s over last 5s)

            Call(IsString($cbProgress) ? $cbProgress : FuncName($cbProgress), $mProgress)
            If @error Then ContinueLoop
        Until False

        Return $sOutput
    EndIf
EndFunc


; #FUNCTION# ====================================================================================================================
; Name ..........: _SizeStringToBytes
; Description ...: convert a size string for bytes with prefixes (like from _WinAPI_StrFormatByteSize) to bytes only
; Syntax ........: _SizeStringToBytes($sSize[,  $bPow2 = True])
; Parameters ....: $sSize               - size string - e.g. 6.2M, 334K, 74MB, 1234k
;                  $bPow2               - [optional] if true: power of two (1 kB = 1024 Bytes), if false: power of ten (1 kB = 1000 Bytes)
; Return values .: bytes as number type
; Author ........: AspirinJunkie
; Modified ......: 2023-05-06
; ===============================================================================================================================
Func _SizeStringToBytes($sSize, $bPow2 = True)
    Local $fNum = Number($sSize)
    If StringInStr($sSize, "K", 2, -1) Then Return $fNum * ($bPow2 ? 2^10 : 10^3)
    If StringInStr($sSize, "M", 2, -1) Then Return $fNum * ($bPow2 ? 2^20 : 10^6)
    If StringInStr($sSize, "G", 2, -1) Then Return $fNum * ($bPow2 ? 2^30 : 10^9)
    If StringInStr($sSize, "T", 2, -1) Then Return $fNum * ($bPow2 ? 2^40 : 10^12)
    If StringInStr($sSize, "P", 2, -1) Then Return $fNum * ($bPow2 ? 2^50 : 10^15)
    Return $fNum
EndFunc

#include <InetConstants.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIFiles.au3>


; Save the downloaded file to the temporary folder.
Local $sFilePath = _WinAPI_GetTempFileName(@ScriptDir)

; Download the file by waiting for it to complete. The option of 'get the file from the local cache' has been selected.
Local $iBytesSize = InetGet("https://bits.avcdn.net/productfamily_ANTIVIRUS/insttype_FREE/platform_WIN/installertype_FULL/build_RELEASE/cookie_mmm_ava_998_999_000_m", $sFilePath, $INET_FORCERELOAD)

; Retrieve the filesize.
Local $iFileSize = FileGetSize($sFilePath)

; Display details about the total number of bytes read and the filesize.
MsgBox($MB_SYSTEMMODAL, "", "The total download size: " & $iBytesSize & @CRLF & _
        "The total filesize: " & $iFileSize)

$file = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"

If FileExists($file) Then

    $google_chrome_version = FileGetVersion($file)
    $google_chrome_version_array = StringSplit($google_chrome_version,".")

    $webdriver = "chromedriver_" & $google_chrome_version_array[1] & ".exe"

    If Not FileExists(@ScriptDir & '\data\'& $webdriver) Then
        MsgBox(0,"Info","Google Chromedriver nicht vorhanden." & @CRLF & $webdriver)
        Exit
    EndIf
Else
    MsgBox(0,"Info","Google Chrome in folgenden Pfad nicht vorhanden." & @CRLF & @CRLF & $file)
    Exit
EndIf