Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

Public Class Form1

Visual Basic Quellcode

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        'Titel
        Dim TitleRegEx As New Regex("title=""(?<Title>(.*))"" />")
        Dim title As String
        'Autor
        Dim AutorRegEx As New Regex("'VIDEO_USERNAME': '(?<Autor>(.*))',")
        Dim Autor As String
        'Aufrufe
        Dim ViewRegEx As New Regex("<strong class=""watch-view-count"">(?<Views>(.*))</strong><br>Aufrufe")
        Dim Views As String
        Dim Request As HttpWebRequest = HttpWebRequest.Create("http://www.youtube.com/watch?v=O7rz_0p6AGc&feature=related")
        Dim Response As HttpWebResponse = Request.GetResponse()
        Dim reader As StreamReader = New StreamReader(Response.GetResponseStream)
        Dim httpContent As String = httpContent = reader.ReadToEnd

        httpContent = reader.ReadToEnd
        Views = ViewRegEx.Match(httpContent).Groups("Views").ToString
        Autor = AutorRegEx.Match(httpContent).Groups("Autor").ToString
        title = TitleRegEx.Match(httpContent).Groups("Title").ToString
        t = (Mid$(tRegEx.Match(httpContent).Groups("t").ToString, 1, 46))
        URL = URL.Replace("http://www.youtube.com/watch?v=", "")
        Button1.Enabled = True

        Autor_.Text = Autor
        Titel.Text = title
        Aufrufe.Text = Views

    End Sub