Originariamente inviato da metiu
nuovo aggiornamento.
ho trovato un po' di cose.
Domanda: come faccio a dirgli: guarda se la pagina è stata scaricata, allora metti il codice html nel textbox????
ciauz
copio e incollo il codice:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
On Error Resume Next
Dim indirizzo As String
indirizzo = "******" 'mettere l'indirizzo dal quale si vuole recuperare il codice
AxWebBrowser1.Navigate(indirizzo)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
On Error Resume Next
TextBox3.Text = AxWebBrowser1.LocationURL()'dimmi qual'è l'indirizzo della pagina visualizzata
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
On Error Resume Next
TextBox2.Text = AxWebBrowser1.Document.Body.Innerhtml 'dammi l'html della pagina visualizzata
End Sub
End Class