VB.NET

Automatic JS AI Tool Function Calling using Chilkat within the JavaScript

See more AI Examples

Demonstrates how to use Chilkat classes within the JavaScript in AI tool calls. Automatic JavaScript tool calls are characterized by:

• Tool function implementations are in JavaScript.
• The JavaScript also provides a tool registry and permissions.
• The JavaScript runs embedded within your application using Chilkat.Js.
• Tool calls are handled entirely within Chilkat. Your application does not need to manually check for function calls in the AI response. Internal to the Ask function, Chilkat will handle function calls by calling your registered JavaScript tools and will send results back to the AI model until the final response is received.

VB.NET

Dim success As Boolean = False

' ----------------------------------------------------------------------------------
' The Javascript file loaded here is shown at the bottom of this page.
' -----------------------------------------------------------------------------------

Dim sbJs As New Chilkat.StringBuilder
success = sbJs.LoadFile("qa_data/js_tools/stock_quote_tools.js","utf-8")
If (success = False) Then
    Debug.WriteLine(sbJs.LastErrorText)
    Exit Sub
End If


Dim ai As New Chilkat.Ai

' Register the tools that will be made available to the AI.
Dim evalOnly As Boolean = False

Dim allowAllKeyword As Boolean = False

' If we were to set allowAllKeyword = True, then we could
' give all Chilkat classes permission, like this:
' 
' Example.toolPermissions = [
' 	  {
' 	    name: "all",
' 	    perm: "sandbox",
' 	  }
' 	];

ai.RegisterJsTools(sbJs,evalOnly,allowAllKeyword)

' The provider can be "openai", "google", "claude", "grok", "mistral", "custom", etc.
ai.Provider = "openai"
' Use your provider's API key.
ai.ApiKey = "MY_API_KEY"
' Choose a model.
ai.Model = "gpt-5-mini"

' Tool function calling must always occur within a conversation.
Dim conversation_name As String = "convo_astrology"
Dim sysMessage As String = "You are a helpful astrologer"
Dim devMessage As String = "Respond only with a horoscope generated by a tool. Use the tool output as the final answer."
ai.NewConvo(conversation_name,sysMessage,devMessage)

' Provide inputs
ai.InputAddText("What is my horoscope? I am an Aquarius.")

' Send inputs, tool functions, etc. and ask for a "text" response.
' If the AI responds with tool calls, Chilkat automatically handles them by calling your JavaScript
' tool functions as directed by the AI, and sending results back to the AI until the final
' response is received.
success = ai.Ask("text")
If (success = False) Then
    Debug.WriteLine(ai.LastErrorText)
    Exit Sub
End If


' Get the AI response.
Dim sbResponse As New Chilkat.StringBuilder
ai.GetOutputTextSb(sbResponse)
Debug.WriteLine(sbResponse.GetAsString())