Youtube Download URl Aus Link extrahiren

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Programer.

    Youtube Download URl Aus Link extrahiren

    Hallo Zusammen, Ich weiss das Thema wurde schon oft behandelt aber habe keine Funktionierende Lösung gefunden.

    Da Youtube-mp3.org jetzt ein Download-Limit hat muss ich den scheiss selber herunterladen. Habe es mit diesem Code versucht:

    VB.NET-Quellcode

    1. Imports System.Net
    2. Imports System.IO
    3. Imports System.Text.RegularExpressions
    4. Public Class Form1
    6. Public Sub Get_Video_Info(ByVal Link As String)
    7. Dim Request As HttpWebRequest = HttpWebRequest.Create(Link)
    8. Dim Response As HttpWebResponse = Request.GetResponse()
    9. Dim reader As StreamReader = New StreamReader(Response.GetResponseStream)
    10. Dim httpContent As String
    11. httpContent = reader.ReadToEnd
    13. Dim TitleRegEx As New Regex("title=""(?<Title>(.*))"" />")
    14. Dim title As String
    15. title = TitleRegEx.Match(httpContent).Groups("Title").ToString
    17. Dim AutorRegEx As New Regex("data-discoverbox-username=""(?<Autor>(.*))"" >")
    18. Dim Autor As String
    19. Autor = AutorRegEx.Match(httpContent).Groups("Autor").ToString
    21. Dim ViewRegEx As New Regex("<span id=""watch-views""><span id=""watch-view-count"">(?<Views>(.*))</span> Aufrufe</span>")
    22. Dim Views As String
    23. Views = ViewRegEx.Match(httpContent).Groups("Views").ToString
    25. Dim RateNum As New Regex("<span class=""smallText"">(?<Rates>(.*))</span>")
    26. Dim RateNums As String
    27. RateNums = RateNum.Match(httpContent).Groups("Rates").ToString
    29. Dim tRegEx As New Regex("""t"": ""(?<t>(.*)) """)
    30. Dim t As String
    31. t = (Mid$(tRegEx.Match(httpContent).Groups("t").ToString, 1, 46))
    33. Dim i As ListViewItem
    34. i = ListView1.Items.Add(Link)
    36. With i
    37. .SubItems.Add(title)
    38. .SubItems.Add(Autor)
    39. .SubItems.Add(RateNums)
    40. .SubItems.Add(Views)
    41. .Tag = t
    42. End With
    44. End Sub
    46. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    47. If ListView1.SelectedItems.Count <> 1 Then
    48. MsgBox("Bitte ein Video auswählen!")
    50. Else
    51. Dim t As String = ListView1.FocusedItem.Tag
    52. Dim ID As String = ListView1.FocusedItem.Text
    53. ID = ID.Replace("https://www.youtube.com/watch?v=", "")
    54. MsgBox(ID)
    55. Dim DownloadURL As String = "https://www.youtube.com/get_video?fmt=18&video_id=" & ID & "&t=" & t
    56. MsgBox("Downloadlink: " & DownloadURL)
    57. TextBox1.Text = DownloadURL
    58. Dim myWebClient As New Net.WebClient
    59. myWebClient.DownloadFile(DownloadURL, "Mien Pfad") '(Dein Link, Speicherort)
    60. End If
    61. End Sub
    63. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    64. Dim Link As String
    65. Link = InputBox("Bitte einen Link eingeben")
    66. Get_Video_Info(Link)
    67. End Sub



    Der haut aber nicht hin. Kann mir jemand sage worasu sich die neue Download-Url zusammensetzt und wo ich die Parameter her kriege ?

    Oder hat jemand eine bessere Idee ?

    MFG Mischa

    Hier ist ein Sample dazu - ist aber kein leichter Stoff: YTInformation-Dings

    Das basiert auf der Youtube-Api, das ist ein Dienst, der von utube bereitgestellt wird, der Zugriff auf die utube-Db gewährt, und zwar unabhängig vom utube-Web-Auftritt.

    Abgerufen wird die Api-Funktion mit dieser Url: "http://youtube.com/get_video_info?&video_id=" & videoId
    Aber sie dir das Dingens selber an, und versuch, schlau draus zu werden.

    Alternativ kannste glaub auch nach youtube-api-dokumentation googeln, oder mal auf Codeprojekt gucken.