.NET从优酷专辑中采集所有视频及信息（VB.NET代码）

为了采集优酷专辑中的视频及信息，我们需要进行以下步骤：

分析优酷专辑页面

首先，我们需要分析优酷专辑页面的源代码，确定需要采集的信息所在的位置。可以使用Chrome的开发者工具，通过查看页面源代码和网络请求来确定：

1. 打开Chrome开发者工具（快捷键：F12）。
2. 进入优酷专辑页面，并切换到“Elements”选项卡。
3. 在页面中找到需要采集的信息（比如视频标题、播放地址等），右键点击选择“Copy Selector”，可以得到该元素对应的CSS Selector。

注意，优酷视频信息是通过Ajax请求获取的，因此我们还需要分析网络请求，在“Network”选项卡中找到请求API，并获取API的URL和参数信息。

编写VB.NET代码

接下来，我们可以使用VB.NET编写代码，通过网络请求和正则表达式来采集数据。以下是示例代码：

Imports System.Net
Imports System.IO
Imports System.Text.RegularExpressions

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 优酷专辑API地址
        Dim apiUrl As String = "https://api.youku.com/albums/playlist?platform=pc&serviceProvider=yz&guid=xxx&client_id=xxx&albumId=xxx&playlistId=xxx&contain=playUrl%2C%2C&acodec=mp3&callback=jsonp_xxx"

        ' 获取API数据
        Dim webClient As New WebClient()
        Dim jsonData As String = webClient.DownloadString(apiUrl)

        ' 解析API数据
        Dim pattern As String = """title"":""(.*?)"""
        Dim match As Match = Regex.Match(jsonData, pattern)

        ' 输出解析结果
        If match.Success Then
            Label1.Text = match.Groups(1).Value
        Else
            Label1.Text = "未找到视频标题"
        End If
    End Sub
End Class

上述代码通过WebRequest对象来获取网页数据，然后通过正则表达式解析数据，最后输出视频标题。

参考示例

以下是另一个示例，它可以从优酷专辑页面采集所有视频标题和播放地址：

Imports System.Net
Imports System.Web.Script.Serialization

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 优酷专辑页面地址
        Dim albumUrl As String = "https://v.youku.com/v_show/id_xxx.html"

        ' 获取视频信息
        Dim webClient As New WebClient()
        Dim htmlData As String = webClient.DownloadString(albumUrl)
        Dim jsonData As String = Regex.Match(htmlData, """tvId"":""(.*?)""").Groups(1).Value
        Dim apiUrl As String = "https://api.youku.com/shows/show/" & jsonData & "?tab=1&callback=jsonp_xxxx"

        ' 解析API数据
        Dim videoList As New List(Of VideoInfo)()
        Dim jsonp As String = webClient.DownloadString(apiUrl)
        jsonp = jsonp.Substring(jsonp.IndexOf("(") + 1, jsonp.LastIndexOf(")") - jsonp.IndexOf("(") - 1)
        Dim jss As New JavaScriptSerializer()
        Dim jsonObj As Object = jss.DeserializeObject(jsonp)
        Dim episodes As Object = jsonObj("data")("totalVideoNormalList")("normal")
        For Each episode As Object In episodes
            Dim videoInfo As New VideoInfo()
            videoInfo.Title = episode("title")
            videoInfo.PlayUrl = episode("youkuUrl")
            videoList.Add(videoInfo)
        Next

        ' 输出视频列表
        Dim output As String = ""
        For Each video As VideoInfo In videoList
            output += video.Title & vbCrLf & video.PlayUrl & vbCrLf
        Next
        TextBox1.Text = output
    End Sub

    Public Class VideoInfo
        Public Property Title As String
        Public Property PlayUrl As String
    End Class
End Class

上述代码通过调用Youku API来获取视频信息，然后通过JavaScript反序列化解析数据，最后输出视频列表。注意，在实际使用过程中需要替换示例代码中的专辑页面地址、API地址和回调函数名。