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)
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
119 internautes nous ont dit merci ce mois-ci
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
J'aimerais juste un code pour relever "watch-view-count"
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
WebBrowser1.Document.GetElementById("ID").SetAttribute("name", "value") Label5.Text = WebBrowser1.Document.GetElementById("ID").GetAttribute("value")
Inscrit(s) : 82,902,764
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)
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))
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)
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.