Very Simple Inter-Process Communication (using AutoItObject_Internal)

[SEuBo]

Hi there,

while I created an example script to generate and execute a function during runtime, I stumbled across a neat way to share data between running autoit scripts.
This is done using the amazing magic of  AutoItObject_Internal . (You'll need at least Version 3.0.0 of AutoItObject_Internal)

Using this UDF, you can create a shared data storage, basically an empty "AutoitObject_Internal-"Object which you can then use to write / read data Inline. no set/get methods, just

#include "AutoItSharedData.au3"
$oShare = _AutoIt_SharedData_CreateOrAttach("MyCustomID")
$oShare.some_data = 'foo'

and you're done. any other script accessing this data will have to do:

#include "AutoItSharedData.au3"
$oShare = _AutoIt_SharedData_CreateOrAttach("MyCustomID")
ConsoleWrite($oShare.some_data & @LF)

 

Basically it's Larsj's Implementing IRunningObjectTable Interface, but you dont have a Dictionary, but an IDIspatch Object instead.

There are already a bunch of IPC options available - and this is another one.

AutoItSharedData.au3

  Reveal hidden contents

#include-once
#include <AutoItObject_Internal.au3>
#include <AutoItObject_Internal_ROT.au3>

; #FUNCTION# ====================================================================================================================
; Name ..........: _AutoIt_SharedData_CreateOrAttach
; Description ...: Creates an IDispatch-Object as a shared storage object
; Syntax ........: _AutoIt_SharedData_CreateOrAttach($sID)
; Parameters ....: $sID     - ID of shared storage. Can be any alphanumerical string.
; Return values .: | Success: $oObject; an IDispatch Instance.
; ...............: | Failure: sets @error to non-zero
; Author ........: SEuBo
; Remarks .......: Version 2.0
; Link ..........: https://www.autoitscript.com/forum/topic/205109-very-simple-inter-process-communication-using-autoitobject-pure-autoit/
; ===============================================================================================================================
Func _AutoIt_SharedData_CreateOrAttach($sID)
    Local Const $cMonikerPrefix = 'AutoIt._AutoItSharedData.'
    Local $oObject

    $oObject = ObjGet($cMonikerPrefix & $sID)
    If Not IsObj($oObject) Then
        $oObject = IDispatch()
        _AOI_ROT_Register($oObject, $cMonikerPrefix & $sID, True)
        If @error Then $oObject = ObjGet($cMonikerPrefix & $sID)
    EndIf

    Return SetError(@error, @extended, $oObject)
EndFunc   ;==>_AutoIt_SharedData_CreateOrAttach

 

 

Example Script 1

  Reveal hidden contents

#include "AutoItSharedData.au3"

$oShare = _AutoIt_SharedData_CreateOrAttach("MyCustomID")

$oShare.example_data = 'foo'
$oShare.some_more_data = 'bar'

Do
    Sleep(10)
Until $oShare.bored = True

MsgBox(64,"","Script 2 is bored")

 

 

Example Script 2

  Reveal hidden contents

#include "AutoItSharedData.au3"

$oShare = _AutoIt_SharedData_CreateOrAttach("MyCustomID")

Do
    Sleep(10)
Until $oShare.some_more_data = 'bar'

$oShare.incredible_amount_of_data = 12424

ToolTip("I am bored.")
Sleep(500)

ToolTip("I am bored. And now I will tell the others!")
$oShare.bored = True
Sleep(500)

 

Output: 

To test: run Example Script 1, Then run example Script 2.. or the other way around.

Example Script 3

Example_sharedata3.au3

  Reveal hidden contents

#include "AutoItSharedData.au3"

$oShare = _AutoIt_SharedData_CreateOrAttach("MyCustomID")
$iPID1 = Run(StringFormat('%s /AutoIt3ExecuteScript "%s"', @AutoItExe, @ScriptDir & '\Example_sharedata3_Controlsend.au3'), @ScriptDir)
$iPID2 = Run(StringFormat('%s /AutoIt3ExecuteScript "%s"', @AutoItExe, @ScriptDir & '\Example_sharedata3_Tooltip.au3'), @ScriptDir)

$hGUI = GUICreate("", 200, 40)
$hEdit = GUICtrlCreateInput("...",0,0,200,20)
$hButton1 = GUICtrlCreateButton("Controlsend", 0, 20, 100, 20)
$hButton2 = GUICtrlCreateButton("Tooltip", 100, 20, 100, 20)
GUISetState()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        case -3
            ProcessClose($iPID1)
            ProcessClose($iPID2)
            Exit

        Case $hButton1
            $oShare.hGUI  = $hGUI
            $oShare.hEdit = GUICtrlGetHandle($hEdit)
            $oShare.controlsend = True

        Case $hButton2
            $oShare.hGUI = $hGUI
            $oShare.hEdit = GUICtrlGetHandle($hEdit)
            $oShare.tooltip_please = True
    EndSwitch
WEnd

 

Example_sharedata3_Controlsend.au3

  Reveal hidden contents

#include "AutoItSharedData.au3"

$oShare = _AutoIt_SharedData_CreateOrAttach("MyCustomID")
$hGUI_LogGui = GUICreate("Logging", 300,400, @DesktopWidth - 400)
$hLogEdit = GUICtrlCreateEdit("", 0, 0, 300, 400)
GUISetState()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        case -3
            Exit
        case Else
            Sleep(10)
            If $oShare.controlsend = True Then

                $sNewText = GUICtrlRead($hLogEdit)& ControlGetText(HWnd($oShare.hGUI), "", HWnd($oShare.hEdit))
                GUICtrlSetData($hLogEdit, $sNewText & @CRLF)

                $oShare.controlsend = False
            EndIf
    EndSwitch
WEnd

 

Example_sharedata3_Tooltip.au3

  Reveal hidden contents

#include "AutoItSharedData.au3"

$oShare = _AutoIt_SharedData_CreateOrAttach("MyCustomID")

$sTooltip = ""
While 1
    Sleep(100)

    If $oShare.tooltip_please = True Then

        $sTooltip &= ControlGetText(HWnd($oShare.hGUI),"", HWnd($oShare.hEdit)) & @LF
        ToolTip($sTooltip)

        $oShare.tooltip_please = False
    EndIf
WEnd

 

To test: run Example_sharedata3.au3.

Output: 

 

 Example SharedData4:

  Reveal hidden contents

#include "AutoItSharedData.au3"

$oShare = _AutoIt_SharedData_CreateOrAttach("ArrayTest")

$iPID1 = Run(StringFormat('%s /AutoIt3ExecuteScript "%s"', @AutoItExe, @ScriptDir & '\Example_sharedata4_Script1.au3'), @ScriptDir)
$iPID2 = Run(StringFormat('%s /AutoIt3ExecuteScript "%s"', @AutoItExe, @ScriptDir & '\Example_sharedata4_Script2.au3'), @ScriptDir)

$hGUI = GUICreate("", 400, 400)
$hList = GUICtrlCreateList("", 0, 0, 400,400)
GUISetState()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case -3
            ProcessClose($iPID1)
            ProcessClose($iPID2)
            Exit
        Case Else

            If IsArray($oShare.arraydata) Then
                GUICtrlSetData($hList, StringFormat("%s: (%s) %s", $oShare.arraydata[0], $oShare.arraydata[1], $oShare.arraydata[2].random))
                $oShare.arraydata = 0
            EndIf

            Sleep(10)
    EndSwitch
WEnd

 

Sub-Script Example_sharedata4_Script1:

#include "AutoItSharedData.au3"
#include <Date.au3>

$oShare = _AutoIt_SharedData_CreateOrAttach("ArrayTest")


_AutoItObject_Startup()
$oObject = _AutoItObject_Create()
_AutoItObject_AddProperty($oObject, 'random')


Global $aArray[3]


While 1
    $aArray[0] = _NowCalc() & ":" & @MSEC
    $aArray[1] = 'Script #1'
    $aArray[2] = $oObject

    $oObject.random = Random(1, 25, 1)
    $oShare.arraydata = $aArray


    Sleep(Random(10, 300,1))
WEnd

Sub-Script Example_sharedata4_Script2:

#include "AutoItSharedData.au3"
#include <Date.au3>

$oShare = _AutoIt_SharedData_CreateOrAttach("ArrayTest")


_AutoItObject_Startup()
$oObject = _AutoItObject_Create()
_AutoItObject_AddProperty($oObject, 'random')


Global $aArray[3]


While 1
    $aArray[0] = _NowCalc() & ":" & @MSEC
    $aArray[1] = 'Script number two'
    $aArray[2] = $oObject

    $oObject.random = Random(300, 400)
    $oShare.arraydata = $aArray


    Sleep(Random(10, 300,1))
WEnd

 

Output: 

/Edit: Please note that there's a limitation with the Running object table :

The Script accessing a variable first, will be the "server" for this variable. This means, access to that variable from other scripts should only be possible, as long the "server" script is running! Use appropriate Object Error handlers in case you don't want the surviving "clients" to crash.

Feedback and/or improvements appreciated

 

changelog

version 2.0

• Removed need for AutoItObject, as AutoItObject_Internal now comes with ROT support
• Added UDF Header
• Fixed typo on "#include AutoItObjectInternal.au3" -> "#include AutoItObject_Internal.au3"
• Added ObjGet() after registering the object fails (in case 2 programs tried to register the same ID simultaneously)
• Updated Examples & zip archive.

Cheers,

 

AutoItSharedData.zipFetching info...

Edited March 3, 2021 by SEuBo
Version 2.0

[MrCreatoR]

I didn't tested it yet, but can we pass arrays, objects that way?

[SEuBo]

  On 2/12/2021 at 3:48 PM, MrCreatoR said:

I didn't tested it yet, but can we pass arrays, objects that way?

Expand  

Hey,

yes you can, see example for array & object (in array) below - I think problems only really occur with DLLStructs, Pointers and Function-References. Some types (like handles) have to be Hwnd()'ed again on the other side. As far as I understood, those are internal limitations. Larsj did a great job summarizing it here (scroll down to "data types"):

$aArray :     Array variable type.
$dBinary :    Binary variable type.
$bBoolean :   Bool variable type.
$pPtr :       Int32 variable type.
$hWnd :       Int32 variable type.
$iInt :       Int32 variable type.
$fFloat :     Double variable type.
$oObject :    Object variable type.
$sString :    String variable type.
$tStruct :    Not recognized as a valid variable type.
$vKeyword :   Keyword variable type.
fuMsgBox :    Not recognized as a valid variable type.
$fuFunc :     Not recognized as a valid variable type.
$fuUserFunc : Not recognized as a valid variable type.

 

Example SharedData4:

  Reveal hidden contents

#include "AutoItSharedData.au3"

$oShare = _AutoIt_SharedData_CreateOrAttach("ArrayTest")

$iPID1 = Run(StringFormat('%s /AutoIt3ExecuteScript "%s"', @AutoItExe, @ScriptDir & '\Example_sharedata4_Script1.au3'), @ScriptDir)
$iPID2 = Run(StringFormat('%s /AutoIt3ExecuteScript "%s"', @AutoItExe, @ScriptDir & '\Example_sharedata4_Script2.au3'), @ScriptDir)

$hGUI = GUICreate("", 400, 400)
$hList = GUICtrlCreateList("", 0, 0, 400,400)
GUISetState()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case -3
            ProcessClose($iPID1)
            ProcessClose($iPID2)
            Exit
        Case Else

            If IsArray($oShare.arraydata) Then
                GUICtrlSetData($hList, StringFormat("%s: (%s) %s", $oShare.arraydata[0], $oShare.arraydata[1], $oShare.arraydata[2].random))
                $oShare.arraydata = 0
            EndIf

            Sleep(10)
    EndSwitch
WEnd

 

Sub-Script Example_sharedata4_Script1:

#include "AutoItSharedData.au3"
#include <Date.au3>

$oShare = _AutoIt_SharedData_CreateOrAttach("ArrayTest")


_AutoItObject_Startup()
$oObject = _AutoItObject_Create()
_AutoItObject_AddProperty($oObject, 'random')


Global $aArray[3]


While 1
    $aArray[0] = _NowCalc() & ":" & @MSEC
    $aArray[1] = 'Script #1'
    $aArray[2] = $oObject

    $oObject.random = Random(1, 25, 1)
    $oShare.arraydata = $aArray


    Sleep(Random(10, 300,1))
WEnd

Sub-Script Example_sharedata4_Script2:

#include "AutoItSharedData.au3"
#include <Date.au3>

$oShare = _AutoIt_SharedData_CreateOrAttach("ArrayTest")


_AutoItObject_Startup()
$oObject = _AutoItObject_Create()
_AutoItObject_AddProperty($oObject, 'random')


Global $aArray[3]


While 1
    $aArray[0] = _NowCalc() & ":" & @MSEC
    $aArray[1] = 'Script number two'
    $aArray[2] = $oObject

    $oObject.random = Random(300, 400)
    $oShare.arraydata = $aArray


    Sleep(Random(10, 300,1))
WEnd

 

Edited February 12, 2021 by SEuBo

[MrCreatoR]

Great, i will test it soon, thanks for sharing!

[SEuBo]

New Version.

Since AutoItObject Internal now comes with ROT support, I removed the need for AutoItObject. No Dlls anymore, and most notably: 64-Bit support. Archive in first post updated.

 

[TheSaint]

Thanks for sharing. Intriguing stuff that I just might use one day ... I see the possibilities.

Of course, like many I suspect, I have shared data between programs using an INI file entry or a Registry entry, probably even via SQL. I've also done it using STDOUT and STDIN by compiling to a console based executable. Your project however seemingly promises more and better.

Cheers

Edited February 27, 2021 by TheSaint

[SEuBo]

  On 2/27/2021 at 6:52 AM, TheSaint said:

Thanks for sharing. Intriguing stuff that I just might use one day ... I see the possibilities.

Of course, like many I suspect, I have shared data between programs using an INI file entry or a Registry entry, probably even via SQL. I've also done it using STDOUT and STDIN by compiling to a console based executable. Your project however seemingly promises more and better.

Cheers

Expand  

Thanks for you kind words. I didn't do much but to stumble accross this (Even a blind squirrel finds a nut once in a while ) but I am glad you like it!

All credits go to @genius257 for AutoItObject_Internal and of course to the original AutoItObject-Team for their great effort.

[Musashi]

From me as well : "Thanks for sharing"

  On 2/27/2021 at 9:32 AM, SEuBo said:

I didn't do much but to stumble accross this (Even a blind squirrel finds a nut once in a while )

Expand  

That is true, but it makes a big difference whether the nut is made of gold or is rotten. Moreover, finding something is only the first step. There must also be someone willing to spend his time to prepare something delicious from it (as you did) .

[frank10]

Thank you SEuBo, very useful!

I found these limits with array:

you can set and change a string/number var etc, you can read array, but you can't set/change an array and you can't directly use UDF _array: i.e. _arrayDisplay($oShare.arr)

#include "AutoItShared/AutoItSharedData.au3"
#include <Array.au3>

$oShare = _AutoIt_SharedData_CreateOrAttach("MyCustomID")

$oShare.data = 'foo'

global $arr = [1,2]
;global $oShare.arr = [1,2] ; NO

$arr[1] = 4
$oShare.arr = $arr
msgbox(0,'', $oShare.arr[1]) ; OK
;~ $oShare.arr[1] = 5 ; NO

_arrayDisplay($arr) ; OK
;~ _arrayDisplay($oShare.arr) ; NO

can you overcome these?

[SEuBo]

Hey frank10,

those are unfortunately limitations of the AutoIt Parser, as far as I understand. 

I guess you have no chance, but to use a temporary variable.

 

Regarding the direct access of Array-Elements for writing, there is a potential workaround, which is still not pretty.
We could "fake" a method for all the Array data. This would be done by replacing your AutoItSharedData.au3 with the following file (for testing purposes:)

  Reveal hidden contents

expandcollapse popup

#include-once
#include <AutoItObject_Internal.au3>
#include <AutoItObject_Internal_ROT.au3>

; #FUNCTION# ====================================================================================================================
; Name ..........: _AutoIt_SharedData_CreateOrAttach
; Description ...: Creates an IDispatch-Object as a shared storage object
; Syntax ........: _AutoIt_SharedData_CreateOrAttach($sID)
; Parameters ....: $sID     - ID of shared storage. Can be any alphanumerical string.
; Return values .: | Success: $oObject; an IDispatch Instance.
; ...............: | Failure: sets @error to non-zero
; Author ........: SEuBo
; Remarks .......: Version 2.0
; Link ..........: https://www.autoitscript.com/forum/topic/205109-very-simple-inter-process-communication-using-autoitobject-pure-autoit/
; ===============================================================================================================================
Func _AutoIt_SharedData_CreateOrAttach($sID)
    Local Const $cMonikerPrefix = 'AutoIt._AutoItSharedData.'
    Local $oObject

    $oObject = ObjGet($cMonikerPrefix & $sID)
    If Not IsObj($oObject) Then
        $oObject = IDispatch(QueryInterface, AddRef, Release, GetTypeInfoCount, GetTypeInfo, GetIDsOfNames, __AutoIt_SharedData_Invoke)
        _AOI_ROT_Register($oObject, $cMonikerPrefix & $sID, True)
        If @error Then $oObject = ObjGet($cMonikerPrefix & $sID)
    EndIf

    Return SetError(@error, @extended, $oObject)
EndFunc   ;==>_AutoIt_SharedData_CreateOrAttach


Func __AutoIt_SharedData_Invoke($pSelf, $dispIdMember, $riid, $lcid, $wFlags, $pDispParams, $pVarResult, $pExcepInfo, $puArgErr)
    If $dispIdMember <= 0 Then
        Return Invoke($pSelf, $dispIdMember, $riid, $lcid, $wFlags, $pDispParams, $pVarResult, $pExcepInfo, $puArgErr)
    Else

        Local $tHelperProperty, $iArguments, $oHelper, $vThisValue
        Local $sArrayAccess
        Local $pThisProperty = DllStructGetData(DllStructCreate("ptr", $pSelf + __AOI_GetPtrOffset("Properties")), 1)
        Local $tThisProperty = DllStructCreate($tagProperty, $pThisProperty)

        For $i = 1 To $dispIdMember - 1
            $pThisProperty = $tThisProperty.Next
            $tThisProperty = DllStructCreate($tagProperty, $pThisProperty)
        Next

        If (BitAND($wFlags, $DISPATCH_PROPERTYGET) = $DISPATCH_PROPERTYGET) And Not ($tThisProperty.__getter = 0) Then Return Invoke($pSelf, $dispIdMember, $riid, $lcid, $wFlags, $pDispParams, $pVarResult, $pExcepInfo, $puArgErr)
        If (BitAND($wFlags, $DISPATCH_PROPERTYPUT) = $DISPATCH_PROPERTYPUT) And Not ($tThisProperty.__setter = 0) Then Return Invoke($pSelf, $dispIdMember, $riid, $lcid, $wFlags, $pDispParams, $pVarResult, $pExcepInfo, $puArgErr)

        $tVARIANT = DllStructCreate($tagVARIANT)
        $tDISPPARAMS = DllStructCreate($tagDISPPARAMS, $pDispParams)

        $oHelper = IDispatch()
        $oHelper.variant_value = 0
        $tHelperProperty = DllStructCreate($tagProperty, DllStructGetData(DllStructCreate("ptr", Ptr($oHelper) + __AOI_GetPtrOffset("Properties")), 1))

        VariantCopy($tHelperProperty.Variant, $tThisProperty.Variant)
        $vThisValue = $oHelper.variant_value
        If IsArray($vThisValue) And $tDISPPARAMS.cArgs > 1 Then
            Local $aMap[$tDISPPARAMS.cArgs + 1]
            For $i = 1 To $tDISPPARAMS.cArgs
                VariantCopy($tHelperProperty.Variant, Ptr($tDISPPARAMS.rgvargs + (($tDISPPARAMS.cArgs - $i) * DllStructGetSize($tVARIANT))))
                If $i < $tDISPPARAMS.cArgs Then $aMap[$i] = $oHelper.variant_value
            Next

            Switch $tDISPPARAMS.cArgs - 1
                Case 1
                    $vThisValue[$aMap[1]] = $oHelper.variant_value
                Case 2
                    $vThisValue[$aMap[1]][$aMap[2]] = $oHelper.variant_value
                Case 3
                    $vThisValue[$aMap[1]][$aMap[2]][$aMap[3]] = $oHelper.variant_value
                Case 4
                    $vThisValue[$aMap[1]][$aMap[2]][$aMap[3]][$aMap[4]] = $oHelper.variant_value
                Case 5
                    $vThisValue[$aMap[1]][$aMap[2]][$aMap[3]][$aMap[4]][$aMap[5]] = $oHelper.variant_value
                Case Else
                    Return $DISP_E_BADPARAMCOUNT
            EndSwitch

            $oHelper.variant_value = $vThisValue
            VariantCopy($tThisProperty.Variant, $tHelperProperty.Variant)
            SetError(@error, @extended)

            VariantClear($pVarResult)
            VariantCopy($pVarResult, $tHelperProperty.Variant)

            Return $S_OK
        EndIf

        Return Invoke($pSelf, $dispIdMember, $riid, $lcid, $wFlags, $pDispParams, $pVarResult, $pExcepInfo, $puArgErr)
    EndIf
EndFunc   ;==>__AutoIt_SharedData_Invoke

 

Instead of

;~ $oShare.arr[1] = 5 ; NO

you could then write:

$oShare.arr(1) = 5

 

Not great, but at least something.

[frank10]

  On 3/8/2021 at 4:03 PM, SEuBo said:

Regarding the direct access of Array-Elements for writing, there is a potential workaround, which is still not pretty.

We could "fake" a method for all the Array data. This would be done by replacing your AutoItSharedData.au3 with the following file (for testing purposes:)

Instead of

;~ $oShare.arr[1] = 5 ; NO

you could then write:

$oShare.arr(1) = 5

 

Expand  

Great, a lot better!

It works also with 2D array:

global $arr = [[1,2],[3,4]]
$arr[1][0] = 8
$oShare.arr = $arr
$oShare.arr(1,1) = 9 

$temp = $oShare.arr
_arrayDisplay($temp)

 

[Nine]

Could you explain why I am receiving this error :

Test1.au3 :

#include "AutoItSharedData.au3"

$oShare = _AutoIt_SharedData_CreateOrAttach("MyCustomID")

$oShare.Request = @MSEC

Do
    Sleep(10)
Until $oShare.Response

MsgBox(64,"",$oShare.Request & "/" & $oShare.Response)

Test2.au3 :

#include <AutoItSharedData.au3>

$oShare = _AutoIt_SharedData_CreateOrAttach("MyCustomID")

Do
    Sleep(10)
Until $oShare.Request

$oShare.Response = @MSEC

If I run Test2 first, and then Test1 I get the error.  

[SEuBo]

Hi Nine,

contrary to what I've said in the first post about "the first script accessing a variable":

My best guess is that because Test2.au3 is the last script to assign any value within $oShare, it becomes the "Server" for this IDispatch.
Even though the behaviour isn't really consistent. I'd have to dig into that.

Potential workarounds:

1) Add Sleep(100) as last line of Test2.au3, like so:

#include <AutoItSharedData.au3>

$oShare = _AutoIt_SharedData_CreateOrAttach("MyCustomID")

Do
    Sleep(10)
Until $oShare.Request

$oShare.Response = @MSEC
Sleep(100)

2) OR: Add Error-Handler into Scripts, like so:

#include "AutoItSharedData.au3"

$oShare = _AutoIt_SharedData_CreateOrAttach("MyCustomID")
$oError = ObjEvent("AutoIt.Error", _ErrorHandler)

$oShare.Request = @MSEC

Do
    Sleep(10)
Until $oShare.Response

MsgBox(64,"",$oShare.Request & "/" & $oShare.Response)


func _ErrorHandler($oObject)
    SetError($oObject.number)
EndFunc

 

I'll investigate this later today.

Cheers,

[frank10]

There is also a problem with handles:

local $hWin = WinGetHandle("[active]")
$oShare.hGUImain  = $hWin ; it also stores it in Decimal...
ConsoleWrite($hWin & "___" & Hex($oShare.hGUImain) & @CRLF)
Local $aGUI_Main_Pos = WinGetPos($hWin)
ConsoleWrite("Pos hWin:"  & $aGUI_Main_Pos[0]  & @CRLF)

Local $aGUI_Main_Pos = WinGetPos($oShare.hGUImain)
ConsoleWrite("Pos oShare:"  & $aGUI_Main_Pos[0] & @CRLF) ; ERR
 
Local $aGUI_Main_Pos = WinGetPos( HWND($oShare.hGUImain) ) ; THIS works
ConsoleWrite("Pos oShare:"  & $aGUI_Main_Pos[0] & @CRLF) ; OK

EDIT

You should detect if there is a handle and store it as 0xHexNumber into the share var.

Edited March 9, 2021 by frank10

[frank10]

I would like to change some control settings of a GUI created from another script.

I got Get/Set with ControlGetText and ControlSetText, because original funcs like GUICtrlRead does not work in the script that didn't create the GUI.

Is there a way to use those original funcs also in the other script?

i.e. GUICtrlSetBkColor or GUICtrlSetImage

 

Edited March 10, 2021 by frank10

[Lion66]

Is there a limit on the number and long of "variables"?
I mean $oShare.xxx.

Is there a command to erase the values of all variables of $oShare ?

 

Edited June 24, 2021 by Lion66
add question

[Lion66]

I'm still looking, how clean all data from Object without destroy it.
I found function VariantClear, but how I get list of all variables into object ?
Does anyone understand to help me?

Edited July 5, 2021 by Lion66

[Lion66]

This is the first time I have used AutoitObject.
I'm not sure if my question is related to this UDF, or if it is a more general question about Objects.
I'll ask here. Help me 🙂.
How to set the name and value of an object variable through function parameters?

#include "AutoItSharedData.au3"
$oShare = _AutoIt_SharedData_CreateOrAttach("MyCustomID")

_SharingSetData("1", "aaa")

Func _SharingSetData($Var, $String)

    $oShare.Variable($Var) = $String

    MsgBox(0,"", $oShare.Variable1)
EndFunc

 

[Lion66]

I decided with the help of an array.

#include "AutoItSharedData.au3"
$oShare = _AutoIt_SharedData_CreateOrAttach("MyCustomID")

_SharingSetData("1", "aaa")

Func _SharingSetData($Var, $String)
    Local $arr[1]
    $oShare.Variable = $arr
    $oShare.Variable($Var) = $String

    MsgBox(0,"", $oShare.Variable($Var))
EndFunc