VB.NET调用GPT-4接口报错：API响应缺失或为空，求排查方案

核心问题分析 #

你的代码存在几个关键错误，导致API响应异常或解析失败：

1. 接口端点错误 #

GPT-4属于聊天模型，必须使用聊天接口端点，而非旧版补全接口。你当前使用的https://api.openai.com/v1/engines/gpt-4-8k/completions是GPT-3系列的补全端点，不适用于GPT-4。

2. 请求体格式不匹配 #

聊天接口要求请求体使用messages数组传递对话内容，而非prompt字段。每个消息需指定角色（user/assistant/system）和内容。

3. 响应解析逻辑错误 #

聊天接口的响应结构与补全接口不同，回复内容位于choices[0].message.content，而非choices[0].text。

4. 同步调用阻塞UI且无错误处理 #

使用.Result同步调用HTTP请求会导致UI冻结，且未检查API响应状态码（如密钥无效、额度不足、权限问题等都会返回错误状态码，此时解析JSON会失败）。

修复后的完整代码 #

Imports System.Net.Http
Imports System.Text
Imports Newtonsoft.Json
Imports Newtonsoft.Json.Linq

Public Class Form1
    Private apiKey As String = "YOUR_API_KEY"
    ' 替换为GPT-4的聊天接口端点
    Private endpointUrl As String = "https://api.openai.com/v1/chat/completions"

    ' 将按钮点击改为异步方法，避免UI阻塞
    Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim userPrompt As String = TextBox1.Text
        If String.IsNullOrWhiteSpace(userPrompt) Then
            TextBox2.Text = "请输入提问内容"
            Return
        End If

        ' 复用HttpClient（避免频繁创建实例）
        Using client As New HttpClient()
            client.DefaultRequestHeaders.Add("Authorization", "Bearer " & apiKey)

            ' 构造符合聊天接口要求的请求体
            Dim requestData As New JObject()
            requestData("model") = "gpt-4" ' 指定GPT-4模型
            Dim messages As New JArray()
            messages.Add(New JObject() From {
                {"role", "user"},
                {"content", userPrompt}
            })
            requestData("messages") = messages
            requestData("max_tokens") = 50

            Dim httpContent As HttpContent = New StringContent(requestData.ToString(), Encoding.UTF8, "application/json")
            Dim response = Await client.PostAsync(endpointUrl, httpContent)

            ' 先检查响应状态是否成功
            If Not response.IsSuccessStatusCode Then
                Dim errorMsg = Await response.Content.ReadAsStringAsync()
                TextBox2.Text = $"API请求失败，状态码：{response.StatusCode}，详情：{errorMsg}"
                Return
            End If

            Dim jsonResponse = Await response.Content.ReadAsStringAsync()
            Dim responseObject = JObject.Parse(jsonResponse)
            Dim choices As JArray = responseObject("choices")

            If choices IsNot Nothing AndAlso choices.Count > 0 Then
                Dim reply As String = choices(0)("message")("content").ToString().Trim()
                TextBox2.Text = reply
            Else
                TextBox2.Text = "The API response is missing or empty."
            End If
        End Using
    End Sub
End Class

额外注意事项 #

• 确保你的API密钥拥有GPT-4模型的调用权限，部分免费额度或旧密钥可能无法访问GPT-4。
• 检查账户是否有足够的额度，额度不足会返回402错误。
• 避免在UI线程同步调用网络请求，使用Async/Await保证界面流畅。

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