Extraire une adresse ip d'une page webRésolu

Question

Bonjour a tous,

J'aimerais savoir comment extraire une adresse IP présente dans une page web (je ne gère pas la page web en question).

Merci de vos réponses

P.S. Si le sujet existait déja, je ne l'ai pas trouvé apres un rapide recherche dans le forum, veuillez m'en excuser

Mayzz · Accepted Answer

Donc ma solution fonctionne, je poste le code complet j'ai testé c'est fonctionnel :

Private Function GetIP() As String
        '
        Dim ms As IO.Stream = Nothing
        '
        Try
            Dim client As New Net.WebClient
            ms = client.OpenRead("http://www.elydian.fr")
            Dim sr As New IO.StreamReader(ms)
            Dim htmlPage As String = sr.ReadToEnd
            Dim re As New System.Text.RegularExpressions.Regex("([0-9]{1,3}\.){3}[0-9]{1,3}")
            Dim ip As String = re.Match(htmlPage).Value
            Return ip
        Catch ex As Exception
            MessageBox.Show("Erreur durant la récupération de l'adresse l'IP du serveur")
            Return Nothing
        Finally
            If ms IsNot Nothing Then
                ms.Close()
                ms.Dispose()
            End If
        End Try
        '
    End Function

Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.

Mayzz · Answer

Salut,

Il te suffit de télécharger cette page qui sera stocké sous forme de chaine (Plusieurs méthode, WebBrowser, winsock, Inet) recheche sur le site "Télécaherger une page web", en suite il te suffit d'analiser la syntaxe de la page html, et d'utilier les fonctions de traitement de texte (mid$, left$, right$, split...) pour découper la page comme tu le souhaite et ne garder que la partie voulue :

Exemple : 

Si l'ip en question se trouve dans : 


80.80.80.80


Tu recherche dans la chaine la partie entre = 
 et 


Attention ce pendant à bien vérifier qu'il n'y a pas d'autres possibilité.

Inconvéniant : Si le site change de design ton code ne fonctionne plus.

Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.

aserf · Answer

Bonjour,

Si vous utilisez VB6, effectivement il vous faudra telecharger la page et essayer de faire un algo pour le rechercher.
Si vous utiliser .Net vous pouvez utiliser les expressions reguliere, elle vous retournerons directement les adresses IP trouver dans la page sans algo.

Cordialement
Sébastien


Développement Rapide PHP / VBNET, Mapping-> www.database2code.com

aazg · Answer

Bonjour a tous et merci pour vos réponses,

Je suis assez intéressé par la solution de aserf solution en .NET.
Pourriez vous me donner un exemple si il vous plait.

Mayzz · Answer

Voila :

Dim html As String = "
80.80.80.80
"
Dim re As New System.Text.RegularExpressions.Regex("([0-9]{1,3}\.){3}[0-9]{1,3}")
Dim ip As String = re.Match(html).Value
MessageBox.Show(ip)

Bien entendu la regex est simple mais dans ce cas on ne cherche pas à valider une ip, j'ai repris mon exemple de page web plus haut.

Par contre comme précisé par aserf, il faut être en vb.Net (tu as posté dans la catégorie vb6).


Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.

cs_aus3004 · Answer

Salut, suis ce petit tuto ;)

Désolé mais j'ai pas renommé par défaut certain composant.

1) Créer un formulaire nommé form8
2) Mettre un label1 ou tu marque dessus "Site web"
3) Mettre une textbox que tu renomme "txturl"
4) Mettre un button1 ou tu marque dessus "Rechercher l'IP"
5) Mettre label2 ou tu marque le dessus "IP du site"
6) Mettre une textbox que tu renomme "combobox2"
7) Coller ce code :
Imports System.Net
Public NotInheritable Class form8

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If txturl.Text = "" Then
            MessageBox.Show("Veuillez entrer un site web", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        ElseIf txturl.Text = "www." Then
            MessageBox.Show("Veuillez entrer un site web valide", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        ElseIf txturl.Text.StartsWith("www.") = True Then
            Dim hostname As IPHostEntry = Dns.GetHostEntry(txturl.Text)

            Dim ip As IPAddress() = hostname.AddressList
            ComboBox2.Text = ip(0).ToString()
        Else
            Dim hostname As IPHostEntry = Dns.GetHostEntry("www." & txturl.Text)

            Dim ip As IPAddress() = hostname.AddressList
            ComboBox2.Text = ip(0).ToString()
        End If

    End Sub

    Private Sub txturl_Keydown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
        If e.KeyCode = Keys.Enter Then


            If txturl.Text = "" Then
                MessageBox.Show("Veuillez entrer un site web", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            ElseIf txturl.Text = "www." Then
                MessageBox.Show("Veuillez entrer un site web valide", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            ElseIf txturl.Text.Contains("www.") = True Then
                Dim hostname As IPHostEntry = Dns.GetHostEntry(txturl.Text)


                Dim ip As IPAddress() = hostname.AddressList
                ComboBox2.Text = ip(0).ToString()
            Else

                Dim hostname As IPHostEntry = Dns.GetHostEntry("www." & txturl.Text)


                Dim ip As IPAddress() = hostname.AddressList
                ComboBox2.Text = ip(0).ToString()
            End If
        End If
    End Sub
End Class

Mayzz · Answer

Il cherche a récupérer l'adresse du site ? ou l'adresse inscrite dans le code html de la page d'un site comme monip.org ?

@aus3004 

Pourquoi mettre un combo pour afficher une seule adresse ?

Ou alors :

Dim ip As IPAddress() = hostname.AddressList
For Each Item As String In ip
   ComboBox2.Item.Add(Item)
Next
ComboBox2.Text = ip(0).ToString()



Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.

cs_aus3004 · Answer

Salut Mayzz, c'est pas un combo mais une textbox, c'est juste que j'avais la flemme de renommer correctement.

C'est vrai que aazg n'est pas très explicite en ce qui concerne "extraire une adresse IP ". On extrait pas une IP, mais on la trouve

Mayzz · Answer

Mettre une textbox que tu renomme "combobox2"

Effectivement, mais ca prete à confusion, on s'attend à ce que tu ai gardé les nom d'origine du concepteur WinForm.

Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.

aazg · Answer

bonjour a tous et merci pour vos réponses.
J'ai bien fait une erreur dans la categorie, il s'agirait plus de vb 2005 & .NET
Pour les questions les plus recentes, il s'agit de recuperer une adresse ip.presente en tant que texte dans une page web.
Voici l'url du site en question http://www.elydian.fr

aazg · Answer

Merci beaucoupde ta reponse Mayzz, c'est exactement ce qu'il me fallait.
Puis-je te demander d'expliquer ton code s'il te plait. J'aimerais être sur de son fonctionnement.
Merci d'avance.

Mayzz · Answer

bien sûr ^^

En fait ce code télécharge la page web comme le ferait ton navigateur, (Rappel: une page web n'est qu'un simple fichier texte avec des balises html/CSS et des liens pointant vers les ressources, c'est le navigateur qui retranscrit ce que l'on voit à l'écran). Une fois le code obtenu sous forme de chaine de texte, une RegEx (Regular Expression), recherche dans celle-ci un morceau de texte dont le format est xxx.xxx.xxx.xxx (chaque x étant un chiffre de 0 à 9) et nous la retourne. 

Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.

aazg · Answer

Merci beaucoup

Extraire une adresse ip d'une page web

13 réponses

Votre réponse

Discussions similaires