Composant INET en vb.net 2008 [Résolu]

Messages postés
7
Date d'inscription
jeudi 2 avril 2009
Statut
Membre
Dernière intervention
23 septembre 2017
- - Dernière réponse :  Utilisateur anonyme - 28 nov. 2011 à 21:45
Bonjour à tous,

Voici mon problème:
J'ai développé, en VB6, un petit programme qui récupérer la source d'une page web de 2 façons:
1) Avec le WebBrowser (TxtSrc = WebBrowser.Document.DocumentElement.InnerHtml)
2) Avec INET (TxtSrc = Inet1.OpenUrl(WebBrowser.LocationUrl)
Les deux sources récupérées m'etaient indispensables puisque je retrouvai des infos dans un format que je n'avai pas dans l'autre.

Je suis maintenant passé en VB.NET 2008 et la récupération de la source de la page avec le WebBrowser fonctionne (après qualque modif) mais pas avec le composant INET!

Voici donc ma question:
Comment utiliser INET avec VB.NET 2008 ou quel composant faut-il utiliser pour obtenir le même résultat et comment le faire?

Merci d'avance à tous ceux qui pourront m'aider
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
3
Merci
Bonsoir acive,

nous avons déjà discuté de ce point avec un autre demandeur
Effectivement, je me suis contenté d'un copier-coller.

Tu devrais être à l'apéro

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 128 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Utilisateur anonyme
0
Merci
Bonsoir,

Tu peux récupérer le code source d'une page simplement de cette façon :
label1.text = New IO.StreamReader(Net.WebRequest.Create("http://www.google.fr").GetResponse.GetResponseStream).ReadToEnd

Tout est regroupé en une ligne mais tu peux bien sûr la décomposer.
Assure toi de gérer les erreurs éventuelles (comme un site injoignable par exemple).
Bonne prog.
Commenter la réponse de Utilisateur anonyme
0
Merci
Salut,
Ou si tu affiches la page dans un webbrowser tu peux avoir le texte sans les balises.
Banana et moi, nous avons déjà discuté de ce point avec un autre demandeur sur le forum...


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("www.google.fr")
End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Label1.Text = WebBrowser1.Document.Body.OuterText
    End Sub


CF2i - Guadeloupe
Ingénierie Informatique
Commenter la réponse de Utilisateur anonyme

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.