日韩人妻无码精品-专区,人与性口牲恔配视频免费观看

' Created by ChatGPT-4o on 2024-08-24.
' Modified by Vincent Meng.
'================================================
Function AI(arg As String) As String
Dim apiKey As String
Dim url As String
Dim http As Object
Dim jsonBody As String
Dim response As String
Dim startPos As Long
Dim endPos As Long

On Error GoTo ErrorHandler ' Enable error handling

' Your OpenAI API key
apiKey = "XXXXX" ' Replace it with your actual OpenAI API Key

' OpenAI API endpoint for chat completion
url = "https://api.openai.com/v1/chat/completions"

' Create the JSON body for the API request
jsonBody = "{""model"": ""gpt-4o-mini"", ""messages"": [{""role"": ""user"", ""content"": """ & arg & """}], ""max_tokens"": 1000}"

' Create HTTP object
Set http = CreateObject("MSXML2.ServerXMLHTTP.6.0")

With http
.Open "POST", url, False
.setRequestHeader "Content-Type", "application/json"
.setRequestHeader "Authorization", "Bearer " & apiKey

On Error GoTo HTTPErrorHandler ' Enable error handling for HTTP request
.send jsonBody
response = .responseText
On Error GoTo 0 ' Disable error handling for HTTP request
End With

' Simple string parsing: Find the "content" field and extract its value
startPos = InStr(response, """content"": """) + Len("""content"": """)
If startPos > 0 Then
endPos = InStr(startPos, response, """")
If endPos > startPos Then
AI = Replace(Mid(response, startPos, endPos - startPos), "\n", vbCrLf)
Else
AI = "Error: Could not parse the response."
End If
Else
AI = "Error: 'content' field not found in the response."
End If

Exit Function

ErrorHandler:
AI = "Error: " & Err.Description ' Catch general errors and return error message
Exit Function

HTTPErrorHandler:
AI = "HTTP Error: Unable to connect to the API."
Exit Function
End Function