Ciao ragazzi, ho ancora bisogno di voi…
Ho un’applicazione scritta in ambiente Windows che si deve connettere ad un sito e scaricare un file.
Il codice che ho utilizzato il seguente:
Dim HS As New HTTPSocket
HS.Address = “www.ilmiosito.it”
HS.Port = 80
HS.Connect
While Not HS.IsConnected
If HS.LastErrorCode <> 0 then
lblMsg.Text = "Socket Error: " + str(HS.LastErrorCode)
lblMsg.Refresh
Exit Sub
End If
//poll the socket to let it do its thing
HS.Poll
Wend
If HS.IsConnected then
…
…
Qualcuno mi pu spiegare perch in ambiente Windows funziona e su Mac no? (non esce pi dal While-Wend)
Grazie.
Nedi