Hallo Leute
ich habe das Tutorial von Trudi gefunden.
Link zum Tutorial
Aber bei dem Code wird:
Code:
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.
ich habe das Tutorial von Trudi gefunden.
Link zum Tutorial
Aber bei dem Code wird:
Code:
VB.NET-Quellcode
- 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.
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „boscko“ ()