VB.NET中Await httpClient.GetAsync未等待响应的问题排查

问题根源 #

核心问题是调用异步方法时未使用Await关键字等待任务完成：

1. 调用GetApiVersionAsync()时，方法执行到Await httpClient.GetAsync会挂起并返回一个未完成的Task对象给调用者。
2. 你直接对这个Task对象调用ToString()，得到的是Task自身的字符串表示（而非异步方法的返回结果），接着主线程继续执行打印"b"，此时异步任务还在后台运行。
3. 等后台的HTTP请求完成后，异步方法才从挂起点恢复，继续执行打印"1"、读取响应内容等操作，这就导致了执行顺序和预期不符。

修复步骤 #

1. 将事件处理方法改为异步方法 #

WinForms允许给事件处理方法添加Async修饰符，这样就能在方法内使用Await等待异步任务。

2. 调用异步方法时添加Await #

通过Await获取异步方法的实际返回值，而非直接操作Task对象。

3. 优化异步方法返回类型 #

GetApiVersionAsync实际返回字符串，将返回类型从Task(Of Object)改为Task(Of String)，避免不必要的类型转换，代码更清晰。

修复后的完整代码：

Public Class NfonService
    ' 假设httpClient和BASE_URI已完成初始化
    Private httpClient As HttpClient = New HttpClient()
    Private Const BASE_URI As String = "你的API基础地址"

    Public Async Function GetApiVersionAsync() As Task(Of String)
        Debug.Print(0)
        Dim response As HttpResponseMessage = Await httpClient.GetAsync(BASE_URI & "/api/version")
        Debug.Print(1)
        Dim responseContent As String = Await response.Content.ReadAsStringAsync()
        Debug.Print("Result2:" & responseContent)
        Return responseContent
    End Function
End Class

Public Class Form1
    Private Async Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim MyNfonService As New NfonService
        Dim s As String
        Debug.Print("a")
        s = Await MyNfonService.GetApiVersionAsync()
        Debug.Print("Result1:" & s)
        Debug.Print("b")
    End Sub
End Class

修复后的执行顺序 #

修复后执行流程会完全符合你的预期：

a
0
1
Result2: (合理的响应文本)
Result1: (相同响应文本)
b

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