_INetGetSource with only TLS 1.3 website

[FreeBeing]

Hi,

I've a bug when using _INetGetSource function with a "TLS 1.3 only" website.

I obtain @error 13

Example of url (my own website) I try to download :
https://www.treshaut.net/tels/Installations_Auto/date_maj2.txt

Please, do you have any idea or workaround ?

Thank you

[FreeBeing]

News :

The bug is there with any Windows, but not Windows 11 and Server 2022.

AutoIt use IE (Trident) engine ?

But, I need to get it works with Windows 10 and Server 2019.

[argumentum]

maybe this ? https://www.autoitscript.com/forum/topic/207859-curl-udf-libcurl-with-x64-support/

[mikell]

Ditto (simpler)

$source = "https://www.treshaut.net/tels/Installations_Auto/date_maj2.txt"
$dest = "test.txt"
RunWait('curl -L -s -k ' & $source & ' -o "' & $dest & '"', "", @SW_HIDE)

or

$out = _Get("https://www.treshaut.net/tels/Installations_Auto/date_maj2.txt")
ConsoleWrite($out & @crlf)

Func _Get($url)
   Local $cmd = "curl -L -s -k " & $url
   Local $iPID = Run($cmd, "", @SW_HIDE, 2)  ;$STDOUT_CHILD
   ProcessWaitClose($iPID)
   Local $output = StdoutRead($iPID)
   Return $output
EndFunc

 

Edited December 17, 2022 by mikell

[FreeBeing]

Thank you for the curl suggestion.

But, do you think it's possible with AutoIt native functions ?

(it can help me, for example, to reuse my existing progress bar for downloading big files with AutoIt, from the same https server)

[mikell]

Curl is the more reliable way

BTW you can populate a progressbar while downloading using curl, example below

#include <AutoItConstants.au3>

$source = "https://www.autoitscript.com/autoit3/files/archive/autoit/autoit-v3.3.14.5.zip"
$file = StringRegExpReplace($source, '.*/([^/]+)$', "$1")

$cmd = 'curl -L -k ' & $source & ' -o "' & @scriptdir & '\' & $file & '"'
Local $iPID = Run($cmd, "", @SW_HIDE, $STDOUT_CHILD+$STDERR_CHILD)
ProgressOn($file, "")
While 1
    $tmp = StderrRead($iPID)
    If @error Then Exitloop
    If $tmp <> "" and StringRegExp($tmp, '(?i)[kmg]') Then
        $pc = StringRegExp($tmp, '(\d+)', 1)
        If not @error Then ProgressSet($pc[0], $pc[0] & " %")
    EndIf
Wend
ProgressOff()
Msgbox(0,"", $file & " : done")

 

[FreeBeing]

Thank you for your help