Inetget Alternate

[slipsystem]

Heres a script that I wrote as an alternative to inetget.

I noticed that you are not able to pause a download or see how far it is

for this you need to have free download manager installed.

Thanks to Dedcase for the help. 

expandcollapse popup

#include <IE.au3>


$INIFile = "LinkScanner.ini"

$InpLink = InputBox("Link Scanner","Paste URL Here")
$InpExtention = InputBox("Link Scanner","type the extention")
$Number = StringLen($InpExtention)
$InstallationPath = IniRead($INIFile,"Path","Directory","Error")
$DLManager = IniRead($INIFile,"Path","DownloadManager","Error")&" "
$oIE = _IECreate($InpLink)
$oLinks = _IELinkGetCollection($oIE)
$Download = ''
DirCreate("C:\Downloads")

For $oLink In $oLinks
If StringRight($oLink.href,$Number) = $InpExtention  Then $Download &= $oLink.href & @CR
$sLink = FileRead('C:\Downloads\downloaded.txt')

        

        If StringInStr($sLink, $Download) Then ContinueLoop

       RunWait ($DLManager&""""&$Download&"""")
        
         FileWrite('C:\Downloads\downloaded.txt', $Download & @CRLF)
Next
If FileExists($INIFile) = 0 Then
    
    If FileExists("C:\Program Files\Free Download Manager\fdm.exe") Then
    $INIDLDMan = "C:\Program Files\Free Download Manager\fdm.exe"
    Else
    $INIDLDMan = InputBox("Link Scanner","OMG... Where Is Free Download Manager")
   EndIf
    IniWrite ( $INIFile, "Path","Directory",@ScriptDir&"\")
    IniWrite ( $INIFile, "Path","DownloadManager", $INIDLDMan & " -fs" )
 EndIf

[spudw2k]

Any particular reason you avoided InetGet?  I'd argue it's preferable as it doesn't require additional software to be on the client machine. Here is a shamelessly self-promoted example of a script similar to yours which uses InetGet and provides download status.

edit: it is far from robust and doesn't have error handling, just FYI

also doesn't have pause capability, ahem.

Edited July 4, 2013 by spudw2k