Скачивание файла из Яндекс диска

Dim m As New WebClient
m.DownloadFile("https://yadi.sk/i/twpekdWnRXtimQ", "D:\11111.txt")

Dim m As New WebClient
m.DownloadFile("https://yadi.sk/d/mRNIgYUCZh7pgA", "D:\11111.txt")

My.Computer.Network.DownloadFile("https://yadi.sk/d/mRNIgYUCZh7pgA", "D:\1111.txt")

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        IO.Directory.CreateDirectory("D:\Bushnev Laboratory\FS9.01")
        Try My.Computer.Network.DownloadFile("https://downloader.disk.yandex.ru/disk/535fdcf4d017f7b12190f2c5fbaf096ec8eb8f192b9bb03a5d4976959569e927/58d6e314/Qpaa7JYVuewE3NNrywXMQ1v8mE49V1NlNd4U9q8E6KWFGMwotkrSp3wqrFvkatfg1tbFuHZcm0w7BBK8P5CJHA%3D%3Duid=0&filename=%D0%A2%D0%95%D0%A1%D0%A2%D0%9E%D0%92%D0%AB%D0%99.txt&disposition=attachment&hash=QPeBkxupJvupD3ItMggs/KQojVaIK4uuXI5%2B2SF6nRI%3D%3A&limit=0&content_type=text%2Fplain&fsize=44&hid=7da8a74a4b293bf65a487c2a14998027&media_type=document&tknv=v2", "D:\Bushnev Laboratory\FS9.01\тЕСТ")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

Imports System.IO
Imports System.Net
Imports System.Net.Security
Imports System.Security.Cryptography.X509Certificates
Imports System.Text.RegularExpressions
 
Module YandexDownloader
 
    Sub Main()
        Dim yadiskshareurl As String = "https://yadi.sk/i/03bE933n3PqpG2"
        Dim yadiskposturl As String = "https://yadi.sk/public/api/download-url"
        Dim content As String = Nothing, result As String = Nothing
 
        ServicePointManager.ServerCertificateValidationCallback = AddressOf ValidateCertificate
        ServicePointManager.SecurityProtocol = SecurityProtocolType.Ssl3 Or SecurityProtocolType.Tls Or SecurityProtocolType.Tls11 Or SecurityProtocolType.Tls12
 
        With DirectCast(WebRequest.Create(yadiskshareurl), HttpWebRequest)
            .Method = "GET"
            .UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/87.0.4280.88 Safari/537.36"
            content = New StreamReader(.GetResponse().GetResponseStream()).ReadToEnd()
        End With
        Dim hash As String = New Regex("""timestamp"":(.+?),""hash"":""(?<hash>(.+?))""").Matches(content)(0).Groups("hash").Value
        Dim sk As String = New Regex("""sk"":""(?<sk>(.+?))"",""yandexuid"":""(.+?)""").Matches(content)(0).Groups("sk").Value
        Dim yandexuid As String = New Regex("""sk"":""(.+?)"",""yandexuid"":""(?<yandexuid>(.+?))""").Matches(content)(0).Groups("yandexuid").Value
 
        Dim raw As String = "{""hash"":""" & hash & """,""sk"":""" & sk & """,""options"":{""hasExperimentVideoWithoutPreview"":true}}"
        Dim cookie As String = "yandexuid=" & yandexuid & "; tld=ru; lang=ru"
 
 
        With DirectCast(WebRequest.Create(yadiskposturl), HttpWebRequest)
            .Method = "POST"
            .UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/87.0.4280.88 Safari/537.36"
            .Headers("Cookie") = cookie
            .ContentType = "text/plain"
            Using Stream = New StreamWriter(.GetRequestStream())
                Stream.Write(raw)
                Stream.Flush()
                Stream.Close()
            End Using
            Using Stream = .GetResponse().GetResponseStream()
                Using Reader = New StreamReader(Stream)
                    result = Reader.ReadToEnd()
                End Using
            End Using
        End With
 
        Console.WriteLine(result)
        Console.ReadKey()
    End Sub
    Private Function ValidateCertificate(sender As Object, certificate As X509Certificate, chain As X509Chain, sslPolicyErrors As SslPolicyErrors) As Boolean
        Return True
    End Function
End Module

result = New Regex("""url"":""(?<url>(.+?))""").Matches(Reader.ReadToEnd())(0).Groups("url").Value