[VB6] estrapolare dati da file html [era:salva pagina completa]

[danielaperri]

Salve, mi connetto ad un sito,dopo aver digitato Username e password, e salvo con il browser la pagina web completa,cioe' viene creata una cartella dove si trovano vari file, tra cui altre pagine htm, tra queste c'è una pagina che contiene dei valori numerici che io dovrei leggere e "importare" i valori nell'ambiente visual basic 6.
Come faccio tutto questo in automatico? o anche solo come si puo' salvare la pagina completa
con firefox, o altro browser, o altro modo qualsiasi? in modo che posso leggere la pagina web "secondaria" che a me interessa con VB?
grazie.

[Vincent.Zeno]

salvare la pagina dal browser è una cosa,
l'elaborazione con vb è un'altra.
però scrivi nella sezione html.

decidi cosa vuoi

visto che la pagina sai salvartela sposto la discussione nella sezione vb dove ti aiuteranno (spero ) per l'estrapolazione dei dati

[MItaly]

Dovresti usare un parser HTML (meglio se non schizzinoso e in grado di leggere la "tag soup" che sono la maggior parte delle pagine), ma non so quanta roba ci sia per VB6.

[danielaperri]

Grazie delle risposte,ma veramente io non so come salvare la pagina! il problema è questo, cioè non posso salvare ogni volta la pagina con il browser il manuale, vorrei una soluzione automatica per fare questo, poi come interpretare la pagina con VB6 è un problema che si pone dopo.

[MItaly]

http://forum.html.it/forum/showthrea...0#post12361300

[danielaperri]

grazie Mitaly
errore di runtime urldowloadtofile errore 2146697203...:-(

[oregon]

Quell'errore indica

"The required Internet protocol is not installed on your computer, or the Internet address you requested may not be valid"

Controlla l'indirizzo usato.

Se hai altri problemi, mostra il codice completo nel forum.

[danielaperri]

ok grazie , il codice completo è quello indicato da Mitaly
Option Explicit

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Public Sub DownloadURL(ByVal URL As String, ByVal DestinationFile As String)
Dim ret As Long
ret = URLDownloadToFile(0, URL, DestinationFile, 0, 0)
If ret <> 0 Then
Err.Raise ret, "DownloadURL", "Impossibile scaricare l'URL """ & URL & """ in """ & DestinationFile & """." & vbCrLf & "Codice di errore di URLDownloadToFile: " & LTrim(CStr(ret)) & "."
End If
End Sub

dove passo come parametri l'indirizzo ip del sito 192.168.1.100 URL
e DestinationFile "c:\test"

Il sito risiede su un'apparecchiatura in rete locale...fa differenza??

[oregon]

Originariamente inviato da danielaperri

dove passo come parametri l'indirizzo ip del sito 192.168.1.100 URL
e DestinationFile "c:\test"

Il sito risiede su un'apparecchiatura in rete locale...fa differenza??

Devi indicare la risorsa da scaricare, ad esempio

http://192.168.1.100/immagine.gif

[danielaperri]

..ho capito,192.168.1.100/index.htm,a questo punto visualizzo una pagina dove sono indicati una serie di link, ad altre pagine htm,e in una di queste ci sono i dati che mi interessano
oltretutto se faccio "copia indirizzo" di questa pagina il risultato è: javascript:Send(0)
mentre sulla barra del browser mi da' http://192.168.1.100/index.htm?redirect=/home.htm