19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Public Sub GetFile() Dim hClient As HttpClient Dim sBuffer As String hClient = New HttpClient As "hClient" hClient.URL = "http://zackfairsite.altervista.org/meteopalermoftp.rar" hClient.Async = False hClient.Timeout = 60 hClient.Get 'Print "Begin" If hClient.Status < 0 Then Print "ERROR" Else ' Success - read the data If Lof(hClient) Then sBuffer = Read #hClient, Lof(hClient) sDownloadBuffer &= sBuffer End If Print sDownloadBuffer 'Print "end"End