CopyText fromScreen=X[Text] toText="QM_longtext"
CallVB result = openai.openaihelper.askGPT _ 
  "Can you please improve the following notification text
     and only return the new text? &text[QM_longtext]"

if V[result]
  CopyText fromString="result" toText="QM_longtext" 
  CopyText fromText="QM_longtext" toScreen=X[Text] 
endif

Return

VB implementation:

VB.NET Copy

Imports System.Collections.Generic
Imports System.Net.Http
Imports System.Security.Authentication
Imports System.Text
Imports System.Web.Script.Serialization

Public Class OpenAIHelper
    Public apiKey As String = "sk-proj-4drnVX..."
    Public apiUrl As String = "https://api.openai.com/v1/chat/completions"
    Public Function askGPT(question) As String
        Dim myclient = New HttpClient _
        (New HttpClientHandler With {.SslProtocols = SslProtocols.Tls12})

        myclient.DefaultRequestHeaders.Add _
            ("Authorization", $"Bearer {apiKey}")

        Dim webRequest = New HttpRequestMessage(HttpMethod.Post, apiUrl)
        Dim jsonPayload As String = "
            {
                ""model"": ""gpt-4.1-mini"",
                ""messages"": [
                    {
                        ""role"": ""user"",
                        ""content"": ""$$question""
                    }
                ]
            }"
        Dim questionstring As String = question.replace("""", """""")
        questionstring = questionstring.
                                replace(vbCrLf, "\n").replace(vbLf, "\n")
        webRequest.Content =
            New StringContent(jsonPayload.Replace("$$question", questionstring),
                              Encoding.UTF8, "application/json")

        Dim response As HttpResponseMessage = 
                                myclient.SendAsync(webRequest).Result
        Dim content As String = response.Content.ReadAsStringAsync().Result
        Dim contentdict As Dictionary(Of String, Object) =
            New JavaScriptSerializer().DeserializeObject(content)
        Dim result = contentdict("choices")(0)("message")("content")
        Return result
    End Function
End Class

VB Project (.zip file)

C# implementation:

C# Copy

using System.Collections.Generic;
using System.Net.Http;
using System.Security.Authentication;
using System.Text;
using System.Web.Script.Serialization;

public class OpenAIHelper
{
    public string apiKey = "sk-proj-4drnVXbqqTFix9AbK...";
    public string apiUrl = "https://api.openai.com/v1/chat/completions";

    public string askGPT(string question)
    {
        var myclient = new HttpClient(new HttpClientHandler()
                 { SslProtocols = SslProtocols.Tls12 });

        myclient.DefaultRequestHeaders.Add("Authorization", 
                                $"Bearer {apiKey}");

        var webRequest = new HttpRequestMessage(HttpMethod.Post, apiUrl);

        string jsonPayload = @"
            {
                ""model"": ""gpt-4.1-mini"",
                ""messages"": [
                    {
                        ""role"": ""user"",
                        ""content"": ""$$question""
                    }
                ]
            }";

        string questionstring = question.Replace("\"", "\"\"");
        questionstring = questionstring.
                                Replace("\r\n", @"\n").Replace("\n", @"\n");

        webRequest.Content = new StringContent(jsonPayload
            .Replace("$$question", questionstring), 
                                Encoding.UTF8, "application/json");

        HttpResponseMessage response = myclient.SendAsync(webRequest).Result;
        string content = response.Content.ReadAsStringAsync().Result;

        var contentdict = new JavaScriptSerializer()
             .Deserialize>(content);
        var choices = (System.Collections.ArrayList)contentdict["choices"];
        var firstChoice = (Dictionary)choices[0];
        var message = (Dictionary)firstChoice["message"];
        string result = (string)message["content"];

        result = System.Text.RegularExpressions.Regex
            .Replace(result, @"(?

C# Project (.zip file)