最近写的一个async函数： Public Async Function AfterFirstChat(ByVal strSendMessage As String) As Task(Of String) Try If strSendMessage = "" Then strModOllAmaErrString = STRcurErrHead & "没有提供要发送的message。" Return "" End If Dim builder As New StringBuilder ' Create a new PromptExecutionSettings object Dim executionSettings As New OpenAIPromptExecutionSettings() ' User question & answer loop Chat.AddUserMessage(strSendMessage) builder.Clear() ' Get the AI response streamed back to the console Dim...