#include-once
#include <Memory.au3>
#include <WinAPISys.au3>

Global Const $__AOI_IID_IUnknown = "{00000000-0000-0000-C000-000000000046}"
Global Const $__AOI_IID_IDispatch = "{00020400-0000-0000-C000-000000000046}"
Global Const $__AOI_IID_IConnectionPointContainer = "{B196B284-BAB4-101A-B69C-00AA00341D07}"

Global Const $__AOI_DISPATCH_METHOD =               1
Global Const $__AOI_DISPATCH_PROPERTYGET =          2
Global Const $__AOI_DISPATCH_PROPERTYPUT =          4
Global Const $__AOI_DISPATCH_PROPERTYPUTREF =       8

Global Const $__AOI_S_OK = 0x00000000
Global Const $__AOI_E_NOTIMPL = 0x80004001
Global Const $__AOI_E_NOINTERFACE = 0x80004002
Global Const $__AOI_E_POINTER = 0x80004003
Global Const $__AOI_E_ABORT = 0x80004004
Global Const $__AOI_E_FAIL = 0x80004005
Global Const $__AOI_E_ACCESSDENIED = 0x80070005
Global Const $__AOI_E_HANDLE = 0x80070006
Global Const $__AOI_E_OUTOFMEMORY = 0x8007000E
Global Const $__AOI_E_INVALIDARG = 0x80070057
Global Const $__AOI_E_UNEXPECTED = 0x8000FFFF

Global Const $__AOI_DISP_E_UNKNOWNINTERFACE = 0x80020001
Global Const $__AOI_DISP_E_MEMBERNOTFOUND = 0x80020003
Global Const $__AOI_DISP_E_PARAMNOTFOUND = 0x80020004
Global Const $__AOI_DISP_E_TYPEMISMATCH = 0x80020005
Global Const $__AOI_DISP_E_UNKNOWNNAME = 0x80020006
Global Const $__AOI_DISP_E_NONAMEDARGS = 0x80020007
Global Const $__AOI_DISP_E_BADVARTYPE = 0x80020008
Global Const $__AOI_DISP_E_EXCEPTION = 0x80020009
Global Const $__AOI_DISP_E_OVERFLOW = 0x8002000A
Global Const $__AOI_DISP_E_BADINDEX = 0x8002000B
Global Const $__AOI_DISP_E_UNKNOWNLCID = 0x8002000C
Global Const $__AOI_DISP_E_ARRAYISLOCKED = 0x8002000D
Global Const $__AOI_DISP_E_BADPARAMCOUNT = 0x8002000E
Global Const $__AOI_DISP_E_PARAMNOTOPTIONAL = 0x8002000F
Global Const $__AOI_DISP_E_BADCALLEE = 0x80020010
Global Const $__AOI_DISP_E_NOTACOLLECTION = 0x80020011

Global Const $__AOI_tagVARIANT = "ushort vt;ushort r1;ushort r2;ushort r3;PTR data;PTR data2"
Global Const $__AOI_cVARIANT = DllStructGetSize(DllStructCreate($__AOI_tagVARIANT))
Global Const $__AOI_tagDISPPARAMS = "ptr rgvargs;ptr rgdispidNamedArgs;dword cArgs;dword cNamedArgs;"

Global Const $__AOI_LOCK_CREATE = 1
Global Const $__AOI_LOCK_UPDATE = 2
Global Const $__AOI_LOCK_DELETE = 4
Global Const $__AOI_LOCK_CASE = 8

Global Enum $__AOI_VT_EMPTY,$__AOI_VT_NULL,$__AOI_VT_I2,$__AOI_VT_I4,$__AOI_VT_R4,$__AOI_VT_R8,$__AOI_VT_CY,$__AOI_VT_DATE,$__AOI_VT_BSTR,$__AOI_VT_DISPATCH, _
	$__AOI_VT_ERROR,$__AOI_VT_BOOL,$__AOI_VT_VARIANT,$__AOI_VT_UNKNOWN,$__AOI_VT_DECIMAL,$__AOI_VT_I1=16,$__AOI_VT_UI1,$__AOI_VT_UI2,$__AOI_VT_UI4,$__AOI_VT_I8, _
	$__AOI_VT_UI8,$__AOI_VT_INT,$__AOI_VT_UINT,$__AOI_VT_VOID,$__AOI_VT_HRESULT,$__AOI_VT_PTR,$__AOI_VT_SAFEARRAY,$__AOI_VT_CARRAY,$__AOI_VT_USERDEFINED, _
	$__AOI_VT_LPSTR,$__AOI_VT_LPWSTR,$__AOI_VT_RECORD=36,$__AOI_VT_FILETIME=64,$__AOI_VT_BLOB,$__AOI_VT_STREAM,$__AOI_VT_STORAGE,$__AOI_VT_STREAMED_OBJECT, _
	$__AOI_VT_STORED_OBJECT,$__AOI_VT_BLOB_OBJECT,$__AOI_VT_CF,$__AOI_VT_CLSID,$__AOI_VT_BSTR_BLOB=0xfff,$__AOI_VT_VECTOR=0x1000, _
	$__AOI_VT_ARRAY=0x2000,$__AOI_VT_BYREF=0x4000,$__AOI_VT_RESERVED=0x8000,$__AOI_VT_ILLEGAL=0xffff,$__AOI_VT_ILLEGALMASKED=0xfff, _
	$__AOI_VT_TYPEMASK=0xfff

Global Const $__AOI_tagObject = "int RefCount;int Size;ptr Object;ptr Methods[7];int_ptr Callbacks[7];ptr Properties;long iProperties;long cProperties;BYTE lock;PTR __destructor"
Global Const $__AOI_tagProperty = "ptr Name;int cName;ptr Variant;ptr __getter;ptr __setter"
Global Const $__AOI_cProperty = DllStructGetSize(DllStructCreate($__AOI_tagProperty))

Global Enum Step -1 $__AOI_ConstantProperty_assign = -2, $__AOI_ConstantProperty_isExtensible, $__AOI_ConstantProperty_case, $__AOI_ConstantProperty_freeze, $__AOI_ConstantProperty_isFrozen, $__AOI_ConstantProperty_isSealed, $__AOI_ConstantProperty_keys, $__AOI_ConstantProperty_preventExtensions, $__AOI_ConstantProperty_defineGetter, $__AOI_ConstantProperty_defineSetter, $__AOI_ConstantProperty_lookupGetter, $__AOI_ConstantProperty_lookupSetter, $__AOI_ConstantProperty_seal, $__AOI_ConstantProperty_destructor = -16, $__AOI_ConstantProperty_unset, $__AOI_ConstantProperty_get, $__AOI_ConstantProperty_set, $__AOI_ConstantProperty_exists

Global Const $__AOI_Object_Element_RefCount = __AOI_GetPtrOffset("RefCount")
Global Const $__AOI_Object_Element_Size = __AOI_GetPtrOffset("Size")
Global Const $__AOI_Object_Element_Object = __AOI_GetPtrOffset("Object")
Global Const $__AOI_Object_Element_Methods = __AOI_GetPtrOffset("Methods")
Global Const $__AOI_Object_Element_Callbacks = __AOI_GetPtrOffset("Callbacks")
Global Const $__AOI_Object_Element_Properties = __AOI_GetPtrOffset("Properties")
Global Const $__AOI_Object_Element_iProperties = __AOI_GetPtrOffset("iProperties")
Global Const $__AOI_Object_Element_cProperties = __AOI_GetPtrOffset("cProperties")
Global Const $__AOI_Object_Element_lock = __AOI_GetPtrOffset("lock")
Global Const $__AOI_Object_Element___destructor = __AOI_GetPtrOffset("__destructor")

Func IDispatch($QueryInterface=__AOI_QueryInterface, $AddRef=__AOI_AddRef, $Release=__AOI_Release, $GetTypeInfoCount=__AOI_GetTypeInfoCount, $GetTypeInfo=__AOI_GetTypeInfo, $GetIDsOfNames=__AOI_GetIDsOfNames, $Invoke=__AOI_Invoke)
	Local $tObject = DllStructCreate($__AOI_tagObject)

	Local Static $hQueryInterface = DllCallbackRegister(__AOI_QueryInterface, "LONG", "ptr;ptr;ptr")
	Local Static $hAddRef = DllCallbackRegister(__AOI_AddRef, "dword", "PTR")
	Local Static $hRelease = DllCallbackRegister(__AOI_Release, "dword", "PTR")
	Local Static $hGetTypeInfoCount = DllCallbackRegister(__AOI_GetTypeInfoCount, "long", "ptr;ptr")
	Local Static $hGetTypeInfo = DllCallbackRegister(__AOI_GetTypeInfo, "long", "ptr;uint;int;ptr")
	Local Static $hGetIDsOfNames = DllCallbackRegister(__AOI_GetIDsOfNames, "long", "ptr;ptr;ptr;uint;int;ptr")
	Local Static $hInvoke = DllCallbackRegister(__AOI_Invoke, "long", "ptr;int;ptr;int;ushort;ptr;ptr;ptr;ptr")

	$QueryInterface = $QueryInterface = __AOI_QueryInterface ? $hQueryInterface : DllCallbackRegister($QueryInterface, "LONG", "ptr;ptr;ptr")
	DllStructSetData($tObject, "Methods", DllCallbackGetPtr($QueryInterface), 1)
	DllStructSetData($tObject, "Callbacks", $QueryInterface, 1)

	$AddRef = $AddRef = __AOI_AddRef ? $hAddRef : DllCallbackRegister($AddRef, "dword", "PTR")
	DllStructSetData($tObject, "Methods", DllCallbackGetPtr($AddRef), 2)
	DllStructSetData($tObject, "Callbacks", $AddRef, 2)

	$Release = $Release = __AOI_Release ? $hRelease : DllCallbackRegister($Release, "dword", "PTR")
	DllStructSetData($tObject, "Methods", DllCallbackGetPtr($Release), 3)
	DllStructSetData($tObject, "Callbacks", $Release, 3)

	$GetTypeInfoCount = $GetTypeInfoCount = __AOI_GetTypeInfoCount ? $hGetTypeInfoCount : DllCallbackRegister($GetTypeInfoCount, "long", "ptr;ptr")
	DllStructSetData($tObject, "Methods", DllCallbackGetPtr($GetTypeInfoCount), 4)
	DllStructSetData($tObject, "Callbacks", $GetTypeInfoCount, 4)

	$GetTypeInfo = $GetTypeInfo = __AOI_GetTypeInfo ? $hGetTypeInfo : DllCallbackRegister($GetTypeInfo, "long", "ptr;uint;int;ptr")
	DllStructSetData($tObject, "Methods", DllCallbackGetPtr($GetTypeInfo), 5)
	DllStructSetData($tObject, "Callbacks", $GetTypeInfo, 5)

	$GetIDsOfNames = $GetIDsOfNames = __AOI_GetIDsOfNames ? $hGetIDsOfNames : DllCallbackRegister($GetIDsOfNames, "long", "ptr;ptr;ptr;uint;int;ptr")
	DllStructSetData($tObject, "Methods", DllCallbackGetPtr($GetIDsOfNames), 6)
	DllStructSetData($tObject, "Callbacks", $GetIDsOfNames, 6)

	$Invoke = $Invoke = __AOI_Invoke ? $hInvoke : DllCallbackRegister($Invoke, "long", "ptr;int;ptr;int;ushort;ptr;ptr;ptr;ptr")
	DllStructSetData($tObject, "Methods", DllCallbackGetPtr($Invoke), 7)
	DllStructSetData($tObject, "Callbacks", $Invoke, 7)

	DllStructSetData($tObject, "RefCount", 1) ; initial ref count is 1
	DllStructSetData($tObject, "Size", 7) ; number of interface methods

	Local $pData = __AOI_MemCloneGlob($tObject)

	Local $tObject = DllStructCreate($__AOI_tagObject, $pData)

	DllStructSetData($tObject, "Object", DllStructGetPtr($tObject, "Methods")) ; Interface method pointers
	Return ObjCreateInterface(DllStructGetPtr($tObject, "Object"), $__AOI_IID_IDispatch, Default, True) ; pointer that's wrapped into object
EndFunc

#cs
# @internal
#ce
Func __AOI_QueryInterface($pSelf, $pRIID, $pObj)
	If $pObj=0 Then Return $__AOI_E_POINTER
	Local $sGUID=DllCall("ole32.dll", "int", "StringFromGUID2", "PTR", $pRIID, "wstr", "", "int", 40)[2]
	If (Not ($sGUID=$__AOI_IID_IDispatch)) And (Not ($sGUID=$__AOI_IID_IUnknown)) Then Return $__AOI_E_NOINTERFACE
	Local $tStruct = DllStructCreate("ptr", $pObj)
	DllStructSetData($tStruct, 1, $pSelf)
	__AOI_AddRef($pSelf)
	Return $__AOI_S_OK
EndFunc

#cs
# @internal
#ce
Func __AOI_AddRef($pSelf)
   Local $tStruct = DllStructCreate("int Ref", $pSelf + $__AOI_Object_Element_RefCount)
   $tStruct.Ref += 1
   Return $tStruct.Ref
EndFunc

#cs
# @internal
#ce
Func __AOI_Release($pSelf)
	Local $i
	Local $tObject = DllStructCreate($__AOI_tagObject, $pSelf + $__AOI_Object_Element_RefCount)
	$tObject.RefCount -= 1
	If $tObject.RefCount = 0 Then; initiate garbage collection
		Local $pDescructor = $tObject.__destructor
		If Not ($pDescructor=0) Then
			Local $tVARIANT = DllStructCreate($__AOI_tagVARIANT, $pDescructor)
			$tObject.__destructor = 0
			Local $IDispatch = IDispatch()
			$IDispatch.a=0
			$tIDispatch = DllStructCreate($__AOI_tagObject, Ptr($IDispatch) + $__AOI_Object_Element_RefCount)
			Local $tProperty = __AOI_PropertyGetFromId($tIDispatch.Properties, 1)
			Local $pVARIANT = $tProperty.Variant
			__AOI_VariantReplace($pVARIANT, $tVARIANT)
			Local $f__destructor = $IDispatch.a ;FIXME: make a helper method for convertion between au3 varaible and variant (with optional copy variant flag)
			__AOI_VariantClear($pVARIANT)
			$tObject.RefCount += 1
			Local $tVARIANT = DllStructCreate($__AOI_tagVARIANT, $pVARIANT)
			$tVARIANT.vt = $__AOI_VT_DISPATCH
			$tVARIANT.data = $pSelf
			Call($f__destructor, $IDispatch.a)
			__AOI_VariantClear($pVARIANT)
			$IDispatch=0
		EndIf
		$tObject.__lock = 1;lock
		Local $pProperty = $tObject.Properties;get first property
		If Not ($pProperty = 0) Then
			$tObject.Properties = 0;detatch properties from object
			Local $tProperty
			For $i=0 To $tObject.iProperties;releases all properties
				$tProperty = __AOI_PropertyGetFromId($pProperty, $i)
				If Not ($tProperty.__getter=0) Then
					__AOI_VariantClear($tProperty.__getter)
					_MemGlobalFree(__AOI_GlobalHandle($tProperty.__getter))
				EndIf
				If Not ($tProperty.__setter=0) Then
					__AOI_VariantClear($tProperty.__setter)
					_MemGlobalFree(__AOI_GlobalHandle($tProperty.__setter))
				EndIf
				If Not ($tProperty.Variant = 0) Then
					__AOI_VariantClear($tProperty.Variant)
					_MemGlobalFree(__AOI_GlobalHandle($tProperty.Variant))
				EndIf
				_WinAPI_FreeMemory($tProperty.Name)
			Next
			$tProperty=0
			_MemGlobalFree(__AOI_GlobalHandle($pProperty))
		EndIf
		_MemGlobalFree(__AOI_GlobalHandle(DllStructGetPtr($tObject)))
		Return 0
	EndIf
	Return $tObject.RefCount
EndFunc

#cs
# @internal
#ce
Func __AOI_GetIDsOfNames($pSelf, $riid, $rgszNames, $cNames, $lcid, $rgDispId)
	Local $tIds = DllStructCreate("long i", $rgDispId); 2,147,483,647 properties available to define, per object. And 2,147,483,647 private properties to set in the negative space, per object.
	Local $tProperty = 0

	Local $pStr = DllStructGetData(DllStructCreate("ptr", $rgszNames), 1)
	Local $s_rgszName = DllStructGetData(DllStructCreate("WCHAR[255]", $pStr), 1)

	$tIds.i = -1
	if StringLeft($s_rgszName, 2) = "__" Then
		__AOI_ConstantProperty_Lookup($s_rgszName, $tIds)
		If DllStructGetData($tIds, 1) <> -1 Then Return $__AOI_S_OK
	EndIf

	Local $tObject = DllStructCreate($__AOI_tagObject, $pSelf + $__AOI_Object_Element_RefCount)
	Local $iLock = $tObject.lock
	Local $bCase = Not (BitAND($iLock, $__AOI_LOCK_CASE)>0)
	Local $pProperty = __AOI_PropertyGetFromName($tObject, $pStr, $bCase)
	Local $iID = @error<>0?-1:@extended

	If ($iID=-1) And BitAND($iLock, $__AOI_LOCK_CREATE)=0 Then
		__AOI_Properties_Add($tObject, $pStr, 0)
		$iID = @extended
	EndIf

	If $iID=-1 Then Return $__AOI_DISP_E_UNKNOWNNAME
	DllStructSetData($tIds, 1, $iID)
	Return $__AOI_S_OK
EndFunc

#cs
# @internal
#ce
Func __AOI_ConstantProperty_Lookup($s_rgszName, $tIds)
	Switch $s_rgszName
		Case "__assign"
			DllStructSetData($tIds, 1, $__AOI_ConstantProperty_assign)
		Case "__isExtensible"
			DllStructSetData($tIds, 1, $__AOI_ConstantProperty_isExtensible)
		Case "__case"
			DllStructSetData($tIds, 1, $__AOI_ConstantProperty_case)
		Case "__freeze"
			DllStructSetData($tIds, 1, $__AOI_ConstantProperty_freeze)
		Case "__isFrozen"
			DllStructSetData($tIds, 1, $__AOI_ConstantProperty_isFrozen)
		Case "__isSealed"
			DllStructSetData($tIds, 1, $__AOI_ConstantProperty_isSealed)
		Case "__keys"
			DllStructSetData($tIds, 1, $__AOI_ConstantProperty_keys)
		Case "__preventExtensions"
			DllStructSetData($tIds, 1, $__AOI_ConstantProperty_preventExtensions)
		Case "__defineGetter"
			DllStructSetData($tIds, 1, $__AOI_ConstantProperty_defineGetter)
		Case "__defineSetter"
			DllStructSetData($tIds, 1, $__AOI_ConstantProperty_defineSetter)
		Case "__lookupGetter"
			DllStructSetData($tIds, 1, $__AOI_ConstantProperty_lookupGetter)
		Case "__lookupSetter"
			DllStructSetData($tIds, 1, $__AOI_ConstantProperty_lookupSetter)
		Case "__seal"
			DllStructSetData($tIds, 1, $__AOI_ConstantProperty_seal)
		Case "__destructor"
			DllStructSetData($tIds, 1, $__AOI_ConstantProperty_destructor)
		Case "__unset"
			DllStructSetData($tIds, 1, $__AOI_ConstantProperty_unset)
		Case "__get"
			DllStructSetData($tIds, 1, $__AOI_ConstantProperty_get)
		Case "__set"
			DllStructSetData($tIds, 1, $__AOI_ConstantProperty_set)
		Case "__exists"
			DllStructSetData($tIds, 1, $__AOI_ConstantProperty_exists)
	EndSwitch
EndFunc

#cs
# @internal
#ce
Func __AOI_GetTypeInfo($pSelf, $iTInfo, $lcid, $ppTInfo)
	If $iTInfo<>0 Then Return $__AOI_DISP_E_BADINDEX
	If $ppTInfo=0 Then Return $__AOI_E_INVALIDARG
	Return $__AOI_S_OK
EndFunc

#cs
# @internal
#ce
Func __AOI_GetTypeInfoCount($pSelf, $pctinfo)
	DllStructSetData(DllStructCreate("UINT",$pctinfo),1, 0)
	Return $__AOI_S_OK
EndFunc

#cs
# @internal
#ce
Func __AOI_Invoke($pSelf, $dispIdMember, $riid, $lcid, $wFlags, $pDispParams, $pVarResult, $pExcepInfo, $puArgErr)
	Local $tObject = DllStructCreate($__AOI_tagObject, $pSelf + $__AOI_Object_Element_RefCount)
	If $dispIdMember=-1 Then Return $__AOI_DISP_E_MEMBERNOTFOUND
	Local $_tVARIANT, $tDISPPARAMS

	Local $pProperty = $tObject.Properties

	If $dispIdMember<-1 Then
		Switch $dispIdMember
			Case $__AOI_ConstantProperty_isExtensible
				Return __AOI_Invoke_isExtensible($tObject, $pVarResult)
			Case $__AOI_ConstantProperty_case
				Return __AOI_Invoke_case($tObject, $pDispParams, $pVarResult, $wFlags)
			Case $__AOI_ConstantProperty_lookupSetter
				Return __AOI_Invoke_lookupSetter($tObject, $riid, $lcid, $pDispParams, $pVarResult)
			Case $__AOI_ConstantProperty_lookupGetter
				Return __AOI_Invoke_lookupGetter($tObject, $riid, $lcid, $pDispParams, $pVarResult)
			Case $__AOI_ConstantProperty_assign
				Return __AOI_Invoke_assign($tObject, $pDispParams)
			Case $__AOI_ConstantProperty_isSealed
				Return __AOI_Invoke_isSealed($tObject, $pVarResult)
			Case $__AOI_ConstantProperty_isFrozen
				Return __AOI_Invoke_isFrozen($tObject, $pVarResult)
			Case $__AOI_ConstantProperty_get
				Return __AOI_Invoke_get($pSelf, $riid, $lcid, $pDispParams, $puArgErr, $pExcepInfo, $pVarResult)
			Case $__AOI_ConstantProperty_set
				Return __AOI_Invoke_set($pSelf, $riid, $lcid, $pDispParams, $pVarResult, $pExcepInfo, $puArgErr)
			Case $__AOI_ConstantProperty_exists
				Return __AOI_Invoke_exists($tObject, $pDispParams, $pVarResult)
			Case $__AOI_ConstantProperty_destructor
				Return __AOI_Invoke_destructor($tObject, $pDispParams)
			Case $__AOI_ConstantProperty_freeze
				Return __AOI_Invoke_freeze($tObject, $pDispParams)
			Case $__AOI_ConstantProperty_seal
				Return __AOI_Invoke_seal($tObject, $pDispParams)
			Case $__AOI_ConstantProperty_preventExtensions
				Return __AOI_Invoke_preventExtensions($tObject, $pDispParams)
			Case $__AOI_ConstantProperty_unset
				Return __AOI_Invoke_unset($tObject, $pDispParams, $pProperty)
			Case $__AOI_ConstantProperty_keys
				Return __AOI_Invoke_keys($tObject, $pVarResult)
			Case $__AOI_ConstantProperty_defineGetter
				Return __AOI_Invoke_defineGetter($tObject, $pDispParams, $lcid)
			Case $__AOI_ConstantProperty_defineSetter
				Return __AOI_Invoke_defineSetter($tObject, $pDispParams, $lcid)
		EndSwitch
		Return $__AOI_DISP_E_EXCEPTION
	EndIf

	Local $tProperty = __AOI_PropertyGetFromId($pProperty, $dispIdMember)

	Local $tVARIANT = DllStructCreate($__AOI_tagVARIANT, $tProperty.Variant)

	If (Not(BitAND($wFlags, $__AOI_DISPATCH_PROPERTYGET)=0)) Then
		If Not($tProperty.__getter = 0) Then
			$_tVARIANT = DllStructCreate($__AOI_tagVARIANT, $pVarResult)
			$tDISPPARAMS = DllStructCreate($__AOI_tagDISPPARAMS, $pDispParams)
			Local $oIDispatch = IDispatch()
			$oIDispatch.val = 0
			$oIDispatch.ret = 0
			DllStructSetData(DllStructCreate("INT", $pSelf-4-4), 1, DllStructGetData(DllStructCreate("INT", $pSelf-4-4), 1)+1)
			$oIDispatch.parent = 0
			Local $_tObject = DllStructCreate($__AOI_tagObject, Ptr($oIDispatch) + $__AOI_Object_Element_RefCount)
			Local $tProperty02 = __AOI_PropertyGetFromId($_tObject.Properties, 3)
			$tVARIANT = DllStructCreate($__AOI_tagVARIANT, $tProperty02.Variant)
			$tVARIANT.vt = $__AOI_VT_DISPATCH
			$tVARIANT.data = $pSelf
			$oIDispatch.arguments = IDispatch();
			$oIDispatch.arguments.length=$tDISPPARAMS.cArgs
			Local $aArguments[$tDISPPARAMS.cArgs], $iArguments=$tDISPPARAMS.cArgs-1
			Local $_tProperty = __AOI_PropertyGetFromId($_tObject.Properties, 1)
			For $i=0 To $iArguments
				__AOI_VariantReplace($_tProperty.Variant, $tDISPPARAMS.rgvargs+(($iArguments-$i)*$__AOI_cVARIANT))
				$aArguments[$i]=$oIDispatch.val
			Next
			$oIDispatch.arguments.values=$aArguments
			$oIDispatch.arguments.__seal()
			$oIDispatch.__defineSetter("parent", _AOI_PrivateProperty)
			__AOI_VariantReplace($_tProperty.Variant, $tProperty.__getter)
			Local $fGetter = $oIDispatch.val
			__AOI_VariantReplace($_tProperty.Variant, $tProperty.Variant)
			$oIDispatch.__seal()
			Local $mRet = Call($fGetter, $oIDispatch)
			Local $iError = @error, $iExtended = @extended
			__AOI_VariantReplace($tProperty.Variant, $_tProperty.Variant)
			$oIDispatch.ret = $mRet
			$_tProperty = __AOI_PropertyGetFromId($_tObject.Properties, 2)
			__AOI_VariantReplace($pVarResult, $_tProperty.Variant)
			$oIDispatch=0
			Return ($iError<>0)?$__AOI_DISP_E_EXCEPTION:$__AOI_S_OK
		EndIf

		__AOI_VariantCopy($pVarResult, $tVARIANT)
		Return $__AOI_S_OK
	Else; ~ $DISPATCH_PROPERTYPUT
		$tDISPPARAMS = DllStructCreate($__AOI_tagDISPPARAMS, $pDispParams)
		If Not ($tProperty.__setter=0) Then
			Local $oIDispatch = IDispatch()
			$oIDispatch.val = 0
			$oIDispatch.ret = 0
			DllStructSetData(DllStructCreate("INT", $pSelf-4-4), 1, DllStructGetData(DllStructCreate("INT", $pSelf-4-4), 1)+1)
			$oIDispatch.parent = 0
			$_tObject = DllStructCreate($__AOI_tagObject, Ptr($oIDispatch) + $__AOI_Object_Element_RefCount)
			Local $tProperty02 = __AOI_PropertyGetFromId($_tObject.Properties, 3)
			$tVARIANT = DllStructCreate($__AOI_tagVARIANT, $tProperty02.Variant)
			$tVARIANT.vt = $__AOI_VT_DISPATCH
			$tVARIANT.data = $pSelf
			Local $_tProperty = __AOI_PropertyGetFromId($_tObject.Properties, 1)
			Local $_tProperty2 = __AOI_PropertyGetFromId($_tObject.Properties, 2)
			__AOI_VariantReplace($_tProperty.Variant, $tProperty.__setter)
			__AOI_VariantReplace($_tProperty2.Variant, $tDISPPARAMS.rgvargs)
			Local $fSetter = $oIDispatch.val
			__AOI_VariantReplace($_tProperty.Variant, $tProperty.Variant)
			$oIDispatch.__seal()
			Local $mRet = Call($fSetter, $oIDispatch)
			Local $iError = @error, $iExtended = @extended
			__AOI_VariantReplace($tProperty.Variant, $_tProperty.Variant)
			$oIDispatch.ret = $mRet
			__AOI_VariantReplace($pVarResult, $_tProperty2.Variant)
			$oIDispatch=0
			Return ($iError<>0)?$__AOI_DISP_E_EXCEPTION:$__AOI_S_OK
		EndIf

		Local $iLock = $tObject.lock
		If BitAND($iLock, $__AOI_LOCK_UPDATE)>0 Then Return $__AOI_DISP_E_EXCEPTION

		$_tVARIANT = DllStructCreate($__AOI_tagVARIANT, $tDISPPARAMS.rgvargs)
		__AOI_VariantReplace($tVARIANT, $_tVARIANT)
	EndIf
	Return $__AOI_S_OK
EndFunc

Func __AOI_Invoke_isExtensible($tObject, $pVarResult)
	Local $iLock = $tObject.lock
	Local $iExtensible = $__AOI_LOCK_CREATE
	Local $tVARIANT = DllStructCreate($__AOI_tagVARIANT, $pVarResult)
	$tVARIANT.vt = $__AOI_VT_BOOL
	$tVARIANT.data = (BitAND($iLock, $iExtensible) = $iExtensible)?1:0
	Return $__AOI_S_OK
EndFunc

Func __AOI_Invoke_case($tObject, $pDispParams, $pVarResult, $wFlags)
	Local $tDISPPARAMS = DllStructCreate($__AOI_tagDISPPARAMS, $pDispParams)
	If (Not(BitAND($wFlags, $__AOI_DISPATCH_PROPERTYGET)=0)) Then
		If $tDISPPARAMS.cArgs<>0 Then Return $__AOI_DISP_E_BADPARAMCOUNT
		Local $tVARIANT=DllStructCreate($__AOI_tagVARIANT, $pVarResult)
		$tVARIANT.vt = $__AOI_VT_BOOL
		Local $iLock = $tObject.lock
		$tVARIANT.data = (BitAND($iLock, $__AOI_LOCK_CASE)>0)?0:1
	Else; $DISPATCH_PROPERTYPUT
		If $tDISPPARAMS.cArgs<>1 Then Return $__AOI_DISP_E_BADPARAMCOUNT
		Local $tVARIANT=DllStructCreate($__AOI_tagVARIANT, $tDISPPARAMS.rgvargs)
		If $tVARIANT.vt<>$__AOI_VT_BOOL Then Return $__AOI_DISP_E_BADVARTYPE
		Local $iLock = $tObject.lock
		If BitAND($iLock, $__AOI_LOCK_UPDATE)>0 Then Return $__AOI_DISP_E_EXCEPTION
		Local $b = $tVARIANT.data
		$tObject.lock = (Not $b) ? BitOR($iLock, $__AOI_LOCK_CASE) : BitAND($iLock, BitNOT(BitShift(1 , 0-(Log($__AOI_LOCK_CASE)/log(2)))))
	EndIf
	Return $__AOI_S_OK
EndFunc

Func __AOI_Invoke_lookupSetter($tObject, $riid, $lcid, $pDispParams, $pVarResult)
	Local $tDISPPARAMS = DllStructCreate($__AOI_tagDISPPARAMS, $pDispParams)
	If $tDISPPARAMS.cArgs<>1 Then Return $__AOI_DISP_E_BADPARAMCOUNT

	Local $t = DllStructCreate("ptr id_ptr;long id;ptr str_ptr_ptr;ptr str_ptr")
	DllStructSetData($t, "id_ptr", DllStructGetPtr($t, 2))
	DllStructSetData($t, "str_ptr", $tDISPPARAMS.rgvargs)
	$t.str_ptr = DllStructGetData(DllStructCreate($__AOI_tagVARIANT, $tDISPPARAMS.rgvargs), "data")
	$t.str_ptr_ptr = DllStructGetPtr($t, "str_ptr")
	If Not __AOI_GetIDsOfNames(DllStructGetPtr($tObject, "Object"), $riid, $t.str_ptr_ptr, 1, $lcid, DllStructGetPtr($t, "id")) = $__AOI_S_OK Then Return $__AOI_DISP_E_EXCEPTION

	Local $pProperty = $tObject.Properties
	Local $tProperty = __AOI_PropertyGetFromId($pProperty, $t.id)
	If Not $tProperty.__setter=0 Then
		__AOI_VariantReplace($pVarResult, $tProperty.__setter)
	EndIf
	Return $__AOI_S_OK
EndFunc

Func __AOI_Invoke_lookupGetter($tObject, $riid, $lcid, $pDispParams, $pVarResult)
	Local $tDISPPARAMS = DllStructCreate($__AOI_tagDISPPARAMS, $pDispParams)
	If $tDISPPARAMS.cArgs<>1 Then Return $__AOI_DISP_E_BADPARAMCOUNT

	Local $t = DllStructCreate("ptr id_ptr;long id;ptr str_ptr_ptr;ptr str_ptr")
	DllStructSetData($t, "id_ptr", DllStructGetPtr($t, 2))
	DllStructSetData($t, "str_ptr", $tDISPPARAMS.rgvargs)
	$t.str_ptr = DllStructGetData(DllStructCreate($__AOI_tagVARIANT, $tDISPPARAMS.rgvargs), "data")
	$t.str_ptr_ptr = DllStructGetPtr($t, "str_ptr")
	If Not (__AOI_GetIDsOfNames(DllStructGetPtr($tObject, "Object"), $riid, $t.str_ptr_ptr, 1, $lcid, DllStructGetPtr($t, "id")) = $__AOI_S_OK) Then Return $__AOI_DISP_E_EXCEPTION

	Local $pProperty = $tObject.Properties
	Local $tProperty = __AOI_PropertyGetFromId($pProperty, $t.id)
	If Not $tProperty.__getter=0 Then
		__AOI_VariantReplace($pVarResult, $tProperty.__getter)
	EndIf
	Return $__AOI_S_OK
EndFunc

Func __AOI_Invoke_assign($tObject, $pDispParams)
	Local $iLock = $tObject.lock
	If BitAND($iLock, $__AOI_LOCK_CREATE)>0 Then Return $__AOI_DISP_E_EXCEPTION


	Local $tDISPPARAMS = DllStructCreate($__AOI_tagDISPPARAMS, $pDispParams)
	If $tDISPPARAMS.cArgs=0 Then Return $__AOI_DISP_E_BADPARAMCOUNT

	Local $tVARIANT = DllStructCreate($__AOI_tagVARIANT)
	Local $iVARIANT = $__AOI_cVARIANT
	Local $pExternalProperty, $tExternalProperty
	Local $pProperty, $tProperty, $_tProperty
	Local $iID, $iIndex, $pData
	Local $_tObject
	For $i=$tDISPPARAMS.cArgs-1 To 0 Step -1
		$tVARIANT=DllStructCreate($__AOI_tagVARIANT, $tDISPPARAMS.rgvargs+$iVARIANT*$i)
		If Not (DllStructGetData($tVARIANT, "vt")=$__AOI_VT_DISPATCH) Then Return $__AOI_DISP_E_BADVARTYPE
		$_tObject = DllStructCreate($__AOI_tagObject, $tVARIANT.data + $__AOI_Object_Element_RefCount)
		For $j = 1 To $_tObject.iProperties
			$_tProperty = __AOI_PropertyGetFromId($_tObject.Properties, $j)
			$pProperty = __AOI_PropertyGetFromName($tObject, $_tProperty.Name, False);TODO: the case sensitive option should reflect the main object case sensitive setting.

			$iID = @error<>0?-1:@extended

			If ($iID=-1) Then
				__AOI_Properties_Add($tObject, $_tProperty.Name, $_tProperty.Variant)
			Else
				$tProperty = DllStructCreate($__AOI_tagProperty, $pProperty)
				__AOI_VariantReplace($tProperty.Variant, $_tProperty.Variant)
			EndIf
		Next
	Next
	Return $__AOI_S_OK
EndFunc

Func __AOI_Invoke_isSealed($tObject, $pVarResult)
	Local $iLock = $tObject.lock
	Local $iSeal = $__AOI_LOCK_CREATE + $__AOI_LOCK_DELETE
	Local $tVARIANT = DllStructCreate($__AOI_tagVARIANT, $pVarResult)
	$tVARIANT.vt = $__AOI_VT_BOOL
	$tVARIANT.data = (BitAND($iLock, $iSeal) = $iSeal)?1:0
	Return $__AOI_S_OK
EndFunc

Func __AOI_Invoke_isFrozen($tObject, $pVarResult)
	Local $iLock = $tObject.lock
	Local $iFreeze = $__AOI_LOCK_CREATE + $__AOI_LOCK_UPDATE + $__AOI_LOCK_DELETE
	Local $tVARIANT = DllStructCreate($__AOI_tagVARIANT, $pVarResult)
	$tVARIANT.vt = $__AOI_VT_BOOL
	$tVARIANT.data = (BitAND($iLock, $iFreeze) = $iFreeze)?1:0
	Return $__AOI_S_OK
EndFunc

Func __AOI_Invoke_get($pSelf, $riid, $lcid, $pDispParams, $puArgErr, $pExcepInfo, $pVarResult)
	Local $tDISPPARAMS = DllStructCreate($__AOI_tagDISPPARAMS, $pDispParams)
	If $tDISPPARAMS.cArgs<>1 Then Return $__AOI_DISP_E_BADPARAMCOUNT
	Local $tVARIANT = DllStructCreate($__AOI_tagVARIANT, $tDISPPARAMS.rgvargs)
	If $tVARIANT.vt<>$__AOI_VT_BSTR Then Return $__AOI_DISP_E_BADVARTYPE
	Local $t = DllStructCreate("ptr id_ptr;long id;ptr str_ptr_ptr;ptr str_ptr")
	DllStructSetData($t, "id_ptr", DllStructGetPtr($t, 2))
	DllStructSetData($t, "str_ptr", $tDISPPARAMS.rgvargs)
	$t.str_ptr = DllStructGetData($tVARIANT, "data")
	$t.str_ptr_ptr = DllStructGetPtr($t, "str_ptr")
	If Not (__AOI_GetIDsOfNames($pSelf, 0, $t.str_ptr_ptr, 1, $lcid, DllStructGetPtr($t, "id")) = $__AOI_S_OK) Then Return $__AOI_DISP_E_EXCEPTION
	Return __AOI_Invoke($pSelf, $t.id, $riid, $lcid, $__AOI_DISPATCH_PROPERTYGET, $pDispParams, $pVarResult, $pExcepInfo, $puArgErr)
EndFunc

Func __AOI_Invoke_set($pSelf, $riid, $lcid, $pDispParams, $pVarResult, $pExcepInfo, $puArgErr)
	Local $tDISPPARAMS = DllStructCreate($__AOI_tagDISPPARAMS, $pDispParams)
	If $tDISPPARAMS.cArgs<>2 Then Return $__AOI_DISP_E_BADPARAMCOUNT
	Local $tVARIANT = DllStructCreate($__AOI_tagVARIANT, $tDISPPARAMS.rgvargs+$__AOI_cVARIANT)
	If $tVARIANT.vt<>$__AOI_VT_BSTR Then Return $__AOI_DISP_E_BADVARTYPE
	Local $t = DllStructCreate("ptr id_ptr;long id;ptr str_ptr_ptr;ptr str_ptr")
	DllStructSetData($t, "id_ptr", DllStructGetPtr($t, 2))
	$t.str_ptr = DllStructGetData($tVARIANT, "data")
	$t.str_ptr_ptr = DllStructGetPtr($t, "str_ptr")
	If Not (__AOI_GetIDsOfNames($pSelf, 0, $t.str_ptr_ptr, 1, $lcid, DllStructGetPtr($t, "id")) = $__AOI_S_OK) Then Return $__AOI_DISP_E_EXCEPTION
	$tDISPPARAMS.cArgs=1
	Return __AOI_Invoke($pSelf, $t.id, $riid, $lcid, $__AOI_DISPATCH_PROPERTYPUT, $pDispParams, $pVarResult, $pExcepInfo, $puArgErr)
EndFunc

Func __AOI_Invoke_exists($tObject, $pDispParams, $pVarResult)
	Local $tDISPPARAMS = DllStructCreate($__AOI_tagDISPPARAMS, $pDispParams)
	If $tDISPPARAMS.cArgs<>1 Then Return $__AOI_DISP_E_BADPARAMCOUNT
	Local $tVARIANT = DllStructCreate($__AOI_tagVARIANT, $tDISPPARAMS.rgvargs)
	If $tVARIANT.vt<>$__AOI_VT_BSTR Then Return $__AOI_DISP_E_BADVARTYPE
	Local $iLock = $tObject.lock
	Local $bCase = Not (BitAND($iLock, $__AOI_LOCK_CASE)>0)
	Local $pProperty = __AOI_PropertyGetFromName($tObject, $tVARIANT.data, $bCase)
	Local $error = @error
	$tVARIANT = DllStructCreate($__AOI_tagVARIANT, $pVarResult)
	$tVARIANT.vt = $__AOI_VT_BOOL
	$tVARIANT.data = $error<>0?0:1
	Return $__AOI_S_OK
EndFunc

Func __AOI_Invoke_destructor($tObject, $pDispParams)
	Local $iLock = $tObject.lock
	If BitAND($iLock, $__AOI_LOCK_CREATE)>0 Then Return $__AOI_DISP_E_EXCEPTION
	Local $tDISPPARAMS = DllStructCreate($__AOI_tagDISPPARAMS, $pDispParams)
	If $tDISPPARAMS.cArgs<>1 Then Return $__AOI_DISP_E_BADPARAMCOUNT
	If (Not (DllStructGetData(DllStructCreate($__AOI_tagVARIANT, $tDISPPARAMS.rgvargs),"vt")=$__AOI_VT_RECORD)) And (Not (DllStructGetData(DllStructCreate($__AOI_tagVARIANT, $tDISPPARAMS.rgvargs),"vt")=$__AOI_VT_BSTR)) Then Return $__AOI_DISP_E_BADVARTYPE
	Local $tVARIANT = DllStructCreate($__AOI_tagVARIANT)
	Local $pVARIANT = __AOI_MemCloneGlob($tVARIANT)
	$tVARIANT = DllStructCreate($__AOI_tagVARIANT, $pVARIANT)
	__AOI_VariantInit($pVARIANT)
	__AOI_VariantCopy($pVARIANT, $tDISPPARAMS.rgvargs)
	$tObject.__destructor = $pVARIANT
	Return $__AOI_S_OK
EndFunc

Func __AOI_Invoke_freeze($tObject, $pDispParams)
	Local $tDISPPARAMS = DllStructCreate($__AOI_tagDISPPARAMS, $pDispParams)
	If $tDISPPARAMS.cArgs<>0 Then Return $__AOI_DISP_E_BADPARAMCOUNT
	$tObject.lock = BitOR($tObject.lock, $__AOI_LOCK_CREATE + $__AOI_LOCK_DELETE + $__AOI_LOCK_UPDATE)
	Return $__AOI_S_OK
EndFunc

Func __AOI_Invoke_seal($tObject, $pDispParams)
	Local $tDISPPARAMS = DllStructCreate($__AOI_tagDISPPARAMS, $pDispParams)
	If $tDISPPARAMS.cArgs<>0 Then Return $__AOI_DISP_E_BADPARAMCOUNT
	$tObject.lock = BitOR($tObject.lock, $__AOI_LOCK_CREATE + $__AOI_LOCK_DELETE)
	Return $__AOI_S_OK
EndFunc

Func __AOI_Invoke_preventExtensions($tObject, $pDispParams)
	Local $tDISPPARAMS = DllStructCreate($__AOI_tagDISPPARAMS, $pDispParams)
	If $tDISPPARAMS.cArgs<>0 Then Return $__AOI_DISP_E_BADPARAMCOUNT
	$tObject.lock = BitOR($tObject.lock, $__AOI_LOCK_CREATE)
	Return $__AOI_S_OK
EndFunc

Func __AOI_Invoke_unset($tObject, $pDispParams, $pProperty)
	Local $iLock = $tObject.lock
	If BitAND($iLock, $__AOI_LOCK_DELETE)>0 Then Return $__AOI_DISP_E_EXCEPTION

	Local $tDISPPARAMS = DllStructCreate($__AOI_tagDISPPARAMS, $pDispParams)
	If $tDISPPARAMS.cArgs<>1 Then Return $__AOI_DISP_E_BADPARAMCOUNT
	Local $tVARIANT = DllStructCreate($__AOI_tagVARIANT, $tDISPPARAMS.rgvargs)
	If Not($__AOI_VT_BSTR=$tVARIANT.vt) Then Return $__AOI_DISP_E_BADVARTYPE
	Local $sProperty = _WinAPI_GetString($tVARIANT.data);the string to search for
	Local $tProperty=0,$tProperty_Prev
	Local $bCase = Not (BitAND($iLock, $__AOI_LOCK_CASE)>0)
	__AOI_PropertyGetFromName($tObject, $tVARIANT.data, $bCase)
	If @error <> 0 Then Return $__AOI_DISP_E_MEMBERNOTFOUND
	__AOI_Properties_Remove($tObject, @extended)
	Return $__AOI_S_OK
EndFunc

Func __AOI_Invoke_keys($tObject, $pVarResult)
	Local $aKeys[$tObject.iProperties]
	Local $pProperties = $tObject.Properties
	Local $tProperty
	For $i=1 To $tObject.iProperties
		$tProperty = __AOI_PropertyGetFromId($pProperties, $i)
		$aKeys[$i-1] = _WinAPI_GetString($tProperty.Name)
	Next

	Local $oIDispatch = IDispatch()
	Local $_tObject = DllStructCreate($__AOI_tagObject, Ptr($oIDispatch)+$__AOI_Object_Element_RefCount)
	$oIDispatch.a=$aKeys
	Local $_tProperty = __AOI_PropertyGetFromId($_tObject.Properties, 1)
	__AOI_VariantReplace($pVarResult, $_tProperty.Variant)
	$oIDispatch=0
	Return $__AOI_S_OK
EndFunc

Func __AOI_Invoke_defineGetter($tObject, $pDispParams, $lcid)
	Local $iLock = $tObject.lock
	If BitAND($iLock, $__AOI_LOCK_CREATE)>0 Then Return $__AOI_DISP_E_EXCEPTION

	Local $tDISPPARAMS = DllStructCreate($__AOI_tagDISPPARAMS, $pDispParams)
	If $tDISPPARAMS.cArgs<>2 Then Return $__AOI_DISP_E_BADPARAMCOUNT
	Local $tVARIANT = DllStructCreate($__AOI_tagVARIANT, $tDISPPARAMS.rgvargs)
	If Not (($tVARIANT.vt=$__AOI_VT_RECORD) Or ($tVARIANT.vt=$__AOI_VT_BSTR)) Then Return $__AOI_DISP_E_BADVARTYPE
	Local $tVARIANT2 = DllStructCreate($__AOI_tagVARIANT, $tDISPPARAMS.rgvargs+$__AOI_cVARIANT)
	If Not ($tVARIANT2.vt=$__AOI_VT_BSTR) Then Return $__AOI_DISP_E_BADVARTYPE

	$tDISPPARAMS = DllStructCreate($__AOI_tagDISPPARAMS, $pDispParams)
	Local $t = DllStructCreate("ptr id_ptr;long id;ptr str_ptr_ptr;ptr str_ptr")
	DllStructSetData($t, "id_ptr", DllStructGetPtr($t, 2))
	DllStructSetData($t, "str_ptr", $tDISPPARAMS.rgvargs+$__AOI_cVARIANT)
	$t.str_ptr = DllStructGetData(DllStructCreate($__AOI_tagVARIANT, $tDISPPARAMS.rgvargs+$__AOI_cVARIANT), "data")
	$t.str_ptr_ptr = DllStructGetPtr($t, "str_ptr")
	__AOI_GetIDsOfNames(DllStructGetPtr($tObject, "Object"), 0, $t.str_ptr_ptr, 1, $lcid, DllStructGetPtr($t, "id"))

	Local $pProperty = $tObject.Properties
	Local $tProperty = __AOI_PropertyGetFromId($pProperty, $t.id)

	If ($tProperty.__getter=0) Then
		Local $tVARIANT_Getter = DllStructCreate($__AOI_tagVARIANT)
		Local $pVARIANT_Getter = __AOI_MemCloneGlob($tVARIANT_Getter)
		__AOI_VariantInit($pVARIANT_Getter)
	Else
		Local $pVARIANT_Getter = $tProperty.__getter
		__AOI_VariantClear($pVARIANT_Getter)
	EndIf
	$tVARIANT = DllStructCreate($__AOI_tagVARIANT, $tDISPPARAMS.rgvargs)
	__AOI_VariantCopy($pVARIANT_Getter, $tVARIANT)
	$tProperty.__getter = $pVARIANT_Getter
	Return $__AOI_S_OK
EndFunc

Func __AOI_Invoke_defineSetter($tObject, $pDispParams, $lcid)
	Local $iLock = $tObject.lock
	If BitAND($iLock, $__AOI_LOCK_CREATE)>0 Then Return $__AOI_DISP_E_EXCEPTION

	Local $tDISPPARAMS = DllStructCreate($__AOI_tagDISPPARAMS, $pDispParams)
	If $tDISPPARAMS.cArgs<>2 Then Return $__AOI_DISP_E_BADPARAMCOUNT
	Local $tVARIANT = DllStructCreate($__AOI_tagVARIANT, $tDISPPARAMS.rgvargs)
	If Not (($tVARIANT.vt=$__AOI_VT_RECORD) Or ($tVARIANT.vt=$__AOI_VT_BSTR)) Then Return $__AOI_DISP_E_BADVARTYPE
	Local $tVARIANT2 = DllStructCreate($__AOI_tagVARIANT, $tDISPPARAMS.rgvargs+$__AOI_cVARIANT)
	If Not ($tVARIANT2.vt=$__AOI_VT_BSTR) Then Return $__AOI_DISP_E_BADVARTYPE

	Local $tDISPPARAMS = DllStructCreate($__AOI_tagDISPPARAMS, $pDispParams)
	Local $t = DllStructCreate("ptr id_ptr;long id;ptr str_ptr_ptr;ptr str_ptr")
	DllStructSetData($t, "id_ptr", DllStructGetPtr($t, 2))
	DllStructSetData($t, "str_ptr", $tDISPPARAMS.rgvargs+$__AOI_cVARIANT)
	$t.str_ptr = DllStructGetData(DllStructCreate($__AOI_tagVARIANT, $tDISPPARAMS.rgvargs+$__AOI_cVARIANT), "data")
	$t.str_ptr_ptr = DllStructGetPtr($t, "str_ptr")
	__AOI_GetIDsOfNames(DllStructGetPtr($tObject, "Object"), 0, $t.str_ptr_ptr, 1, $lcid, DllStructGetPtr($t, "id"))

	Local $pProperty = $tObject.Properties

	$tVARIANT = DllStructCreate($__AOI_tagVARIANT, $tDISPPARAMS.rgvargs)
	Local $tProperty = __AOI_PropertyGetFromId($pProperty, $t.id)
	If ($tProperty.__setter=0) Then
		Local $tVARIANT_Setter = DllStructCreate($__AOI_tagVARIANT)
		Local $pVARIANT_Setter = __AOI_MemCloneGlob($tVARIANT_Setter)
		__AOI_VariantInit($pVARIANT_Setter)
	Else
		Local $pVARIANT_Setter = $tProperty.__setter
		__AOI_VariantClear($pVARIANT_Setter)
	EndIf
	__AOI_VariantCopy($pVARIANT_Setter, $tVARIANT)
	$tProperty.__setter = $pVARIANT_Setter
	Return $__AOI_S_OK
EndFunc

Func __AOI_MemCloneGlob($tObject);clones DllStruct to Global memory and return pointer to new allocated memory
   Local $iSize = DllStructGetSize($tObject)
   Local $hData = _MemGlobalAlloc($iSize, $GMEM_MOVEABLE)
   Local $pData = _MemGlobalLock($hData)
   _MemMoveMemory(DllStructGetPtr($tObject), $pData, $iSize)
   Return $pData
EndFunc

Func __AOI_GlobalHandle($pMem)
   Local $aRet = DllCall("Kernel32.dll", "ptr", "GlobalHandle", "ptr", $pMem)
   If @error<>0 Then Return SetError(@error, @extended, 0)
   If $aRet[0]=0 Then Return SetError(-1, @extended, 0)
   Return $aRet[0]
EndFunc

Func __AOI_VariantInit($tVARIANT)
	Local $aRet=DllCall("OleAut32.dll","LONG","VariantInit",IsDllStruct($tVARIANT)?"struct*":"PTR",$tVARIANT)
	If @error<>0 Then Return SetError(-1, @error, 0)
	If $aRet[0]<>$__AOI_S_OK Then SetError($aRet, 0, $tVARIANT)
	Return 1
EndFunc

Func __AOI_VariantCopy($tVARIANT_Dest,$tVARIANT_Src)
	Local $aRet=DllCall("OleAut32.dll","LONG","VariantCopy",IsDllStruct($tVARIANT_Dest)?"struct*":"PTR",$tVARIANT_Dest, IsDllStruct($tVARIANT_Src)?"struct*":"PTR", $tVARIANT_Src)
	If @error<>0 Then Return SetError(-1, @error, 0)
	If $aRet[0]<>$__AOI_S_OK Then SetError($aRet, 0, 0)
	Return 1
EndFunc

Func __AOI_VariantClear($tVARIANT)
	Local $aRet=DllCall("OleAut32.dll","LONG","VariantClear",IsDllStruct($tVARIANT)?"struct*":"PTR",$tVARIANT)
	If @error<>0 Then Return SetError(-1, @error, 0)
	If $aRet[0]<>$__AOI_S_OK Then SetError($aRet, 0, $tVARIANT)
	Return 1
EndFunc

Func _AOI_PrivateProperty()
	Return SetError(1, 1, 0)
EndFunc

#cs
# @internal
#ce
Func __AOI_PropertyGetFromName($tObject, $psName, $bCase = True)
	Local $iID = -1, $tProperty
	Local $pProperties = $tObject.Properties
	If $pProperties = 0 Then Return SetExtended(-1, 0)
	Local $sName = DllStructGetData(DllStructCreate("WCHAR[255]", $psName), 1)
	If $sName = "" Then Return SetError(0, 0, $pProperties)
	For $i=1 To $tObject.iProperties
		$tProperty = DllStructCreate($__AOI_tagProperty, $pProperties + ($__AOI_cProperty * $i))
		If $bCase And DllStructGetData(DllStructCreate("WCHAR["&$tProperty.cName&"]", $tProperty.Name), 1) == $sName Then
			$iID = $i
			ExitLoop
		ElseIf Not $bCase And DllStructGetData(DllStructCreate("WCHAR["&$tProperty.cName&"]", $tProperty.Name), 1) = $sName Then
			$iID = $i
			ExitLoop
		EndIf
	Next
	If $iID=-1 Then Return SetError(1, $iID, 0)
	Return SetError(0, $iID, DllStructGetPtr($tProperty))
EndFunc

#cs
# @internal
#ce
Func __AOI_PropertyGetFromId($pProperty, $iID)
	Return DllStructCreate($__AOI_tagProperty, $pProperty + ($__AOI_cProperty * $iID))
EndFunc

#cs
# Get IDispatch property pointer offset from Object property in bytes
# @internal
# @param String $sElement struct element name
# @return Integer offset
#ce
Func __AOI_GetPtrOffset($sElement)
	Local Static $tObject = DllStructCreate($__AOI_tagObject), $iObject = Int(DllStructGetPtr($tObject, "Object"), @AutoItX64?2:1)
	Return DllStructGetPtr($tObject, $sElement) - $iObject
EndFunc

Func __AOI_Properties_Add($tObject, $pName, $pVariant = 0)
	If ($tObject.iProperties+1) >= $tObject.cProperties Then __AOI_Properties_Resize($tObject)
	If @error <> 0 Then Return SetError(@error, -1)
	$tObject.iProperties += 1
	Local $tProperty = DllStructCreate($__AOI_tagProperty, $tObject.Properties + ($__AOI_cProperty * ($tObject.iProperties)))
	;$tProperty.Name = SysAllocString($pName)
	$tProperty.Name = _WinAPI_CreateString(_WinAPI_GetString($pName))
	$tProperty.cName = _WinAPI_StrLen($pName, True)
	Local $tVARIANT = DllStructCreate($__AOI_tagVARIANT, __AOI_MemCloneGlob(DllStructCreate($__AOI_tagVARIANT)))
	__AOI_VariantInit($tVARIANT)
	If Not ($pVARIANT = 0) Then
		__AOI_VariantReplace($tVARIANT, $pVariant)
	EndIf
	$tProperty.Variant = DllStructGetPtr($tVARIANT)
	Return SetExtended($tObject.iProperties, $tProperty)
EndFunc

Func __AOI_VariantReplace($tVARIANT_Dest, $tVARIANT_Src)
	__AOI_VariantClear($tVARIANT_Dest)
	__AOI_VariantCopy($tVARIANT_Dest, $tVARIANT_Src)
EndFunc

Func __AOI_Properties_Resize($tObject)
	Local $cProperties = $tObject.cProperties
	$cProperties = $cProperties > 0 ? $cProperties * 2 : 16; double the array capacity, or default to 16 as initial capacity
	Local $hProperties = _MemGlobalAlloc($__AOI_cProperty * $cProperties, $GMEM_MOVEABLE + $GMEM_ZEROINIT)
	Local $pProperties = _MemGlobalLock($hProperties)
	If $cProperties = 16 Then; no previous array exists
		Local $tProperty = __AOI_PropertyGetFromId($pProperties, 0)
		Local $tVARIANT = DllStructCreate($__AOI_tagVARIANT, __AOI_MemCloneGlob(DllStructCreate($__AOI_tagVARIANT)))
		__AOI_VariantInit($tVARIANT)
		$tProperty.Variant = DllStructGetPtr($tVARIANT)
	Else; there exists a previous array we need to copy and free
		_MemMoveMemory($tObject.Properties, $pProperties, $__AOI_cProperty * $tObject.cProperties)
		_MemGlobalFree(__AOI_GlobalHandle($tObject.Propertiesy))
	EndIf
	$tObject.Properties = $pProperties
	$tObject.cProperties = $cProperties
EndFunc

Func __AOI_Properties_Remove($tObject, $iIndex);WARNING: do not remove index zero!
	Local $tProperty = DllStructCreate($__AOI_tagProperty, $tObject.Properties + ($__AOI_cProperty * $iIndex))
	__AOI_VariantClear($tProperty.Variant)
	_WinAPI_FreeMemory($tProperty.Name)
	_MemMoveMemory($tObject.Properties + ($__AOI_cProperty * ($iIndex + 1)), $tObject.Properties + ($__AOI_cProperty * $iIndex), $__AOI_cProperty * ($tObject.cProperties - ($iIndex + 1)))
	$tObject.iProperties -= 1
EndFunc