Oppure

Loading
06/04/10 9:31
davifumi89
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.


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:

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


Cosa significa? come arrivo a quel 18240???

grazie mille
aaa
06/04/10 20:29
GrG
usa la funzione instr() ...
aaa
07/04/10 6:22
davifumi89
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 :D
aaa
07/04/10 19:28
GrG
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()
aaa
08/04/10 6:21
davifumi89
ho risolto il problema così:

Dim OggettoHttp As Object
Url = ".....";
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!
aaa