Comment recuperer le code source d'une page internet

glennog Messages postés 293 Date d'inscription   Statut Membre Dernière intervention   -  
Heliotte Messages postés 1491 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

je voulais recuperer le code source d'une page internet , dans un fichier texte , et pour cela , j'ai fait 
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim path As String = Environment.CurrentDirectory

            My.Computer.Network.DownloadFile("http://monsite.com/eralsic", path & "\source.txt")

        Catch ex As Exception

        End Try
    End Sub


mais parfois , j'ai une erreur 505 qui est generée et je n'arrive pas à recuperer le code source , j'aimerais savoir comment recuperer le code source même si une erreur 505 est generée , , soit en faisant une variable qui va contenir le code de la page en cas d'exception generée , merci en vb.net

1 réponse

Réponse 1 / 1
Heliotte Messages postés 1491 Date d'inscription   Statut Membre Dernière intervention   92
 
Bonsoir glennog,

Une façon de faire:

Un bouton (pour commencer) et un textbox (pour afficher): 
Private Sub cmd_Go_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_Go.Click
	RecupereSourceInternet_1("https://codes-sources.commentcamarche.net/")
End Sub

' récupérer code source d'une page Internet : 1 / 3
Private Sub RecupereSourceInternet_1(ByVal LienUrl As String)
	'Const PageURL As String = "https://codes-sources.commentcamarche.net/"
	Dim WebClient As New System.Net.WebClient()
	Dim Sr As New System.IO.StreamReader(WebClient.OpenRead(LienUrl), System.Text.Encoding.Default)
	Dim Page As String = Sr.ReadToEnd() 'Récupére le code
	Sr.Dispose()
	Sr = Nothing
	WebClient.Dispose()
	WebClient = Nothing
	RichTextBox1.Text = Page
End Sub

Bon dimanche.
-1