Visual Basic 6 - VBA - Web

Forum - Visual Basic 6 - VBA - Web

davifumi89 (Normal User)
Rookie

Messaggi: 49
Iscritto: 09/03/2010

Postato alle 11:31
Martedì, 06/04/2010

Ho da realizzare un programma che inserisca in una cella di Excel un'informazione che risiede sul web.

In pratica devo collegarmi alla pagina di configurazione della stampante di rete HP ed "estrapolare" il numero di pagine che ha stampato.

Codice sorgente - presumibilmente Visual Basic 6

Dim ip As String
 
ip = CStr(txt1.Text)
 
webb.Navigate2 ip & "/hp/device/this.LCDispatcher?nav=hp.Supplies"

Così facendo quindi raggiungo la pagina di configurazione della stampante di rete.

Ora come faccio a prendere il dato che mi serve?

Se guardo il sorgente della pagina web trovo questo:

Codice sorgente - presumibilmente Plain Text

<span  class="hpPageText" >18240</span>

Cosa significa? come arrivo a quel 18240???

grazie mille

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 22:29
Martedì, 06/04/2010

usa la funzione instr() ...

davifumi89 (Normal User)
Rookie

Messaggi: 49
Iscritto: 09/03/2010

Postato alle 8:22
Mercoledì, 07/04/2010

grazie mille della funzione ma non capisco dove e come utilizzare quella funzione...tutto quel che c'è prima più ke altro...potresti farmi degli esempi? quali proprietà e come vado a prendere i dati? il problema è quello, non che da quella stringa non riesca ad arrivare al numero...è proprio alla stringa ke non so come arrivare

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 21:28
Mercoledì, 07/04/2010

allora... quella stringa si trova nel sorgente della pagina, per ottenere il sorgente della pagina prova ad usare:

dim html as string
html = webb.document.body.innerHTML

però forse potresti usare anche un'alternativa... studiati il document.getelementsbytagname()

davifumi89 (Normal User)
Rookie

Messaggi: 49
Iscritto: 09/03/2010

Postato alle 8:21
Giovedì, 08/04/2010

ho risolto il problema così:

Dim OggettoHttp As Object
Url = "http://....."
Dim txtPage As String

Set OggettoHttp = CreateObject("microsoft.xmlhttp")

OggettoHttp.Open "GET", Url, False

OggettoHttp.send

txtPage = OggettoHttp.responseText

Ora il codice della pagina è in txtPage

Grazie mille dell'aiuto!