VS2010旗舰版VB.NET版本爬虫爬取好看视频代码QZQ

Imports System.Net
Imports System.IO

Public Class Form1

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    ' 获取文本框中的 URL
    Dim videoUrl As String = "https://vdept3.bdstatic.com/mda-pc5h6tqhp2ww9h8n/360p/h264/1678104599880305828/mda-pc5h6tqhp2ww9h8n.mp4?v_from_s=hkapp-haokan-hna&auth_key=1726248267-0-0-5de650d8fa3914117a09773d6421e36e&bcevod_channel=searchbox_feed&cr=0&cd=0&pd=1&pt=3&logid=1467317972&vid=7812737196343628118&klogid=1467317972&abtest="

    ' 调用下载视频的方法
    Try
        DownloadVideo(videoUrl)
        MessageBox.Show("视频下载成功！", "成功", MessageBoxButtons.OK, MessageBoxIcon.Information)
    Catch ex As Exception
        MessageBox.Show("下载失败: " & ex.Message, "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
End Sub

Private Sub DownloadVideo(ByVal url As String)
    ' 指定保存视频的路径
    Dim saveFilePath As String = "C:\Users\Administrator\Desktop\爬虫爬取视频0QZQ - 副本\a.mp4"

    ' 创建网络客户端
    Using client As New WebClient()
        ' 创建目录，如果不存在的话
        Dim directory As String = System.IO.Path.GetDirectoryName(saveFilePath)
        If Not System.IO.Directory.Exists(directory) Then
            System.IO.Directory.CreateDirectory(directory)
        End If

        ' 下载视频并保存
        Dim responseStream As Stream = client.OpenRead(url)
        Using fileStream As New FileStream(saveFilePath, FileMode.Create)
            Dim buffer(4096) As Byte
            Dim bytesRead As Integer
            Do
                bytesRead = responseStream.Read(buffer, 0, buffer.Length)
                If bytesRead > 0 Then
                    fileStream.Write(buffer, 0, bytesRead)
                End If
            Loop While bytesRead > 0
        End Using
    End Using
End Sub

End Class

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

蜘蛛图标
网页源代码

function tmpl(str, data) { var fn = !/\W/.test(str) ? cache[str] = cache[str] || tmpl(document.getElementById(str).innerHTML) : new Function("obj", "var p=[],print=function(){p.push.apply(p,arguments);};" + "with(obj){p.push('" + str.replace(/[\r\t\n]/g, " ").split("<%").join("\t").replace(/((^|%>)[^\t]*)'/g, "$1\r").replace(/\t=(.*?)%>/g, "',$1,'").split("\t").join("');").split("%>").join("p.push('").split("\r").join("\\'") + "');}return p.join('');"); return data ? fn(data) : fn };

熊出没

https://vdept3.bdstatic.com/mda-qhean6qpugymj53r/cae_h264/1723780986533218015/mda-qhean6qpugymj53r.mp4?v_from_s=hkapp-haokan-hna&auth_key=1726291669-0-0-5d6d5aa31c5cc075dabb4ae13910db07&bcevod_channel=searchbox_feed&cr=0&cd=0&pd=1&pt=3&logid=1669847643&vid=9542971537249558036&klogid=1669847643&abtest=
请求方法:
GET
状态代码:
206 Partial Content
远程地址:
120.240.98.41:443
引用站点策略:
unsafe-url
accept-ranges:
bytes
access-control-allow-credentials:
true

阿悠悠
https://vdept3.bdstatic.com/mda-qdr31412nufgneth/cae_h264/1714097452962240972/mda-qdr31412nufgneth.mp4?v_from_s=hkapp-haokan-hnb&auth_key=1726292236-0-0-9aea2218c3fe014888c61c2f08ae6a8a&bcevod_channel=searchbox_feed&cr=0&cd=0&pd=1&pt=3&logid=2236716630&vid=8102089573960901147&klogid=2236716630&abtest=
请求方法:
GET
状态代码:
206 Partial Content
远程地址:
120.232.205.57:443
引用站点策略:
unsafe-url

https://vdept3.bdstatic.com/mda-qa5di124px7ph6it/cae_h264/1704588922269853501/mda-qa5di124px7ph6it.mp4?v_from_s=hkapp-haokan-hna&auth_key=1726292790-0-0-bd028c490446e6a10c02c8b33754cb71&bcevod_channel=searchbox_feed&cr=0&cd=0&pd=1&pt=3&logid=2790244494&vid=3176341546683146152&klogid=2790244494&abtest=
请求方法:
GET
状态代码:
206 Partial Content
远程地址:
120.240.98.27:443
引用站点策略:
unsafe-url
accept-ranges:
bytes

快手视频

https://v2.kwaicdn.com/ksc2/irk4tlEuQtYOzR6uwCE_HUZsyZsWTYZ6qgu7n9pmAeg4cAY2caoK7HcCLp4Y7UFqGdsI1QJQm_5dnoYOBXox3z2qetemjQKxPAG-H5mzl-Rp2hdZx12YPCb25sRCkSQBb0P9nbHjPVTHqYsC9XNspRZTqrdUnCDEerjOyjEHo7PSle-wvSubeq-KBVB0Ix7N.mp4?pkey=AAVbrTpSZlhc8Eo9j8ELdfD0LCg_fpzXc7LbQMvKJZ9Uf5dqROG8LLT4fNJzXCnMjiOtw_wfBPLpWFxeOaZVA0XYita09_DVnUXGRmfxNjH6U8HMmsGhuV0XrCvejVat9Vo&tag=1-1726282414-unknown-0-vmlxkhvitt-9c1734d6e3791434&clientCacheKey=3xguqgfyrcae72y_b.mp4&di=df493162&bp=10004&tt=b&ss=vp
请求方法:
GET
状态代码:
206 Partial Content
远程地址:
183.234.97.85:443
引用站点策略:
unsafe-url

快手视频，旧梦一场
https://v1.kwaicdn.com/ksc2/IAyyz52pqzMPrs_ZNvf_M7R5sFtHINRYKboH8XnwsLgLiAfoM3jMnRWd2UT4BRChDqief2UF4PFuAHUV63w04m4wjOjClQWDXi3_in51VBWjG24X5r-zk8WzNjAjdgHG4kyOAFWQIadgWwBy4siny42yLjrgkvDNMKtOvdMjgBhbz0AaXxnpRooBTmTAClRw.mp4?pkey=AAWnNK1WQEjpxQoPdQsUTkdiPxcXIZ0eImzp2KZmOP4bsG3SH0Vn9NxN6Wb2SuwCGPKO4Q_VAdBln9JmXBpxGiMS6Fax537oVNEVh0rgKVcUZkKCOX3GpblqwEcTB1VlBHA&tag=1-1726282854-unknown-0-rqd4oqdg9e-318d7d616caeea2d&clientCacheKey=3x7uxbesizzrdxs_b.mp4&di=df493162&bp=10004&tt=b&ss=vp
请求方法:
GET
状态代码:
206 Partial Content
远程地址:
120.234.72.225:443
引用站点策略:
unsafe-url

https://v2.kwaicdn.com/ksc2/xah84XhbgHZ_ayOFh-NuUMWIlj1_scXHCTWhfIFYPMUw8lhb_LdbjDHP_lH9gPzdWaK7G-IQOCuEY9SV587ukH8obpcSJVVtyx8UeMi4Okm-wSLobNF3HFs7lGh6S_5-7Wm8y5syt4Z5-UdthXOk2GF04lGxXz6scPKxqT_x8lmxwdaUtO2dIUsF8pDe3nX0.mp4?pkey=AAXvndZRTGwiybZ4x6XI9SKurW7nSONP8Gqas8uyyoAK7OsI5jTUhl8wzw_n_yPTI536E-Zp9yVSQUfDuQcMH32gsGHubFG6ntEmTRYqiP5YkKbl_gAbj0FTrLkmKBe7O_U&tag=1-1726289487-unknown-0-cwevb5rrkm-21943ec3e3d37668&clientCacheKey=3xm83n3fbpbttum_b.mp4&di=df493162&bp=10004&tt=b&ss=vp
请求方法:
GET
状态代码:
206 Partial Content
远程地址:
120.241.30.72:443
引用站点策略:
unsafe-url

你能不能不要离开我

https://v2.kwaicdn.com/ksc2/Zk-GqxKFpMjOv93SO2hCNlYFdkwAUSQMNSQ7EdKAoW3GMXvbXzZcxG5OsdtofemctpotZIIQIiZ0k9-wS5pGHmLIwgywpgsvrKSgQ6D3DUsW0zSJDJyPhoQAEUieibz5ctSvX_NXdh2TRbcGP6uGosrI9jjsfi0QDo_tg-MMvpXipOiGddyou50LVEzPxY00.mp4?pkey=AAVwi7_MubpayJ0Xhtp-qk9AQDvzsVzTLx2L5v1JzWSiNQnVzzGQ3IdXmHUgvo02bzqFqPzW2fa-u8GwwBoWEHGSCJiKeyrhYxw3K_eof5rb3BDJi4uQcCrINJoSbxpfIkU&tag=1-1726301185-unknown-0-cbtmiqhqxk-66b1105972ebcc35&clientCacheKey=3xvnybdp68i7qjy_b.mp4&di=df493162&bp=10004&tt=b&ss=vp
请求方法:
GET
状态代码:
206 Partial Content
远程地址:
120.233.178.82:443
引用站点策略:
unsafe-url