Visual-Basic-Forum VB-Paradise.de

Quellcode

Imports System.Net
Imports System.IO
Imports System.Text.RegularExpressions
Public Class Form1

    Dim Request As HttpWebRequest = HttpWebRequest.Create("URL")
    Dim Response As HttpWebResponse = Request.GetResponse()
    Dim reader As StreamReader = New StreamReader(Response.GetResponseStream)
    Dim httpContent As String = httpContent = reader.ReadToEnd
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        
        Dim Link As String = TextBox1.Text()
        Dim Request As HttpWebRequest = HttpWebRequest.Create(Link)
        Dim Response As HttpWebResponse = Request.GetResponse()
        Dim reader As StreamReader = New StreamReader(Response.GetResponseStream)
        Dim httpContent As String
        httpContent = reader.ReadToEnd
        Dim tRegEx As New Regex("""t"": ""(?<t>(.*)) """)
        Dim t As String
        t = (Mid$(tRegEx.Match(httpContent).Groups("t").ToString, 1, 46))
        Dim ID As String = TextBox1.Text
        ID = ID.Replace("http://www.youtube.com/watch?v=", "")
        Dim DownloadURL As String = "http://www.youtube.com/get_video?fmt=18&video_id=" & ID & "&t=" & t
        MsgBox("Downloadlink: " & DownloadURL)
    End Sub
End Class

Visual Basic Quellcode

    Dim Request As HttpWebRequest = HttpWebRequest.Create("URL")
    Dim Response As HttpWebResponse = Request.GetResponse()
    Dim reader As StreamReader = New StreamReader(Response.GetResponseStream)
    Dim httpContent As String = httpContent = reader.ReadToEnd

Visual Basic Quellcode

    	Dim AutorRegEx As New Regex("onclick=""yt.events.stopPropagation\(event\);""><strong>(.*?)<\/strong><\/a>")
    	Dim Autor As String
    	Autor = AutorRegEx.Match(httpContent).Groups(1).Value()



    	Dim ViewRegEx As New Regex("<span class=""watch-expander-head-content""><strong class=""watch-view-count"">(?<Views>(.*))</strong><br>Aufrufe</span>")
    	Dim Views As String
    	Views = ViewRegEx.Match(httpContent).Groups("Views").ToString


    	Dim tRegEx As New Regex("""t"": ""(?<t>(.*)) """)
    	Dim t As String
    	t = (Mid$(tRegEx.Match(httpContent).Groups("t").ToString, 1, 46))


    	Dim DateRegEx As New Regex("<span class=""watch-video-date"">(?<DateAdded>(.*))</span>")
    	Dim DateAdded As String
    	DateAdded = DateRegEx.Match(httpContent).Groups("DateAdded").ToString



    	Dim LängeVideo As New Regex("<span class=""video-time""><span>(.*?)<\/span>")
    	Dim Länge As String
    	Länge = LängeVideo.Match(httpContent).Groups(1).Value()

Visual Basic Quellcode

http://www.youtube.com/get_video?fmt=18&video_id=SuNAfUc3t1s&t=vjVQa1PpcFPZAmVqU071-xTN8nnb6Xx8yUW2TXViVRg=",