(AutoIt) Prove Stateful Multi-Turn Conversation

See more AI Examples

Note: This example requires Chilkat v11.2.0 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Local $bSuccess = False

; This example assumes the Chilkat API to have been previously unlocked.
; See Global Unlock Sample for sample code.

$oAi = ObjCreate("Chilkat.Ai")

; The provider can be "openai", "google", "claude", "deepseek", "xai", or "perplexity".
; Support for additional providers will be added in future versions of Chilkat.
$oAi.Provider = "google"

; Use your provider's API key.
$oAi.ApiKey = "MY_API_KEY"

; Choose a model.
$oAi.Model = "gemini-2.5-flash"

; Create a new conversation to be maintained locally in memory.
; If the conversation is the first to be created, it is also automatically selected.
Local $systemMsg = "You are a helpful assistant"
Local $sDeveloperMsg = ""
Local $sConversationName = "test_conversation"
$oAi.NewConvo($sConversationName,$systemMsg,$sDeveloperMsg)

; -------------------------------------------------------------------------------------------
; Our first request will establish a secret that we'll ask for in the 2nd request.
; Add a text input.
$oAi.InputAddText("Please remember this: The word I'll ask for later is BlubberFish.  What's the word?")

; Ask the AI for text output.
$bSuccess = $oAi.Ask("text")
If ($bSuccess = False) Then
    ConsoleWrite($oAi.LastErrorText & @CRLF)
    Exit
EndIf

; Note: The inputs accumulated through one or more calls to Input* methods are cleared when the Ask method returns with success.

; Get the text response.
$oSbResponse = ObjCreate("Chilkat.StringBuilder")
$oAi.GetOutputTextSb($oSbResponse)
ConsoleWrite($oSbResponse.GetAsString() & @CRLF)
ConsoleWrite("----" & @CRLF)

; Sample output:

; The word is **BlubberFish**.

; -------------------------------------------------------------------------------------------
; Let's ask for the word. If this is a stateful conversation, the AI should respond correctly.
$oAi.InputAddText("OK, I'm going to ask you again, what's the word?")
$bSuccess = $oAi.Ask("text")
If ($bSuccess = False) Then
    ConsoleWrite($oAi.LastErrorText & @CRLF)
    Exit
EndIf

; Get the text response.
$oSbResponse.Clear 
$oAi.GetOutputTextSb($oSbResponse)
ConsoleWrite($oSbResponse.GetAsString() & @CRLF)

; Sample output:

; The word is **BlubberFish**.

; -------------------------------------------------------------------------------------------
; Look at the conversation so far...
; 
$oJson = ObjCreate("Chilkat.JsonObject")
$oAi.ExportConvo($sConversationName,$oJson)
$oJson.EmitCompact = False
ConsoleWrite($oJson.Emit() & @CRLF)

; Note: The conversation transcript format exported and imported by Chilkat is always the OpenAI format,
; regardless of the AI provider.  (Chilkat translates the format from OpenAI to whatever is needed by the actual AI provider being used.)

; {
;   "input": [
;     {
;       "role": "system",
;       "content": [
;         {
;           "type": "input_text",
;           "text": "You are a helpful assistant"
;         }
;       ]
;     },
;     {
;       "role": "user",
;       "content": [
;         {
;           "type": "input_text",
;           "text": "Please remember this: The word I'll ask for later is BlubberFish.  What's the word?"
;         }
;       ]
;     },
;     {
;       "role": "assistant",
;       "content": [
;         {
;           "type": "output_text",
;           "text": "The word is **BlubberFish**."
;         }
;       ]
;     },
;     {
;       "role": "user",
;       "content": [
;         {
;           "type": "input_text",
;           "text": "OK, I'm going to ask you again, what's the word?"
;         }
;       ]
;     },
;     {
;       "role": "assistant",
;       "content": [
;         {
;           "type": "output_text",
;           "text": "The word is **BlubberFish**."
;         }
;       ]
;     }
;   ]
; }

; -------------------------------------------------------------------------------------------
; If we unselect the conversation, so that no conversation is selected,
; then the same query results in the AI not knowing the word.

$oAi.SelectedConvo = ""

$oAi.InputAddText("OK, I'm going to ask you again, what's the word?")
$bSuccess = $oAi.Ask("text")
If ($bSuccess = False) Then
    ConsoleWrite($oAi.LastErrorText & @CRLF)
    Exit
EndIf

; Get the text response.
$oSbResponse.Clear 
$oAi.GetOutputTextSb($oSbResponse)
ConsoleWrite($oSbResponse.GetAsString() & @CRLF)

; Sample output:

; I apologize, but I don't have the context of our previous interaction or what "the word" you're referring to might be.
; Could you please remind me or provide the clue again? I'm ready to help you figure it out!