찾아보니 오토핫키에서도 C#코드를 사용할수있게 해주는 라이브러리가 있었습니다.

 ==========================================================

                 .NET Framework Interop

      https://autohotkey.com/boards/viewtopic.php?t=4633

 ==========================================================


   Author:     Lexikos

   Version:    1.2

   Requires: AutoHotkey_L v1.0.96+

포럼 링크

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
==========================================================
;                  .NET Framework Interop
;      https://autohotkey.com/boards/viewtopic.php?t=4633
==========================================================
;
;   Author:     Lexikos
;   Version:    1.2
;   Requires:    AutoHotkey_L v1.0.96+
;
 
CLR_LoadLibrary(AssemblyName, AppDomain=0)
{
    if !AppDomain
        AppDomain := CLR_GetDefaultDomain()
    e := ComObjError(0)
    Loop 1 {
        if assembly := AppDomain.Load_2(AssemblyName)
            break
        static null := ComObject(13,0)
        args := ComObjArray(0xC1),  args[0] := AssemblyName
        typeofAssembly := AppDomain.GetType().Assembly.GetType()
        if assembly := typeofAssembly.InvokeMember_3("LoadWithPartialName"0x158, null, null, args)
            break
        if assembly := typeofAssembly.InvokeMember_3("LoadFrom"0x158, null, null, args)
            break
    }
    ComObjError(e)
    return assembly
}
 
CLR_CreateObject(Assembly, TypeName, Args*)
{
    if !(argCount := Args.MaxIndex())
        return Assembly.CreateInstance_2(TypeName, true)
    
    vargs := ComObjArray(0xC, argCount)
    Loop % argCount
        vargs[A_Index-1] := Args[A_Index]
    
    static Array_Empty := ComObjArray(0xC,0), null := ComObject(13,0)
    
    return Assembly.CreateInstance_3(TypeName, true0, null, vargs, null, Array_Empty)
}
 
CLR_CompileC#(Code, References="", AppDomain=0, FileName="", CompilerOptions="")
{
    return CLR_CompileAssembly(Code, References, "System""Microsoft.CSharp.CSharpCodeProvider", AppDomain, FileName, CompilerOptions)
}
 
CLR_CompileVB(Code, References="", AppDomain=0, FileName="", CompilerOptions="")
{
    return CLR_CompileAssembly(Code, References, "System""Microsoft.VisualBasic.VBCodeProvider", AppDomain, FileName, CompilerOptions)
}
 
CLR_StartDomain(ByRef AppDomain, BaseDirectory="")
{
    static null := ComObject(13,0)
    args := ComObjArray(0xC5), args[0] := "", args[2] := BaseDirectory, args[4] := ComObject(0xB,false)
    AppDomain := CLR_GetDefaultDomain().GetType().InvokeMember_3("CreateDomain"0x158, null, null, args)
    return A_LastError >= 0
}
 
CLR_StopDomain(ByRef AppDomain)
{    ; ICorRuntimeHost::UnloadDomain
    DllCall("SetLastError""uint", hr := DllCall(NumGet(NumGet(0+RtHst:=CLR_Start())+20*A_PtrSize), "ptr", RtHst, "ptr", ComObjValue(AppDomain))), AppDomain := ""
    return hr >= 0
}
 
; NOTE: IT IS NOT NECESSARY TO CALL THIS FUNCTION unless you need to load a specific version.
CLR_Start(Version="") ; returns ICorRuntimeHost*
{
    static RtHst := 0
    ; The simple method gives no control over versioning, and seems to load .NET v2 even when v4 is present:
    ; return RtHst ? RtHst : (RtHst:=COM_CreateObject("CLRMetaData.CorRuntimeHost","{CB2F6722-AB3A-11D2-9C40-00C04FA30A3E}"), DllCall(NumGet(NumGet(RtHst+0)+40),"uint",RtHst))
    if RtHst
        return RtHst
    EnvGet SystemRoot, SystemRoot
    if Version =
        Loop % SystemRoot "\Microsoft.NET\Framework" (A_PtrSize=8?"64":"""\*"2
            if (FileExist(A_LoopFileFullPath "\mscorlib.dll"&& A_LoopFileName > Version)
                Version := A_LoopFileName
    if DllCall("mscoree\CorBindToRuntimeEx""wstr", Version, "ptr"0"uint"0
    , "ptr", CLR_GUID(CLSID_CorRuntimeHost, "{CB2F6723-AB3A-11D2-9C40-00C04FA30A3E}")
    , "ptr", CLR_GUID(IID_ICorRuntimeHost,  "{CB2F6722-AB3A-11D2-9C40-00C04FA30A3E}")
    , "ptr*", RtHst) >= 0
        DllCall(NumGet(NumGet(RtHst+0)+10*A_PtrSize), "ptr", RtHst) ; Start
    return RtHst
}
 
;
; INTERNAL FUNCTIONS
;
 
CLR_GetDefaultDomain()
{
    static defaultDomain := 0
    if !defaultDomain
    {    ; ICorRuntimeHost::GetDefaultDomain
        if DllCall(NumGet(NumGet(0+RtHst:=CLR_Start())+13*A_PtrSize), "ptr", RtHst, "ptr*", p:=0>= 0
            defaultDomain := ComObject(p), ObjRelease(p)
    }
    return defaultDomain
}
 
CLR_CompileAssembly(Code, References, ProviderAssembly, ProviderType, AppDomain=0, FileName="", CompilerOptions="")
{
    if !AppDomain
        AppDomain := CLR_GetDefaultDomain()
    
    if !(asmProvider := CLR_LoadLibrary(ProviderAssembly, AppDomain))
    || !(codeProvider := asmProvider.CreateInstance(ProviderType))
    || !(codeCompiler := codeProvider.CreateCompiler())
        return 0
 
    if !(asmSystem := (ProviderAssembly="System") ? asmProvider : CLR_LoadLibrary("System", AppDomain))
        return 0
    
    ; Convert | delimited list of references into an array.
    StringSplit, Refs, References, |, %A_Space%%A_Tab%
    aRefs := ComObjArray(8, Refs0)
    Loop % Refs0
        aRefs[A_Index-1] := Refs%A_Index%
    
    ; Set parameters for compiler.
    prms := CLR_CreateObject(asmSystem, "System.CodeDom.Compiler.CompilerParameters", aRefs)
    , prms.OutputAssembly          := FileName
    , prms.GenerateInMemory        := FileName=""
    , prms.GenerateExecutable      := SubStr(FileName,-3)=".exe"
    , prms.CompilerOptions         := CompilerOptions
    , prms.IncludeDebugInformation := true
    
    ; Compile!
    compilerRes := codeCompiler.CompileAssemblyFromSource(prms, Code)
    
    if error_count := (errors := compilerRes.Errors).Count
    {
        error_text := ""
        Loop % error_count
            error_text .= ((e := errors.Item[A_Index-1]).IsWarning ? "Warning " : "Error ") . e.ErrorNumber " on line " e.Line ": " e.ErrorText "`n`n"
        MsgBox, 16, Compilation Failed, %error_text%
        return 0
    }
    ; Success. Return Assembly object or path.
    return compilerRes[FileName="" ? "CompiledAssembly" : "PathToAssembly"]
}
 
CLR_GUID(ByRef GUID, sGUID)
{
    VarSetCapacity(GUID, 160)
    return DllCall("ole32\CLSIDFromString""wstr", sGUID, "ptr"&GUID) >= 0 ? &GUID : ""
}
 
cs

CLR.zip


예제

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#include CLR.ahk
c# =
(
using System;
    public class plus
    {
        public int add(int num1,int num2)
        {
            
            
            return num1+num2;
        }
    }
)
asm := CLR_CompileC#(c#, "System.dll | System.Windows.Forms.dll")
obj := CLR_CreateObject(asm, "plus")
a := obj.add(1,2)
MsgBox,%a%
cs

예제.zip


댓글을 달아 주세요