Youtube Playlist link id´s finder

    • VB.NET
    • .NET (FX) 4.0

      Youtube Playlist link id´s finder

      Hey
      Ich hab mir bei ner kleinen übung mit regex nen youtube playlist id finder gebastelt, das ist dabei rausgekommen :D
      Der thread-sub:

      Quellcode

      1. Public Sub Playlisttoarray(ByVal Playlid As String)
      2. Dim wc As New Net.WebClient
      3. wc.Proxy = Nothing
      5. Dim value As String = wc.DownloadString("http://www.youtube.com/playlist?list=" & Playlid)
      7. Dim r = Regex.Matches(value, "data-video-ids="".*?"" role=""button"">")
      9. Dim key As String = ""
      10. Dim rr As String = r.Item(1).Value
      11. key = rr.Replace(""" role=""button"">", "").Replace("data-video-ids=""", "")
      12. Dim c As Integer = 0
      14. Dim playlist As String = wc.DownloadString("http://www.youtube.com/watch?v=" & key & "&list=" & Playlid)
      15. Dim getr = Regex.Matches(playlist, "data-video-id="".*?""")
      16. Dim feddichid(0 To getr.Count - 1) As String
      17. If getr.Count = 0 Then
      18. Threading.Thread.Sleep(500)
      19. Dim th As New Threading.Thread(AddressOf Playlisttoarray)
      20. th.Start(Playlid)
      21. Exit Sub
      22. Else
      24. For i = 0 To getr.Count - 1
      25. Dim tmp As String = getr.Item(i).Value
      26. feddichid(i) = tmp.Replace("data-video-id=""", "").Replace("""", "")
      28. Next
      29. End If
      30. MsgBox(feddichid(0))
      32. End Sub

      Und so startet man das:

      Quellcode

      1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
      2. Dim th As New Threading.Thread(AddressOf Playlisttoarray)
      3. th.Start("PLxnuBHTha_MIIqkZ06JyHE8pv7dbLTRl_")
      4. End Sub

      Der thread wird daher immer wieder gestartet bis er was hat, weil youtube seinen code "rotieren" lässt, also starte ich die routine so oft bis das richtige da ist :)
      Ich hoffe ihr habt spass damit :)
      Wer Rechtschreibfehler findet darf sie behalten :)

    Facebook
    Telefonspende