API ChatGPT, Como comunicar

#1

.Alguem tenha noção de como usar o elipse com a API KEY que o chatGPT oferece para mandar-mos perguntas via api e receber respostas??

Fiz de um jeito ultilizando bibliotecas de JavaScript mas não obtive sucesso.

Obrigado a todos!!!

#2

Existem diversas formas, o próprio ChatGPT pode propor algumas soluções, segue um exemplo cURL :

Sub Foo()
	Dim sAPIKey
	Dim sPrompt
	Dim sResponse

	' Sua pergunta aqui
    sPrompt = "Em que ano nasceu Isaac Asimov?"
    
    ' Substitua 'SUA_CHAVE_DE_API' pela sua chave de API real da OpenAI
    sAPIKey = "SUA_CHAVE_DE_API"
  	
  	' TODO: tratar saida JSON
    sResponse = GetOpenAIAnswer(sPrompt, sAPIKey)
 
  	MsgBox "Resposta da API: " & sResponse
End Sub
' 
Private Function GetOpenAIAnswer( sPrompt, sAPIKey )
    Dim objExec

    sCurlCommand = _
    		"curl -X POST -H ""Content-Type: application/json"" -H ""Authorization: Bearer " & _
    		sAPIKey & """ -d ""{\""prompt\"": \""" & sPrompt & _
    		"\""}"" https://api.openai.com/v1/engines/text-davinci-003/completions"

    Set objExec = CreateObject("WScript.Shell").Exec(sCurlCommand)
    
    ' Aguarda conclusao
    Do While objExec.Status = 0
        ' Wait...
    Loop

    If (objExec.ExitCode = 0) Then
        GetOpenAIAnswer = objExec.StdOut.ReadAll()
    Else
        ' Captura a saida de erro se houver
        GetOpenAIAnswer = "Erro ao executar o comando. Código de saída: " & _
        		objExec.ExitCode & vbCrLf & objExec.StdErr.ReadAll()
    End If
End Function
'
Private Sub Bar()
End Sub
1 Like