géolocaliser une IP

bonjour,
ajoutez 6 labels.
modifier leurs textes :
adresse IP :
Pays :
Région :
Ville :
Latitude :
Longitude :

dans un événement (click, form_load) copier-coller ce code :

Code:

        Dim info As New System.Xml.XmlDocument 'création de la variable info
        Dim infonode As System.Xml.XmlNodeList 'création de la variable infonode
        Dim i As Integer 'création de la variable i
        info.Load("http://freegeoip.net/xml/") 'obtention des informations
        infonode = info.GetElementsByTagName("Response")
        For i = 0 To infonode.Count - 1 'pour chaque info dans infonode
            infonode(i).ChildNodes.Item(0).InnerText.Trim()
            Label1.Text = "Adresse IP : " & infonode(i).ChildNodes.Item(0).InnerText.Trim()
            Label2.Text = "Pays : " & infonode(i).ChildNodes.Item(2).InnerText.Trim()
            Label3.Text = "Region : " & infonode(i).ChildNodes.Item(4).InnerText.Trim()
            Label4.Text = "Ville : " & infonode(i).ChildNodes.Item(5).InnerText.Trim()
            Label5.Text = "Latitude : " & infonode(i).ChildNodes.Item(7).InnerText.Trim()
            Label6.Text = "Longitude : " & infonode(i).ChildNodes.Item(8).InnerText.Trim()
        Next

exécutez votre programme, lancez l'événement désiré et magie les info se rentre toute seule :
votre IP, votre pays ...
voila comment on géolocalise en VB.
les résultats peuvent être légèrement éronnés, la région, l'IP, le pays seront toujours bonnes par contre.
bon dev, j"espère avoir été compréhensible  

Re,

ça peut être utile mais faudrait éviter de s'en servir trop, car il ne faudrait pas qu'une IP tombe entre de mauvaises mains
Je vais tester ton code tout de suite

Cordialement,
Softewarzatorman

Bonjour Fandeonepiece2,

Super tuto et code ça  Sa peut servir sur un serveur de base de données SQL pour géolocaliser une IP  
Merci !

Bonjour,

Bon tuto , mais par contre, il faut faire attention... ça donne même l'emplacement exact de ma maison ce truc :°:
bon par contre c'est adaptable sous SZ, donc sa serait bien de l'adapter fandeonepiece2

polien a écrit:Bonjour,

Bon tuto , mais par contre, il faut faire attention... ça donne même l'emplacement exact de ma maison ce truc :°:
bon par contre c'est adaptable sous SZ, donc sa serait bien de l'adapter fandeonepiece2

Normalement sa donne l'emplacement du DataCenter qui filtre les IP du FAI. Pas ta maison
Heureusement d'ailleurs *sifflote*

re,
en effet, c'est impossible,
car ce prog ne te géolocalise pas vraiment, il géolocalise ton FAI
cordialement

Blackorion35 a écrit:

polien a écrit:Bonjour,

Bon tuto , mais par contre, il faut faire attention... ça donne même l'emplacement exact de ma maison ce truc :°:
bon par contre c'est adaptable sous SZ, donc sa serait bien de l'adapter fandeonepiece2

Normalement sa donne l'emplacement du DataCenter qui filtre les IP du FAI. Pas ta maison
Heureusement d'ailleurs *sifflote*

je me disait aussi, ça serait un peu embêtant

re,

Ce n'est pas vraiment du VB puisque tu lis les données d'un site ....

Sinon, on géo localise le data center du FAI mais une IP peut donner plus que le FAI ....
Etant donné que l'IP que te donne le FAI est unique à chaque clients de ce même FAI, tu as bah le client lui-même.

Cordialement,
Le réparateur de PC