Lexikos wrote:
No. Yes.
Thanks for the ray of hope. Figured it out. Its a little convoluted, have to send vbscript array through a jscript function... But it works ! What am I missing ?
safearray.html
Code:
<html><title>safearray</title>
<script language="VBscript">
Dim myArray(3)
myArray(0) = "ahk"
myArray(1) = "rocks"
myArray(2) = "ie and"
myArray(3) = "com"
Function sendarray()
ahk.getarray myArray, "hello"
End Function
</script>
<script language="JScript">
function sendarrayjs(a)
{
ahk.getarray(a);
}
</script>
<body>
<button id="okButton" onclick="sendarray" language="VBScript">getarrayvb doesn't work</button>
<button onclick="sendarrayjs(myArray)" language="JScript">getarrayjs works</button>
</body>
</html>
getsafearray.ahk
Code:
obj := DispatchObj_Create("getarray")
cobj := comobjenwrap(obj)
iewin := getiewin("safearray")
;;; script
script =
(
var ahk;
)
;;; exec
iewin.execScript(script, "JScript")
iewin.ahk := cobj
return
;; getarray(this, params, result)
getarray(this, params, result)
{
msgbox in getarray
param1 := DispatchObj_Param(params, 1, type1)
param2 := DispatchObj_Param(params, 2, type2)
SetFormat, integer, hex
type1 += 0
type2 += 0
msgbox % "param1: " param1 "param2: " param2 "type1: " type1 "type2: " type2
SetFormat, integer, d
_arr := param1
lbound := SafeArrayGetLBound(_arr, 1 )
ubound := SafeArrayGetUBound(_arr, 1 )
adims := SafeArraygetdim(_arr)
pvdata := SafeArrayAccessData(_arr)
msgbox % "lbound: " lbound "ubound: " ubound "admins: " adims
loop, 4
msgbox % SafeArrayGetElement(_arr, A_Index - 1 )
}
;; includes
#include com.ahk
#include dispatchobj.ahk
#include acc.ahk
#include safearray.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()
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)
}
Login
Register
FAQ
Search
