AutoHotkey Community

obj := DispatchObj_Create("func")
MsgBox % COM_Invoke(obj, "func")
func() {
  return 1337
}

func(this, params, result)   ; all parameters are optional
{
    ; Get the value and type of the first parameter.
    value := DispatchObj_Param(params, 1, type)
    if type = 9 ; VT_DISPATCH (an object)
        COM_Invoke(value, "someMethod")

    ; Return an integer (zero):
    ;   optional since VT_I4 (int) is the default:
    NumPut(3, result+0,0,"ushort") ; result.vt=VT_I4;
    ;   method 1
    NumPut(123, result+8,0,"int") ; result.lVal=123;
    ;   method 2, overrides method 1 if non-zero. only works with int.
    return 123
}

; Builds an object from a list of methods. MethodList takes the following form:
;   script_function_1,object_method_alias=script_function_2,...
DispatchObj_Create( MethodList )
{
    id_count = 0
    fail_count = 0
   
    method_names =
   
    Loop, Parse, MethodList, `,, %A_Space%%A_Tab%
    {
        ; method: member name of method in object.
        ; function: name of actual script function.
        if (pos := InStr(A_LoopField,"=")) {
            method := SubStr(A_LoopField,1,pos-1)
            function := SubStr(A_LoopField,pos+1)
        } else
            method := function := A_LoopField
       
        ; "CDecl" so we can pass more parameters than it expects.
        if (method="") or !(cb := RegisterCallback(function,"CDecl"))
        {
            fail_count += 1
            continue
        }
        id_count += 1
        cb%id_count% := cb
        ; Store zero-based byte-offset from start of method_names.
        method%id_count% := StrLen(method_names)
        method_names .= method ","
    }

    if id_count = 0
        return 0,  ErrorLevel:="NO VALID METHODS"
   
    ; Memory organisation:
    ;   *IDispatch ref_count reserved reserved
    ;   id_count ( *name *callback )* ( name )*
   
    ; If a method is executing, cur_params is a pointer to a DISPPARAMS
    ;   structure and cur_var_result is a pointer to a VARIANT structure
    ;   where the result of the method call is stored.
   
    pObj := COM_CoTaskMemAlloc(20+8*id_count+StrLen(method_names)+1)
    pNames := pObj+20+8*id_count
   
    NumPut(DispatchObj_CreateIDispatch(), pObj+0)   ; &IDispatch
    , NumPut(1,         pObj+4)     ; ref_count
    , NumPut(0,         pObj+8)     ; reserved
    , NumPut(0,         pObj+12)    ; reserved
    , NumPut(id_count,  pObj+16)    ; id_count
 
    DllCall("lstrcpy","uint",pNames,"str",method_names)
    ; null-terminate each name.
    Loop, Parse, method_names
        if (A_LoopField=",")
            NumPut(0,pNames-1,A_Index,"char")

    Loop %id_count%
        NumPut(cb%A_Index%, NumPut(pNames+method%A_Index%, pObj+20, 8*(A_Index-1)))

    return pObj
}

; Gets a parameter from a DISPPARAMS structure.
; params:   Address of DISPPARAMS structure.
; index:    ONE-based parameter index.
; type:     [out] The *original* VARTYPE of the parameter VARIANT.
; returns:  Parameter value, coerced to string where applicable.
DispatchObj_Param(params, index, ByRef type="")
{
    if !params or index<1 or index>NumGet(params+8)
        return
    VarSetCapacity(var,16), DllCall("RtlMoveMemory","uint",&var
        ,"uint",NumGet(params+0)+(NumGet(params+8)-index)*16,"uint",16)
    type := NumGet(var,0,"ushort")
    if type in 0,4,5,6,7,14
        DllCall("oleaut32\VariantChangeType","uint",&var,"uint",&var,"ushort",0,"ushort",8)
    return NumGet(var,0,"ushort")=8 ? COM_Ansi4Unicode(NumGet(var,8)) : NumGet(var,8)
}


; Based on COM_DispInterface()
DispatchObj_IDispatch(this, prm1=0, prm2=0, prm3=0, prm4=0, prm5=0, prm6=0, prm7=0, prm8=0)
{
    Critical
    If   A_EventInfo = 6
    {
        if ((prm4 & 1) && prm1>=1 && prm1<=NumGet(this+16)) {
            NumPut(3,prm6+0,0,"ushort") ; default to Int return type.
            NumPut(0,prm6+8,0,"int")    ; default to 0 return value.
            i:=DllCall(NumGet(this+24+8*(prm1-1)),"uint",this,"uint",prm5,"uint",prm6,"CDecl")
            if i != 0                   ; if non-zero, set new return value.
                NumPut(i,prm6+8,0,"int")
            hResult := 0
        } else
            hResult := 0x80020003
    }
    Else If   A_EventInfo = 5
    {
        Loop, %prm3%
            NumPut(-1, prm5+4*(A_Index-1))
        name := COM_Ansi4Unicode(NumGet(prm2+0))
        Loop % NumGet(this+16)
            if !DllCall("lstrcmpi","str",name,"uint",NumGet(this+20+8*(A_Index-1)))
            {
                NumPut(A_Index, prm5+0)
                break
            }
        hResult := (prm3>1 or -1=NumGet(prm5+0,0,"int")) ? 0x80020006 : 0
    }
    Else If   A_EventInfo = 4
        NumPut(0,prm3+0), hResult:=0x80004001
    Else If   A_EventInfo = 3
        NumPut(0,prm1+0), hResult:=0
    Else If   A_EventInfo = 2
    {
        NumPut(hResult:=NumGet(this+4)-1,this+4)
        if !hResult {
            Loop % NumGet(this+16)
                DllCall("GlobalFree","uint",NumGet(this+24+8*(A_Index-1)))
            COM_CoTaskMemFree(this)
        }
    }
    Else If   A_EventInfo = 1
        NumPut(hResult:=NumGet(this+4)+1,this+4)
    Else If   A_EventInfo = 0
        InStr("{00020400-0000-0000-C000-000000000046}{00000000-0000-0000-C000-000000000046}",COM_String4GUID(prm1)) ? NumPut(this,prm2+0) . NumPut(NumGet(this+4)+1,this+4) . (hResult:=0) : NumPut(0,prm2+0) . (hResult:=0x80004002)
    Return   hResult
}
; Based on COM_CreateIDispatch()
DispatchObj_CreateIDispatch()
{
   Static   IDispatch
   If   !VarSetCapacity(IDispatch)
   {
      VarSetCapacity(IDispatch,28,0),   nParams=3112469
      Loop,   Parse,   nParams
      NumPut(RegisterCallback("DispatchObj_IDispatch","",A_LoopField,A_Index-1),IDispatch,4*(A_Index-1))
   }
   Return &IDispatch
}

obj := DispatchObj_Create("getHtml, getDefaultText, okay=onOkay")

html =
(
<head><title>Example Dialog</title></head>
<body>
    <input type=text id="textbox"><br>
    <button id="okButton" onclick="dialogArguments.okay(window)">Okay</button>
    <script for="window" event="onload">
        textbox.value = dialogArguments.getDefaultText();
        textbox.select();
    </script>
</body>
)

text := ShowHTMLDialog("javascript:dialogArguments.getHtml()"
                        , "+" obj  ; pass 'obj' as an object pointer
                        , "dialogWidth:155px;dialogHeight:50px")
if text !=
    MsgBox %text%

getHtml(this, params, result)
{
    global html
    NumPut(8, result+0) ; VT_BSTR
    return COM_SysAllocString(html)
}

getDefaultText(this, params, result)
{
    NumPut(8, result+0) ; VT_BSTR
    return COM_SysAllocString("default text!")
}

; This would be easier in JavaScript...
onOkay(this, params, result)
{
    window := DispatchObj_Param(params, 1, type)
    if type != 9 ; VT_DISPATCH
        return
   
    if textbox := COM_Invoke(window, "textbox")
    {
        returnValue := COM_Invoke(textbox, "value")
        COM_Release(textbox)
    }
    COM_Invoke(window, "returnValue=", returnValue)
    COM_Invoke(window, "close")
}

; Create 'ahk' variable. (var=''; also works)
COM_Invoke(ieWin,"execScript","var ahk;","JScript")
; Assign dispatch object to ahk variable.
COM_Invoke(ieWin,"ahk=","+" pObj)

Loop, Parse, MethodList, `,, %A_Space%%A_Tab%

obj := DispatchObj_Create("getHtml, getDefaultText, okay=onOkay")

ControlGet, hIESvr, Hwnd,, Internet Explorer_Server1, Google ; (WinTitle)

ACC_Init() ; Call this once only, or call ACC_Term() for each ACC_Init().
           ; Note ACC_Init also calls COM_Init(), so you don't need both.
ieAcc := ACC_AccessibleObjectFromWindow(hIESvr)
IID_IHTMLWindow2 := "{332C4427-26CB-11D0-B483-00C04FD90119}"
ieWin := COM_QueryService(ieAcc,IID_IHTMLWindow2,IID_IHTMLWindow2)
COM_Release(ieAcc)

onexit, cleanup
iewin := getiewin("ahk Plug-In")
obj := DispatchObj_Create("ahkMessage")
cobj := ComObjEnwrap(obj)
cobj.ahkMessage("cobj.ahkMessage works") ; works
ieWin.execScript("var ahk;","JScript")
ieWin.ahk := cobj
ieWin.ahk.ahkMessage("ieWin.ahk.ahkMessage now works")

script2 =
(
function testMessage()
{
alert("test message!" + window.status);   // works
ahk.ahkMessage("from javascript ahk.ahkMessage");   //works too :)
}
)
ieWin.execScript(script2,"JScript")

return
;; testMessage(this, params, result)   ; all parameters are optional
testMessage(this, params, result)   ; all parameters are optional
{
    ; Get the value and type of the first parameter.
    value := DispatchObj_Param(params, 1, type)
    if type = 9 ; VT_DISPATCH (an object)
        COM_Invoke(value, "someMethod")

    ; Return an integer (zero):
    ;   optional since VT_I4 (int) is the default:
    NumPut(3, result+0,0,"ushort") ; result.vt=VT_I4;
    ;   method 1
    NumPut(123, result+8,0,"int") ; result.lVal=123;
    ;   method 2, overrides method 1 if non-zero. only works with int.
  msgbox testmessage %value%
    return 123
}
;; ahkMessage(this, params, result)   ; all parameters are optional
ahkMessage(this, params, result)   ; all parameters are optional
{
    ; Get the value and type of the first parameter.
    value := DispatchObj_Param(params, 1, type)
    if type = 9 ; VT_DISPATCH (an object)
        COM_Invoke(value, "someMethod")

    ; Return an integer (zero):
    ;   optional since VT_I4 (int) is the default:
    NumPut(3, result+0,0,"ushort") ; result.vt=VT_I4;
    ;   method 1
    NumPut(123, result+8,0,"int") ; result.lVal=123;
    ;   method 2, overrides method 1 if non-zero. only works with int.
  msgbox ahkMessage %value%
    return 123
}
;; cleanup:
cleanup:
ExitApp

;; includes
#include com.ahk
#include dispatchobj.ahk
#include acc.ahk
#include expando.ahk
;; ui
!r::reload
!q::exitapp

;; getiewin(title)
getiewin(title)
{
ControlGet, hIESvr, Hwnd,, Internet Explorer_Server1, %title%
ACC_Init() ; Call this once only, or call ACC_Term() for each ACC_Init().
           ; Note ACC_Init also calls COM_Init(), so you don't need both.
ieAcc := ACC_AccessibleObjectFromWindow(hIESvr)
IID_IHTMLWindow2 := "{332C4427-26CB-11D0-B483-00C04FD90119}"
ieWin := COM_QueryService2(ieAcc,IID_IHTMLWindow2,IID_IHTMLWindow2)
COM_Release(ieAcc)
return ieWin
}

COM_QueryService2(ppv, SID, IID = "")
{
   If   DllCall(NumGet(NumGet(1*ppv:=COM_Unwrap(ppv))), "Uint", ppv, "Uint", COM_GUID4String(IID_IServiceProvider,"{6D5140C1-7436-11CE-8034-00AA006009FA}"), "UintP", psp)=0
   &&   DllCall(NumGet(NumGet(1*psp)+12), "Uint", psp, "Uint", COM_GUID4String(SID,SID), "Uint", IID ? COM_GUID4String(IID,IID):&SID, "UintP", ppv:=0)+DllCall(NumGet(NumGet(1*psp)+8), "Uint", psp)*0=0
   Return   ComObjEnwrap(ppv)
}

<!-- saved from url=(0013)about:internet -->
<HTML>
<HEAD>
<TITLE>ahk Plug-In</TITLE>
<META http-equiv="Content-Type" content="text/html; charset=windows-1252">
<script type="text/javascript">
function testMessage()
{
alert("old message!");
}
</script>
</head>

<body>
<form>
<input type="button" value="testMessage" onclick="testMessage()" /> before launching ahk script, says "old Message", after says, "test mesaage" and calls an ahk message
</form><br>
<form>
<input type="button" name="ahkbutton" value="testahk" onclick="ahk.ahkMessage()" /> call ahk from javascript (after launching ahk script)
</form>

</body>
</HTML>

iewin.ahk := ComObjEnwrap(DispatchObj_Create("ahkMessage")) ; was failing

COM_QueryService2(ppv, SID, IID = "")
{
   If   DllCall(NumGet(NumGet(1*ppv:=COM_Unwrap(ppv))), "Uint", ppv, "Uint", COM_GUID4String(IID_IServiceProvider,"{6D5140C1-7436-11CE-8034-00AA006009FA}"), "UintP", psp)=0
   &&   DllCall(NumGet(NumGet(1*psp)+12), "Uint", psp, "Uint", COM_GUID4String(SID,SID), "Uint", IID ? COM_GUID4String(IID,IID):&SID, "UintP", ppv:=0)+DllCall(NumGet(NumGet(1*psp)+8), "Uint", psp)*0=0
   Return   ComObjEnwrap(ppv)  ; was COM_Enwrap(ppv)
}