在没有Internet Explorer的情况下在VB.NET中下载文件

Imports System.Net

Public Sub DownloadFile(url As String, filePath As String)
    Try
        Using client As New WebClient()
            client.DownloadFile(url, filePath)
        End Using
    Catch ex As Exception
        Console.WriteLine("An error occurred: " & ex.Message)
    End Try
End Sub

Imports System.Net.Http
Imports System.Threading.Tasks

Public Async Function DownloadFileAsync(url As String, filePath As String) As Task
    Using client As New HttpClient()
        Dim response As HttpResponseMessage = Await client.GetAsync(url, HttpCompletionOption.ResponseHeadersRead)
        If response.IsSuccessStatusCode Then
            Using stream As Stream = Await response.Content.ReadAsStreamAsync()
                Using fileStream As New FileStream(filePath, FileMode.Create, FileAccess.Write)
                    Await stream.CopyToAsync(fileStream)
                End Using
            End Using
        Else
            Console.WriteLine("Failed to download file. Status code: " & response.StatusCode)
        End If
    End Using
End Function