Originariamente inviato da oregon
Cioe' ? Che codice hai usato?
Il codice è
For i = 0 To 9
matr = matricola(i)
cogn = cognome(i)
nom = nome(i)
dec = 3
webbrowser1.navigate "http://10.188.44.107:8080/Decadale/d?matricola=" & matr &_
&nome=" & nom & "&cognome=" & cogn & "&decade=" & dec & "&cmd=d"
ContenutoConHtml = webbrowser1.document.documentElement.outerHTML
RichTextBox1.Text = ContenutoConHtml
WriteFile RichTextBox1.Text, "C:\prova.doc"
Next i
L'istruzione writefile viene eseguita prima che la pagina web venga scaricata. Anche utilizzando la gestione eventi in alternativa nel seguente modo:
Private Sub WEB_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
if paginaCaricata=true ' diventa true dopo che ha scaricato ogni pagina
WriteFile RichTextBox1.Text, "C:\prova.doc"
PaginaCaricata = False
webbrowser1.Refresh
End If
End Sub
il risultato non cambia perchè la varibile paginaCaricata VIENE ESEGUITA PRIMA del download...

Rispondi quotando