[VB.net] aidez moi à récupérer une donnée puis l'afficher svp [Résolu]
demoniaque0617
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
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.
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)
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.
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.
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 :
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.
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
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)
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)
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!
a aidé 93 internautes ce mois-ci