AutoHotkey Community

cpp =
(
#using <mscorlib.dll>
using namespace System;
void main() {
   Console::WriteLine(S"Hello World using Managed Extensions for C++!");
}
)
CLR_Start()
asm := CLR_CompileCPP(cpp, "System.dll | mscorlib.dll", 0, "cpptest.exe")
return

CLR_CompileCPP(Code, References, pAppDomain=0, FileName="", CompilerOptions="")
{
    return CLR_CompileAssembly(Code, References
        , "System", "Microsoft.VisualC.CppCodeProvider", pAppDomain
        , FileName, CompilerOptions)
}

#Include CLR.ahk
#Include COM.ahk


FileSelectFile, filename, 3,, Open the desired Application, Control Builder Files (*.prj)

vb =
(
    Imports System.Windows.Forms
   
    Class Control_Open
      
      Private cb AS CONTROLBUILDERLib.CBOpenIf
      
      Public Sub Test(ByVal filename As String)
         Dim owner As IWin32Window
         
         'cb = NEW CONTROLBUILDERLib.CBOpenIf
         MessageBox.Show(owner, filename)
         
        End Sub
      
    End Class
)

CLR_Start()

asm := CLR_CompileVB(vb, "System.dll | System.Windows.Forms.dll | Interop.CONTROLBUILDERLib.dll")
obj := CLR_CreateObject(asm, "Control_Open")

COM_Invoke_(obj, "Test", "str", "filename")
COM_Release(obj), COM_Release(asm)

COM_Invoke_(obj, "Test", "str", "filename")

COM_Invoke_(obj, "Test", 8, "filename")

;the c# code
using System;
using System.Collections.Generic;
using System.Text;
using System.Windows.Forms;

namespace SNGEGT
{
    class ICM
    {
private void handFromIndex(int index, int[] cards)
        {
            //for (int i = 0; i < 169; i++)
            //{
            for (int a = 0; a < 13; a++)
            {
                for (int b = 0; b < 13; b++)
                {
                    if (indexArray[a, b] == index)
                    {
                        // suited
                        if (a > b)
                        {
                            cards[0] = a;
                            cards[1] = b;
                        }
                        else if (b > a)
                        {
                            cards[0] = b;
                            cards[1] = a + 13;
                        }
                        else if (a == b)
                        {
                            cards[0] = a;
                            cards[1] = b + 13;
                        }
                        else
                            Debug.WriteLine("Nyt joku kusi pahasti korteissa!");
                        //Debug.WriteLine("{0} = [{1}][{2}]", i, a, b);
                        //Debug.WriteLine("{0} = [{1}][{2}]", index, a, b);
                        return;
                    }
                }
            }
           
        }
   }
}

#Include CLR.ahk
#Include COM.ahk

CLR_Start()

asm := CLR_LoadLibrary("SNGEGT.dll")
obj := CLR_CreateObject(asm, "SNGEGT.ICMClass")

hand := COM_Invoke(obj, "handFromIndex", "5")  ;problem

COM_Release(obj)
COM_Release(asm)

C# =
(
using System;
using System.Windows.Forms;

namespace SNGEGT
{
    class ICM
    {
        public int cardFromIndex(int index, int[] cards) {
            return cards[index];
        }
        public int[] deal() {
            return new int[] { 3, 1, 2 };
        }
   }
}
)

CLR_Start()

asm := CLR_CompileC#(C#, "System.dll | System.Windows.Forms.dll")
obj := CLR_CreateObject(asm, "SNGEGT.ICM")

cards := COM_Invoke(obj, "deal")
Loop 3
    MsgBox % COM_Invoke_(obj, "cardFromIndex", 8, A_Index-1, 0x2003, cards)

COM_Release(obj)
COM_Release(asm)