[VB.net] aidez moi à récupérer une donnée puis l'afficher svp [Résolu]

demoniaque06 17 Messages postés jeudi 2 juin 2011Date d'inscription 16 juillet 2013 Dernière intervention - 16 juil. 2013 à 15:35 - Dernière réponse :  ucfoutu
- 17 juil. 2013 à 10:34
Bonjour,

j'aurais besoin d'un petit coup de main en VB.net et je voudrais savoir comment récupérer des données sur internet par exemple le nombre de vue d'une vidéo youtube et l'afficher dans un label sur mon programme.

pourrais-vous m'aidez svp?

merci d'avance.
Afficher la suite 

Votre réponse

28 réponses

Meilleure réponse
Utilisateur anonyme - 16 juil. 2013 à 17:38
3
Merci
Et si tu fais ça?:
        TextBox1.Visible = False
        Try
            Dim objHttpRequest As System.Net.HttpWebRequest
            Dim objHttpResponse As System.Net.HttpWebResponse
            objHttpRequest = CType(System.Net.HttpWebRequest.Create("https://www.youtube.com/watch?v=80qsxopM_eg"), HttpWebRequest)
            objHttpResponse = CType(objHttpRequest.GetResponse, HttpWebResponse)
            Dim objStrmReader As New StreamReader(objHttpResponse.GetResponseStream)
            TextBox1.Text = objStrmReader.ReadToEnd()

        Catch ex As Exception
            TextBox1.Text = "ERREUR ! " + ex.Message.ToString & Environment.NewLine & "- Veuillez recomencer SVP..."
        End Try

        Dim Balise1 As String = ""
        Dim Balise2 As String = ""
        Label1.Text = Split(Split(TextBox1.Text, Balise1, 2)(1), Balise2)(0)



Qu'as-tu comme résultat?

Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

Merci Utilisateur anonyme 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 75 internautes ce mois-ci

Commenter la réponse de Utilisateur anonyme
Utilisateur anonyme - 16 juil. 2013 à 16:16
0
Merci
Bonjour,

Je ne sais pas ce que tu veux récupérer mais pour obtenir tout le code html de la page, voici une solution:
Try
            Dim objHttpRequest As System.Net.HttpWebRequest
            Dim objHttpResponse As System.Net.HttpWebResponse
            objHttpRequest = CType(System.Net.HttpWebRequest.Create("http://www.truc_muche.html"), HttpWebRequest)
            objHttpResponse = CType(objHttpRequest.GetResponse, HttpWebResponse)
            Dim objStrmReader As New StreamReader(objHttpResponse.GetResponseStream)
            TextBox1.Text = objStrmReader.ReadToEnd()
            
        Catch ex As Exception
            TextBox1.Text = "ERREUR ! " + ex.Message.ToString & Environment.NewLine & "- Veuillez recomencer SVP..."
        End Try


Après tu dois trier ce qui t'intéresse dans le textbox.

Cordialement


CF2i - Guadeloupe
Ingénierie Informatique
Commenter la réponse de Utilisateur anonyme
demoniaque06 17 Messages postés jeudi 2 juin 2011Date d'inscription 16 juillet 2013 Dernière intervention - 16 juil. 2013 à 16:33
0
Merci
J'aimerais juste un code pour relever "watch-view-count" sur le code de youtube de facon à afficher le nombre de vue dans un label sur mon programme rien de plus.

merci de m'apporter la réponse c'est vraiment gentil de m'aider.
Commenter la réponse de demoniaque06
Utilisateur anonyme - 16 juil. 2013 à 16:43
0
Merci
J'aimerais juste un code pour relever "watch-view-count"

J'ai bien compris ce que tu veux faire, seulement nous sommes ici sur un forum de développeurs et non un éditeur de logiciels.

As-tu testé le code que je t'ai envoyé? Où est le code que t'as commencé?


Cordialement


CF2i - Guadeloupe
Ingénierie Informatique
Commenter la réponse de Utilisateur anonyme
demoniaque06 17 Messages postés jeudi 2 juin 2011Date d'inscription 16 juillet 2013 Dernière intervention - 16 juil. 2013 à 16:49
0
Merci
Imports System.Net
Imports System.IO

Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load

        Try
            Dim objHttpRequest As System.Net.HttpWebRequest
            Dim objHttpResponse As System.Net.HttpWebResponse
            objHttpRequest = CType(System.Net.HttpWebRequest.Create("https://www.youtube.com/watch?v=80qsxopM_eg"), HttpWebRequest)
            objHttpResponse = CType(objHttpRequest.GetResponse, HttpWebResponse)
            Dim objStrmReader As New StreamReader(objHttpResponse.GetResponseStream)
            TextBox1.Text = objStrmReader.ReadToEnd()

        Catch ex As Exception
            TextBox1.Text = "ERREUR ! " + ex.Message.ToString & Environment.NewLine & "- Veuillez recomencer SVP..."
        End Try

    End Sub


    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

    End Sub

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

    End Sub

End Class


Voilà ce n'est pas avancé j'ai bien testé le code mais c'est pas ce que je veux j'ai testé plein de technique dont celle-ci :
WebBrowser1.Document.GetElementById("ID").SetAttribute("name", "value")
Label5.Text = WebBrowser1.Document.GetElementById("ID").GetAttribute("value")

que j'ai trouvé sur ce site la, mais ca ne fonctionne toujour pas je cherche depuis vraiment longtemps ca me rend fou.

Aide moi stp.
Commenter la réponse de demoniaque06
demoniaque06 17 Messages postés jeudi 2 juin 2011Date d'inscription 16 juillet 2013 Dernière intervention - 16 juil. 2013 à 16:52
0
Merci
Et je veux apprendre c'est pour ca que j'ai donné l'exemple de youtube j'aurais pu prendre autre chose mais c'est vraiment pour ma propre connaissance rien de plus.
Commenter la réponse de demoniaque06
Utilisateur anonyme - 16 juil. 2013 à 17:13
0
Merci
D'accord, et ton textbox1 se remplit?
Attention il faut attendre un peu le traitement.


Cordialement


CF2i - Guadeloupe
Ingénierie Informatique
Commenter la réponse de Utilisateur anonyme
demoniaque06 17 Messages postés jeudi 2 juin 2011Date d'inscription 16 juillet 2013 Dernière intervention - 16 juil. 2013 à 17:20
0
Merci
oui mon textbox1 ce remplie du code source mais moi je veux pas dans la textbox mais sur un label et c'est un ID que je veux du style afficher les vues d'une vidéo
?
la c'est watch-view-count que je veux afficher
Commenter la réponse de demoniaque06
demoniaque06 17 Messages postés jeudi 2 juin 2011Date d'inscription 16 juillet 2013 Dernière intervention - 16 juil. 2013 à 17:46
0
Merci
Merci beaucoup pour l'attention que tu as porté à ma requête je te remercie profondement.

PROBLEME RESOLUT
Cordialement Yoann
Commenter la réponse de demoniaque06
Utilisateur anonyme - 16 juil. 2013 à 17:49
0
Merci
De rien,
C'est surement un de mes derniers messages sur ce site, toi tu viens d'arriver et moi je parts...

As-tu compris un peu le split?



Cordialement


CF2i - Guadeloupe
Ingénierie Informatique
Commenter la réponse de Utilisateur anonyme
demoniaque06 17 Messages postés jeudi 2 juin 2011Date d'inscription 16 juillet 2013 Dernière intervention - 16 juil. 2013 à 17:59
0
Merci
J'ai pas totalement compris pourait-tu m'expliquer un peu plus en détail ?
Car j'ai tester avec d'autre donné et ca me marque :


Label1.Text = Split(Split(TextBox1.Text, Balise1, 2)(1), Balise2)(0)

L'index se trouve en dehors des limites du tableau
Commenter la réponse de demoniaque06
demoniaque06 17 Messages postés jeudi 2 juin 2011Date d'inscription 16 juillet 2013 Dernière intervention - 16 juil. 2013 à 18:17
0
Merci
Enfette maintenant je voudrais tester sur cette ID ci-dessous de relever le nombre d'inscription sur le jeu DarkOrbit mais ca n'a pas fonctionné ca à marqué l'erreur sur le message ci-dessus.

Voila l'ID :


Inscrit(s) : 82,902,764



Voici mon code :


Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load

        TextBox1.Visible = False
        Try
            Dim objHttpRequest As System.Net.HttpWebRequest
            Dim objHttpResponse As System.Net.HttpWebResponse
            objHttpRequest = CType(System.Net.HttpWebRequest.Create("http://www.darkorbit.fr"), HttpWebRequest)
            objHttpResponse = CType(objHttpRequest.GetResponse, HttpWebResponse)
            Dim objStrmReader As New StreamReader(objHttpResponse.GetResponseStream)
            TextBox1.Text = objStrmReader.ReadToEnd()

        Catch ex As Exception
            TextBox1.Text = "ERREUR ! " + ex.Message.ToString & Environment.NewLine & "- Veuillez recomencer SVP..."
        End Try

        Dim Balise1 As String = "
"

        Dim Balise2 As String = ""
        Label1.Text = Split(Split(TextBox1.Text, Balise1, 2)(1), Balise2)(0)
Commenter la réponse de demoniaque06
Utilisateur anonyme - 16 juil. 2013 à 18:17
0
Merci
Ton erreur signifie que le texte contenu dans balise1 ou 2 n'existe pas dans ta textbox

Tu devrais le mettre entre un try end try pour gérer l'erreur

pour le split regarde un peu ça tu vas mieux comprendre:
      Dim Texte As String = "zéro,un,deux,trois,quatre"
        MessageBox.Show(Split(Texte, ",")(0))
        MessageBox.Show(Split(Texte, ",")(1))
        MessageBox.Show(Split(Texte, ",")(2))
        MessageBox.Show(Split(Texte, ",")(3))
        MessageBox.Show(Split(Texte, ",")(4))


Cordialement


CF2i - Guadeloupe
Ingénierie Informatique
Commenter la réponse de Utilisateur anonyme
Utilisateur anonyme - 16 juil. 2013 à 18:23
0
Merci
Tu n'as pas bien compris si tu fais:
Dim Balise1 As String = "
"
Dim Balise2 As String = ""


il va chercher tout ce qui est entre "
" et ""

si tu veux afficher ce qui est entre et tu dois faire:
Balise1 = ""
balise2 = ""


tu vois?

Cordialement


CF2i - Guadeloupe
Ingénierie Informatique
Commenter la réponse de Utilisateur anonyme
demoniaque06 17 Messages postés jeudi 2 juin 2011Date d'inscription 16 juillet 2013 Dernière intervention - 16 juil. 2013 à 18:25
0
Merci
A dacord je viens de comprendre je test ça dessuite je te donne des nouvelles d'ici 2minutes
Commenter la réponse de demoniaque06
demoniaque06 17 Messages postés jeudi 2 juin 2011Date d'inscription 16 juillet 2013 Dernière intervention - 16 juil. 2013 à 18:31
0
Merci
Super j'ai compris voilà mon code et ca marche parfaitement enfette c'est d'un point à un autre c'étais logique mais fallais savoir :p

Merci énormement je t'en suis très reconnaissant

Mais si je suis pas très indescret pourquoi nous quitte-tu?
Commenter la réponse de demoniaque06
demoniaque06 17 Messages postés jeudi 2 juin 2011Date d'inscription 16 juillet 2013 Dernière intervention - 16 juil. 2013 à 18:31
0
Merci
        TextBox1.Visible = False
        Try
            Dim objHttpRequest As System.Net.HttpWebRequest
            Dim objHttpResponse As System.Net.HttpWebResponse
            objHttpRequest = CType(System.Net.HttpWebRequest.Create("http://www.darkorbit.fr"), HttpWebRequest)
            objHttpResponse = CType(objHttpRequest.GetResponse, HttpWebResponse)
            Dim objStrmReader As New StreamReader(objHttpResponse.GetResponseStream)
            TextBox1.Text = objStrmReader.ReadToEnd()

        Catch ex As Exception
            TextBox1.Text = "ERREUR ! " + ex.Message.ToString & Environment.NewLine & "- Veuillez recomencer SVP..."
        End Try

        Dim Balise1 As String = "
"


        Dim Balise2 As String = "
"
        Label1.Text = Split(Split(TextBox1.Text, Balise1, 2)(1), Balise2)(0)
Commenter la réponse de demoniaque06
Utilisateur anonyme - 16 juil. 2013 à 18:35
0
Merci
ah le site se fait une "peau neuve" prochainement et la nouvelle politique ne me convient pas forcément.

Rien de bien grave...


Cordialement


CF2i - Guadeloupe
Ingénierie Informatique
Commenter la réponse de Utilisateur anonyme
demoniaque06 17 Messages postés jeudi 2 juin 2011Date d'inscription 16 juillet 2013 Dernière intervention - 16 juil. 2013 à 18:38
0
Merci
Ok bah ils sont entrin de perdre une personne bien car ta beaucoup de patience et l'envie d'aider ce qui n'est pas donné à tous le monde encore merci beaucoup!

Quand je serais plus fort en VB.net j'apporterais mon savoir comme tu la fais pour moi!

Cordialement Yoann
Commenter la réponse de demoniaque06
Utilisateur anonyme - 16 juil. 2013 à 19:38
0
Merci
C'est gentil, mais mon compte est déjà supprimé...

Tu devrais lire quelques messages (pas tout, tu vas avoir mal à la tête) voici le LIEN

Cordialement


CF2i - Guadeloupe
Ingénierie Informatique
Commenter la réponse de Utilisateur anonyme

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.