comando = "wget ftp://ftp.finanze.it/pub/docfa4/docfa4-1.zip" 
hProcess = SHELL comando FOR READ AS "hProcess"

' Gambas class file

PUBLIC SUB Form_Open()

DIM controllo AS Variant
DIM comando AS Process
DIM hProcess AS Process
DIM Valore AS Integer
  

SHELL "ping -c 4 www.google.it" TO controllo 


    IF Len(controllo) = 0 THEN
        Message.Error("Non è presente la connessione", "exit")
        installdocfa.Close()
    END IF
    


    IF NOT Exist(user.home &/ "Docfa") THEN 
        MKDIR (user.home &/ "Docfa")
    END IF

END



PUBLIC SUB Button1_Click()

DIM controllo AS Variant
DIM comando AS Process
DIM hProcess AS Process
DIM Valore AS Integer
      

SHELL "rm -fr docfa4-1.zip index.html" WAIT 
SHELL "wget ftp://ftp.finanze.it/pub/docfa4/" WAIT

SHELL "echo $(cat index.html | grep docfa4-1.zip | cut -d'(' -f2 | cut -d' ' -f1)" WAIT 
SHELL "rm -fr index.html" WAIT



comando = "wget ftp://ftp.finanze.it/pub/Docfa4/docfa4-1.zip"
hProcess = SHELL comando FOR READ AS "hProcess"
timer1.start

END





PUBLIC SUB Timer1_Timer()

DIM controllo AS Variant
DIM comando AS Process
DIM hProcess AS Process
DIM Valore AS Integer


DIM i AS Integer

 
      i = hProcess.State
  
  IF i = 0 THEN 
    Timer1.Stop
    
    ProgressBar1.Value = 1
  
  ELSE 
Valore = Stat("docfa4-1.zip") / 13500
        ProgressBar1.value = Valore
    
  ENDIF 
END

wget link/$file.zip
cat index.html | grep $file.zip | cut -d'(' -f2 | cut -d' ' -f1

14147827

SHELL "rm -fr file.zip index.html" WAIT
SHELL "wget ftp://ftp.finanze.it/pub/file/" WAIT 
SHELL "echo $( cat index.html | grep file.zip | cut -d'(' -f2 | cut -d' ' -f1)" WAIT

PUBLIC SUB Form_Open()

DIM stato AS Variant
DIM avanzamento AS Integer
DIM Valore AS Integer
DIM controllo AS Variant
DIM myprocess AS Process

  
WAIT 
SHELL "ping -c 4 www.google.it" TO controllo 
WAIT

    IF Len(controllo) = 0 THEN
        Message.Error("Non è presente la connessione", "exit")
        installdocfa.Close()
    END IF
    


    IF NOT Exist(user.home &/ "Docfa") THEN 
        MKDIR (user.home &/ "Docfa")
    END IF
    


SHELL "rm -fr docfa4-1.zip index.html" WAIT
SHELL "wget ftp://ftp.finanze.it/pub/docfa4/" WAIT 
SHELL "echo $( cat index.html | grep docfa4-1.zip | cut -d'(' -f2 | cut -d' ' -f1)" TO avanzamento
SHELL "rm -fr index.html" WAIT

SHELL "wget ftp://ftp.finanze.it/pub/docfa4/docfa4-1.zip" WAIT

REPEAT
   SHELL "ls --size | grep docfa4-1.zip | cut -d' ' -f1" TO Valore
   stato = Valore / avanzamento
   ProgressBar1.Value = stato
UNTIL avanzamento = Valore


END

 wget --version
GNU Wget 1.12 compilato su linux-gnu.

+digest +ipv6 +nls +ntlm +opie +md5/openssl +https -gnutls +openssl
-iri

Wgetrc:
    /etc/wgetrc (sistema)
Locale: /usr/share/locale
Compilazione: gcc -DHAVE_CONFIG_H -DSYSTEM_WGETRC="/etc/wgetrc"
    -DLOCALEDIR="/usr/share/locale" -I. -I../lib -O2 -g -pipe -Wformat
    -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -fexceptions
    -fstack-protector --param=ssp-buffer-size=4
Collegamento: gcc -O2 -g -pipe -Wformat -Werror=format-security
    -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector
    --param=ssp-buffer-size=4 -Wl,--as-needed -Wl,--no-undefined
    -Wl,-z,relro /usr/lib64/libssl.so /usr/lib64/libcrypto.so -ldl -lrt
    ftp-opie.o openssl.o http-ntlm.o gen-md5.o ../lib/libgnu.a

Copyright (C) 2009 Free Software Foundation, Inc.
Licenza GPLv3+: GNU GPL versione 3 o successiva
<http://www.gnu.org/licenses/gpl.html>.
Questo è software libero: siete liberi di modificarlo e redistribuirlo.
Non c'è ALCUNA GARANZIA, negli estremi permessi dalla legge.

Scritto da Hrvoje Niksic <hniksic@xemacs.org>.
Attualmente mantenuto da Micah Cowan <micah@cowan.name>.
Inviare segnalazioni di bug e suggerimenti a <bug-wget@gnu.org>.

[massimo@localhost ~]$ wget http://www.gambas-it.org/smf/index.php
--2010-02-09 21:26:41--  http://www.gambas-it.org/smf/index.php
Risoluzione di www.gambas-it.org... 69.89.25.193
Connessione a www.gambas-it.org|69.89.25.193|:80... connesso.
HTTP richiesta inviata, in attesa di risposta... 200 OK
Lunghezza: non specificato [text/html]
Salvataggio in: "index.php"

    [    <=>                                                                 ] 39.763      53,8K/s   in 0,7s

2010-02-09 21:26:44 (53,8 KB/s) - "index.php" salvato [39763]

[massimo@localhost ~]$

   [    <=>                                                                 ] 39.763      53,8K/s   in 0,7s