![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java JavaScript Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VB.NET) Automatic JavaScript AI Tool Returning an ObjectSee more AI ExamplesDemonstrates an automatic JavaScript tool function that returns an object. Automatic JavaScript tool calls are characterized by:
Note: This example requires Chilkat v11.4.0 or greater. For more information, see https://www.chilkatsoft.com/automatic_ai_javascript_tool_function_calling.asp
Dim success As Boolean = False ' ---------------------------------------------------------------------------------- ' The Javascript file loaded here is shown at the bottom of this page. ' ----------------------------------------------------------------------------------- ' In this example, we'll load the Javascript tool functions and registry from a file. ' It doesn't need to come from a file. It could just as easily be loaded from a string. Dim sbJs As New Chilkat.StringBuilder success = sbJs.LoadFile("qa_data/js_tools/toolset_2.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 = True 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_weather" Dim sysMessage As String = "You are a helpful weather forecaster" Dim devMessage As String = "Respond only with a weather forecast generated by a tool." ai.NewConvo(conversation_name,sysMessage,devMessage) ' Provide inputs ai.InputAddText("What's the weather in Chicago?") ' 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())
|
||||
© 2000-2026 Chilkat Software, Inc. All Rights Reserved.