如何在VB.NET中实现异步HttpWebRequest请求以避免界面卡顿？

核心问题原因 #

你当前的同步请求会阻塞UI线程，导致窗体在数据读取期间无响应。VB.NET的事件驱动模型天生支持异步，用Async/Await就能解决这个问题，同时要注意避免公共变量带来的线程安全隐患。

改造步骤与代码示例 #

1. 废弃模块公共变量

模块里的公共变量str_url、webreq等在异步场景下容易引发并发冲突，建议把这些变量移到窗体类内部（私有变量）或者方法局部。

2. 用Async/Await改造按钮点击事件

以下是基于你原有HttpWebRequest的异步改造版本：

' 窗体类内部的代码
Private Async Sub btnFetch_Click(sender As Object, e As EventArgs) Handles btnFetch.Click
    ' 禁用按钮防止重复点击
    btnFetch.Enabled = False
    txtResult.Text = "正在抓取数据..."

    Dim targetUrl As String = "你的目标URL" ' 替换成实际的目标地址
    Dim resultContent As String = String.Empty

    Try
        ' 创建异步请求
        Dim webReq As HttpWebRequest = CType(WebRequest.Create(targetUrl), HttpWebRequest)
        ' 异步获取响应
        Using webResp As HttpWebResponse = CType(Await webReq.GetResponseAsync(), HttpWebResponse)
            ' 异步读取流
            Using dataStream As Stream = webResp.GetResponseStream()
                Using reader As New StreamReader(dataStream)
                    ' 异步读取全部内容
                    resultContent = Await reader.ReadToEndAsync()
                End Using
            End Using
        End Using

        ' 更新UI（Await后自动回到UI线程，无需手动Invoke）
        txtResult.Text = resultContent
    Catch ex As Exception
        txtResult.Text = $"抓取失败：{ex.Message}"
    Finally
        ' 恢复按钮可用
        btnFetch.Enabled = True
    End Try
End Sub

3. 更推荐的HttpClient方案（简洁现代）

HttpWebRequest是较旧的API，.NET官方更推荐用HttpClient处理HTTP请求，异步支持更完善，代码更简洁：

' 窗体类内部声明私有HttpClient实例（复用实例，不要每次请求都创建）
Private ReadOnly httpClient As New HttpClient()

Private Async Sub btnFetch_Click(sender As Object, e As EventArgs) Handles btnFetch.Click
    btnFetch.Enabled = False
    txtResult.Text = "正在抓取数据..."

    Dim targetUrl As String = "你的目标URL"
    Try
        ' 异步获取字符串内容
        Dim resultContent As String = Await httpClient.GetStringAsync(targetUrl)
        txtResult.Text = resultContent
    Catch ex As Exception
        txtResult.Text = $"抓取失败：{ex.Message}"
    Finally
        btnFetch.Enabled = True
    End Try
End Sub

关键注意点 #

• 事件处理方法必须声明为Async Sub（因为事件没有返回值），普通异步逻辑用Async Function。
• Await关键字会让当前方法暂停等待异步操作完成，但不会阻塞UI线程，此时窗体仍能响应用户操作。
• HttpClient建议复用实例（比如声明为窗体的私有只读变量），避免每次请求创建新实例导致连接资源耗尽。
• 必须用Try/Catch捕获异常，避免异步操作出错导致程序崩溃。

内容的提问来源于stack exchange，提问作者Youstay Igo