File di testo dal web?

[TixXio]

Come posso fare per ottenere il contenuto di un file di testo dal web?
Premetto che non ho tanta esperienza con il VB...

Grazie a chiunque mi dia una mano

[fleone]

Devi utilizzare il controllo INET che si trova il menu

progetto->aggiunte

Se hai la guida MSDN ti spiega molto come fare. Io per adesso non posso aiutarti perché non ricordo bene i passi da fare e non ho VB installato sul computer... ma ... se non riesci e non hai fretta e ... soprattutto se nessun'altro ti risponde, Lunedi mattina posso risponderti io un po' meglio.

Ciao, Fabio.

[TixXio]

azz... domani mattina parto

ora che mi ricordo mi sa che lo tengo in inglese da qualche parte MSDN.
Lo installo e vedo il da farsi

[TixXio]

Ho fatto un bel copia-incolla da un doc di MSDN, e l'ho messo come comando di un pulsante

Private Sub Command1_Click()
Dim hInternetSession       As Long
Dim hUrlFile               As Long
Dim sReadBuffer            As String * 4096     ' Grab 4k at a time
Dim sBuffer                As String
Dim lNumberOfBytesRead     As Long
Dim bDoLoop                As Boolean
hInternetSession = InternetOpen("My VB App!", _
         INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
hUrlFile = InternetOpenUrl(hInternetSession, _
         "http://www.microsoft.com/", vbNullString, 0, INTERNET_FLAG_RELOAD, 0)
bDoLoop = True
While bDoLoop
   sReadBuffer = scBlankStr
      bDoLoop = InternetReadFile(hUrlFile, sReadBuffer, _
                  Len(sReadBuffer), lNumberOfBytesRead)
      sBuffer = sBuffer & Left$(sReadBuffer, lNumberOfBytesRead)
If Not CBool(lNumberOfBytesRead) Then bDoLoop = False
Wend
InternetCloseHandle (hUrlFile)
InternetCloseHandle (hInternetSession)


End Sub

mi dice 'Function not found' ad InternetOpen (in grassetto)

Devo far caricare qualcosa all'inizio?

[fleone]

Hai inserito il controllo nel progetto come ti ho detto?

[TixXio]

se devo essere sincero non lo trovo...

[TixXio]

l'ho trovato (o meglio ho trovato il dll).

Però non riesco a caricarlo. faccio così:

Project > References

browse ---> seleziono 'wininet.dll' e mi dice: Can't add a reference to the specified file

[xegallo]

dalla form premi ctrl + t

[TixXio]

sono riuscito ad aggiungere un controllo che dovrebbe essere quello (Microsoft Internet Transfer Protocol), ma mi fa ancora lo stesso errore.

[TixXio]

up