VB开发CHATGPT3.5API模型代码分享

Private Sub CallChatGPTAPI()

    Dim xmlhttp As Object

    Set xmlhttp = CreateObject("MSXML2.XMLHTTP") '设置API的访问地址和请求参数

    Dim url As String

    url = "https://api.openai.com/v1/chat/completions"    

    Dim requestData As String

    requestData = "{""model"": ""gpt-3.5-turbo"", ""messages"": [{""role"": ""user"", ""content"": ""Hello!""}]}" '发送POST请求

    xmlhttp.Open "POST", url, False

    xmlhttp.setRequestHeader "Content-Type", "application/json"

    xmlhttp.setRequestHeader "Authorization", "Bearer YOUR_API_KEY"

    xmlhttp.send requestData '处理API的响应

    If xmlhttp.Status = 200 Then

        Dim responseText As String

        responseText = xmlhttp.responseText        

     '在这里处理API返回的数据，可以根据需求进行解析和处理        

        MsgBox responseText

    Else

        MsgBox "API请求失败: " & xmlhttp.Status & " - " & xmlhttp.statusText

    End If

End Sub

在上面给出的代码中，土粉们需要将YOUR_API_KEY替换为土粉们实际的API密钥。请确保已正确引用了MSXML库（在VB6项目的引用中添加"Microsoft XML, v6.0"）。

土嘎嘎技术网友情提示：此示例仅涵盖了基本的请求和响应处理，并假设土粉们已配置正确的API密钥和请求参数。根据土粉们的实际需求，土粉们可能需要进行更多的错误处理、响应解析和数据处理。

如果土粉们遇到任何问题或需要进一步的帮助，请随时告诉我。