ASPIRE SOURCE WEB, CONNAITRE SON IP SUR LE WEB

Commentaire de x1fr le 28/07/2004 19:24:25

ne prend pas en compte les éèà, etc.... :/

Commentaire de x1fr le 29/07/2004 08:34:38

ce n'était pas une critique hein, juste une remarque pour information
parce que en fait c'est ce que je cherchais une solution qui gérait ces caractères sous la forme é
et du coup je n'ai toujours rien trouvé... aussi bien webrequest que webclient me récupère par exemple tlcharger au lieu de télécharger

Commentaire de chris81 le 29/07/2004 17:03:28

remplace le code du btn par celui ci, pour le "é" tu aura &eacute

Private Sub Envoyer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Envoyer.Click

Dim s As String
Dim Web As New WebClient
Dim t As New System.Text.UTF8Encoding

Dim Str As New StreamReader(Web.OpenRead(TbURL.Text))
s = Str.ReadToEnd
Dim srw As New StreamWriter("C:\Source du site web.txt", False, t)
srw.Write(s)
  srw.Close()

  MsgBox("Votre fichier à été enregistré", MsgBoxStyle.Information, "Fichier OK")

End Sub

si tu trouve comment l'obliger a retourne a la ligne au lieu de mettre des carres dit le moi
a+

Commentaire de murphy2712 le 28/07/2005 11:18:56

Super, merci beaucoup car ca faisait un bout de temps que je cherchais un code en .NET pour récupérer mon IP Publique.
J'ai noté 8/10 car, bien que le code soit simple il n'est pas du tout commenté et aussi parce qu'il est un peu buggé ! En fait il récupère mal l'adresse IP :
Mid(MyLigne, 16, 14) -> ne récupère que les 14 premiers caractères alors qu'une adresse ip peut en faire jusqu'à 15 ! Et puis là où tu le prends (dans le <h1>), le code n'est pas régulier car des fois ya écris :
<h1>Your IP  - xxx.xxx.xxx.xxx</h1>
et des fois c'est :
<h1>Your IP  Is xxx.xxx.xxx.xxx</h1>
ce qui décale d'un caractère !
J'ai corrigé en prenant le code dans <TITLE>, en prenant plus long et en coupant au premier espace :

Private Function RetourneIP() As String
  Dim MyIP, MyLigne, Borne As String
  Dim web As New WebClient
  Dim Str As New StreamReader(web.OpenRead("http://www.whatismyip.com"))
  While Str.Peek > 0
    MyLigne = Str.ReadLine
    Borne = Mid(MyLigne, 1, 4)
    If Borne = "<h1>" Then
      MyIP = Mid(MyLigne, 16, 14)
      MyIPOnTheWeb = MyIP
      Exit While
    End If
  End While
End Function

...devient...

Private Function RetourneIP() As String
  Dim MyIP, MyLigne, Borne As String
  Dim web As New WebClient
  Dim Str As New StreamReader(web.OpenRead("http://www.whatismyip.com"))
  While Str.Peek > 0
    MyLigne = Str.ReadLine
    Borne = Mid(MyLigne, 1, 7)
    If Borne = "<TITLE>" Then
      MyIP = Mid(MyLigne, 19, 16)
      MyIPOnTheWeb = MyIP.Substring(0, MyIP.IndexOf(" "))
      Exit While
    End If
  End While
End Function

Ton aspirateur de source m'a bien servi pour analyser cela ;o)

Commentaire de chris81 le 28/07/2005 15:16:33

que fait cette ligne      
MyIPOnTheWeb = MyIP.Substring(0, MyIP.IndexOf(" "))

Commentaire de PWM63 le 18/05/2006 13:34:50

Merci pour la fonction RetourneIP.

Je l'ai modifiée ainsi afin de toujours obtenir 1 IPv4 valide, quelque soit l'emplacement de l'IP sur le site.

    Private Function RetourneIP() As String

        Dim web As New System.Net.WebClient
        Dim site As New System.IO.StreamReader(web.OpenRead("http://www.whatismyip.com"))
        Dim ligne, caractère, ip, nombres() As String
        'Fonction pour capturer l'adresse IP diponible sur http://www.whatismyip.com
        'Etant donné que la position de l'adresse ip n'est jamais fixe,
        'la fonction recherche une adresse ip valide (nombre point nombre point nombre point nombre)
        While site.Peek > 0
            'Lecture de la ligne suivante
            ligne = site.ReadLine
            ip = ""
            For Each caractère In ligne
                If (Asc(caractère) >= Asc("0") And _
                    Asc(caractère) <= Asc("9")) Or _
                    caractère = "." Then
                    'Ce caractère peut faire parti d'1 adresse IP valide
                    'On ajoute ce caractère dans la capture de l'IP
                    ip &= caractère
                Else
                    'Ce caractère ne fait pas parti d'1 adresse IP valide
                    'L'IP capturée ne peut contenir que des chiffres et des points
                    'Vérification si l'adresse IP capturée est valide
                    'Stock les nombres dans 1 tableau
                    nombres = ip.Split(".")
                    If UBound(nombres) = "3" Then
                        'Il y a 4 nombres (de nombres(0) à nombres(3), et donc 3 points
                        'L'IP est donc valide
                        Return ip
                    End If
                    'IP non valide
                    'On efface la capture de l'IP
                    ip = ""
                End If
            Next
        End While
    End Function