Youtube Downloader Downloade Url fehler

boscko · 8. August 2011, 19:17

Hallo Leute

ich habe das Tutorial von Trudi gefunden.
Link zum Tutorial

Aber bei dem Code wird:

Dim downloadUrl = DownloadUrlRegEx.Match(content_splitted(1)).Groups("url").ToString

Code:

Public Class Form1
Private WithEvents wc As WebClient
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
wc = New WebClient
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim url As String = TextBox1.Text
Dim id As String = url.Substring(url.IndexOf("v=") + 2) 'Id herausfiltern
Dim downloadurl As String = "http://www.youtube.com/get_video_info?video_id=" & id & "&fmt=18"
Dim content As String = ""
Dim Request As HttpWebRequest = HttpWebRequest.Create(downloadurl)
Dim Response As HttpWebResponse = Request.GetResponse()
Dim reader As StreamReader = New StreamReader(Response.GetResponseStream)
content = reader.ReadToEnd
Dim content_splitted() As String = content.Split("fmt_url_map") 'Das geht auch sauberer mit RegEx
Dim DownloadUrlRegEx As New System.Text.RegularExpressions.Regex(",18|(?<url>(.*)),")
Dim downloadUrl = DownloadUrlRegEx.Match(content_splitted(1)).Groups("url").ToString
'---Hier können alle anderen Infos auslesen werden.---
'---Achtung : dann die Variable 'content' benutzen, nicht 'content_splitted'---
wc.DownloadFileAsync(downloadurl, "vid.flv")
End Sub
End Class

Hab schon versucht in DownloadeUrl2 umzunenen
Doch dann kommt bei:

Der selbe fehler.

Kann mir einer helfen?

Edit:
Der fehler ist nun weg aber er läd das video nur in der größe von 7KB runter egal welches.