时间戳

首页 > 解决方案 > 在标签中显示来自 URL 的 Youtube 视图（如何？）VB

vb.net - 在标签中显示来自 URL 的 Youtube 视图（如何？）VB

问题描述

是否可以从 youtube url 获取视图到 VB 中的标签？在谷歌搜索了几个小时，但什么都没有......在此先感谢

标签： vb.netyoutube

解决方案

首先创建一个 ConsoleApplication

Module Module1

    Sub Main()
        Console.Title = "Youtube Fetch Views"
        Dim thread As New System.Threading.Thread(AddressOf FetchViews)
        thread.Start()
        Console.ReadKey()
    End Sub

    Sub FetchViews()
        Dim request As Net.HttpWebRequest = TryCast(Net.WebRequest.Create("https://www.youtube.com/watch?v=6MTXs8T7Omg"), Net.HttpWebRequest)
        Dim response As Net.HttpWebResponse = TryCast(request.GetResponse(), Net.HttpWebResponse)
        Dim dataStream As IO.Stream = response.GetResponseStream()
        Dim reader As New IO.StreamReader(dataStream)
        Dim responseFromServer As String = reader.ReadToEnd()
        reader.Close()
        response.Close()
        Dim str As Text.RegularExpressions.Match = Text.RegularExpressions.Regex.Match(responseFromServer, "<div class=""watch-view-count"">(.*?)</div>")
        Dim views As String = Str.Groups(1).Value
        Console.ForegroundColor = ConsoleColor.Green
        Console.WriteLine(views)
    End Sub

End Module

推荐阅读