IDispatchEx

jugador · November 8, 2023

On search about binding function to object got this:
https://www.vbforums.com/showthread.php?876011-Has-anyone-had-any-success-implementing-IDispatch-IDispatchEx
So search forum about IDispatchEx but return 0.

Use Google to search AutoHotkey forum got this link
https://www.autohotkey.com/boards/viewtopic.php?t=5277

convert to Autoit and yes it work.
IDispatchEx look interesting.
so why no post on IDispatchEx? :huh2:

Edited November 8, 2023 by jugador

Andreik · November 8, 2023

There are many things that are not yet implemented in AutoIt in the form of a UDF or as function. Usually things are implemented when a need arises.

mLipok · November 9, 2023

9 hours ago, jugador said:

convert to Autoit and yes it work.
IDispatchEx look interesting.
so why no post on IDispatchEx?

Did you convert it ?

Why you did not post it here yet ?

Andreik · November 9, 2023

Technically there is nothing to be converted, it's as simple as querying the IDispatchEx.

jugador · November 11, 2023

Setting dynamic property using IDispatchEx is easy.

Invoking dynamic function using IDispatchEx not working.
I will post after I make it work.

jugador · November 12, 2023

I think may be this the reason why i failed to map dynamic function

https://learn.microsoft.com/en-us/previous-versions/windows/internet-explorer/ie-developer/windows-scripting/reference/idispatchex-interface

In the above link given example to Obtains the dispatch pointer to the cat function using GetDispID().

hr = pdexScript->GetDispID(bstrName, 0, &dispid);

Now question is how come fdex flag be 0? :ranting:

If i look at DispEx header file, i only see this value:

fdexNameCaseSensitive       0x00000001
fdexNameEnsure              0x00000002
fdexNameImplicit            0x00000004
fdexNameCaseInsensitive     0x00000008
fdexNameInternal            0x00000010
fdexNameNoDynamicProperties 0x00000020

Now when I try to map a function using 0 getting error: 0x80020006

Local $grfdex = 0
Local $iRet = $p_IDispatchEx.GetDispID($BSTR, $grfdex, $Disp)

so how to solve this puzzle?
any help

ahmet · November 12, 2023

What happens when you use fdexNameEnsure, as that is what you should use by the documentation. Does your object have cat member?

jugador · November 12, 2023

fdexNameEnsure Creates/map a new element.
so when you try to Invoke the dynamic function using DISPATCH_METHOD you will get crash.

all good if you set/Invoke dynamic element using DISPATCH_PROPERTYPUT.

Edited November 12, 2023 by jugador

ahmet · November 12, 2023

Can you share your code? Somebody might be able to help more if there is some code.

jugador · November 13, 2023

note: GetDispID -> grfdex -> 0 = fdexNameCaseSensitive

try this html code

Func __GetHTML()
    Local $sHTML = _
                '<!DOCTYPE html>' & @CRLF & _
                '<html>' & @CRLF & _
                '<meta http-equiv="X-UA-Compatible" content="IE=edge">' & @CRLF & _
                '<body>' & @CRLF & _
                '<h1>Hello World</h1>' & @CRLF & _
                '<script type="text/javascript">' & @CRLF & _
                'var CatNo = 12' & @CRLF & _
                'function CatFun(){' & @CRLF & _
                '   alert("Hello! I am an alert box!!");' & @CRLF & _
                '}' & @CRLF & _
                '</script>' & @CRLF & _
                '</body>' & @CRLF & _
                '</html>'
    Return $sHTML
EndFunc

all worked
able to add dynamic element => CatFood
able to change element => CatNo
able to call function => CatFun

except failed to call dynamic function => CatSound

Volatile Func CatSound()
    MsgBox(0, '', 'CatSound(ok)')
EndFunc

Edited November 13, 2023 by jugador

ahmet · November 13, 2023

Post all the code you have. There is a better chance that somebody takes a look at it. .

jugador · November 17, 2023

Microsoft idispatchex example run smoothly

Func __GetHTMA()
    ; https://learn.microsoft.com/en-us/previous-versions/windows/internet-explorer/ie-developer/windows-scripting/reference/idispatchex-interface
    Local $sHTML = _
                '<!DOCTYPE html>' & @CRLF & _
                '<html>' & @CRLF & _
                '<meta http-equiv="X-UA-Compatible" content="IE=edge">' & @CRLF & _
                '<body>' & @CRLF & _
                '<h1>Hello World</h1>' & @CRLF & _
                '<script type="text/javascript">' & @CRLF & _
                'var CatNo = 12' & @CRLF & _
                'function CatFun(){' & @CRLF & _
                '   alert("Hello! I am an alert box!!");' & @CRLF & _
                '   this.Bar = 10;' & @CRLF & _
                '}' & @CRLF & _
                'function test(){' & @CRLF & _
                '   // Construct new object' & @CRLF & _
                '   Obj = new Object();' & @CRLF & _
                '   // Create new element and assign function pointer' & @CRLF & _
                '   Obj.Elem = cat;' & @CRLF & _
                '   // Call Elem method ("this" == Obj)' & @CRLF & _
                '   Obj.Elem();' & @CRLF & _
                '   // Obj.Bar now exists' & @CRLF & _
                '}' & @CRLF & _
                'test();' & @CRLF & _
                '</script>' & @CRLF & _
                '</body>' & @CRLF & _
                '</html>'
    Return $sHTML
EndFunc

Now I know why this failed :whistle:

Volatile Func CatSound()
    MsgBox(0, '', 'CatSound(ok)')
EndFunc

I have to map the CatSound() function to DispID
option are : DllCallbackRegister & @trancexx __ObjectFromTag

So question is how DllCallbackRegister work and how I convert DllCallbackGetPtr to idispatch object?

jugador · November 20, 2023

I did able to map dynamic function using __ObjectFromTag but I didn't like it.

Local $o_FObj = __ObjectFromTag("", "CatSound hresult()", $t_FObj, True, False, '')
    ;....
    
    Local $oIE_Document = $oIE.Document
    $oIE_Document.open()
    $oIE_Document.write(__GetHTML())
    $oIE_Document.close()
    Local $oIE_window = $oIE_Document.parentWindow
    ;....   

    ;~ create a dummy element cat
    Local $iRet = $p_IDispatchEx.GetDispID('cat', 2, $Disp)     
    ;....
    
    ;~ map the $o_FObj object with cat element using $DISPATCH_PROPERTYPUT
    ;~ call the dynamic function
    $oIE_window.cat.CatSound()

Edit:
there is no method in Autoit to return a function as object but using Getref UDF we can make Invoke work with Autoit function
https://www.autoitscript.com/forum/topic/210870-getref-vbscript-type/

Edited November 26, 2023 by jugador

jugador · November 23, 2023

_IEHeadInsertEventScript($oIE, "document", "onclick", "alert('Someone clicked the document!');")

like the above example (_IEHeadInsertEventScript) able to map FirstHtml onclick with SecondHtml CatFun Function

Func __Launch_FirstHtml(ByRef $oIE_Document)
    ConsoleWrite('> __Launch_FirstHtml()' & @CRLF)
    Local $oIE = _IE_Example("basic")
    sleep(1000)
    $oIE_Document = $oIE.document
EndFunc

Func __Launch_SecondHtml(ByRef $oIE_Document)
    ConsoleWrite('> __Launch_SecondHtml()' & @CRLF)
    Local $oIE = _IECreate()
    $oIE_Document = $oIE.Document
    $oIE_Document.open()
    $oIE_Document.write(__GetHTML())
    $oIE_Document.close()
EndFunc

Func __GetHTML()
    Local $sHTML = _
                '<!DOCTYPE html>' & @CRLF & _
                '<html>' & @CRLF & _
                '<meta http-equiv="X-UA-Compatible" content="IE=edge">' & @CRLF & _
                '<body>' & @CRLF & _
                '<h1>Hello World</h1>' & @CRLF & _
                '<script type="text/javascript">' & @CRLF & _
                'function CatFun(){' & @CRLF & _
                '   alert("Hello! I am an alert box of html2!!");' & @CRLF & _
                '}' & @CRLF & _
                '</script>' & @CRLF & _
                '</body>' & @CRLF & _
                '</html>'
    Return $sHTML
EndFunc

jugador · November 24, 2023

To return a function as object we can use ScriptControl

__Example_A()
Func __Example_A()
    Local $oVB_Object = Null
    __VbScript_Object($oVB_Object)
    Local $o_CatFun = $oVB_Object.Eval("Obj_A")
    ConsoleWrite('$o_CatFun:  ' & VarGetType($o_CatFun) & @CRLF)
    ;....
    ;....
    $oVB_Object = 0
EndFunc

Func __VbScript_Object(ByRef $oVB_Object)
    $oVB_Object = ObjCreate("ScriptControl")
    Local $oVB_Code = __VbScript_Code()
    $oVB_Object.Language = "vbscript"
    $oVB_Object.AddCode($oVB_Code)
EndFunc

Func __VbScript_Code()
    Local $sVBCode = _
                'Dim msg_A, msg_B, Obj_A' & @CRLF & _
                'msg_A = "How are You?"' & @CRLF & _
                'msg_B = "I am fine."' & @CRLF & _
                'Function CatFun()' & @CRLF & _
                '   msgbox("From VbScript Testing Msg")' & @CRLF & _
                'End Function' & @CRLF & _
                'Set Obj_A = GetRef("CatFun")'
    Return $sVBCode
EndFunc

IDispatchEx

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members