fetch all videos on a Youtube Channel

Question

User944339287 posted

hi guys. I need to fetch all videos playlist from a youtube channel.

this is the url i have refer to https://www.tothenew.com/blog/youtube-apiv3-to-fetch-all-videos-on-a-channel-in-asp-net/#

it's working fine for certain youtube channel (bmw)https://www.youtube.com/bmw but an error occurred when I try this (yskhongdriving) https://www.youtube.com/yskhongdriving

Error message: The remote server returned an error: (404) Not Found.

    Public Function ChannelID() As String

        Dim wc As WebClient = New WebClient With {
            .Encoding = Encoding.UTF8
        }

        Dim key As String = "XXXXXXXXXXXXXXXXXXXXXXX"

        Try
            Dim jsonstring As String = wc.DownloadString("https://www.googleapis.com/youtube/v3/channels?key=" & key & "&forUsername=" & Me.txt_username.Text & "&part=id")
            Dim jobj As JObject = CType(JsonConvert.DeserializeObject(jsonstring), JObject)
            Return jobj("items")(0)("id").ToString()
        Catch ex As Exception
            Response.Write(ex.Message & "<br>")
        End Try

        'https://developers.google.com/youtube/v3/docs/channels/list

    End Function

    Public Sub readPlaylist()

        Dim wc As WebClient = New WebClient With {
            .Encoding = Encoding.UTF8
        }

        Dim key As String = "XXXXXXXXXXXXXXXXXXXXXXX"

        Try
            Dim jsonstring As String = wc.DownloadString("https://www.googleapis.com/youtube/v3/playlists?part=snippet&key=" & key & "&maxResults=50&channelId=" & ChannelID() & "")
            Dim jobj As JObject = CType(JsonConvert.DeserializeObject(jsonstring), JObject)

            For Each entry In jobj("items")
                DT.Rows.Add(entry("snippet")("title").ToString(), entry("snippet")("description").ToString(), entry("id").ToString(), entry("snippet")("thumbnails")("medium")("url").ToString())
            Next

        Catch ex As Exception
            Response.Write(ex.Message)
        End Try

    End Sub

    Protected Sub btn_Search_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_Search.Click


        DT.Columns.Add(New DataColumn("Title", GetType(String)))
        DT.Columns.Add(New DataColumn("description", GetType(String)))
        DT.Columns.Add(New DataColumn("videoId", GetType(String)))
        DT.Columns.Add(New DataColumn("ImageUrl", GetType(String)))

        readPlaylist()

        GridView1.DataSource = DT
        GridView1.DataBind()

    End Sub