Comment recuperer le code source d'une page internet
glennog
Messages postés
337
Statut
Membre
-
Heliotte Messages postés 1561 Statut Membre -
Heliotte Messages postés 1561 Statut Membre -
Bonjour,
je voulais recuperer le code source d'une page internet , dans un fichier texte , et pour cela , j'ai fait
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
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
A voir également:
- Comment recuperer le code source d'une page internet
- Comment supprimer une page sur word - Guide
- Code ascii - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Comment traduire une page internet - Guide
- Comment recuperer un message supprimé sur whatsapp - Guide
1 réponse
Bonsoir glennog,
Une façon de faire:
Un bouton (pour commencer) et un textbox (pour afficher):
Bon dimanche.
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.
