Récuperer des valeurs sur un site web

Version imprimable

03/09/2013, 00h55
Skylle

Récuperer des valeurs sur un site web

Bonjour

Je cherche comment récupérer des valeurs sur le site : http://whatismyipaddress.com/

Je voudrais obtenir 'ip et le pays mais je n'y arrive pas car il n'y a pas d'id et je n'arrive pas avec un getElementByTagName .

Merci de votre aide.
03/09/2013, 10h06
wallace1
Bonjour skylle,

Il faut tout simplement utiliser la classe webrequest en étudiant préalablement les requêtes grâce au très réputé outil nommé fiddler.

ou alors tu peux utiliser ceci :
Code:

1 2 3 Dim wc As New WebClient Msgbox(wc.DownloadString("http://anti.x10.mx/api/getip.php")))
a+
03/09/2013, 10h12
tomlev

Utilise l'API :

http://whatismyipaddress.com/api

(enfin API c'est un bien grand mot, c'est juste une URL qui retourne ton IP en texte brut...)

Bonjour,

Pour l'ip j'ai pris dans l'input qui l'affiche, et pour le pays j'ai bouclé le tableau jusqu'au <th>Country:</th> et une fois là on sait que le prochain élément est le nom du pays ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
  Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
 
        If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then 'la page crache plusieurs DocumentCompleted pour chaque frame chargé, on teste que la page entiére soit chargée
            MsgBox(getIp() & " " & getCountry())
        End If
 
 
    End Sub
 
 
    ''' <summary>
    ''' Récupére l'IP de l'element INPUT sur la page
    ''' </summary>
    ''' <returns>l'ip as string</returns>
    Private Function getIp() As String
 
        For Each elem As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
 
            If elem.Name = "LOOKUPADDRESS" Then
 
                Return elem.GetAttribute("value") 'On retourne la value présente dans l'input
 
            End If
        Next
 
        Return Nothing
    End Function
 
 
    ''' <summary>
    ''' Récupére le pays dans la page
    ''' </summary>
    ''' <returns>le pays as string</returns>
    Private Function getCountry() As String
        Dim trouve As Boolean = False
        Dim TABLES As HtmlElementCollection = Me.WebBrowser1.Document.GetElementsByTagName("table")
 
 
 
        For Each TBL As HtmlElement In TABLES 'On fouille les tableau de la page
            For Each tbb As HtmlElement In TBL.All 'Pour chaque tableau on fouille son contenu
 
 
                'si l'element <th>Country:</th> est trouvé alors au tour de boucle suivant on tombe sur l'élément <td>France</td> et on test cela par un boolean "trouve"
                If trouve Then
                    trouve = False
                    Return tbb.InnerText
                End If
 
                If tbb.InnerText = "Country:" Then 'Si on passe ce texte, c'est que le prochain element sera le pays, donc on passe le boolean à true pour dire qu'on l'a trouvé
                    trouve = True
                End If
            Next
        Next
 
        Return Nothing
    End Function

EDIT: Vu le post de Tomlev trop tard, je me suis embêté pour rien ... :cry:

03/09/2013, 10h30
charouel

Tu peux utilisé XSLT
03/09/2013, 10h57
tomlev

Citation:

Envoyé par charouel

Tu peux utilisé XSLT

Je ne vois vraiment pas en quoi ça va résoudre le problème :koi:
- déjà XSLT c'est pour du XML, pas pour du HTML ; et en dehors du cas particulier de XHTML, un document HTML n'est pas un document XML valide, donc XSLT n'est pas utilisable
- de plus le problème est qu'il n'y a pas de façon d'identifier clairement le texte à extraire (pas d'id ni de class ni quoi que ce soit d'exploitable), donc XSLT n'y changera rien
03/09/2013, 22h37
Skylle

@Ez3kiel J'ai essayé ton code il ne fonctionne pas :S

Puis pour l'api je voudrais l'ip mais aussi le pays, la ville et le FAI donc ça ne marche pas.
03/09/2013, 22h58
tomlev

Citation:

Envoyé par Skylle

@Ez3kiel J'ai essayé ton code il ne fonctionne pas :S

Puis pour l'api je voudrais l'ip mais aussi le pays, la ville et le FAI donc ça ne marche pas.

Dans ce cas regarde ça :
http://freegeoip.net/json/

Remplace json par xml ou csv, selon le format que tu préfères obtenir

Pour la ville, ne t'attends pas à ce que ce soit très précis... moi il m'indique Suresnes, alors que je suis dans le nord de Paris.
03/09/2013, 23h54
Skylle

Citation:

Envoyé par tomlev

Dans ce cas regarde ça :
http://freegeoip.net/json/

Remplace json par xml ou csv, selon le format que tu préfères obtenir

Pour la ville, ne t'attends pas à ce que ce soit très précis... moi il m'indique Suresnes, alors que je suis dans le nord de Paris.

Est ce que tu peux détailler un peu plus stp car je comprend pas trop de quoi tu parle , format et quel code je doit faire pour obtenir ces infos

Bah par exemple si tu prends les données en XML, tu peux utiliser Linq to XML pour lire le contenu :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Imports System.Net
Imports System.Linq
Imports System.Xml.Linq
...
 
 
    Dim wc As New WebClient()
    Dim xml = wc.DownloadString("http://freegeoip.net/xml/")
    Dim doc = XDocument.Parse(xml)
    Dim ipAddress = doc.<Response>.<Ip>.Value
    Dim country = doc.<Response>.<CountryName>.Value
    Dim city = doc.<Response>.<City>.Value

04/09/2013, 09h43
_Ez3kiel

Citation:

Envoyé par Skylle

@Ez3kiel J'ai essayé ton code il ne fonctionne pas :S

Ha ... Chez moi avec un WebBrowser (WebBrowser1) qui charge http://whatismyipaddress.com/ le code fonctionne, je récupère le pays et l'ip.

Mais sinon ne t'embête pas, ma solution fonctionne mais uniquement dans la mesure où la structure de leur page ne changera pas. Je pense que la solution de Tomlev est plus évolutive et plus "propre". (De plus http://whatismyipaddress.com/ ne te retourne pas la ville comme tu le souhaites)