Récupérer des données sur un site.

Bonjour,

mon problème est simple. je souhaite récupérer des données (Artiste et titre) sur la page d'une radio web via l'url par exemple afin de les afficher dans un gadget. Cela est il possible et si oui comment.

Merci d'avance.

Bonjour,

je ne sais pas comment ça marche un "widget"

dans une page html, locale, avec le langage javascript ( par exemple)  :
un ch'tiot coup d'ajax ( par exemple ) , et on fait ce qu'on veut.

---

                Cordialement            Bul         [mon Site]     [M'écrire]

Salut,

Bultez ++

@bultez : un widget (ça dépend ce que l'on veut faire avec...) peut récupèrer un flux ou le résultat d'une page...

a++

PS : pour plus d'infos sur les widget, allez sur wikipédia...

Si la réponse vous convient, pensez : Réponse acceptée !

' Variables globales
Dim Url


Url = "http://radio.rtl2.fr/player.html"


Function Artiste()
On Error Resume Next
    
    Artiste = ""
    
    Html = ChercherPage(Url)
    If Html = "" Then
        AfficherMessage("Error")
        Exit Function
    End If
    
    Artiste = Html.getElementById("artist").innerText
        
End Function


'--------------------------------------------------------------------------


Function Titre()
On Error Resume Next
    
    Titre = ""
    
    Html = ChercherPage(Url)
    If Html = "" Then
        AfficherMessage("Error")
        Exit Function
    End If
    
    Titre = Html.getElementById("title").innerText
    
End Function


'--------------------------------------------------------------------------

Function AfficherMessage(ByVal txt)
On Error Resume Next

    document.getElementById("Message").style.visibility = "visible"
    document.getElementById("Message").innerText = txt
    
End Function


'--------------------------------------------------------------------------

Function ChercherPage(ByVal url)
    Dim HttpRequest
    
    ChercherPage = ""
    
    Set HttpRequest = CreateObject("Microsoft.XMLHTTP")
    HttpRequest.Open "GET", url, False
    HttpRequest.Send
    If HttpRequest.status = 200 Then ' OK
        ChercherPage = HttpRequest.responseText
    End If

End Function


(code en vbscript)
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Voici un bout de mon code. j'ai mis en rouge les parties qui pose problème. je pense que se n'est pas correcte mais je ne vois pas ce que je peux écrire d'autre. si quelqu'un pouvant éclairer ma lanterne, se serai très sympa.
merci...

Re,

Dans toncas tu aura du poster sur le forum de vb...

ça ne concerne pas trop le javascript...

a++

Si la réponse vous convient, pensez : Réponse acceptée !

Je sais. je demande une solution équivalente mais en javascript. désolé, je pensé que c'était évident...

Merci de ton aide bultez. je m'y suis mis. Je publierai ma source dès que j'aurai fini...

très bien youdream.
js n'est pas si compliqué que cela ( au début ) quand on arrive de VB[Script]
de la syntaxe, c'est presque tout.

---

                Cordialement            Bul         [mon Site]     [M'écrire]