ChatGPT API Call

[BatMan22]

The code below to call the ChatGPT API was generated completely by ChatGPT itself. Enjoy.

 It's able to write code in autoit, at least at a beginner level pretty darn well. Took some poking but it works.  Also a word of warning, my API key took a few minutes to start working after being generated if you want to use the API. Seems like we're well on our way to being replaced lol.

EDIT: Apologies, I should have mentioned that it's not free. You need API access.

; Store your API key in a variable
Local $api_key = "yourkey"

; Create the WinHttpRequest object
Local $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")

; Open a POST request to the OpenAI API
$oHTTP.Open("POST", "https://api.openai.com/v1/engines/davinci-codex/completions", False)

; Set the headers for the request
$oHTTP.SetRequestHeader("Content-Type", "application/json")
$oHTTP.SetRequestHeader("Authorization", "Bearer " & $api_key)

; Send the request with the prompt and temperature
$oHTTP.Send('{"prompt": "What is an atom made of?", "temperature": 0.7}')

; Get the response text
Local $response = $oHTTP.ResponseText
ConsoleWrite("Generated text: " & $response & @CRLF)

Edited October 20 by BatMan22
Not Free.

[leuce]

Unfortunately ChatGPT's AutoIt scripts sometimes contain functions that are either yet-to-be-written user functions or non-existent built-in functions.  I asked it to write a script for something and it included a non-existing user function as part of the script... though it did end up writing that function for me when I asked it to.  But it used two functions that it insists are built-in functions of AutoIt, but which doesn't actually exist in AutoIt.  Fortunately, it is also able to explain what those functions are supposed to do.

An example of what ChatGPT believes:

The Min() function in the script is a built-in function in AutoIt that returns the smallest value among the values passed as arguments.

As far as I can tell, there is no Min() function in AutoIt.  There is _Min(), but that only compares two values (the test script had three).  I asked it to write me a user function that actually does what it believes the Min() function does, and it complied (and the function appears like it could work), but the function wasn't compatible with the syntax used in the test script... which meant that I had to ask more questions and make more requests (and know what to request) to get it all to work.

I don't see any prohibition to using AI generation for script support questions in the FAQ yet... something for the future, perhaps?

[TomerKaftan]

It's fascinating to hear that you've had success using ChatGPT Online to write code in AutoIt, especially at a beginner level. It's impressive how AI models like ChatGPT can adapt and generate code snippets based on the input provided.

Thank you for sharing the information about the API key. It's helpful to know that there might be a slight delay before the API key becomes functional after it is generated. This information can save time and frustration for other users who plan to utilize the API.

Edited January 20 by TomerKaftan

[SzymonN]

Working version for 07.2023

#include <MsgBoxConstants.au3>
#include <WinHttp.au3>

Func ChatGPT_Request($message)
    Local $apiKey = "API_KEY" 

    Local $url = "https://api.openai.com/v1/chat/completions"
    Local $headers = "Content-Type: application/json" & @CRLF & "Authorization: Bearer " & $apiKey
    Local $data = '{"model": "text-davinci-003", "messages": [{"role": "system", "content": "user: ' & $message & '"}]}'

    Local $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
    $oHTTP.Open("POST", $url, False)
    $oHTTP.SetRequestHeader("Content-Type", "application/json")
    $oHTTP.SetRequestHeader("Authorization", "Bearer " & $apiKey)
    $oHTTP.Send($data)

    Local $response = $oHTTP.ResponseText

    Return $response
EndFunc

Local $userMessage = "Hello my friend, how are you?"
Local $response = ChatGPT_Request($userMessage)
MsgBox($MB_OK, "Answer from ChatGPT", $response)
ConsoleWrite($response)

 

Edited July 17, 2023 by SzymonN

[KDoc]

Where can I download Winhttp.au3?  

Thanks. 

[KDoc]

I found Winhttp.au3 but when I run the above script, it gives an error saying The request action with the object field has failed. 

[VipinNaudiyal]

I get below message, Don't we have single API hit for free?

[BinaryBrother]

I get the same error, even when trying to use the API with cURL. 😔

[mLipok]

On 7/22/2023 at 1:34 PM, KDoc said:

Where can I download Winhttp.au3?  

Thanks. 

https://github.com/dragana-r/autoit-winhttp

[MojoeB]

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <WinHttp.au3>
#include "JS.au3" 

Global $apiKey = "sk-*****"

Func ChatGPT_Request($message)
    Local $url = "https://api.openai.com/v1/chat/completions"
    Local $headers = "Content-Type: application/json" & @CRLF & "Authorization: Bearer " & $apiKey
    Local $data = '{"model": "gpt-4o-mini", "messages": [{"role": "user", "content": "' & $message & '"}]}'

    Local $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
    $oHTTP.Open("POST", $url, False)
    $oHTTP.SetRequestHeader("Content-Type", "application/json")
    $oHTTP.SetRequestHeader("Authorization", "Bearer " & $apiKey)
    $oHTTP.Send($data)

    Local $response = $oHTTP.ResponseText

    ; Parse the JSON response
    Local $json = _JSON_Parse($response)
    If @error Then
        Return "Error: Failed to parse JSON response"
    EndIf

    ; Extract the message content
    Local $choices = _JSON_Get($json, "choices")
    If IsArray($choices) And UBound($choices) > 0 Then
        Local $messageObj = _JSON_Get($choices[0], "message")
        If IsMap($messageObj) Then
            Local $content = _JSON_Get($messageObj, "content")
            Return $content
        Else
            Return "Error: Message object not found"
        EndIf
    Else
        Return "Error: Choices array not found or empty"
    EndIf
EndFunc

; Create GUI
Global $hGUI = GUICreate("Chat with ChatGPT", 400, 320)
Global $hInput = GUICtrlCreateInput("", 10, 260, 380, 20)
Global $hOutput = GUICtrlCreateEdit("", 10, 10, 380, 240, $ES_READONLY)
Global $hSend = GUICtrlCreateButton("Send", 160, 285, 80, 25)
GUICtrlSetState($hOutput, $GUI_DISABLE)
GUISetState(@SW_SHOW)

; Main loop
While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $hSend
            Local $userMessage = GUICtrlRead($hInput)
            GUICtrlSetData($hInput, "")
            GUICtrlSetData($hOutput, GUICtrlRead($hOutput) & @CRLF & "You: " & $userMessage)
            Local $response = ChatGPT_Request($userMessage)
            GUICtrlSetData($hOutput, GUICtrlRead($hOutput) & @CRLF & "ChatGPT: " & $response)
    EndSwitch
WEnd

(Json UDF I have this JS.au3(I named it myself)) : : autoit-json-udf/JSON.au3 at master · Sylvan86/autoit-json-udf · GitHub

it works.

[BinaryBrother]

Has anyone actually had success with interfacing with the ChatGPT API? The logistics are somewhat easy, but it always returns the error that I mentioned before...

Do we need to have a paid account with ChatGPT?

[ioa747]

3 hours ago, BinaryBrother said:

Do we need to have a paid account with ChatGPT?

look at  https://platform.openai.com/organization/usage

there is $18.00 limit,  first $18.00 is free

alternately https://ollama.com/

https://www.autoitscript.com/forum/topic/211708-writes-various-characters-to-my-console/#comment-1532057

[MojoeB]

@BinaryBrother

you need your own API key which you can get here 'API keys - OpenAI API', but only if you have entered payment information.