Downloader

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.2.12.1
Author:         xEdox

Script Function:
       Download a file from the web.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#include <GUIConstants.au3>

GUICreate (" ~ Downloader ~ " , 295 , 100)
GUISetBkColor (0x000000)

GUICtrlCreateLabel ("Inserisci l'url: " , 5 , 10 , 100 , 20)
GUICtrlSetColor (-1 , 0xFFFFFF)

$link = GUICtrlCreateInput ("" , 5 , 30 , 200 , 20)
GUICtrlSetBkColor (-1 , 0x000000)
GUICtrlSetColor (-1 , 0xFFFFFF)

$download = GUICtrlCreateButton ("Download" , 220 , 27 , 70 , 25)
GUICtrlSetBkColor (-1 , 0x1E90FF)
GUICtrlSetColor (-1 , 0xFFFFFF)
GUICtrlSetCursor (-1 , 0)
GUICtrlSetTip (-1 , "Esegui il download del file" , "Download" , 1 , 1)

GUICtrlCreateLabel ("Creato da xEdox , Versione 2.0" , 5 , 80 , 200 , 20)
GUICtrlSetColor (-1 , 0xFFFFFF)

GUISetState ()

While 1
  Switch GUIGetMsg ()
      Case $GUI_EVENT_CLOSE
                       Exit

      Case $download
                       If GUICtrlRead ($link) = "" Then
                               MsgBox (0 , " ~ Downloader ~ " , "Specifica un link per il download")
                       Else
                               $nome = StringSplit (GUICtrlRead ($link) , "/")
                               $count_nome = UBound ($nome)
                               $download = InetGet (GUICtrlRead ($link) , @DesktopDir & "\" & $nome [$count_nome - 1] , 1 , 1)
                               If $download = 1 Then
                                       MsgBox (0 , " ~ Downloader ~ " , "Download eseguito correttamente")
                               Else
                                       MsgBox (0 , " ~ Downloader ~ " , "Il download non è stato eseguito a causa di un problema")
                               EndIf
                       EndIf
       EndSwitch
WEnd

#cs ----------------------------------------------------------------------------

Author:         xEdox

Script Function:
       Download a file from the web.
       
License:
       Script released under GPL v3

#ce ----------------------------------------------------------------------------

#include <GUIConstants.au3>
#include "skin.au3"

SkinStartLibrary ()
$form = GUICreate (" ~ Downloader ~ " , 295 , 150)
AddSkin ($form , @ScriptDir & "\skin.skf")
GUICtrlCreateLabel ("Inserisci l'url: " , 5 , 10 , 100 , 20)
$url = GUICtrlCreateInput ("" , 5 , 30 , 200 , 20)
$download = GUICtrlCreateButton ("Download" , 220 , 27 , 70 , 25)
GUICtrlCreateLabel ("Percorso destinazione: " , 5 , 70 , 120 , 20)
$dest = GUICtrlCreateInput ("" , 5 , 90 , 150 , 20)
$sfoglia = GUICtrlCreateButton ("Sfoglia.." , 165 , 87 , 60 , 25)
$open = GUICtrlCreateButton ("Apri.." , 230 , 87 , 60 , 25)
GUICtrlCreateLabel ("Versione 3.0" , 5 , 130 , 200 , 20)

GUISetState ()

While 1
       Switch GUIGetMsg ()
               Case $GUI_EVENT_CLOSE
                       Exit
               Case $download
                       $link = GUICtrlRead ($url)
                       $de = GUICtrlRead ($dest)
                       If $link = "" Then
                               MsgBox (0 , " ~ Downloader ~ " , "Specifica un link per il download")
                       Else
                               If $de = "" Then
                                       $de = @DesktopDir
                               EndIf
                               $nome = StringSplit ($link , "/")
                               $count_nome = UBound ($nome)
                               $download_real = InetGet ($link , $de & "\" & $nome [$count_nome - 1])
                               If $download_real = 1 Then
                                       MsgBox (0 , " ~ Downloader ~ " , "Download eseguito correttamente")
                               Else
                                       MsgBox (0 , " ~ Downloader ~ " , "Il download non è stato eseguito a causa di un problema")
                               EndIf
                       EndIf
               Case $sfoglia
                       $folder = FileSelectFolder ("Seleziona la directory di uscita" , @DesktopDir)
                       GUICtrlSetData ($dest , $folder)
               Case $open
                       If GUICtrlRead ($dest) = "" Then
                               MsgBox (0 , " ~ Downloader ~ " , "Devi prima specificare un percorso!")
                       Else
                               ShellExecute (GUICtrlRead ($dest))
                       EndIf
       EndSwitch
WEnd