LA/QM forum - Shared C# code

Simple WinForms app with LA

Tue, 14 Oct 2025 22:39:10 +0000

(Caution: After I reread this, it sounds like it'll be about SharpDocx, but that's just the motivation for the post. I'm trying to use LibreAutomate with SharpDocx. SharpDocx allows use of C# code with a Word file, which is executed when the doc is generated. See the SharpDocx github repo for more if you're interested. )

Ideally I would use wpfBuilder to interact with SharpDocx. For now, I'm getting namespace and assembly errors from my flailing around, so for now I'm using Winforms. To that end, I created a simple Winform that does in fact run from SharpDocx, though I'm just posting the Winform itself that runs directly from LA. No main() method, just top-level statements. I'm sure there's a better way, and if I find one I'll share it.

That said, here's a link to a standalone Winforms designer, no documentation in any language I speak of, but it works: SWD4CS. Caveats for that program is are a) you'll have to build it, and b) once you have it compiled you can make nice Winforms with code to copy, but you'll get a Form1.Designer.cs that you'll have to tweak (read: mangle).

Hopefully this code can serve as a starting point for creating your own Winforms to use with LibreAutomate.

Code:
using System;

using System.Windows.Forms;

Application.EnableVisualStyles();

Application.SetCompatibleTextRenderingDefault(false);

Form Form1 = new Form();

Form1.Text = "Form1";

Form1.Size = new System.Drawing.Size(480, 400);

var Button0 = new Button {

    Text = "MyButton",

    Location = new System.Drawing.Point(48, 48),

    Size = new System.Drawing.Size(104, 23)

};

var TextBox1 = new TextBox {

    Multiline = true,

    Text = "TextBox1",

    Location = new System.Drawing.Point(60, 84),

    Size = new System.Drawing.Size(320, 80),

    TabIndex = 1

};

var ListBox2 = new ListBox {

    ItemHeight = 15,

    Location = new System.Drawing.Point(64, 180),

    Size = new System.Drawing.Size(316, 154),

    TabIndex = 2

};

Form1.Controls.Add(Button0);

Form1.Controls.Add(TextBox1);

Form1.Controls.Add(ListBox2);

// ? Add a Click event handler

Button0.Click += (sender, e) => {

    // Example: write to the textbox and listbox

    TextBox1.AppendText("\r\nButton clicked at " + DateTime.Now);

    ListBox2.Items.Add("Clicked at " + DateTime.Now.ToLongTimeString());

    // Or show a popup:

    // MessageBox.Show("Button was clicked!");

};

Application.Run(Form1);

Best regards,
burque505

P.S. I forgot mention. the attached screenshot is from the Winform being run as part of the generation of a docx file with SharpDocx. Looks exactly the same and runs the same when executed standalone.

2025_10_14 @ 16_37_52 (451x375).PNG (Size: 5.12 KB / Downloads: 103)

Nilesoft Shell. Modify Explorer context menu, add C# scripts.

Sat, 03 May 2025 11:22:51 +0000

https://nilesoft.org/

Very powerful, but not easy to use. No GUI. Need to read documentation and edit a configuration file.

Setup
Download and install Nilesoft Shell (NS).

You can edit NS configuration files in any text editor. I edit in LibreAutomate. If you'll use VSCode, install the NS formatter extension.

Create new empty NS configuration file somewhere not in the NS folder. For example file My shell.nss in LibreAutomate. Copy its full path. Open the NS folder, and open file shell.nss in a text editor running as administrator (for example import as link in LA). Before line import 'imports/modify.nss' insert line import 'the path'. Example:

Code:
...

import 'C:\LA workspace\files\Shell menu\My shell.nss'

import 'imports/modify.nss'

...

Don't add more code in shell.nss (NS setup deletes it). Keep your code in the new nss file.

Example: add menu items to run C# scripts in LA

Code:
//Create submenu "LibreAutomate" and add some new items there.

//    The `mode='multiple'` means "add it even if multiple files are selected". Child menu items inherit the mode and can override.

//    The `mode`, `title`, `image` etc are documented in https://nilesoft.org/docs/configuration/properties

menu(mode='multiple' title='LibreAutomate' image='C:\Program Files\LibreAutomate\Au.Editor.exe')

{

    //The menu command executes C# script "Shell menu script 1". The selected file path will be in `args[0]`.

    item(title='C# script 1' mode='single' type='file' cmd='Au.Editor.exe' args='"Shell menu script 1" @sel(true)')

    //The menu command executes C# script "Shell menu script 1". The selected file path will be in `args[1]`, and `"-example"` in `args[0]`.

    item(title='C# script 1' mode='single' type='file'

        find='.txt|.cs|.xml' //we can specify file types with `find` (simple) or `where` (supports expressions)

        cmd='Au.Editor.exe' args='"Shell menu script 1" -example @sel(true)')

    separator

    //The menu command executes C# script "Shell menu script 2". File paths will be in the `args` array. Script example: foreach (var path in args) { print.it(path); }

    item(title='C# script 2'

        cmd='Au.Editor.exe' args='"Shell menu script 2" @sel(true)'

        image=\uE150 //See https://nilesoft.org/gallery/glyphs. Or can be `image='path of ico, exe, png etc file'` etc.

        tip="Example tooltip\nLine 2"

        //Notes:

        //Mode not specified, therefore this item inherits `mode='multiple'` from menu properties.

        //Type not specified, therefore this item is shown for everything (files, directories etc) except taskbar.

    )

}

More examples
I just started using Nilesoft Shell, and this is my nss file now.

Code:
//In shell.nss import this file before `import 'imports/modify.nss'`.

//    Example: import 'C:\LA workspace\files\Shell context menu\My shell.nss'

//Set dark theme.

theme

{

    dark=true

}

//Remove useless/redundant menu items

remove(where=this.id(id.open,id.copy_as_path,id.extract_all,id.rotate_left,id.rotate_right,id.set_as_desktop_background))

//Why I remove them: Open - I double-click instead. Copy as path - see "File manage > Copy path". Extract all - I use 7-Zip.

//Move rarely used menu items to submenu "More options"

modify(where=this.id(id.add_to_favorites,id.print) menu=title.more_options)

//Add separator after Properties

modify(where=this.id(id.properties) sep=after)

//Create submenu "Cut etc" and move some items there. Instead I use hotkeys Ctrl+X etc, but not always.

//    The `mode='multiple'` means "add it even if multiple files are selected". Default mode is `single`.

//    The `mode`, `title`, `image`, `pos`, `where` etc are documented in https://nilesoft.org/docs/configuration/properties

menu(mode='multiple' title='Cut etc' image=icon.cut pos=bottom)

{

}

modify(where=this.id(id.cut,id.copy,id.paste,id.delete,id.rename) menu="Cut etc")

//Create submenu "LibreAutomate" and add some new items there.

//    The `mode='multiple'` means "add it even if multiple files are selected". Child menu items inherit the mode and can override.

//    The `mode`, `title`, `image` etc are documented in https://nilesoft.org/docs/configuration/properties

menu(mode='multiple' title='LibreAutomate' image='C:\Program Files\LibreAutomate\Au.Editor.exe')

{

    //The menu command executes C# script "Shell menu script 1". The selected file path will be in `args[0]`.

    item(title='C# script 1' mode='single' type='file' cmd='Au.Editor.exe' args='"Shell menu script 1" @sel(true)')

    //The menu command executes C# script "Shell menu script 1". The selected file path will be in `args[1]`, and `"-example"` in `args[0]`.

    item(title='C# script 1' mode='single' type='file'

        find='.txt|.cs|.xml' //we can specify file types with `find` (simple) or `where` (supports expressions)

        cmd='Au.Editor.exe' args='"Shell menu script 1" -example @sel(true)')

    separator

    //The menu command executes C# script "Shell menu script 2". File paths will be in the `args` array. Script example: foreach (var path in args) { print.it(path); }

    item(title='C# script 2'

        cmd='Au.Editor.exe' args='"Shell menu script 2" @sel(true)'

        image=\uE150 //See https://nilesoft.org/gallery/glyphs. Or can be `image='path of ico, exe, png etc file'` etc.

        tip="Example tooltip\nLine 2"

        //Notes:

        //Mode not specified, therefore this item inherits `mode='multiple'` from menu properties.

        //Type not specified, therefore this item is shown for everything (files, directories etc) except taskbar.

    )

}

//Create submenu "Edit with" and add some new items there.

//    The `type='file'` means show the menu only for files but not for folders.

//    The `find="..."` specifies file types for which to add the menu item.

menu(type='file' title='Edit with' image=icon.edit pos=top)

{

    item(title='Dependencies'

        type='file' find=".dll|.exe"

        cmd='C:\Program Files\Dependencies\DependenciesGui.exe' args='@sel(true)')

    item(title='PEView'

        type='file' find=".dll|.exe"

        cmd='C:\Program Files\PEview\PEview.exe' args='@sel(true)')

}

//Move some items to the "Edit with" submenu

modify(where=this.id(id.edit) menu="Edit with")

modify(find="Edit with *|Open with *" menu="Edit with")

//Move the "Open with" submenu to the top (after "Edit with")

modify(where=this.id(id.open_with) pos=top)

//I use app TreeSize to show folder sizes. It adds a menu item. But sometimes need to run it as admin. Therefore I replace that item with an item that runs TreeSize as admin. I could use the easy way (commented out below), but to avoid UAC consent screen I use a C# script instead.

remove(find="Scan with TreeSize*")

//item(title='TreeSize' type='dir|drive|back' image='C:\Program Files\TreeSize Free\TreeSizeFree.exe' cmd='C:\Program Files\TreeSize Free\TreeSizeFree.exe' args='@sel(true)' admin=true)

item(title='TreeSize'

    type='dir|drive|back' image='C:\Program Files\TreeSize Free\TreeSizeFree.exe'

    cmd='Au.Editor.exe' args='"Shell menu" "treesize" @sel(true)')

//Add some new items to menu "7-Zip".

//    The `find="..."` specifies file types for which to add the menu item.

//    The menu command executes C# script "Shell menu" and passes the selected file path and 2 more arguments to it.

item(title='Unzip'

    type='file' find=".zip|.7z|.gz|.tar|.nupkg"

    cmd='Au.Editor.exe' args='"Shell menu" "unzip" @sel(true) ""'

    image=\ue202

    move='7-Zip' pos=0)

item(title='Unzip and delete'

    type='file' find=".zip|.7z|.gz|.tar|.nupkg"

    cmd='Au.Editor.exe' args='"Shell menu" "unzip" @sel(true) "delete"'

    image=\ue202

    move='7-Zip' pos=1 sep=after)

More info

To apply changes after editing, Ctrl+right-click in a folder window or desktop, taskbar.

If there are errors in nss file text:

Shell writes an error line in file shell.log. To quickly access the file, you can import it in LA as link.
Shell stops working (the right-click menu is unmodified). After fixing the error need to restart Explorer processes. Run shell.exe (the NS program file) and click Restart Explorer. Or run shell.exe -restart.

To show hidden items too, Shift+right-click in a folder window (or desktop, taskbar).

To temporarily disable the modified menu: Ctrl+Win+rightclick in a folder window. To enable: Ctrl+rightclick.

C# code "for each selected path" when code in the nss file is like args='"Script name" @sel(true)':

Code:
foreach (string path in args) {

    print.it(path);

}

C# code "for each selected path" when code in the nss file is like args='"Script name" -example @sel(true)':

Code:
foreach (string path in args.Skip(1)) {

    print.it(path);

}

Automate Gmail with GmailHelper

Sat, 26 Apr 2025 21:41:13 +0000

Hey guys,

With Gmail-API-Helper,you can access a Gmail a account. You’ll be able to filter, read, open mails.
That can be helpfull to automate collection and treatement of user’s data.
You will need first Configurate the Google API side, but it is well documented.

After the configuration you should end up with a json file that we can call credential.json.

If not already done you’ll have to install Nugets GmailHelper, Google.Apis.Gmail.v1 and Google.Apis.Auth.

Here is a basic script to use it:

Code:
/*/ nuget GmailHelper\GmailHelper; nuget GmailHelper\Google.Apis.Gmail.v1; nuget GmailHelper\Google.Apis.Auth; /*/

using Google.Apis.Auth.OAuth2;

using Google.Apis.Gmail.v1;

using Google.Apis.Gmail.v1.Data;

using Google.Apis.Services;

using Google.Apis.Util.Store;

using System;

using System.Collections.Generic;

using System.IO;

using System.Linq;

using System.Threading;

public class GmailHelper

{

    static readonly string[] Scopes = { GmailService.Scope.MailGoogleCom };

    static readonly string ApplicationName = "Gmail API Helper";

    public static void Main(string[] args)

    {

        try

        {

            UserCredential credential;

            using (var stream = new FileStream("path/to/your/credentials.json", FileMode.Open, FileAccess.Read))

            {

                string credPath = "token.json"; // path to the tokens

                credential = GoogleWebAuthorizationBroker.AuthorizeAsync(

                    GoogleClientSecrets.Load(stream).Secrets,

                    Scopes,

                    "user",

                    CancellationToken.None,

                    new FileDataStore(credPath, true)).Result;

                Console.WriteLine("The user’s credentials have been saved in : " + credPath);

            }

            // Create the Gmail API service.

            var service = new GmailService(new BaseClientService.Initializer()

            {

                HttpClientInitializer = credential,

                ApplicationName = ApplicationName,

            });

            // List the 10 first emails of the Incoming.

            var request = service.Users.Messages.List("me");

            request.MaxResults = 10;

            var response = request.Execute();

            Console.WriteLine("Emails in the Incoming box:");

            if (response.Messages != null && response.Messages.Count > 0)

            {

                foreach (var message in response.Messages)

                {

                    var messageRequest = service.Users.Messages.Get("me", message.Id);

                    var messageContent = messageRequest.Execute();

                    Console.WriteLine($"- Subject: {messageContent.Snippet}"); // Show a snipet of the subject

                }

            }

            else

            {

                Console.WriteLine("Email not found in the Incoming box.");

            }

        }

        catch (Exception ex)

        {

            Console.WriteLine("An error has occured : " + ex.Message);

        }

        Console.ReadKey();

    }

}

1 - You’ll have to replace the : "path/to/your/credentials.json" by the real path to your credentials.json.
2 - Authenticate the user and stocking the tokens in token.json file.
3 - This script will authenticate the user,"me" is the authenticated user.
4 - Create an instance of the Gmail API service
5 - List the 10 last messages messages: request.MaxResults = 10;
6 - Grap a snipet of each message to show their topics.

WebUI4CSharp - first steps in LA

Fri, 11 Apr 2025 22:30:14 +0000

Another way to use HTML, CSS and JS in your UIs.

WebUI4CSharp_new.PNG (Size: 172.89 KB / Downloads: 240)

You can find WebUi4CSharp here.
From that page:

Quote:WebUI4CSharp is a WebUI wrapper, which allows you to use any web browser as a GUI, with C# in the backend and HTML5 in the frontend.
WebUI allows you to link your console, WinForms or WPF application with a web app that runs in a web browser installed in the operating system. Originally WebUI was created to have all the UI code in the web browser and the rest of the code in your hidden C# application. However, you can also decide to have a visible C# application communicating with a HTML5 app. You can get web browser events in your desktop application, call C# functions from JS, call JS functions from C# code, execute JavaScript, etc.
WebUI4CSharp can be used console, WinForms or WPF applications for Windows.
WebUI doesn't embed a web browser in your application. It's used as a bridge between a desktop application and the web browser running an HTML5 app.
Features
Fully Independent (No need for any third-party runtimes)

Lightweight & Small memory footprint

Fast binary communication protocol between WebUI and the browser (Instead of JSON)

Multi-platform & Multi-Browser

Using private profile for safety

Original library written in Pure C

XML documentation.

Help file.

I wanted to try this out in LA several months ago, but kept running into snags with window positioning and sizing. Today I discovered that if Firefox is open on my system my code won't work properly, but if it's closed it will. There are no doubt ways around this, and there are 27(!) demo programs for the lib.

Here are a couple of files you can experiment with (main file and class file). I feel my code quality is poor at the moment, probably with unneeded usings, but it runs.

I would run it from the LA Editor if I were you, I haven't tried to make it a .exe program yet.

You should a WebUI window open, which has buttons bound to some C# functions in the 'events' file. Click a button and see the function result displayed in the 'Output' tab of the LA Editor. You should see something like this:

Quote:my_function_integer: There are 4 arguments in this event
my_function_integer 1: 123
my_function_integer 2: 456
my_function_integer 3: 789
my_function_integer 4: 12345.6789
my_function_boolean 1: True
my_function_boolean 2: False
my_function_raw_binary: 414243
my_function_with_response: 2 * 2 = 4
my_function_with_response: 4 * 2 = 8
my_function_with_response: 8 * 2 = 16

1) console_call_csharp_from_js.cs

Code:

// script "console_call_csharp_from_js.cs"

/*/ nuget wui\WebUI4CSharp; nuget wui\WebUI4CSharp.Natives; c console_call_csharp_from_js_events.cs; /*/

using WebUI4CSharp;

using System.Windows.Forms;

using System.Threading;



script.setup(trayIcon: true, sleepExit: true);





string my_html = """

        

        

          

            

            

            Call C# from JavaScript Example

            

          

          

            WebUI - Call C# from JavaScript


            Call C# functions with arguments (See the logs in your terminal)


            

            


            

            


            

            


            

            


            Call a C# function that returns a response


            

            Double: 


            

          

        

    """;

        



WebUIWindow window = new WebUIWindow();

window.Bind("my_function_string", WebUI_Events.my_function_string);

window.Bind("my_function_integer", WebUI_Events.my_function_integer);

window.Bind("my_function_boolean", WebUI_Events.my_function_boolean);

window.Bind("my_function_with_response", WebUI_Events.my_function_with_response);

window.Bind("my_function_raw_binary", WebUI_Events.my_function_raw_binary);

window.Show(my_html);

WebUI.Wait();

WebUI.Clean();

2) console_call_csharp_from_js_events.cs

Code:
// class "console_call_csharp_from_js_events.cs"

/*/ nuget wui\WebUI4CSharp; nuget wui\WebUI4CSharp.Natives; /*/

using WebUI4CSharp;

using System.Windows.Forms;

using System.Threading;

/// 

/// UI Events

/// 

public static class WebUI_Events {

    /// 

    /// string function

    /// 

    /// 

    public static void my_function_string(ref webui_event_t e) {

        // JavaScript:

        // my_function_string('Hello', 'World`);

        WebUIEvent lEvent = new WebUIEvent(e);

#nullable enable

        string? str_1 = lEvent.GetString();

        string? str_2 = lEvent.GetStringAt(1);

#nullable disable    

        Console.WriteLine("my_function_string 1: {0}", str_1); // Hello

        Console.WriteLine("my_function_string 2: {0}", str_2); // World

    }

    /// 

    /// integer function

    /// 

    /// 

    public static void my_function_integer(ref webui_event_t e) {

        // JavaScript:

        // my_function_integer(123, 456, 789, 12345.6789);

        WebUIEvent lEvent = new WebUIEvent(e);

        UIntPtr count = lEvent.GetCount();

        Console.WriteLine("my_function_integer: There are {0} arguments in this event", count); // 4

        long number_1 = lEvent.GetInt();

        long number_2 = lEvent.GetIntAt(1);

        long number_3 = lEvent.GetIntAt(2);

        double float_1 = lEvent.GetFloatAt(3);

        Console.WriteLine("my_function_integer 1: {0}", number_1); // 123

        Console.WriteLine("my_function_integer 2: {0}", number_2); // 456

        Console.WriteLine("my_function_integer 3: {0}", number_3); // 789

        Console.WriteLine("my_function_integer 4: {0}", float_1); // 12345.6789

    }

    /// 

    /// boolean

    /// 

    /// 

    public static void my_function_boolean(ref webui_event_t e) {

        // JavaScript:

        // my_function_boolean(true, false);

        WebUIEvent lEvent = new WebUIEvent(e);

        bool status_1 = lEvent.GetBool();

        bool status_2 = lEvent.GetBoolAt(1);

        Console.WriteLine("my_function_boolean 1: {0}", status_1 ? "True" : "False"); // True

        Console.WriteLine("my_function_boolean 2: {0}", status_2 ? "True" : "False"); // False

    }

    /// 

    /// raw binary function

    /// 

    /// 

    public static void my_function_raw_binary(ref webui_event_t e) {

        // JavaScript:

        // my_function_raw_binary(new Uint8Array([0x41]), new Uint8Array([0x42, 0x43]));

        WebUIEvent lEvent = new WebUIEvent(e);

#nullable enable

        MemoryStream? stream = lEvent.GetStream();

#nullable disable

        if (stream != null) {

            string hexstring = Convert.ToHexString(stream.ToArray());

            Console.WriteLine("my_function_raw_binary: " + hexstring);

        }

    }

    /// 

    /// function with response

    /// 

    /// 

    public static void my_function_with_response(ref webui_event_t e) {

        // JavaScript:

        // my_function_with_response(number, 2).then(...)

        WebUIEvent lEvent = new WebUIEvent(e);

        long number = lEvent.GetInt();

        long times = lEvent.GetIntAt(1);

        long res = number * times;

        Console.WriteLine("my_function_with_response: {0} * {1} = {2}", number, times, res);

        // Send back the response to JavaScript

        lEvent.ReturnInt(res);

    }

}

Automation SPY

Fri, 03 Jan 2025 15:29:59 +0000

I just came across this interesting C# library which is pretty similar to LA's ui automation.
Automation Spy homepage - Inspect UI Automation elements

Web browser automation with Playwright

Wed, 27 Nov 2024 13:38:14 +0000

Playwright automates actions in web browser, such as "click link", "fill text field", "execute JavaScript", "open page".
Actions can be recorded.
Supports Chrome, Edge and other Chromium-based browsers. Partially Firefox.
System requirements: Windows 10+.

Updated 2025-05-22: added info and PlaywrightRunBrowser parameter to use command line switch --user-data-dir which is now required for Connect.

Examples

Code:
// script "Playwright Connect.cs"

/// Connects to an existing web browser instance, finds a page by URL, activates the tab, and clicks a link.

/*/ c Playwrighter.cs; /*/

using Microsoft.Playwright;

using var play = Playwrighter.Connect(out var page, "https://www.libreautomate.com/forum/*");

await page.GetByText("Shared C# code").ClickAsync();

print.it(page.Url);

Code:
// script "Playwright Launch.cs"

/// Launches a web browser, opens a page, and clicks a link.

/*/ c Playwrighter.cs; /*/

using Microsoft.Playwright;

using var play = Playwrighter.Launch(out var page); //default browser

//using var play = Playwrighter.Launch(out var page, PWBrowser.BundledChrome); //bundled browser (installs if need)

await page.GotoAsync("https://www.libreautomate.com/forum/");

await page.GetByText("Shared C# code").ClickAsync();

dialog.show("Close the browser");

Playwrighter.zip (Size: 11.01 KB / Downloads: 263)

Registry variables. Sharing values by multiple script processes.

Fri, 27 Sep 2024 08:36:16 +0000

LA scripts run in separate processes. Even the same script runs in new process each time. Each process has its own static variables, and they disappear when the process ends. To share values between processes, can be used a file, registry, shared memory, etc. This class uses the registry.

Example.

Code:
/*/ c \RegistryVariables.cs; /*/

print.clear();

var rv = new RegistryVariables();

rv.SetInt("i", 10);

rv.SetLong("q", -2);

rv.SetString("s", "test");

rv.SetBinary("b", [1, 2, 3, 4]);

rv.SetObject("p", new POINT(5, 6));

//print.it(rv.Exists("p"));

//rv.DeleteAll();

//rv.Delete("s");

print.it(rv.GetInt("i"), rv.GetLong("q"), rv.GetString("s"), rv.GetBinary("b"), rv.GetObject("p", out POINT p), p);

To clear the key when LA starts, add this code in a script that runs when LA starts (see Options > Workspace > Run...):

Code:
/*/ role editorExtension; c \RegistryVariables.cs; /*/

new RegistryVariables().DeleteAll();

Code:
// class "RegistryVariables.cs"

using System.Text.Json;

using System.Text.Json.Serialization;

using System.Text.Encodings.Web;

/// 

/// Sets/gets values in a registry key.

/// 

/// 

/// 
/// /*/ c \RegistryVariables.cs; /*/

/// var rv = new RegistryVariables();

/// rv.SetInt("i", 10);

/// rv.SetLong("q", -2);

/// rv.SetString("s", "test");

/// rv.SetBinary("b", [1, 2, 3, 4]);

/// rv.SetObject("p", new POINT(5, 6));

/// print.it(rv.GetInt("i"), rv.GetLong("q"), rv.GetString("s"), rv.GetBinary("b"), rv.GetObject("p", out POINT p), p);

/// ]]]]]]>

/// To clear the key when LA starts, add this code in a script that runs when LA starts (see Options > Workspace > Run...):

/// 
/// /*/ role editorExtension; c \RegistryVariables.cs; /*/

/// new RegistryVariables().DeleteAll();

/// ]]]]]]>

/// 

public class RegistryVariables {

    string _key;

    /// 

    /// Allows to specify the registry key.

    /// 

    /// Registry key. Must start with @"HKEY_CURRENT_USER\".

    public RegistryVariables(string key = @"HKEY_CURRENT_USER\Software\My\Variables") {

        if (!key.Starts(@"HKEY_CURRENT_USER\")) throw new ArgumentException("key must start with @\"HKEY_CURRENT_USER\".");

        _key = key;

    }

    /// 

    /// Sets an int (DWORD) value.

    /// 

    /// Registry value name.

    /// Value.

    public void SetInt(string name, int value) => Registry.SetValue(_key, name, value);

    /// 

    /// Gets an int (DWORD) value.

    /// 

    /// Registry value name.

    /// Return this value if the registry key or value does not exist or is not DWORD.

    public int GetInt(string name, int defaultValue = 0) => Registry.GetValue(_key, name, null) is int r ? r : defaultValue;

    /// 

    /// Sets a long (QWORD) value.

    /// 

    /// Registry value name.

    /// Value.

    public void SetLong(string name, long value) => Registry.SetValue(_key, name, value, RegistryValueKind.QWord);

    /// 

    /// Gets a long (QWORD) value.

    /// 

    /// Registry value name.

    /// Return this value if the registry key or value does not exist or is not QWORD.

    public long GetLong(string name, long defaultValue = 0) => Registry.GetValue(_key, name, null) is long r ? r : defaultValue;

    /// 

    /// Sets a string value.

    /// 

    /// Registry value name.

    /// Value.

    public void SetString(string name, string value) => Registry.SetValue(_key, name, value);

    /// 

    /// Gets a string value.

    /// 

    /// Registry value name.

    /// null if the registry key or value does not exist or is not string.

    public string GetString(string name) => Registry.GetValue(_key, name, null) as string;

    /// 

    /// Sets a binary data value.

    /// 

    /// Registry value name.

    /// Value.

    public void SetBinary(string name, byte[] value) => Registry.SetValue(_key, name, value);

    /// 

    /// Gets a binary data value.

    /// 

    /// Registry value name.

    /// null if the registry key or value does not exist or is not binary.

    public byte[] GetBinary(string name) => Registry.GetValue(_key, name, null) as byte[];

    /// 

    /// JSON-serializes an object of type T, and sets a string value.

    /// 

    /// Registry value name.

    /// Value.

    public void SetObject<T>(string name, T value) {

        var s = JsonSerializer.Serialize(value, s_jsOptions.Value);

        SetString(name, s);

    }

    /// 

    /// Gets a string value, and JSON-deserializes to object of type T.

    /// 

    /// Registry value name.

    /// Receives the object, or default(T) if returns false.

    /// false if the registry key or value does not exist or is not string.

    public bool GetObject<T>(string name, out T value) {

        if (GetString(name) is not string s) { value = default(T); return false; }

        value = JsonSerializer.Deserialize<T>(s, s_jsOptions.Value);

        return true;

    }

    static readonly Lazy<JsonSerializerOptions> s_jsOptions = new(() => new() {

        DefaultIgnoreCondition = JsonIgnoreCondition.WhenWritingNull,

        IncludeFields = true,

        IgnoreReadOnlyFields = true,

        IgnoreReadOnlyProperties = true,

        Encoder = JavaScriptEncoder.UnsafeRelaxedJsonEscaping,

    });

    /// 

    /// Registry value exists?

    /// 

    /// Registry value name.

    /// true if exists.

    public bool Exists(string name) => Registry.GetValue(_key, name, null) is not null;

    /// 

    /// Deletes a registry value if exists.

    /// 

    /// Registry value name.

    public void Delete(string name) {

        using var k = Registry.CurrentUser.OpenSubKey(_key[18..], true);

        k?.DeleteValue(name, throwOnMissingValue: false);

    }

    /// 

    /// Deletes all values from the registry key.

    /// 

    public void DeleteAll() {

        Registry.CurrentUser.DeleteSubKeyTree(_key[18..], throwOnMissingSubKey: false);

    }

}

Simple password manager for scripts

Mon, 12 Aug 2024 07:42:44 +0000

Examples.

Code:
// script "Passwords examples.cs"

/*/ c \Passwords.cs; /*/

//get password named "test".

//    The first time it shows a password input dialog.

//    Also shows a key input dialog if a key for this computer/user still not saved.

//    To avoid password/key input dialogs at an inconvenient time, call any Passwords method at a convenient time. Or run file "Passwords.cs" (it calls Passwords.ShowManagerUI).

string pw = Passwords.Get("test");

print.it(pw);

//save new password with name "test2", or change password named "test2"

Passwords.Save("test2", "99564Jk-");

//delete password named "test3" if exists

Passwords.Delete("test3");

//show the password manager dialog. Or you can run the "Passwords" file.

Passwords.ShowManagerUI();

Class.

Code:
// class "Passwords.cs"

/*/ role miniProgram; define SCRIPT; /*/

using System.Security.Cryptography;

using System.Windows;

using System.Windows.Controls;

using System.Windows.Data;

using System.Windows.Media;

using System.Windows.Input;

#if SCRIPT

//Passwords.Save("saved", "test");

//Passwords.Delete("Saved");

//print.it(Passwords.Get("saved"));

Passwords.ShowManagerUI();

#endif

/// 

/// Simple password manager for scripts.

/// 

/// 

/// In scripts, you often need to use passwords, API keys, and other kinds of credentials. This class helps to protect them. In script you use password names, not passwords directly; passwords are saved encrypted.

/// To encrypt passwords uses a user-provided encryption key (aka master password). Saves the key encrypted using Windows data protection API, which makes it undecryptable on other computers and user accounts.

/// Saves everything in .

/// Can be used in portable apps too; more info in  remarks.

/// 

/// Obviously, passwords managed by this class are not completely secure. And less secure than when using a password manager software.

/// To use in scripts conveniently, this class saves encrypted passwords (and key) so you don't have to enter them manually each time. They can be decrypted only on the same computer/account.

/// A determined hacker can steal the passwords if he can access that computer/account and somehow know about this class and find the saved data and this code (or just run this code). It's unlikely, but possible.

/// Also this class does not encrypt passwords in memory, and does not clear the password string memory.

/// But this class gives full protection from leaking passwords through script sharing or github etc.

/// Another benefit: when you change a password, will not need to find and update it in each script that uses the password. Instead you can run this script to show the password manager UI and update the password there.

/// 

/// 

/// To avoid password/key input dialogs at an inconvenient time, call any Passwords method at a convenient time. Or run this file (it calls Passwords.ShowManagerUI).

/// 

/// 

public static class Passwords {

    #region settings. You can edit this code.

    /// 

    /// Full path of the password manager data folder.

    /// Default: folders.ThisAppDataLocal + "Pm".

    /// 

    /// 

    /// In portable LA the folder is in its drive. The portable setup tool does not copy/update it, unless the path is changed like folders.ThisAppDataRoaming + "Pm" (the tool copies the roaming folder).

    /// Note: the folders.ThisAppDataLocal/Roaming path is different if script role is editorExtension.

    /// 

    public static string Folder { get; set; } = folders.ThisAppDataLocal + "Pm";

    /// 

    /// Parameter optionalEntropy of  class functions.

    /// 

    /// 

    /// Used when encrypting and decrypting the password encryption key. The key cannot be decrypted with different entropy than when encrypting it.

    /// Recommended: replace the default value with a unique value of any length. It adds some more security and separates your passwords from passwords of other apps that use this class and same folder.

    /// The names of password data and key files depend on this value. It allows multiple apps (or scripts) to save their passwords separately. Just change the default value used by your app.

    /// 

    static byte[] _entropy = [39, 212, 196, 74];

    /// 

    /// Edit this if want to customize the password input dialog. For example localize the text.

    /// 

    /// 

    /// 

    /// true to save the password.

    /// true if OK.

    static bool _PasswordInputDialog(string name, out string password, out bool save) {

        DControls c = new() { Checkbox = "Save", IsChecked = true };

        bool ok = dialog.showInput(out password, null, "Password for " + name, DEdit.Password, controls: c);

        save = c.IsChecked;

        return ok;

    }

    /// 

    /// Edit this if want to customize the key input dialog. For example localize the text.

    /// 

    /// 

    /// If true, the user can enter a new key (there are no saved passwords). If false, the user must enter the same key.

    /// true if OK.

    static bool _KeyInputDialog(out string key, bool newKey) {

        string info = newKey

            ? "Please enter a key (any text) that will be used to encrypt saved passwords.\nIt will be saved encrypted for this computer/user (undecryptable elsewhere)."

            : "Please enter the same key that was used to encrypt the saved passwords.";

        return dialog.showInput(out key, "Password manager key", info, DEdit.Password);

    }

    /// 

    /// Edit this if want to customize the "Delete all saved passwords?" dialog. For example localize the text.

    /// Called when _KeyInputDialog returns false when newKey false. 

    /// 

    /// true to delete.

    static bool _DeletePasswordsDialog() {

        return 1 == dialog.show("Delete all saved passwords?",

            "Saved passwords cannot be decrypted without the key.\nIf you have lost the key, you can delete saved passwords and set a new key.\nDo you want to delete all saved passwords?",

            "1 Delete|2 Cancel", 0, DIcon.Warning, defaultButton: 2);

    }

    #endregion

    static string _PasswordsFile => Folder + "\\" + (_filename ??= Hash.MD5(_entropy).ToString()) + ".csv";

    static string _filename;

    static string _KeyFile => _PasswordsFile + ".key";

    static csvTable _LoadCsv(string file = null) {

        file ??= _PasswordsFile;

        if (!filesystem.exists(file).File) return new() { ColumnCount = 2 };

        var t = csvTable.load(file);

        if (t.ColumnCount < 2) t.ColumnCount = 2;

        return t;

    }

    static Dictionary<string, string> _LoadDict() => _LoadCsv().ToDictionary(true, true);

    static void _SaveCsv(csvTable t) {

        t.Save(_PasswordsFile);

    }

    static void _SaveDict(Dictionary<string, string> d) => _SaveCsv(csvTable.fromDictionary(d));

    static byte[] _GetKey() {

        try {

            var data = filesystem.loadBytes(_KeyFile);

            var r1 = ProtectedData.Unprotect(data, _entropy, DataProtectionScope.CurrentUser);

            if (r1.Length == 16) return r1;

        }

        catch { }

        return _SetKey();

    }

    static bool _KeyInputDialog2(out byte[] key, bool newKey) {

        key = null;

        string s = "";

        while (s.Length < 1) {

            if (!_KeyInputDialog(out s, newKey)) return false;

        }

        key = Hash.MD5(s).ToArray();

        return true;

    }

    static byte[] _SetKey() {

        var t = _LoadCsv();

        bool newKey = t.RowCount == 0;

        g1:

        if (!_KeyInputDialog2(out var key, newKey)) { //canceled

            if (newKey || !_DeletePasswordsDialog()) throw new OperationCanceledException();

            filesystem.delete(_PasswordsFile);

            filesystem.delete(_KeyFile);

            newKey = true;

            goto g1;

        }

        //is data encrypted with this key?

        if (!newKey && t.Rows.All(a => !_Decrypt(a[1], key, out _))) { //if fails to decrypt all passwords, the key is incorrect

            500.ms();

            goto g1;

        }

        var p = ProtectedData.Protect(key, _entropy, DataProtectionScope.CurrentUser);

        filesystem.saveBytes(_KeyFile, p);

        return key;

    }

    static bool _ChangeKey(ref byte[] key, List<_Item> a) {

        if (!_KeyInputDialog2(out var key2, newKey: true)) return false;

        foreach (var v in a) {

            if (_Decrypt(v.EncryptedPassword, key, out string pw))

                v.SetNewPassword(pw, key2);

        }

        var p = ProtectedData.Protect(key2, _entropy, DataProtectionScope.CurrentUser);

        filesystem.saveBytes(_KeyFile, p);

        key = key2;

        return true;

    }

    static string _Encrypt(string s, byte[] key = null) {

        if (s.NE()) return "";

        return Convert2.AesEncryptS(s, key ?? _GetKey());

    }

    static bool _Decrypt(string s, byte[] key, out string r) {

        if (s.NE()) r = "";

        else {

            try { r = Convert2.AesDecryptS(s, key); }

            catch { r = null; return false; }

        }

        return true;

    }

    //TODO: in name, replace substring  with user SID.

    /// 

    /// Encrypts password and saves in the passwords file. Can add or replace.

    /// 

    /// A name for the password. Case-insensitive.

    /// 

    /// Key input dialog canceled.

    /// Failed to load (if exists) or save the passwords file.

    public static void Save(string name, string password) {

        _Save(_LoadDict(), name, password);

    }

    static void _Save(Dictionary<string, string> d, string name, string password) {

        d[name] = _Encrypt(password);

        _SaveDict(d);

    }

    /// 

    /// Deletes one or more passwords from the passwords file.

    /// 

    /// Password names. Case-insensitive.

    /// Failed to load (if exists) or save the passwords file.

    public static void Delete(params string[] names) {

        var d = _LoadDict();

        bool deleted = false;

        foreach (var v in names) deleted |= d.Remove(v);

        if (deleted) _SaveDict(d);

    }

    /// 

    /// Gets a password from the passwords file and decrypts.

    /// If not found, shows a password input dialog and calls  (optionally).

    /// 

    /// The password's name. Case-insensitive.

    /// Password.

    /// Password input dialog canceled. Or key input dialog canceled.

    /// Failed to load (if exists) or save the passwords file.

    public static string Get(string name) {

        var d = _LoadDict();

        if (d.TryGetValue(name, out var s)) {

            var key = _GetKey();

            if (_Decrypt(s, key, out var r)) return r;

        }

        if (!_PasswordInputDialog(name, out s, out bool save)) throw new OperationCanceledException();

        if (save) _Save(d, name, s);

        return s;

    }

    /// 

    /// Gets all names.

    /// 

    /// Failed to load (if exists) the passwords file.

    /// 

    /// 
    /// //show menu with all password names

    /// var a = Passwords.GetList();

    /// if (a.Any()) {

    ///     var m = new popupMenu("0cfd5f9c-8a23-4534-ad93-5af3ba8c2b41");

    ///     foreach (var v in a) {

    ///         m[v] = o => { print.it(Passwords.Get(v)); };

    ///     }

    ///     m.Show();

    /// }

    /// ]]]]]]>

    /// 

    public static string[] GetList() {

        var d = _LoadDict();

        return d.Keys.ToArray();

    }

    /// 

    /// Shows a dialog window with a data grid where you can add, delete and edit names and passwords.

    /// 

    /// Key input dialog canceled.

    /// Failed to load (if exists) or save the passwords file.

    public static void ShowManagerUI(Window owner = null) {

        var b = new wpfBuilder("Passwords").WinSize(500, 500);

        var w = b.Window;

        b.R.Add(out Menu menu).Margin("T-2 B0");

        var g = new DataGrid {

            AutoGenerateColumns = false,

            CanUserAddRows = true,

            VerticalGridLinesBrush = Brushes.LightGray,

            HorizontalGridLinesBrush = Brushes.LightGray,

        };

        b.Row(-1).Add(g);

        b.R.AddOkCancel();

        b.End();

        var colName = new DataGridTextColumn {

            Header = "Name",

            Binding = new Binding("Name"),

            Width = new(1, DataGridLengthUnitType.Star),

            CanUserReorder = false

        };

        g.Columns.Add(colName);

        var colPw = new DataGridTextColumn {

            Header = "Password",

            Binding = new Binding("Password"),

            Width = new(1, DataGridLengthUnitType.Star),

            CanUserReorder = false

        };

        g.Columns.Add(colPw);

        var key = _GetKey(); //OperationCanceledException

        var t = _LoadCsv();

        var a = t.Rows.Select(o => new _Item(o[0], o[1], key)).ToList();

        g.ItemsSource = a;

        //clear the displayed password placeholder text when started editing

        g.PreparingCellForEdit += (o, e) => {

            if (e.Column == colPw) {

                var tb = (TextBox)e.EditingElement;

                if (e.EditingEventArgs is not TextCompositionEventArgs) tb.Clear();

                //tb.Foreground = tb.Background; //hide password

            }

        };

        //validate name when ending editing

        g.CellEditEnding += (o, e) => {

            if (e.EditAction == DataGridEditAction.Commit) {

                var tb = (TextBox)e.EditingElement;

                var s = tb.Text;

                if (s.Trim() is var s2 && s2 != s) {

                    switch (dialog.show(null, "The texts starts or ends with spaces.", "1 Trim spaces|2 Don't trim|3 Cancel", owner: w, defaultButton: 3)) {

                    case 3: _Cancel(); return;

                    case 1: tb.Text = s = s2; break;

                    }

                }

                if (e.Column == colName) {

                    var item = e.Row.Item as _Item;

                    if (a.Any(v => v != item && v.Name.Eqi(s))) {

                        dialog.show("Error", $"Name '{s}' already exists.", owner: w);

                        _Cancel();

                    }

                }

                void _Cancel() {

                    e.Cancel = true;

                    //workaround for DataGrid bug: on Tab key starts editing next cell. Then 2 cells are in edit mode.

                    EventHandler<DataGridBeginningEditEventArgs> eh1 = (o, e) => { e.Cancel = true; tb.Focus(); };

                    g.BeginningEdit += eh1;

                    timer.after(1, _ => { g.BeginningEdit -= eh1; });

                }

            }

        };

        _CreateMenu();

        if (owner != null) {

            w.Owner = owner;

            w.ShowInTaskbar = false;

        }

        if (!b.ShowDialog(owner)) return;

        _SaveItems();

        void _SaveItems() {

            var t = new csvTable { ColumnCount = 2 };

            foreach (var v in a) t.AddRow(v.Name, v.EncryptedPassword);

            _SaveCsv(t);

        }

        void _CreateMenu() {

            //File

            var mFile = _TopItem("_Menu");

            _Item(mFile, "Change key...", o => {

                g.CancelEdit();

                if (a.Any(o => o.Password == "")) { //unlikely

                    dialog.showError("Cannot change the key", "Failed to decrypt some passwords (), therefore cannot encrypt them with a new key.\nEdit or delete the  passwords.");

                    return;

                }

                if (_ChangeKey(ref key, a))

                    _SaveItems();

            });

            //TODO2: UI help.

            MenuItem _Item(ItemsControl parent, string name, Action<MenuItem> click = null, string tooltip = null) {

                var mi = new MenuItem { Header = name, ToolTip = tooltip };

                if (click != null) mi.Click += (sender, _) => click(sender as MenuItem);

                parent.Items.Add(mi);

                return mi;

            }

            MenuItem _TopItem(string name) => _Item(menu, name);

            //void _Separator(ItemsControl parent) { parent.Items.Add(new Separator()); }

        }

    }

    record class _Item {

        string _pwDisplay;

        public _Item(string name, string encPw, byte[] key) {

            Name = name;

            EncryptedPassword = encPw;

            if (!encPw.NE()) _pwDisplay = _Decrypt(EncryptedPassword, key, out _) ? "•…" : "";

        }

        public _Item() { }

        public string Name { get; set; }

        public string EncryptedPassword;

        public string Password {

            get => _pwDisplay;

            set => SetNewPassword(value);

        }

        public void SetNewPassword(string s, byte[] key = null) {

            EncryptedPassword = _Encrypt(s, key);

            _pwDisplay = s.NE() ? null : "•…";

        }

    }

}

Remote contol of XYplorer

Sun, 03 Mar 2024 13:40:31 +0000

With gintara's help, I was able to modify an old QM script that can be used to send msgs to my favorite filemanager XYplorer:

    void XYSend (string script) {
       var w = wnd.findOrRun(of: "xyplorer.exe",run: () => run.it("xyplorer.exe"));
       if (w.Is0) return;
       WndCopyData.Send(w, 0x00400001, script);
   }

NB: check XY's help for "Remote Control"

Translate Cookbook with Google Translate or OpenAI ChatGPT

Mon, 12 Feb 2024 08:46:21 +0000

Need LA 1.1 or later.

Code:
// script "Translate cookbook recipe.cs"

/// Run this script. It translates Cookbook articles as you open them.

/// At first edit the `language` value below (replace "lt").

/// 

/// To translate, this script can use Google Translate (Cloud or free) or Microsoft Translator or OpenAI ChatGPT.

/// By default uses a free Google Translate endpoint. Don't need an account etc. It is undocumented and may stop working in the future, therefore this script also can use Google Cloud, which has the same translation speed and quality.

/// To use Microsoft Translator:

///     Change the `translator` value below in `#region settings`.

///     Change the `language` value in the `microsoft` block.

/// To use OpenAI or Google Cloud:

///     Change the `translator` value below in `#region settings`.

///     Change the `language` value in the `google` or `openai` block.

///     Create account at https://platform.openai.com or Google Cloud. Generate an API key. For OpenAI at first need to upgrade to a paid tier ($5 one-time). For Google Cloud need a project etc. You can find more info and tutorials on the Internet.

///     Save the API key it the Registry (see `registryApiKey` below).

///     How much it costs? Both services can translate more than enough text / month for free. Entire Cookbook can be translated for free.

/// 

/// To run this script at startup, add its name in Options > Workspace.

/// After editing this script, run it again.

/// 

/// This script caches translated texts. If you want to re-translate a recipe, open it with Ctrl.

/// OpenAI is slow. If the recipe contains much text, may need to wait 30 minutes or more. During that time LA is hung. Because of the cache, next time will not need to wait for the same recipe.

/// Google is fast, usually 100-300 ms, but incorrectly translates many words.

/// Microsoft is just slightly slower than Google, and it seems its translation quality is better.

/*/ role editorExtension; testInternal Au.Editor; r Au.Editor.dll; /*/

/*/ role editorExtension; testInternal Au.Editor; r Au.Editor.dll; nuget -\WeCantSpell.Hunspell; /*/

//#define DEBUG_PRINT

//#define SPELLCHECK

using System.Text.Json.Nodes;

#region settings

const Translator translator = Translator.GoogleFree;

var google = new {

    language = "lt", //https://cloud.google.com/translate/docs/languages

    registryApiKey = (key: @"HKEY_CURRENT_USER\Software\Au", value: "Google Cloud API key"), //for Translator.GoogleCloud only. Don't need to edit these strings, just create the Registry key and value.

};

var microsoft = new {

    language = "lt",

};

var openai = new {

    language = "Lithuanian",

    model = "gpt-4-turbo-preview", //"gpt-3.5-turbo", "gpt-4", "gpt-4-turbo-preview", etc

    registryApiKey = (key: @"HKEY_CURRENT_USER\Software\Au", value: "OpenAI API key"), //Don't need to edit these strings, just create the Registry key and value.

};

#endregion

#if SPELLCHECK

var dict = @"C:\Program Files\LibreOffice\share\extensions\dict-en\en_US.dic";

//var dict = @"C:\Program Files\LibreOffice\share\wordbook\technical.dic";

var dictionary = WeCantSpell.Hunspell.WordList.CreateFromFiles(dict);

#endif

EditorExtension.WindowReady += () => {

    Panels.Recipe.OpeningRecipe = _OpeningRecipe;

};

void _OpeningRecipe(PanelRecipe.OpeningRecipeArgs e) {

    //convert e to text:

    //Name

    //

    //e.parts[0] //text with replaced tags

    //

    //#<1># //replaced code

    //

    //e.parts[2] //text with replaced tags

    //

    //#<3># //replaced code

    //

    //...

#if DEBUG_PRINT

    print.clear();

#endif

    List<(string s, int lenEndTag, int lenText)> tags = new();

    regexp rx = new(@"<_>(?[\s\S]*?)|""[^""]*"">|<([+\.]?[a-z]+)(? [^>]+)?>(?[^<]++|(?R))+<(?:/\1)?>");

    var sb = new StringBuilder(_PrepareTitle(e.name, tags) + "\r\n\r\n");

    int ipart = -1;

    foreach (var v in e.parts) {

        ipart++;

        if (v.isText) {

            //print.it(v.s); print.it("----");

            sb.AppendLine(rx.Replace(v.s, _Repl1));

            string _Repl1(RXMatch m) {

                int i = tags.Count;

                var s = m.Value;

                var g = m[s.Starts("<_>") ? "g1" : "g2"];

                var t = g.Value;

                bool translate = false;

                if (t.Contains('<')) { /*print.it(t);*/ } //nested tags (mostly keywords, identifiers)

                else if (s.Starts("<_>")) { /*print.it(t);*/ } //don't translate

                else if (s.Starts(")) { /*print.it(t);*/ } //

                else if (s.Starts("<.")) { /*print.it(t);*/ } //code, keyword

                else if (s.Starts("")) { /*print.it(t);*/ } //mostly identifiers and UI

                else if (s.Starts("")) { /*print.it(t);*/ } //mostly parameters and terms

                else if (s.Starts("")) { /*print.it(t);*/ } //keys, hotkeys

                else if (s.Starts("<+see")) { /*print.it(t);*/ } //identifiers

                //else if (s.Starts("<+recipe")) { /*print.it(t);*/ } //

                else if (s.Starts("<+nuget")) { /*print.it(t);*/ } //

                else if (t.Starts("http")) { /*print.it(t);*/ } //URL

                else if (t.FindAny(".;") >= 0) { /*print.it(t);*/ } //avoid breaking the sentence

                else {

                    //print.it(s);

                    translate = true;

                    if (!m["g3"].Exists) { s = $"{s[..(g.Start - m.Start - 1)]} \"{t}\">{t}{s[(g.End - m.Start)..]}"; /*print.it(t, s);*/ } //text<> -> translatedText<>

                }

                //print.it(s, t);

                tags.Add(translate ? (s, m.End - g.End, t.Length) : (s, 0, 0));

                return translate ? $"{i}>{t}{i}>" : $"[Q{i}]";

            }

        } else {

            sb.AppendLine($"\r\n#<{ipart}>#\r\n");

        }

    }

    var text = sb.ToString();

#if DEBUG_PRINT

    //if (text.RxIsMatch(@"<[+\.]?[a-z_]")) {

    //    print.it($"<>{e.name}    not all tags replaced<><>");

    //    print.it(text);

    //    print.it("----");

    //    print.it(e.parts.Select(o => o.s));

    //    return;

    //}

    //if (text.RxIsMatch(@"(?i)(?
    //    print.it($"<>{e.name}<>");

    //    print.it(text);

    //}

    //var s1 = text.RxReplace(@""".+?""", $"$0<>");

    //if (s1 != text) {

    //    print.it($"<>{e.name}<>\r\n{s1}");

    //}

    //print.it($"<>{e.name}<>");

    //print.it(text);

    //if (text.Length > 1500) print.it(text.Length);

    //if (text.Length > 1900) {

    //    print.it($"<>{e.name}<>");

    //    print.it(text);

    //}

#endif

#if SPELLCHECK

    text = text.RxReplace(@"\b[A-Za-z][a-z']+\b", m => {

        var s = m.Value;

        bool ok = dictionary.Check(s);

        if (!ok) {

            s = $"{s}<>";

        }

        return s;

    });

#else

    //translate

    //print.it(text); print.it("-------");

    //return;

    //perf.first();

    text = _Translate(e.name, text, true);

    //perf.nw();

    //print.it(text);

    //return;

    if (text == null) return;

#endif

    regexp rxRT1 = null, rxRT2 = null;

    //get translated name

    if (!text.RxMatch(@"\R\R", 0, out RXGroup g1)) { print.it("Failed to translate. Result:\r\n" + text); return; }

    e.name = _RestoreTags(text[..g1.Start].Trim(), -1);

    int i = g1.End;

    //parse translated text parts and create new e.parts with translated texts (with restored tags) and restored codes

    List<(bool isText, string s)> r = new();

    regexp rx2 = new(@"\R+#<(\d+)>#\R*");

    ipart = 0;

    foreach (var m in rx2.FindAll(text)) {

        if (m.Start > i) r.Add((true, _RestoreTags(text[i..m.Start], ipart++)));

        r.Add(e.parts[m[1].Value.ToInt()]);

        ipart++;

        i = m.End;

    }

    if (text.Length > i) r.Add((true, _RestoreTags(text[i..], ipart)));

#if DEBUG_PRINT

    //print.it($"<>{e.name}<>");

    //print.it(r);

#endif

    e.parts = r;

    string _RestoreTags(string s, int ipart) {

        rxRT1 ??= new(@"\[Q\d+\]");

        s = rxRT1.Replace(s, m => tags[s.ToInt(m.Start + 2)].s);

        rxRT2 ??= new(@"([^<]++)");

        s = rxRT2.Replace(s, m => {

            var translatedLinkText = m[2].Value;

            var tag = tags[s.ToInt(m.Start + 2)];

            var r = tag.s[..^(tag.lenEndTag + tag.lenText)] + translatedLinkText + tag.s[^tag.lenEndTag..];

            //print.it(r);

            return r;

        });

        if (ipart >= 0) s = $"{e.parts[ipart].s}<>\r\n\r\n{s}<>";

        return s;

    }

    static string _PrepareTitle(string s, List<(string s, int i1, int i2)> tags) {

        HashSet<string> dontTranslate = new() { "bool", "null", "default", "class", "struct", "generic", "nullable", "tuple", "using", "if", "else", "switch", "for", "return", "try", "catch", "finally", "throw", "delegate", "event", };

        s = s.RxReplace(@"\b[a-zA-Z]+\b", m => {

            var k = m.Value;

            if (dontTranslate.Contains(k) || (m.Start > 0 && char.IsUpper(k[0]))) {

                int i = tags.Count;

                tags.Add((k, 0, 0));

                return $"[Q{i}]";

            }

            return k;

        });

        return s;

    }

}

#pragma warning disable CS0162 //Unreachable code detected

string _Translate(string name, string text, bool debugPrint) {

    string targetLang = translator switch { Translator.OpenAI => openai.language, Translator.Microsoft => microsoft.language, _ => google.language };

    _Cache cache = new();

    string cacheDir = translator switch { Translator.OpenAI => "openai ", Translator.Microsoft => "microsoft ", _ => "google " };

    if (cache.Get(cacheDir + targetLang, name, text, out var translated)) return translated;

    string apiKey = null;

    if (translator == Translator.Microsoft) {

        apiKey = internet.http.Get("https://edge.microsoft.com/translate/auth").Text();

    } else if (translator != Translator.GoogleFree) {

        var rkv = translator == Translator.OpenAI ? openai.registryApiKey : google.registryApiKey;

        apiKey = Registry.GetValue(rkv.key, rkv.value, null) as string ?? throw new AuException("no API key in registry");

    }

    if (translator == Translator.OpenAI) {

        var json = new JsonObject {

            ["model"] = openai.model,

            ["messages"] = new JsonArray(new JsonObject { ["role"] = "user", ["content"] = $"Translate English to {targetLang}:\r\n{text}" })

        };

        var r = internet.http.Post("https://api.openai.com/v1/chat/completions", internet.jsonContent(json.ToJsonString()), [$"Authorization: Bearer {apiKey}"]);

        if (!r.IsSuccessStatusCode) {

            if (debugPrint) print.it($"api.openai.com error: {(int)r.StatusCode} {r.ReasonPhrase}");

            return null;

        }

        var j = r.Json();

        //print.it(j.ToJsonString());

        translated = (string)j["choices"][0]["message"]["content"];

    } else if (translator == Translator.Microsoft) {

        var json = new JsonArray(new JsonObject { ["Text"] = text });

        var r = internet.http.Post($"https://api.cognitive.microsofttranslator.com/translate?api-version=3.0&from=en&to={targetLang}", internet.jsonContent(json.ToJsonString()), headers: [$"Authorization: Bearer {apiKey}"]);

        if (!r.IsSuccessStatusCode) {

            if (debugPrint) print.it($"api.cognitive.microsofttranslator.com error: {(int)r.StatusCode} {r.ReasonPhrase}");

            return null;

        }

        var j = r.Json();

        translated = (string)j[0]["translations"][0]["text"];

    } else if (translator == Translator.GoogleCloud) {

        var url = internet.urlAppend("https://translation.googleapis.com/language/translate/v2", "key=" + apiKey);

        var json = new { q = text, source = "en", target = targetLang, format = "text" };

        var r = internet.http.Post(url, internet.jsonContent(json));

        if (!r.IsSuccessStatusCode) {

            if (debugPrint) print.it($"translation.googleapis.com error: {(int)r.StatusCode} {r.ReasonPhrase}");

            return null;

        }

        var j = r.Json();

        translated = (string)j["data"]["translations"][0]["translatedText"];

    } else {

        var url = internet.urlAppend("https://translate.googleapis.com/translate_a/single", "client=gtx", "sl=en", "tl=" + targetLang, "dt=t", "q=" + text);

        var r = internet.http.Get(url);

        if (!r.IsSuccessStatusCode) {

            if (debugPrint) print.it($"translate.googleapis.com error: {(int)r.StatusCode} {r.ReasonPhrase}");

            return null;

        }

        var j = r.Json();

        var sb = new StringBuilder();

        foreach (var v in j[0].AsArray()) sb.Append((string)v[0]);

        translated = sb.ToString();

    }

    cache.Save(translated);

    return translated;

}

#pragma warning restore CS0162 //Unreachable code detected

class _Cache {

    string _file, _hash;

    public bool Get(string folder, string name, string text, out string translated) {

        _hash = Hash.MD5(text, true);

        _file = folders.ThisAppDataRoaming + @"translate\" + folder + @"\" + name + ".txt";

        //run.selectInExplorer(_file);

        if (!keys.isCtrl)

            if (filesystem.exists(_file)) {

                var s = filesystem.loadText(_file);

                if (s.Starts(_hash)) {

                    translated = s[_hash.Length..];

                    return true;

                }

            }

        translated = null;

        return false;

    }

    public void Save(string translated) {

        filesystem.saveText(_file, _hash + translated);

    }

}

enum Translator { GoogleFree, GoogleCloud, Microsoft, OpenAI }

Changes:
2024-03-03: Added Misrosoft Translator.

Lua in LA using MoonSharp

Tue, 02 Jan 2024 14:12:21 +0000
Happy New Year to all. Here's a couple of Lua scripts running in LA using MoonSharp. You can get MoonSharp with NuGet. (I cloned code from here). You can return really large results with this factorial code, by the way.

First (using implicit conversion):

Code:
// script "lua3c2.cs" /*/ nuget lua\MoonSharp; /*/ //. using MoonSharp.Interpreter; script.setup(trayIcon: true, sleepExit: true); //.. int myNumber; dialog.options.defaultTitle = "MoonSharp Testing"; dialog.showInputNumber(out myNumber, "Lua Factorial Test", "Enter an integer"); dialog.show(MoonSharpFactorial2(myNumber).ToString(), "Back from Lua", title: "Lua Factorial Output"); double MoonSharpFactorial2(int aNumber) {    string scriptCode = @"          -- defines a factorial function        function fact (n)            if (n == 0) then                return 1            else                return n*fact(n - 1)            end        end";    Script script = new Script();    script.DoString(scriptCode);    // Here we get the script.Globals function by index, i.e. ["fact"]    // This returns a System.Object. Sometimes that's not what's wanted.    DynValue res = script.Call(script.Globals["fact"], myNumber);    return res.Number; }

Second, explicit conversion:

Code:
// script "lua3c3.cs" /*/ nuget lua\MoonSharp; /*/ //. using MoonSharp.Interpreter; script.setup(trayIcon: true, sleepExit: true); //.. int myNumber; dialog.options.defaultTitle = "MoonSharp Testing"; dialog.showInputNumber(out myNumber, "Lua Factorial Test", "Enter an integer"); dialog.show(MoonSharpFactorial2(myNumber).ToString(), "Back from Lua", title: "Lua Factorial Output"); double MoonSharpFactorial2(int aNumber) {    string scriptCode = @"          -- defines a factorial function        function fact (n)            if (n == 0) then                return 1            else                return n*fact(n - 1)            end        end";    Script script = new Script();    script.DoString(scriptCode);    DynValue luaFactFunction = script.Globals.Get("fact"); /* If we are interested in avoiding conversion, we can pass a number directly instead of using the implicit conversions the Call method provides. It’s not really needed for this but somewhere else it might be. Not all implicit conversions give the desired results. */    DynValue res = script.Call(luaFactFunction, DynValue.NewNumber(aNumber));    return res.Number; }

Best regards,
burque505

Query Alpha Vantage API

Wed, 27 Dec 2023 21:49:10 +0000
I hope everyone had/is having a great holiday season.
I wanted to use HttpClient for Alpha Vantage's API instead of WebClient (deprecated). Alpha Vantage's docs use WebClient, which doesn't seem to me to be a great idea since it's deprecated, even though perhaps easier. Here's some code that gets Intraday quotes. You'll need to get a free API key and replace 'demo' in the code with that key.

Code:
using System.Net.Http; using System.Text.Json; // Replace the "demo" apikey below with your own key from https://www.alphavantage.co/support/#api-key string QUERY_URL = "https://www.alphavantage.co/query?function=TIME_SERIES_INTRADAY&symbol=IBM&interval=5min&apikey=demo"; Uri queryUri = new Uri(QUERY_URL); using (HttpClient client = new HttpClient()) {    try {        // Send the GET request        HttpResponseMessage response = await client.GetAsync(queryUri);               // Check if the request was successful        if (response.IsSuccessStatusCode) {            // Read and parse the response content            string jsonContent = await response.Content.ReadAsStringAsync();                       // Deserialize JSON using System.Text.Json            dynamic json_data = JsonSerializer.Deserialize<Dictionary<string, dynamic>>(jsonContent);                       // Do something with the json_data besides printing, if you like.            print.it(json_data);        } else {            print.it($"Error: {response.StatusCode} - {response.ReasonPhrase}");        }    }    catch (Exception ex) {        print.it($"An error occurred: {ex.Message}");    } }

Best regards and Happy New Year,
burque505

Interact with AutoHotkey from LA

Thu, 23 Nov 2023 18:38:43 +0000
Hi all, Happy Thanksgiving to everyone. I still use AutoHotkey quite a bit. My experience is mostly with v1, and v2 is rapidly taking over.
amazing-andrew wrote an interop for the AutoHotkey dll (version 1) which you can find here, AutoHotkey.Interop.
LucidMethod wrote a cool library called SharpAHK, which also uses AutoHotkey.Interop. As it was missing a function critical to displaying GUIs, I added one and created a Nuget package, sharpAHK_505.
That's what I used in the script below.

You can pass variables back and forth between LA and AutoHotkey, as you'll see.
I realize there may be little interest among LA users for AutoHotkey, since LA can do so much, but you may find some limited application for it.

I haven't done much testing with this - there may be memory leaks or other bugs.

Code:
// script "SharpAHKtest6.cs" /*/ nuget -\sharpahk_505; /*/ //. using AutoHotkey.Interop; string myContent = "Not updated!"; // Initialized for debugging // Create AutoHotkey script to be loaded by // AutoHotkey engine instance. // (I suggest you avoid AHK comments in the script string scriptString = @"#NoEnv #SingleInstance force Gui, Add, Edit, r9 vMyEdit w135, Text to appear inside control. Gui, Add, Button, w80 gOutputz, Submit gui, show return Outputz:     Gui, Submit ; Submit the data from the GUI to update variables     MsgBox, ,Testing AHK,% MyEdit    ExitApp return "; // Create the AutoHotkey engine var ahk = AutoHotkeyEngine.Instance; // Load the script ahk.LoadScript(scriptString); // Critical - if this 'while' loop is omitted, // the script will exit immediately after the // GUI very briefly appears. // sharpAHK_505 has the isReady function, // but AFAIK the original sharpAHK does not. while (ahk.IsReady() == true) {    // Use LA's 'Intellisense' to explore other    // engine functions.    // For example, 'getter' GetVar also has a 'setter',    // SetVar    myContent = ahk.GetVar("MyEdit");    Thread.Sleep(100); } // Do something with the variable retrieved print.it("Contents is: " + myContent); ahk = null;

Unloading file AuCpp.dll from other processes

Sun, 29 Oct 2023 18:44:09 +0000
The Au library uses a dll file AuCpp.dll. If your program uses the Au library, sometimes it may want to delete or replace the dll, for example when installing new version. But it may fail because the dll may be loaded into some seemingly unrelated processes.

Class elm and some other Au library functions load the dll into the target process to make "find UI element" faster or/and enable some features.

There are 2 versions of AuCpp.dll files: 64-bit dll for 64-bit processes and 32-bit dll for 32-bit processes.

If need to delete the dll, you can:
- With elm functions use flag NotInProc. Then the dll will not be loaded into the target process. But will be slower etc.
- Or unload the dll from other processes. This script shows how.

Code:
// script "Unload AuCpp.dll from other processes.cs" //AuCpp.dll exports function Cpp_Unload. It unloads AuCpp.dll from other processes. You can use it in any program (C#, C++, etc). //Or, to avoid loading AuCpp.dll into your process, use Cpp_Unload code converted to C#. //Or, if you use C++, copy the function from GitHub to your C++ program. #if !true //use function Cpp_Unload of AuCpp.dll api.Cpp_Unload(1); unsafe class api : NativeApi {    /// 1 - wait less.    [DllImport("AuCpp.dll", CallingConvention = CallingConvention.Cdecl)]    internal static extern void Cpp_Unload(uint flags); } #else //use Cpp_Unload code converted to C# using System.Collections.Generic; using System.Runtime.InteropServices; using System.Threading; UnloadAuCppDll(!true); void UnloadAuCppDll(bool waitLess) {    int less = waitLess ? 5 : 1;    List<nint> a = new();       //close elm agent windows    for (nint w = 0; (w = api.FindWindowEx(api.HWND_MESSAGE, w, "AuCpp_IPA_1", null)) != 0;) a.Add(w);    int n = a.Count;    if (n > 0) {        for (int i = 0; i < n; i++) api.SendMessageTimeout(a[i], api.WM_CLOSE, 0, 0, api.SMTO_ABORTIFHUNG, 5000 / less, out _);        a.Clear();        Thread.Sleep(n * 50);    }       //unload from processes where loaded by the clipboard hook    api.SendMessageTimeout(api.HWND_BROADCAST, 0, 0, 0, api.SMTO_ABORTIFHUNG, 1000 / less, out _);    for (nint w = 0; (w = api.FindWindowEx(api.HWND_MESSAGE, w, null, null)) != 0;) a.Add(w);    foreach (var w in a) api.SendMessageTimeout(w, 0, 0, 0, api.SMTO_ABORTIFHUNG, 1000 / less, out _);    Thread.Sleep(500 / less); } unsafe class api {    [DllImport("user32.dll", EntryPoint = "FindWindowExW")]    internal static extern nint FindWindowEx(nint hWndParent, nint hWndChildAfter, string lpszClass, string lpszWindow);       [DllImport("user32.dll", EntryPoint = "SendMessageTimeoutW")]    internal static extern nint SendMessageTimeout(nint hWnd, int Msg, nint wParam, nint lParam, uint fuFlags, int uTimeout, out nint lpdwResult);       internal const nint HWND_MESSAGE = -3;    internal const nint HWND_BROADCAST = 0xFFFF;    internal const uint SMTO_ABORTIFHUNG = 0x2;    internal const int WM_CLOSE = 0x10; } #endif

In LA 1.2 and later the dll also exports function UnloadAuCppDll. It can be called by rundll32.exe. Example in cmd:

Code:
rundll32.exe "C:\path\to\AuCpp.dll",UnloadAuCppDll 0

See also: Pascal code for Inno Setup

Notes:
- Cannot unload from hung or suspended processes.
- Cannot unload from admin processes if this process isn't admin.
- Cannot unload if some process still uses COM objects of that process (eg UI elements).
- May need to wait more.
- Test with AuCpp.dll of your program. Not with AuCpp.dll of LibreAutomate while it is running.

Dynamic controls experiment

Tue, 12 Sep 2023 18:33:57 +0000
Although this doesn't really do anything useful, it may be helpful as an example of dynamically creating controls.

Code:
// script "owned_d3.cs" using System.Windows; using System.Windows.Controls; var rows = 0; var b = new wpfBuilder("Select Sections").Width(185); b.R.Add(out Button btn1, "Sections?").Add(out TextBox tb1).Width(80).Focus(); btn1.IsDefault = true; btn1.ToolTip = "No. sections in field to right."; tb1.ToolTip = "Enter number of sections." + Environment.NewLine + "Then press Enter or button."; // Click handler: throw error if entry doesn't evaluate to int btn1.Click += (o, e) => {    int value;    bool success = int.TryParse(tb1.Text, out value);    if (success) {        rows = tb1.Text.ToInt();        // https://www.libreautomate.com/cookbook/Dialog%20-%20owned%2C%20non-modal%20(don%27t%20wait).html        _Dialog2(b.Window);    } else {        dialog.show("Error - not an integer!", title: "Error", secondsTimeout: 2);        tb1.Text = "";        return;    } }; b.End(); if (!b.ShowDialog()) return; void _Dialog2(Window owner) {    if (tb1.Text == "") {        dialog.show("Please select # of sections", title: "Error", secondsTimeout: 2);        return;    }    var b = new wpfBuilder("Dynamic controls").WinSize(300);    for (int i = 0; i < rows; i++) {               // Add buttons        Button btnD = new Button();        btnD.Name = "btn_" + i.ToString();        btnD.Width = 80;        btnD.Height = 30;        btnD.Content = "Button " + (i + 1).ToString();               // Add textboxes        TextBox txtD = new TextBox();        txtD.Name = "txt_" + i.ToString();        txtD.Width = 200;               // Add simple functionality        btnD.Click += (o, e) => btnTestClick(o, txtD, btnD);               // Add dynamically created controls to window        b.R.Add(btnD).Add(txtD);    }    b.End();    // see https://www.libreautomate.com/cookbook/Dialog%20-%20owned%2C%20non-modal%20(don%27t%20wait).html    var w = b.Window;    w.Owner = owner;    w.Show();    tb1.Text = ""; } // Click handler with simple code void btnTestClick(Object o, TextBox textbox, Button btn) {    textbox.Text = "This text was added by " + btn.Content.ToString(); }

Best regards, burque505

  dynamic_controls.gif (Size: 310.7 KB / Downloads: 280)