AutoHotkey Community

Code: Select all

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.ComponentModel.Composition;
using System.ComponentModel.Composition.Hosting;

namespace InputWrapper
{
    public class InputWrappers
    {
        public interface IInputWrapper
        {
            int GetButtonCount();
            bool Subscribe();
        }

        [Export(typeof(IInputWrapper))]
        [ExportMetadata("Name", "SharpDX_DirectInput")]
        public class SharpDX_DirectInput : IInputWrapper
        {
            public int GetButtonCount()
            {
                return 128;
            }

            public bool Subscribe()
            {
                return true;
            }

        }

        [Export(typeof(IInputWrapper))]
        [ExportMetadata("Name", "SharpDX_XInput")]
        public class SharpDX_XInput : IInputWrapper
        {
            public int GetButtonCount()
            {
                return 10;
            }

            public bool Subscribe()
            {
                return true;
            }

        }

        public interface IInputWrapperMetadata
        {
            string Name { get; }
        }
    }

    public class SubscriptionHandler
    {
        [ImportMany(typeof(InputWrappers.IInputWrapper))]
        IEnumerable<Lazy<InputWrappers.IInputWrapper, InputWrappers.IInputWrapperMetadata>> _interfaceMeta;

        public SubscriptionHandler()
        {
            Compose();
            foreach (Lazy<InputWrappers.IInputWrapper, InputWrappers.IInputWrapperMetadata> inputWrapper in _interfaceMeta)
            {
                if (inputWrapper.Metadata.Name == "SharpDX_DirectInput")
                {
                    Console.WriteLine(inputWrapper.Value.GetButtonCount());
                }
            }
            Console.WriteLine();

            Console.ReadKey();
        }

        private void Compose()
        {
            AssemblyCatalog catalog = new AssemblyCatalog(System.Reflection.Assembly.GetExecutingAssembly());
            CompositionContainer container = new CompositionContainer(catalog);
            container.SatisfyImportsOnce(this);
        }
    }
}

Code: Select all

#include CLR.ahk
tesslibrary := CLR_LoadLibrary(A_ScriptDir "\lib\Tesseract.dll")
tess := CLR_CreateObject(tesslibrary, "Tesseract.TesseractEngine", "lib\tessdata", "eng")
MsgBox % tess.Version
; Error 0x80131509

/* Powershell
Add-Type -Path ".\Lib\Tesseract.dll"
$tesseract = New-Object Tesseract.TesseractEngine("Lib\tessdata", "eng")
$text = $tesseract.Version
Write-Output $text
*/

Code: Select all

code =
(
    Imports System
    Imports System.Collections.Generic
    Class MainClass
        Function TestList() as List(Of String)
            return New List(Of String)(New String(){"This","is","a","list"})
        end function
    end class
)

asm := CLR_CompileVB(code, "System.dll")
obj := CLR_CreateObject(asm,"MainClass")
list = obj.TestList()

msgbox, % ComObjType(list) ; returns VT_DISPATCH
msgbox, % list.count() ; VB.NET methods don't return values?
msgbox, % list.item(0) ; ""
msgbox, % list.item(1) ; ""