我想检查youtube的网址(视频)是否存在和日期发布/修改使用vb.net

Imports System.Net

Public Function CheckYouTubeVideoExists(url As String) As Boolean
    Dim request As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
    request.Method = "HEAD"
    Try
        Using response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
            Return response.StatusCode = HttpStatusCode.OK
        End Using
    Catch ex As WebException
        Return False
    End Try
End Function

Imports System.Net
Imports System.Text.RegularExpressions

Public Function GetYouTubeVideoDates(url As String) As Dictionary(Of String, DateTime)
    Dim request As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
    request.Method = "GET"
    Dim dates As New Dictionary(Of String, DateTime)()
    Try
        Using response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
            Using stream As System.IO.Stream = response.GetResponseStream()
                Using reader As New System.IO.StreamReader(stream)
                    Dim html As String = reader.ReadToEnd()
                    Dim regex As New Regex("<meta itemprop=""datePublished"" content=""([^""]+)"" />")
                    Dim match As Match = regex.Match(html)
                    If match.Success Then
                        Dim datePublished As DateTime
                        If DateTime.TryParse(match.Groups(1).Value, datePublished) Then
                            dates.Add("Date Published", datePublished)
                        End If
                    End If
                    regex = New Regex("<meta itemprop=""dateModified"" content=""([^""]+)"" />")
                    match = regex.Match(html)
                    If match.Success Then
                        Dim dateModified As DateTime
                        If DateTime.TryParse(match.Groups(1).Value, dateModified) Then
                            dates.Add("Date Modified", dateModified)
                        End If
                    End If
                End Using
            End Using
        End Using
    Catch ex As WebException
        ' 处理异常
    End Try
    Return dates
End Function