Is download link alive?!?

[tempman]

Hi,

I want to know is download link still alive.

ConsoleWrite( __checkConn("https://www.autoitscript.com/") & @LF)
ConsoleWrite( __checkConn("https://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3-setup.exe") & @LF)

Func __checkConn($url)
    Return (StringLen(InetRead($url, 1)) > 0)
EndFunc

With this script I need to wait until whole autoit-v3-setup.exe is downloaded, to find out is download link alive.

Is there a way to find is link alive without downloading a whole file?

[Earthshine]

 

[tempman]

10 minutes ago, Earthshine said:

 

One thing is to check URL, and another thing is to check DOWNLOAD URL:

Quote

https://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3-setup.exe is a valid, available URL
+>20:11:13 AutoIt3.exe ended.rc:0
+>20:11:13 AutoIt3Wrapper Finished.
>Exit code: 0    Time: 9.874

The script you point to also first download a whole file...

[Earthshine]

You would have to monitor the file system and see if it’s downloading I guess. Or have it pop up save dialog. If dialog then you know it’s live

Edited January 12, 2018 by Earthshine

[genius257]

Hi @tempman.

Use HEAD method with a request to just get the header info and not the data. It's just the faster way.

$oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
$oHTTP.open("HEAD", "https://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3-setup.exe", False)
$oHTTP.send()
Exit MsgBox(0, "", $oHTTP.Status<>200?'File does not exist':'File exists')

I know URLs can result in other things than 200 and still be valid, but this will work for most cases.

Edited January 12, 2018 by genius257

[tempman]

Thank you, but as you mentioned  URLs can result in other things than 200 and still be valid, or in my case invalid...

[mikell]

?

ConsoleWrite( __checkConn("https://www.autoitscript.com/") & @LF)
ConsoleWrite( __checkConn("https://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3-setup.exe") & @LF)

Func __checkConn($url)
    Return InetGetSize($url, 1) ; > 0
EndFunc

 

[tempman]

31 minutes ago, mikell said:

?

ConsoleWrite( __checkConn("https://www.autoitscript.com/") & @LF)
ConsoleWrite( __checkConn("https://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3-setup.exe") & @LF)

Func __checkConn($url)
    Return InetGetSize($url, 1) ; > 0
EndFunc

 

Yes, but what about this url:

http://xtream.servidorfull.com:25461/live/Nildo/I7CLSx6JHy/4.ts

It returns 0

and sometimes this files can be a very large.

Edited January 13, 2018 by tempman

[tempman]

This script do the job for me, but only in case if *.ts file exist:

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

Example()

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

    ; Download the file in the background with the selected option of 'force a reload from the remote site.'
    Local $hDownload = InetGet("http://xtream.servidorfull.com:25461/live/Nildo/I7CLSx6JHy/4.ts", $sFilePath, $INET_FORCERELOAD, $INET_DOWNLOADBACKGROUND)

    ; Wait for 2s and stop download.
    Do
        Sleep(2000)
    Until InetGetInfo($hDownload, $INET_DOWNLOADREAD)

    ; Retrieve the number of total bytes received.
    Local $iBytesSize = InetGetInfo($hDownload, $INET_DOWNLOADREAD)

    ; Close the handle returned by InetGet.
    InetClose($hDownload)

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

    ; Delete the file.
    FileDelete($sFilePath)
EndFunc   ;==>Example

But, if *.ts file does not exist, script never ends, why?

[tempman]

I find a solution (not so nice):

Instead of:

    Until InetGetInfo($hDownload, $INET_DOWNLOADREAD) 

I put this:

    Until InetGetInfo($hDownload, $INET_DOWNLOADREAD) Or InetGetInfo($hDownload, $INET_DOWNLOADCOMPLETE)

so now if  *.ts file does not exist, script ends.

Never the less, I am interested for better solution.

[careca]

Maybe somehow start the download and after X number of bytes, cancel. If you can manage to get some bytes, it's likely the rest will be available, and if some have arrived, the link is good. I think

[Earthshine]

That was my answer above 

[mLipok]

Today I have similar problem, and here is my solution:

#include <FileConstants.au3>

_Example()
Func _Example()
    Local $oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
    $oHTTP.Open("GET", "https://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3-setup.exe", False)

    $oHTTP.Send()
    ; $dReceived = $oHTTP.ResponseText
    Local $dReceived = $oHTTP.ResponseBody
    Local $sStatusCode = $oHTTP.Status
    ConsoleWrite("! " & $sStatusCode & @CRLF)
    Local $hFile = FileOpen('autoit-v3-setup.exe', $FO_OVERWRITE + $FO_UTF8_NOBOM + $FO_BINARY)
    FileWrite($hFile, $dReceived)
    FileClose($hFile)

EndFunc   ;==>_Example

 

[mLipok]

Hm... now I just wondering how to implement progress bar for this function.
Any help, will be handy.