如何在VB.net中将网页/URL下载到字符串变量？WebClient已弃用求当前方法

由于WebClient类已被标记为弃用，现在推荐使用**HttpClient**来实现HTTP请求操作，这是.NET官方主推的HTTP客户端，性能和可靠性更优，同时支持异步编程模型。

核心实现方案（异步推荐） #

HttpClient的最佳实践是复用单一实例（避免频繁创建销毁导致的资源浪费），下面是异步下载字符串的示例：

' 建议将HttpClient声明为类级别的静态/共享实例，避免重复创建
Private Shared ReadOnly _httpClient As New HttpClient()

Async Function DownloadUrlContentAsync(url As String) As Task(Of String)
    Try
        ' 异步下载字符串，默认会根据响应头自动识别编码
        Return Await _httpClient.GetStringAsync(url)
    Catch ex As HttpRequestException
        ' 处理请求异常，比如网络错误、HTTP状态码错误等
        Console.WriteLine($"请求失败: {ex.Message}")
        Return Nothing
    End Try
End Function

' 使用示例
Async Sub UsageExample()
    Dim content As String = Await DownloadUrlContentAsync("http://example.com/text.txt")
    If content IsNot Nothing Then
        ' 处理获取到的内容
        Console.WriteLine(content)
    End If
End Sub

同步实现方案（如需同步操作） #

如果你需要同步执行（不推荐在UI线程使用，避免阻塞），可以使用.GetAwaiter().GetResult()来获取同步结果：

Private Shared ReadOnly _httpClient As New HttpClient()

Function DownloadUrlContent(url As String) As String
    Try
        Return _httpClient.GetStringAsync(url).GetAwaiter().GetResult()
    Catch ex As HttpRequestException
        Console.WriteLine($"请求失败: {ex.Message}")
        Return Nothing
    End Try
End Function

' 使用示例
Sub SyncUsageExample()
    Dim content As String = DownloadUrlContent("http://example.com/text.txt")
    If content IsNot Nothing Then
        Console.WriteLine(content)
    End If
End Sub

注意事项 #

• 复用HttpClient实例：不要在每次请求时创建新的HttpClient，否则会耗尽套接字资源，建议将其声明为静态/共享变量或使用依赖注入管理。
• 自定义编码处理：如果响应的编码无法被自动识别，可以手动指定编码读取内容：

  Async Function DownloadWithCustomEncodingAsync(url As String) As Task(Of String)
      Using response As HttpResponseMessage = Await _httpClient.GetAsync(url)
          response.EnsureSuccessStatusCode() ' 确保HTTP状态码为成功
          Using stream As Stream = Await response.Content.ReadAsStreamAsync()
              Using reader As New StreamReader(stream, Encoding.UTF8) ' 指定目标编码
                  Return Await reader.ReadToEndAsync()
              End Using
          End Using
      End Using
  End Function
  

• 异常处理：务必捕获HttpRequestException等异常，处理网络故障、无效URL、HTTP错误码（如404、500）等情况。

内容的提问来源于stack exchange，提问作者Steve Spivey