VS2010旗舰版VB.NET版本爬虫爬取好看视频rj-QZQ-2024-9-14

Imports System.Net
Imports System.IO

Public Class Form1
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
’ 获取用户输入
Dim videoUrls As String() = {
TextBox2.Text.Trim(),
TextBox3.Text.Trim(),
TextBox4.Text.Trim()
}
Dim savePath As String = TextBox1.Text.Trim()

    ' 基本验证
    If String.IsNullOrEmpty(savePath) OrElse videoUrls.Any(Function(url) String.IsNullOrEmpty(url)) Then
        MessageBox.Show("请填写所有 URL 和保存路径。", "警告", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        Return
    End If

    ' 下载视频
    For i As Integer = 0 To videoUrls.Length - 1
        Try
            Dim videoUrl As String = videoUrls(i)
            Dim fileName As String = "video" & (i + 1).ToString() & GetFileExtension(videoUrl)
            Dim fullSavePath As String = Path.Combine(savePath, fileName)

            Using webClient As New WebClient()
                ' 下载文件
                webClient.DownloadFile(videoUrl, fullSavePath)
            End Using

            MessageBox.Show("视频下载成功: " & fullSavePath, "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
            MessageBox.Show("下载失败：" & ex.Message, "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    Next
End Sub

' 获取文件扩展名
Private Function GetFileExtension(ByVal url As String) As String
    Try
        Dim uri As New Uri(url)
        Dim segments As String() = uri.Segments
        Dim fileName As String = segments(segments.Length - 1)
        Return Path.GetExtension(fileName) ' 获得文件扩展名
    Catch ex As Exception
        Return ".mp4" ' 默认扩展名
    End Try
End Function






Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    TextBox1.Text = "C:\Users\Administrator\Desktop\VS2010旗舰版VB.NET版本爬虫爬取好看视频QZQ\新建文件夹\"

    TextBox2.Text = "https://vdept3.bdstatic.com/mda-ph7dsz93v3b4k4ng/360p/h264/1691488097021560467/mda-ph7dsz93v3b4k4ng.mp4?v_from_s=hkapp-haokan-hnb&auth_key=1726285820-0-0-c286acb10cee3f463730e5f44ed82def&bcevod_channel=searchbox_feed&cr=0&cd=0&pd=1&pt=3&logid=3020295071&vid=9679983265111598115&klogid=3020295071&abtest="
    TextBox3.Text = "https://vdept3.bdstatic.com/mda-nbfask678ac4p272/cae_h264_delogo/1645001085536134309/mda-nbfask678ac4p272.mp4?v_from_s=hkapp-haokan-hna&auth_key=1726286158-0-0-46bac289e96bfc4573fbefc1f7f2893b&bcevod_channel=searchbox_feed&cr=0&cd=0&pd=1&pt=3&logid=3358130951&vid=10445537208033630684&klogid=3358130951&abtest="
    TextBox4.Text = "https://vdept3.bdstatic.com/mda-qbf9bpzr1x0zc2gx/cae_h264/1708182557101782386/mda-qbf9bpzr1x0zc2gx.mp4?v_from_s=hkapp-haokan-hna&auth_key=1726281286-0-0-82a85763b98ec2045b06f12de6704a4e&bcevod_channel=searchbox_feed&cr=0&cd=0&pd=1&pt=3&logid=2086551205&vid=8599104403510966624&klogid=2086551205&abtest="

End Sub

End Class

怎样查看视频网页下载地址？
打开视频播放页面，按下F12打开页面源代码信息，点击网络Network按钮，点击媒体media按钮。再刷新页面。这时会看到媒体文件，点击媒体文件，选择请求Url，按下Ctrl+C复制。再粘贴到需要保存的文本文件。复制粘贴Url下载即可。