2 * Copyright 2008-2009 Jacek Caban for CodeWeavers
4 * This library is free software; you can redistribute it and/or
5 * modify it under the terms of the GNU Lesser General Public
6 * License as published by the Free Software Foundation; either
7 * version 2.1 of the License, or (at your option) any later version.
9 * This library is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 * Lesser General Public License for more details.
14 * You should have received a copy of the GNU Lesser General Public
15 * License along with this library; if not, write to the Free Software
16 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
22 #include <wine/test.h>
27 //#include "winbase.h"
35 //#include "initguid.h"
36 //#include "activscp.h"
40 #include "mshtml_test.h"
42 DEFINE_GUID(CLSID_IdentityUnmarshal
,0x0000001b,0x0000,0x0000,0xc0,0x00,0x00,0x00,0x00,0x00,0x00,0x46);
44 /* Defined as extern in urlmon.idl, but not exported by uuid.lib */
45 const GUID GUID_CUSTOM_CONFIRMOBJECTSAFETY
=
46 {0x10200490,0xfa38,0x11d0,{0xac,0x0e,0x00,0xa0,0xc9,0xf,0xff,0xc0}};
50 #define CTXARG_T DWORDLONG
51 #define IActiveScriptParseVtbl IActiveScriptParse64Vtbl
52 #define IActiveScriptParseProcedure2Vtbl IActiveScriptParseProcedure2_64Vtbl
53 #define IActiveScriptSiteDebug_Release IActiveScriptSiteDebug64_Release
57 #define CTXARG_T DWORD
58 #define IActiveScriptParseVtbl IActiveScriptParse32Vtbl
59 #define IActiveScriptParseProcedure2Vtbl IActiveScriptParseProcedure2_32Vtbl
60 #define IActiveScriptSiteDebug_Release IActiveScriptSiteDebug32_Release
64 #define DEFINE_EXPECT(func) \
65 static BOOL expect_ ## func = FALSE, called_ ## func = FALSE
67 #define SET_EXPECT(func) \
68 do { called_ ## func = FALSE; expect_ ## func = TRUE; } while(0)
70 #define CHECK_EXPECT2(func) \
72 ok(expect_ ##func, "unexpected call " #func "\n"); \
73 called_ ## func = TRUE; \
76 #define CHECK_EXPECT(func) \
78 CHECK_EXPECT2(func); \
79 expect_ ## func = FALSE; \
82 #define CHECK_CALLED(func) \
84 ok(called_ ## func, "expected " #func "\n"); \
85 expect_ ## func = called_ ## func = FALSE; \
88 #define CHECK_CALLED_BROKEN(func) \
90 ok(called_ ## func || broken(!called_ ## func), "expected " #func "\n"); \
91 expect_ ## func = called_ ## func = FALSE; \
94 #define CHECK_NOT_CALLED(func) \
96 ok(!called_ ## func, "unexpected " #func "\n"); \
97 expect_ ## func = called_ ## func = FALSE; \
100 #define CLEAR_CALLED(func) \
101 expect_ ## func = called_ ## func = FALSE
104 DEFINE_EXPECT(CreateInstance
);
105 DEFINE_EXPECT(GetInterfaceSafetyOptions
);
106 DEFINE_EXPECT(SetInterfaceSafetyOptions
);
107 DEFINE_EXPECT(InitNew
);
108 DEFINE_EXPECT(Close
);
109 DEFINE_EXPECT(SetProperty_HACK_TRIDENTEVENTSINK
);
110 DEFINE_EXPECT(SetProperty_INVOKEVERSIONING
);
111 DEFINE_EXPECT(SetProperty_ABBREVIATE_GLOBALNAME_RESOLUTION
);
112 DEFINE_EXPECT(SetScriptSite
);
113 DEFINE_EXPECT(GetScriptState
);
114 DEFINE_EXPECT(SetScriptState_STARTED
);
115 DEFINE_EXPECT(SetScriptState_CONNECTED
);
116 DEFINE_EXPECT(SetScriptState_DISCONNECTED
);
117 DEFINE_EXPECT(AddNamedItem
);
118 DEFINE_EXPECT(ParseScriptText_script
);
119 DEFINE_EXPECT(ParseScriptText_execScript
);
120 DEFINE_EXPECT(GetScriptDispatch
);
121 DEFINE_EXPECT(funcDisp
);
122 DEFINE_EXPECT(script_divid_d
);
123 DEFINE_EXPECT(script_testprop_d
);
124 DEFINE_EXPECT(script_testprop_i
);
125 DEFINE_EXPECT(script_testprop2_d
);
126 DEFINE_EXPECT(AXQueryInterface_IActiveScript
);
127 DEFINE_EXPECT(AXQueryInterface_IObjectSafety
);
128 DEFINE_EXPECT(AXGetInterfaceSafetyOptions
);
129 DEFINE_EXPECT(AXSetInterfaceSafetyOptions_IDispatch_caller
);
130 DEFINE_EXPECT(AXSetInterfaceSafetyOptions_IDispatch_data
);
131 DEFINE_EXPECT(AXSetInterfaceSafetyOptions_IDispatchEx_caller_secmgr
);
132 DEFINE_EXPECT(AXSetInterfaceSafetyOptions_IDispatchEx_caller
);
133 DEFINE_EXPECT(external_success
);
134 DEFINE_EXPECT(QS_VariantConversion
);
135 DEFINE_EXPECT(ChangeType
);
137 #define TESTSCRIPT_CLSID "{178fc163-f585-4e24-9c13-4bb7faf80746}"
138 #define TESTACTIVEX_CLSID "{178fc163-f585-4e24-9c13-4bb7faf80646}"
140 #define DISPID_SCRIPT_TESTPROP 0x100000
141 #define DISPID_SCRIPT_TESTPROP2 0x100001
143 #define DISPID_EXTERNAL_OK 0x300000
144 #define DISPID_EXTERNAL_TRACE 0x300001
145 #define DISPID_EXTERNAL_REPORTSUCCESS 0x300002
146 #define DISPID_EXTERNAL_TODO_WINE_OK 0x300003
148 static const GUID CLSID_TestScript
=
149 {0x178fc163,0xf585,0x4e24,{0x9c,0x13,0x4b,0xb7,0xfa,0xf8,0x07,0x46}};
150 static const GUID CLSID_TestActiveX
=
151 {0x178fc163,0xf585,0x4e24,{0x9c,0x13,0x4b,0xb7,0xfa,0xf8,0x06,0x46}};
153 static IHTMLDocument2
*notif_doc
;
154 static IOleDocumentView
*view
;
155 static IDispatchEx
*window_dispex
;
156 static BOOL doc_complete
;
157 static IDispatch
*script_disp
;
158 static BOOL ax_objsafe
;
159 static HWND container_hwnd
;
160 static HRESULT ax_getopt_hres
= S_OK
, ax_setopt_dispex_hres
= S_OK
;
161 static HRESULT ax_setopt_disp_caller_hres
= S_OK
, ax_setopt_disp_data_hres
= S_OK
;
162 static BOOL skip_loadobject_tests
;
164 static const char *debugstr_guid(REFIID riid
)
168 sprintf(buf
, "{%08X-%04X-%04X-%02X%02X-%02X%02X%02X%02X%02X%02X}",
169 riid
->Data1
, riid
->Data2
, riid
->Data3
, riid
->Data4
[0],
170 riid
->Data4
[1], riid
->Data4
[2], riid
->Data4
[3], riid
->Data4
[4],
171 riid
->Data4
[5], riid
->Data4
[6], riid
->Data4
[7]);
176 static int strcmp_wa(LPCWSTR strw
, const char *stra
)
179 WideCharToMultiByte(CP_ACP
, 0, strw
, -1, buf
, sizeof(buf
), NULL
, NULL
);
180 return lstrcmpA(stra
, buf
);
183 static BSTR
a2bstr(const char *str
)
191 len
= MultiByteToWideChar(CP_ACP
, 0, str
, -1, NULL
, 0);
192 ret
= SysAllocStringLen(NULL
, len
);
193 MultiByteToWideChar(CP_ACP
, 0, str
, -1, ret
, len
);
198 static BOOL
init_key(const char *key_name
, const char *def_value
, BOOL init
)
204 RegDeleteKey(HKEY_CLASSES_ROOT
, key_name
);
208 res
= RegCreateKeyA(HKEY_CLASSES_ROOT
, key_name
, &hkey
);
209 if(res
!= ERROR_SUCCESS
)
213 res
= RegSetValueA(hkey
, NULL
, REG_SZ
, def_value
, strlen(def_value
));
217 return res
== ERROR_SUCCESS
;
220 static HRESULT WINAPI
PropertyNotifySink_QueryInterface(IPropertyNotifySink
*iface
,
221 REFIID riid
, void**ppv
)
223 if(IsEqualGUID(&IID_IPropertyNotifySink
, riid
)) {
228 return E_NOINTERFACE
;
231 static ULONG WINAPI
PropertyNotifySink_AddRef(IPropertyNotifySink
*iface
)
236 static ULONG WINAPI
PropertyNotifySink_Release(IPropertyNotifySink
*iface
)
241 static HRESULT WINAPI
PropertyNotifySink_OnChanged(IPropertyNotifySink
*iface
, DISPID dispID
)
243 if(dispID
== DISPID_READYSTATE
){
247 static const WCHAR completeW
[] = {'c','o','m','p','l','e','t','e',0};
249 hres
= IHTMLDocument2_get_readyState(notif_doc
, &state
);
250 ok(hres
== S_OK
, "get_readyState failed: %08x\n", hres
);
252 if(!lstrcmpW(state
, completeW
))
255 SysFreeString(state
);
261 static HRESULT WINAPI
PropertyNotifySink_OnRequestEdit(IPropertyNotifySink
*iface
, DISPID dispID
)
263 ok(0, "unexpected call\n");
267 static IPropertyNotifySinkVtbl PropertyNotifySinkVtbl
= {
268 PropertyNotifySink_QueryInterface
,
269 PropertyNotifySink_AddRef
,
270 PropertyNotifySink_Release
,
271 PropertyNotifySink_OnChanged
,
272 PropertyNotifySink_OnRequestEdit
275 static IPropertyNotifySink PropertyNotifySink
= { &PropertyNotifySinkVtbl
};
277 static HRESULT WINAPI
VariantChangeType_QueryInterface(IVariantChangeType
*iface
, REFIID riid
, void **ppv
)
279 ok(0, "unexpected call %s\n", debugstr_guid(riid
));
281 return E_NOINTERFACE
;
284 static ULONG WINAPI
VariantChangeType_AddRef(IVariantChangeType
*iface
)
289 static ULONG WINAPI
VariantChangeType_Release(IVariantChangeType
*iface
)
294 static HRESULT WINAPI
VariantChangeType_ChangeType(IVariantChangeType
*iface
, VARIANT
*dst
, VARIANT
*src
, LCID lcid
, VARTYPE vt
)
296 CHECK_EXPECT(ChangeType
);
298 ok(dst
!= NULL
, "dst = NULL\n");
299 ok(V_VT(dst
) == VT_EMPTY
, "V_VT(dst) = %d\n", V_VT(dst
));
300 ok(src
!= NULL
, "src = NULL\n");
301 ok(V_VT(src
) == VT_I4
, "V_VT(src) = %d\n", V_VT(src
));
302 ok(V_I4(src
) == 0xf0f0f0, "V_I4(src) = %x\n", V_I4(src
));
303 ok(lcid
== LOCALE_NEUTRAL
, "lcid = %d\n", lcid
);
304 ok(vt
== VT_BSTR
, "vt = %d\n", vt
);
307 V_BSTR(dst
) = a2bstr("red");
311 static const IVariantChangeTypeVtbl VariantChangeTypeVtbl
= {
312 VariantChangeType_QueryInterface
,
313 VariantChangeType_AddRef
,
314 VariantChangeType_Release
,
315 VariantChangeType_ChangeType
318 static IVariantChangeType VChangeType
= { &VariantChangeTypeVtbl
};
320 static HRESULT WINAPI
ServiceProvider_QueryInterface(IServiceProvider
*iface
, REFIID riid
, void **ppv
)
322 ok(0, "unexpected call\n");
323 return E_NOINTERFACE
;
326 static ULONG WINAPI
ServiceProvider_AddRef(IServiceProvider
*iface
)
331 static ULONG WINAPI
ServiceProvider_Release(IServiceProvider
*iface
)
336 static HRESULT WINAPI
ServiceProvider_QueryService(IServiceProvider
*iface
, REFGUID guidService
,
337 REFIID riid
, void **ppv
)
339 if(IsEqualGUID(guidService
, &SID_VariantConversion
)) {
340 CHECK_EXPECT(QS_VariantConversion
);
341 ok(IsEqualGUID(riid
, &IID_IVariantChangeType
), "uenxpected riid %s\n", debugstr_guid(riid
));
346 ok(0, "unexpected service %s\n", debugstr_guid(guidService
));
347 return E_NOINTERFACE
;
350 static const IServiceProviderVtbl ServiceProviderVtbl
= {
351 ServiceProvider_QueryInterface
,
352 ServiceProvider_AddRef
,
353 ServiceProvider_Release
,
354 ServiceProvider_QueryService
357 static IServiceProvider caller_sp
= { &ServiceProviderVtbl
};
359 static HRESULT WINAPI
DispatchEx_QueryInterface(IDispatchEx
*iface
, REFIID riid
, void **ppv
)
363 if(IsEqualGUID(riid
, &IID_IUnknown
)
364 || IsEqualGUID(riid
, &IID_IDispatch
)
365 || IsEqualGUID(riid
, &IID_IDispatchEx
))
368 return E_NOINTERFACE
;
373 static ULONG WINAPI
DispatchEx_AddRef(IDispatchEx
*iface
)
378 static ULONG WINAPI
DispatchEx_Release(IDispatchEx
*iface
)
383 static HRESULT WINAPI
DispatchEx_GetTypeInfoCount(IDispatchEx
*iface
, UINT
*pctinfo
)
385 ok(0, "unexpected call\n");
389 static HRESULT WINAPI
DispatchEx_GetTypeInfo(IDispatchEx
*iface
, UINT iTInfo
,
390 LCID lcid
, ITypeInfo
**ppTInfo
)
392 ok(0, "unexpected call\n");
396 static HRESULT WINAPI
DispatchEx_GetIDsOfNames(IDispatchEx
*iface
, REFIID riid
,
397 LPOLESTR
*rgszNames
, UINT cNames
,
398 LCID lcid
, DISPID
*rgDispId
)
400 ok(0, "unexpected call\n");
404 static HRESULT WINAPI
DispatchEx_Invoke(IDispatchEx
*iface
, DISPID dispIdMember
,
405 REFIID riid
, LCID lcid
, WORD wFlags
, DISPPARAMS
*pDispParams
,
406 VARIANT
*pVarResult
, EXCEPINFO
*pExcepInfo
, UINT
*puArgErr
)
408 ok(0, "unexpected call\n");
412 static HRESULT WINAPI
DispatchEx_DeleteMemberByName(IDispatchEx
*iface
, BSTR bstrName
, DWORD grfdex
)
414 ok(0, "unexpected call %s %x\n", wine_dbgstr_w(bstrName
), grfdex
);
418 static HRESULT WINAPI
DispatchEx_DeleteMemberByDispID(IDispatchEx
*iface
, DISPID id
)
420 ok(0, "unexpected call\n");
424 static HRESULT WINAPI
DispatchEx_GetMemberProperties(IDispatchEx
*iface
, DISPID id
, DWORD grfdexFetch
, DWORD
*pgrfdex
)
426 ok(0, "unexpected call\n");
430 static HRESULT WINAPI
DispatchEx_GetMemberName(IDispatchEx
*iface
, DISPID id
, BSTR
*pbstrName
)
432 ok(0, "unexpected call\n");
436 static HRESULT WINAPI
DispatchEx_GetNextDispID(IDispatchEx
*iface
, DWORD grfdex
, DISPID id
, DISPID
*pid
)
438 ok(0, "unexpected call\n");
442 static HRESULT WINAPI
DispatchEx_GetNameSpaceParent(IDispatchEx
*iface
, IUnknown
**ppunk
)
444 ok(0, "unexpected call\n");
448 static HRESULT WINAPI
DispatchEx_GetDispID(IDispatchEx
*iface
, BSTR bstrName
, DWORD grfdex
, DISPID
*pid
)
450 ok(0, "unexpected call\n");
454 static HRESULT WINAPI
funcDisp_InvokeEx(IDispatchEx
*iface
, DISPID id
, LCID lcid
, WORD wFlags
, DISPPARAMS
*pdp
,
455 VARIANT
*pvarRes
, EXCEPINFO
*pei
, IServiceProvider
*pspCaller
)
457 CHECK_EXPECT(funcDisp
);
459 ok(id
== DISPID_VALUE
, "id = %d\n", id
);
460 ok(lcid
== 0, "lcid = %x\n", lcid
);
461 ok(wFlags
== DISPATCH_METHOD
, "wFlags = %x\n", wFlags
);
462 ok(pdp
!= NULL
, "pdp == NULL\n");
463 ok(pdp
->cArgs
== 2, "pdp->cArgs = %d\n", pdp
->cArgs
);
464 ok(pdp
->cNamedArgs
== 1, "pdp->cNamedArgs = %d\n", pdp
->cNamedArgs
);
465 ok(pdp
->rgdispidNamedArgs
[0] == DISPID_THIS
, "pdp->rgdispidNamedArgs[0] = %d\n", pdp
->rgdispidNamedArgs
[0]);
466 ok(V_VT(pdp
->rgvarg
) == VT_DISPATCH
, "V_VT(rgvarg) = %d\n", V_VT(pdp
->rgvarg
));
467 ok(V_VT(pdp
->rgvarg
+1) == VT_BOOL
, "V_VT(rgvarg[1]) = %d\n", V_VT(pdp
->rgvarg
));
468 ok(V_BOOL(pdp
->rgvarg
+1) == VARIANT_TRUE
, "V_BOOL(rgvarg[1]) = %x\n", V_BOOL(pdp
->rgvarg
));
469 ok(pvarRes
!= NULL
, "pvarRes == NULL\n");
470 ok(pei
!= NULL
, "pei == NULL\n");
471 ok(!pspCaller
, "pspCaller != NULL\n");
473 V_VT(pvarRes
) = VT_I4
;
478 static IDispatchExVtbl testObjVtbl
= {
479 DispatchEx_QueryInterface
,
482 DispatchEx_GetTypeInfoCount
,
483 DispatchEx_GetTypeInfo
,
484 DispatchEx_GetIDsOfNames
,
486 DispatchEx_GetDispID
,
488 DispatchEx_DeleteMemberByName
,
489 DispatchEx_DeleteMemberByDispID
,
490 DispatchEx_GetMemberProperties
,
491 DispatchEx_GetMemberName
,
492 DispatchEx_GetNextDispID
,
493 DispatchEx_GetNameSpaceParent
496 static IDispatchEx funcDisp
= { &testObjVtbl
};
498 static HRESULT WINAPI
scriptDisp_GetDispID(IDispatchEx
*iface
, BSTR bstrName
, DWORD grfdex
, DISPID
*pid
)
500 if(!strcmp_wa(bstrName
, "testProp")) {
501 CHECK_EXPECT(script_testprop_d
);
502 ok(grfdex
== fdexNameCaseSensitive
, "grfdex = %x\n", grfdex
);
503 *pid
= DISPID_SCRIPT_TESTPROP
;
507 if(!strcmp_wa(bstrName
, "testProp2")) {
508 CHECK_EXPECT(script_testprop2_d
);
509 ok(grfdex
== fdexNameCaseSensitive
, "grfdex = %x\n", grfdex
);
510 *pid
= DISPID_SCRIPT_TESTPROP2
;
514 if(!strcmp_wa(bstrName
, "divid")) {
515 CHECK_EXPECT(script_divid_d
);
516 ok(grfdex
== fdexNameCaseSensitive
, "grfdex = %x\n", grfdex
);
520 ok(0, "unexpected call %s\n", wine_dbgstr_w(bstrName
));
524 static HRESULT WINAPI
scriptDisp_InvokeEx(IDispatchEx
*iface
, DISPID id
, LCID lcid
, WORD wFlags
, DISPPARAMS
*pdp
,
525 VARIANT
*pvarRes
, EXCEPINFO
*pei
, IServiceProvider
*pspCaller
)
528 case DISPID_SCRIPT_TESTPROP
:
529 CHECK_EXPECT(script_testprop_i
);
531 ok(lcid
== 0, "lcid = %x\n", lcid
);
532 ok(wFlags
== DISPATCH_PROPERTYGET
, "wFlags = %x\n", wFlags
);
533 ok(pdp
!= NULL
, "pdp == NULL\n");
534 ok(pdp
->cArgs
== 0, "pdp->cArgs = %d\n", pdp
->cArgs
);
535 ok(pdp
->cNamedArgs
== 0, "pdp->cNamedArgs = %d\n", pdp
->cNamedArgs
);
536 ok(!pdp
->rgdispidNamedArgs
, "pdp->rgdispidNamedArgs != NULL\n");
537 ok(!pdp
->rgvarg
, "rgvarg != NULL\n");
538 ok(pvarRes
!= NULL
, "pvarRes == NULL\n");
539 ok(pei
!= NULL
, "pei == NULL\n");
540 ok(!pspCaller
, "pspCaller != NULL\n");
542 V_VT(pvarRes
) = VT_NULL
;
545 ok(0, "unexpected call\n");
552 static IDispatchExVtbl scriptDispVtbl
= {
553 DispatchEx_QueryInterface
,
556 DispatchEx_GetTypeInfoCount
,
557 DispatchEx_GetTypeInfo
,
558 DispatchEx_GetIDsOfNames
,
560 scriptDisp_GetDispID
,
562 DispatchEx_DeleteMemberByName
,
563 DispatchEx_DeleteMemberByDispID
,
564 DispatchEx_GetMemberProperties
,
565 DispatchEx_GetMemberName
,
566 DispatchEx_GetNextDispID
,
567 DispatchEx_GetNameSpaceParent
570 static IDispatchEx scriptDisp
= { &scriptDispVtbl
};
572 static HRESULT WINAPI
externalDisp_GetDispID(IDispatchEx
*iface
, BSTR bstrName
, DWORD grfdex
, DISPID
*pid
)
574 if(!strcmp_wa(bstrName
, "ok")) {
575 *pid
= DISPID_EXTERNAL_OK
;
578 if(!strcmp_wa(bstrName
, "trace")) {
579 *pid
= DISPID_EXTERNAL_TRACE
;
582 if(!strcmp_wa(bstrName
, "reportSuccess")) {
583 *pid
= DISPID_EXTERNAL_REPORTSUCCESS
;
586 if(!strcmp_wa(bstrName
, "todo_wine_ok")) {
587 *pid
= DISPID_EXTERNAL_TODO_WINE_OK
;
591 ok(0, "unexpected name %s\n", wine_dbgstr_w(bstrName
));
592 return DISP_E_UNKNOWNNAME
;
595 static HRESULT WINAPI
externalDisp_InvokeEx(IDispatchEx
*iface
, DISPID id
, LCID lcid
, WORD wFlags
, DISPPARAMS
*pdp
,
596 VARIANT
*pvarRes
, EXCEPINFO
*pei
, IServiceProvider
*pspCaller
)
599 case DISPID_EXTERNAL_OK
: {
602 ok(wFlags
== INVOKE_FUNC
|| wFlags
== (INVOKE_FUNC
|INVOKE_PROPERTYGET
), "wFlags = %x\n", wFlags
);
603 ok(pdp
!= NULL
, "pdp == NULL\n");
604 ok(pdp
->rgvarg
!= NULL
, "rgvarg == NULL\n");
605 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
606 ok(pdp
->cArgs
== 2, "cArgs = %d\n", pdp
->cArgs
);
607 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
608 ok(pei
!= NULL
, "pei == NULL\n");
611 if(V_VT(m
) == (VT_BYREF
|VT_VARIANT
))
613 ok(V_VT(m
) == VT_BSTR
, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp
->rgvarg
));
616 if(V_VT(b
) == (VT_BYREF
|VT_VARIANT
))
618 ok(V_VT(b
) == VT_BOOL
, "V_VT(b) = %d\n", V_VT(b
));
620 ok(V_BOOL(b
), "%s\n", wine_dbgstr_w(V_BSTR(m
)));
624 case DISPID_EXTERNAL_TRACE
:
625 ok(wFlags
== INVOKE_FUNC
, "wFlags = %x\n", wFlags
);
626 ok(pdp
!= NULL
, "pdp == NULL\n");
627 ok(pdp
->rgvarg
!= NULL
, "rgvarg == NULL\n");
628 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
629 ok(pdp
->cArgs
== 1, "cArgs = %d\n", pdp
->cArgs
);
630 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
631 ok(!pvarRes
, "pvarRes != NULL\n");
632 ok(pei
!= NULL
, "pei == NULL\n");
634 ok(V_VT(pdp
->rgvarg
) == VT_BSTR
, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp
->rgvarg
));
635 if(V_VT(pdp
->rgvarg
) == VT_BSTR
)
636 trace("%s\n", wine_dbgstr_w(V_BSTR(pdp
->rgvarg
)));
640 case DISPID_EXTERNAL_REPORTSUCCESS
:
641 CHECK_EXPECT(external_success
);
643 ok(wFlags
== INVOKE_FUNC
, "wFlags = %x\n", wFlags
);
644 ok(pdp
!= NULL
, "pdp == NULL\n");
645 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
646 ok(pdp
->cArgs
== 0, "cArgs = %d\n", pdp
->cArgs
);
647 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
648 ok(!pvarRes
, "pvarRes != NULL\n");
649 ok(pei
!= NULL
, "pei == NULL\n");
653 case DISPID_EXTERNAL_TODO_WINE_OK
:
654 ok(wFlags
== INVOKE_FUNC
|| wFlags
== (INVOKE_FUNC
|INVOKE_PROPERTYGET
), "wFlags = %x\n", wFlags
);
655 ok(pdp
!= NULL
, "pdp == NULL\n");
656 ok(pdp
->rgvarg
!= NULL
, "rgvarg == NULL\n");
657 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
658 ok(pdp
->cArgs
== 2, "cArgs = %d\n", pdp
->cArgs
);
659 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
660 ok(pei
!= NULL
, "pei == NULL\n");
662 ok(V_VT(pdp
->rgvarg
) == VT_BSTR
, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp
->rgvarg
));
663 ok(V_VT(pdp
->rgvarg
+1) == VT_BOOL
, "V_VT(psp->rgvargs+1) = %d\n", V_VT(pdp
->rgvarg
));
665 ok(V_BOOL(pdp
->rgvarg
+1), "%s\n", wine_dbgstr_w(V_BSTR(pdp
->rgvarg
)));
670 ok(0, "unexpected call\n");
677 static IDispatchExVtbl externalDispVtbl
= {
678 DispatchEx_QueryInterface
,
681 DispatchEx_GetTypeInfoCount
,
682 DispatchEx_GetTypeInfo
,
683 DispatchEx_GetIDsOfNames
,
685 externalDisp_GetDispID
,
686 externalDisp_InvokeEx
,
687 DispatchEx_DeleteMemberByName
,
688 DispatchEx_DeleteMemberByDispID
,
689 DispatchEx_GetMemberProperties
,
690 DispatchEx_GetMemberName
,
691 DispatchEx_GetNextDispID
,
692 DispatchEx_GetNameSpaceParent
695 static IDispatchEx externalDisp
= { &externalDispVtbl
};
697 static HRESULT
QueryInterface(REFIID
,void**);
699 static HRESULT WINAPI
DocHostUIHandler_QueryInterface(IDocHostUIHandler2
*iface
, REFIID riid
, void **ppv
)
701 return QueryInterface(riid
, ppv
);
704 static ULONG WINAPI
DocHostUIHandler_AddRef(IDocHostUIHandler2
*iface
)
709 static ULONG WINAPI
DocHostUIHandler_Release(IDocHostUIHandler2
*iface
)
714 static HRESULT WINAPI
DocHostUIHandler_ShowContextMenu(IDocHostUIHandler2
*iface
, DWORD dwID
, POINT
*ppt
,
715 IUnknown
*pcmdtReserved
, IDispatch
*pdicpReserved
)
720 static HRESULT WINAPI
DocHostUIHandler_GetHostInfo(IDocHostUIHandler2
*iface
, DOCHOSTUIINFO
*pInfo
)
725 static HRESULT WINAPI
DocHostUIHandler_ShowUI(IDocHostUIHandler2
*iface
, DWORD dwID
,
726 IOleInPlaceActiveObject
*pActiveObject
, IOleCommandTarget
*pCommandTarget
,
727 IOleInPlaceFrame
*pFrame
, IOleInPlaceUIWindow
*pDoc
)
732 static HRESULT WINAPI
DocHostUIHandler_HideUI(IDocHostUIHandler2
*iface
)
737 static HRESULT WINAPI
DocHostUIHandler_UpdateUI(IDocHostUIHandler2
*iface
)
742 static HRESULT WINAPI
DocHostUIHandler_EnableModeless(IDocHostUIHandler2
*iface
, BOOL fEnable
)
747 static HRESULT WINAPI
DocHostUIHandler_OnDocWindowActivate(IDocHostUIHandler2
*iface
, BOOL fActivate
)
752 static HRESULT WINAPI
DocHostUIHandler_OnFrameWindowActivate(IDocHostUIHandler2
*iface
, BOOL fActivate
)
757 static HRESULT WINAPI
DocHostUIHandler_ResizeBorder(IDocHostUIHandler2
*iface
, LPCRECT prcBorder
,
758 IOleInPlaceUIWindow
*pUIWindow
, BOOL fRameWindow
)
763 static HRESULT WINAPI
DocHostUIHandler_TranslateAccelerator(IDocHostUIHandler2
*iface
, LPMSG lpMsg
,
764 const GUID
*pguidCmdGroup
, DWORD nCmdID
)
769 static HRESULT WINAPI
DocHostUIHandler_GetOptionKeyPath(IDocHostUIHandler2
*iface
,
770 LPOLESTR
*pchKey
, DWORD dw
)
775 static HRESULT WINAPI
DocHostUIHandler_GetDropTarget(IDocHostUIHandler2
*iface
,
776 IDropTarget
*pDropTarget
, IDropTarget
**ppDropTarget
)
781 static HRESULT WINAPI
DocHostUIHandler_GetExternal(IDocHostUIHandler2
*iface
, IDispatch
**ppDispatch
)
783 *ppDispatch
= (IDispatch
*)&externalDisp
;
787 static HRESULT WINAPI
DocHostUIHandler_TranslateUrl(IDocHostUIHandler2
*iface
, DWORD dwTranslate
,
788 OLECHAR
*pchURLIn
, OLECHAR
**ppchURLOut
)
793 static HRESULT WINAPI
DocHostUIHandler_FilterDataObject(IDocHostUIHandler2
*iface
, IDataObject
*pDO
,
794 IDataObject
**ppPORet
)
799 static HRESULT WINAPI
DocHostUIHandler_GetOverrideKeyPath(IDocHostUIHandler2
*iface
,
800 LPOLESTR
*pchKey
, DWORD dw
)
805 static const IDocHostUIHandler2Vtbl DocHostUIHandlerVtbl
= {
806 DocHostUIHandler_QueryInterface
,
807 DocHostUIHandler_AddRef
,
808 DocHostUIHandler_Release
,
809 DocHostUIHandler_ShowContextMenu
,
810 DocHostUIHandler_GetHostInfo
,
811 DocHostUIHandler_ShowUI
,
812 DocHostUIHandler_HideUI
,
813 DocHostUIHandler_UpdateUI
,
814 DocHostUIHandler_EnableModeless
,
815 DocHostUIHandler_OnDocWindowActivate
,
816 DocHostUIHandler_OnFrameWindowActivate
,
817 DocHostUIHandler_ResizeBorder
,
818 DocHostUIHandler_TranslateAccelerator
,
819 DocHostUIHandler_GetOptionKeyPath
,
820 DocHostUIHandler_GetDropTarget
,
821 DocHostUIHandler_GetExternal
,
822 DocHostUIHandler_TranslateUrl
,
823 DocHostUIHandler_FilterDataObject
,
824 DocHostUIHandler_GetOverrideKeyPath
827 static IDocHostUIHandler2 DocHostUIHandler
= { &DocHostUIHandlerVtbl
};
829 static HRESULT WINAPI
InPlaceFrame_QueryInterface(IOleInPlaceFrame
*iface
, REFIID riid
, void **ppv
)
831 return E_NOINTERFACE
;
834 static ULONG WINAPI
InPlaceFrame_AddRef(IOleInPlaceFrame
*iface
)
839 static ULONG WINAPI
InPlaceFrame_Release(IOleInPlaceFrame
*iface
)
844 static HRESULT WINAPI
InPlaceFrame_GetWindow(IOleInPlaceFrame
*iface
, HWND
*phwnd
)
849 static HRESULT WINAPI
InPlaceFrame_ContextSensitiveHelp(IOleInPlaceFrame
*iface
, BOOL fEnterMode
)
854 static HRESULT WINAPI
InPlaceFrame_GetBorder(IOleInPlaceFrame
*iface
, LPRECT lprectBorder
)
859 static HRESULT WINAPI
InPlaceFrame_RequestBorderSpace(IOleInPlaceFrame
*iface
,
860 LPCBORDERWIDTHS pborderwidths
)
865 static HRESULT WINAPI
InPlaceFrame_SetBorderSpace(IOleInPlaceFrame
*iface
,
866 LPCBORDERWIDTHS pborderwidths
)
871 static HRESULT WINAPI
InPlaceFrame_SetActiveObject(IOleInPlaceFrame
*iface
,
872 IOleInPlaceActiveObject
*pActiveObject
, LPCOLESTR pszObjName
)
877 static HRESULT WINAPI
InPlaceFrame_InsertMenus(IOleInPlaceFrame
*iface
, HMENU hmenuShared
,
878 LPOLEMENUGROUPWIDTHS lpMenuWidths
)
883 static HRESULT WINAPI
InPlaceFrame_SetMenu(IOleInPlaceFrame
*iface
, HMENU hmenuShared
,
884 HOLEMENU holemenu
, HWND hwndActiveObject
)
886 ok(0, "unexpected call\n");
890 static HRESULT WINAPI
InPlaceFrame_RemoveMenus(IOleInPlaceFrame
*iface
, HMENU hmenuShared
)
892 ok(0, "unexpected call\n");
896 static HRESULT WINAPI
InPlaceFrame_SetStatusText(IOleInPlaceFrame
*iface
, LPCOLESTR pszStatusText
)
901 static HRESULT WINAPI
InPlaceFrame_EnableModeless(IOleInPlaceFrame
*iface
, BOOL fEnable
)
906 static HRESULT WINAPI
InPlaceFrame_TranslateAccelerator(IOleInPlaceFrame
*iface
, LPMSG lpmsg
, WORD wID
)
908 ok(0, "unexpected call\n");
912 static const IOleInPlaceFrameVtbl InPlaceFrameVtbl
= {
913 InPlaceFrame_QueryInterface
,
915 InPlaceFrame_Release
,
916 InPlaceFrame_GetWindow
,
917 InPlaceFrame_ContextSensitiveHelp
,
918 InPlaceFrame_GetBorder
,
919 InPlaceFrame_RequestBorderSpace
,
920 InPlaceFrame_SetBorderSpace
,
921 InPlaceFrame_SetActiveObject
,
922 InPlaceFrame_InsertMenus
,
923 InPlaceFrame_SetMenu
,
924 InPlaceFrame_RemoveMenus
,
925 InPlaceFrame_SetStatusText
,
926 InPlaceFrame_EnableModeless
,
927 InPlaceFrame_TranslateAccelerator
930 static IOleInPlaceFrame InPlaceFrame
= { &InPlaceFrameVtbl
};
932 static HRESULT WINAPI
InPlaceSite_QueryInterface(IOleInPlaceSite
*iface
, REFIID riid
, void **ppv
)
934 return QueryInterface(riid
, ppv
);
937 static ULONG WINAPI
InPlaceSite_AddRef(IOleInPlaceSite
*iface
)
942 static ULONG WINAPI
InPlaceSite_Release(IOleInPlaceSite
*iface
)
947 static HRESULT WINAPI
InPlaceSite_GetWindow(IOleInPlaceSite
*iface
, HWND
*phwnd
)
949 *phwnd
= container_hwnd
;
953 static HRESULT WINAPI
InPlaceSite_ContextSensitiveHelp(IOleInPlaceSite
*iface
, BOOL fEnterMode
)
955 ok(0, "unexpected call\n");
959 static HRESULT WINAPI
InPlaceSite_CanInPlaceActivate(IOleInPlaceSite
*iface
)
964 static HRESULT WINAPI
InPlaceSite_OnInPlaceActivate(IOleInPlaceSite
*iface
)
969 static HRESULT WINAPI
InPlaceSite_OnUIActivate(IOleInPlaceSite
*iface
)
974 static HRESULT WINAPI
InPlaceSite_GetWindowContext(IOleInPlaceSite
*iface
,
975 IOleInPlaceFrame
**ppFrame
, IOleInPlaceUIWindow
**ppDoc
, LPRECT lprcPosRect
,
976 LPRECT lprcClipRect
, LPOLEINPLACEFRAMEINFO lpFrameInfo
)
978 static const RECT rect
= {0,0,300,300};
980 *ppFrame
= &InPlaceFrame
;
981 *ppDoc
= (IOleInPlaceUIWindow
*)&InPlaceFrame
;
983 *lprcClipRect
= rect
;
985 ok(lpFrameInfo
->cb
== sizeof(*lpFrameInfo
), "lpFrameInfo->cb = %u, expected %u\n", lpFrameInfo
->cb
, (unsigned)sizeof(*lpFrameInfo
));
986 lpFrameInfo
->fMDIApp
= FALSE
;
987 lpFrameInfo
->hwndFrame
= container_hwnd
;
988 lpFrameInfo
->haccel
= NULL
;
989 lpFrameInfo
->cAccelEntries
= 0;
994 static HRESULT WINAPI
InPlaceSite_Scroll(IOleInPlaceSite
*iface
, SIZE scrollExtant
)
999 static HRESULT WINAPI
InPlaceSite_OnUIDeactivate(IOleInPlaceSite
*iface
, BOOL fUndoable
)
1004 static HRESULT WINAPI
InPlaceSite_OnInPlaceDeactivate(IOleInPlaceSite
*iface
)
1009 static HRESULT WINAPI
InPlaceSite_DiscardUndoState(IOleInPlaceSite
*iface
)
1014 static HRESULT WINAPI
InPlaceSite_DeactivateAndUndo(IOleInPlaceSite
*iface
)
1019 static HRESULT WINAPI
InPlaceSite_OnPosRectChange(IOleInPlaceSite
*iface
, LPCRECT lprcPosRect
)
1024 static const IOleInPlaceSiteVtbl InPlaceSiteVtbl
= {
1025 InPlaceSite_QueryInterface
,
1027 InPlaceSite_Release
,
1028 InPlaceSite_GetWindow
,
1029 InPlaceSite_ContextSensitiveHelp
,
1030 InPlaceSite_CanInPlaceActivate
,
1031 InPlaceSite_OnInPlaceActivate
,
1032 InPlaceSite_OnUIActivate
,
1033 InPlaceSite_GetWindowContext
,
1035 InPlaceSite_OnUIDeactivate
,
1036 InPlaceSite_OnInPlaceDeactivate
,
1037 InPlaceSite_DiscardUndoState
,
1038 InPlaceSite_DeactivateAndUndo
,
1039 InPlaceSite_OnPosRectChange
,
1042 static IOleInPlaceSite InPlaceSite
= { &InPlaceSiteVtbl
};
1044 static HRESULT WINAPI
ClientSite_QueryInterface(IOleClientSite
*iface
, REFIID riid
, void **ppv
)
1046 return QueryInterface(riid
, ppv
);
1049 static ULONG WINAPI
ClientSite_AddRef(IOleClientSite
*iface
)
1054 static ULONG WINAPI
ClientSite_Release(IOleClientSite
*iface
)
1059 static HRESULT WINAPI
ClientSite_SaveObject(IOleClientSite
*iface
)
1061 ok(0, "unexpected call\n");
1065 static HRESULT WINAPI
ClientSite_GetMoniker(IOleClientSite
*iface
, DWORD dwAssign
, DWORD dwWhichMoniker
,
1068 ok(0, "unexpected call\n");
1072 static HRESULT WINAPI
ClientSite_GetContainer(IOleClientSite
*iface
, IOleContainer
**ppContainer
)
1077 static HRESULT WINAPI
ClientSite_ShowObject(IOleClientSite
*iface
)
1079 ok(0, "unexpected call\n");
1083 static HRESULT WINAPI
ClientSite_OnShowWindow(IOleClientSite
*iface
, BOOL fShow
)
1085 ok(0, "unexpected call\n");
1089 static HRESULT WINAPI
ClientSite_RequestNewObjectLayout(IOleClientSite
*iface
)
1091 ok(0, "unexpected call\n");
1095 static const IOleClientSiteVtbl ClientSiteVtbl
= {
1096 ClientSite_QueryInterface
,
1099 ClientSite_SaveObject
,
1100 ClientSite_GetMoniker
,
1101 ClientSite_GetContainer
,
1102 ClientSite_ShowObject
,
1103 ClientSite_OnShowWindow
,
1104 ClientSite_RequestNewObjectLayout
1107 static IOleClientSite ClientSite
= { &ClientSiteVtbl
};
1109 static HRESULT WINAPI
DocumentSite_QueryInterface(IOleDocumentSite
*iface
, REFIID riid
, void **ppv
)
1111 return QueryInterface(riid
, ppv
);
1114 static ULONG WINAPI
DocumentSite_AddRef(IOleDocumentSite
*iface
)
1119 static ULONG WINAPI
DocumentSite_Release(IOleDocumentSite
*iface
)
1124 static HRESULT WINAPI
DocumentSite_ActivateMe(IOleDocumentSite
*iface
, IOleDocumentView
*pViewToActivate
)
1126 RECT rect
= {0,0,300,300};
1127 IOleDocument
*document
;
1130 hres
= IOleDocumentView_QueryInterface(pViewToActivate
, &IID_IOleDocument
, (void**)&document
);
1131 ok(hres
== S_OK
, "could not get IOleDocument: %08x\n", hres
);
1133 hres
= IOleDocument_CreateView(document
, &InPlaceSite
, NULL
, 0, &view
);
1134 IOleDocument_Release(document
);
1135 ok(hres
== S_OK
, "CreateView failed: %08x\n", hres
);
1137 hres
= IOleDocumentView_SetInPlaceSite(view
, &InPlaceSite
);
1138 ok(hres
== S_OK
, "SetInPlaceSite failed: %08x\n", hres
);
1140 hres
= IOleDocumentView_UIActivate(view
, TRUE
);
1141 ok(hres
== S_OK
, "UIActivate failed: %08x\n", hres
);
1143 hres
= IOleDocumentView_SetRect(view
, &rect
);
1144 ok(hres
== S_OK
, "SetRect failed: %08x\n", hres
);
1146 hres
= IOleDocumentView_Show(view
, TRUE
);
1147 ok(hres
== S_OK
, "Show failed: %08x\n", hres
);
1152 static const IOleDocumentSiteVtbl DocumentSiteVtbl
= {
1153 DocumentSite_QueryInterface
,
1154 DocumentSite_AddRef
,
1155 DocumentSite_Release
,
1156 DocumentSite_ActivateMe
1159 static IOleDocumentSite DocumentSite
= { &DocumentSiteVtbl
};
1161 static HRESULT
QueryInterface(REFIID riid
, void **ppv
)
1165 if(IsEqualGUID(&IID_IUnknown
, riid
) || IsEqualGUID(&IID_IOleClientSite
, riid
))
1167 else if(IsEqualGUID(&IID_IOleDocumentSite
, riid
))
1168 *ppv
= &DocumentSite
;
1169 else if(IsEqualGUID(&IID_IOleWindow
, riid
) || IsEqualGUID(&IID_IOleInPlaceSite
, riid
))
1170 *ppv
= &InPlaceSite
;
1171 else if(IsEqualGUID(&IID_IDocHostUIHandler
, riid
) || IsEqualGUID(&IID_IDocHostUIHandler2
, riid
))
1172 *ppv
= &DocHostUIHandler
;
1174 return *ppv
? S_OK
: E_NOINTERFACE
;
1177 static IHTMLDocument2
*create_document(void)
1179 IHTMLDocument2
*doc
;
1180 IHTMLDocument5
*doc5
;
1183 hres
= CoCreateInstance(&CLSID_HTMLDocument
, NULL
, CLSCTX_INPROC_SERVER
|CLSCTX_INPROC_HANDLER
,
1184 &IID_IHTMLDocument2
, (void**)&doc
);
1185 ok(hres
== S_OK
, "CoCreateInstance failed: %08x\n", hres
);
1186 if (hres
!= S_OK
) return NULL
;
1188 hres
= IHTMLDocument2_QueryInterface(doc
, &IID_IHTMLDocument5
, (void**)&doc5
);
1190 win_skip("Could not get IHTMLDocument5, probably too old IE\n");
1191 IHTMLDocument2_Release(doc
);
1195 IHTMLDocument5_Release(doc5
);
1199 static void load_string(IHTMLDocument2
*doc
, const char *str
)
1201 IPersistStreamInit
*init
;
1206 doc_complete
= FALSE
;
1208 mem
= GlobalAlloc(0, len
);
1209 memcpy(mem
, str
, len
);
1210 CreateStreamOnHGlobal(mem
, TRUE
, &stream
);
1212 IHTMLDocument2_QueryInterface(doc
, &IID_IPersistStreamInit
, (void**)&init
);
1214 IPersistStreamInit_Load(init
, stream
);
1215 IPersistStreamInit_Release(init
);
1216 IStream_Release(stream
);
1219 static void do_advise(IHTMLDocument2
*doc
, REFIID riid
, IUnknown
*unk_advise
)
1221 IConnectionPointContainer
*container
;
1222 IConnectionPoint
*cp
;
1226 hres
= IHTMLDocument2_QueryInterface(doc
, &IID_IConnectionPointContainer
, (void**)&container
);
1227 ok(hres
== S_OK
, "QueryInterface(IID_IConnectionPointContainer) failed: %08x\n", hres
);
1229 hres
= IConnectionPointContainer_FindConnectionPoint(container
, riid
, &cp
);
1230 IConnectionPointContainer_Release(container
);
1231 ok(hres
== S_OK
, "FindConnectionPoint failed: %08x\n", hres
);
1235 hres
= IConnectionPoint_Advise(cp
, unk_advise
, &cookie
);
1236 IConnectionPoint_Release(cp
);
1237 ok(hres
== S_OK
, "Advise failed: %08x\n", hres
);
1240 static void set_client_site(IHTMLDocument2
*doc
, BOOL set
)
1246 IOleDocumentView_Show(view
, FALSE
);
1247 IOleDocumentView_CloseView(view
, 0);
1248 IOleDocumentView_SetInPlaceSite(view
, NULL
);
1249 IOleDocumentView_Release(view
);
1253 hres
= IHTMLDocument2_QueryInterface(doc
, &IID_IOleObject
, (void**)&oleobj
);
1254 ok(hres
== S_OK
, "Could not et IOleObject: %08x\n", hres
);
1256 hres
= IOleObject_SetClientSite(oleobj
, set
? &ClientSite
: NULL
);
1257 ok(hres
== S_OK
, "SetClientSite failed: %08x\n", hres
);
1260 IHlinkTarget
*hlink
;
1262 hres
= IOleObject_QueryInterface(oleobj
, &IID_IHlinkTarget
, (void**)&hlink
);
1263 ok(hres
== S_OK
, "Could not get IHlinkTarget iface: %08x\n", hres
);
1265 hres
= IHlinkTarget_Navigate(hlink
, 0, NULL
);
1266 ok(hres
== S_OK
, "Navgate failed: %08x\n", hres
);
1268 IHlinkTarget_Release(hlink
);
1271 IOleObject_Release(oleobj
);
1274 typedef void (*domtest_t
)(IHTMLDocument2
*);
1276 static void load_doc(IHTMLDocument2
*doc
, const char *str
)
1278 IHTMLElement
*body
= NULL
;
1281 static const WCHAR ucPtr
[] = {'b','a','c','k','g','r','o','u','n','d',0};
1285 load_string(doc
, str
);
1286 do_advise(doc
, &IID_IPropertyNotifySink
, (IUnknown
*)&PropertyNotifySink
);
1288 while(!doc_complete
&& GetMessage(&msg
, NULL
, 0, 0)) {
1289 TranslateMessage(&msg
);
1290 DispatchMessage(&msg
);
1293 hres
= IHTMLDocument2_get_body(doc
, &body
);
1294 ok(hres
== S_OK
, "get_body failed: %08x\n", hres
);
1296 /* Check we can query for function on the IHTMLElementBody interface */
1297 name
= (WCHAR
*)ucPtr
;
1298 hres
= IHTMLElement_GetIDsOfNames(body
, &IID_NULL
, &name
, 1, LOCALE_USER_DEFAULT
, &dispID
);
1299 ok(hres
== S_OK
, "GetIDsOfNames(background) failed %08x\n", hres
);
1300 ok(dispID
== DISPID_IHTMLBODYELEMENT_BACKGROUND
, "Incorrect dispID got (%d)\n", dispID
);
1302 IHTMLElement_Release(body
);
1305 static IActiveScriptSite
*site
;
1306 static SCRIPTSTATE state
;
1308 static HRESULT WINAPI
ObjectSafety_QueryInterface(IObjectSafety
*iface
, REFIID riid
, void **ppv
)
1311 ok(0, "unexpected call %s\n", debugstr_guid(riid
));
1312 return E_NOINTERFACE
;
1315 static ULONG WINAPI
ObjectSafety_AddRef(IObjectSafety
*iface
)
1320 static ULONG WINAPI
ObjectSafety_Release(IObjectSafety
*iface
)
1325 static HRESULT WINAPI
ObjectSafety_GetInterfaceSafetyOptions(IObjectSafety
*iface
, REFIID riid
,
1326 DWORD
*pdwSupportedOptions
, DWORD
*pdwEnabledOptions
)
1328 CHECK_EXPECT(GetInterfaceSafetyOptions
);
1330 ok(IsEqualGUID(&IID_IActiveScriptParse
, riid
), "unexpected riid %s\n", debugstr_guid(riid
));
1331 ok(pdwSupportedOptions
!= NULL
, "pdwSupportedOptions == NULL\n");
1332 ok(pdwEnabledOptions
!= NULL
, "pdwEnabledOptions == NULL\n");
1334 *pdwSupportedOptions
= INTERFACESAFE_FOR_UNTRUSTED_DATA
|INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
;
1335 *pdwEnabledOptions
= INTERFACE_USES_DISPEX
;
1340 static HRESULT WINAPI
ObjectSafety_SetInterfaceSafetyOptions(IObjectSafety
*iface
, REFIID riid
,
1341 DWORD dwOptionSetMask
, DWORD dwEnabledOptions
)
1343 CHECK_EXPECT(SetInterfaceSafetyOptions
);
1345 ok(IsEqualGUID(&IID_IActiveScriptParse
, riid
), "unexpected riid %s\n", debugstr_guid(riid
));
1347 ok(dwOptionSetMask
== (INTERFACESAFE_FOR_UNTRUSTED_DATA
|INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
),
1348 "dwOptionSetMask=%x\n", dwOptionSetMask
);
1349 ok(dwEnabledOptions
== (INTERFACESAFE_FOR_UNTRUSTED_DATA
|INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
),
1350 "dwEnabledOptions=%x\n", dwOptionSetMask
);
1355 static const IObjectSafetyVtbl ObjectSafetyVtbl
= {
1356 ObjectSafety_QueryInterface
,
1357 ObjectSafety_AddRef
,
1358 ObjectSafety_Release
,
1359 ObjectSafety_GetInterfaceSafetyOptions
,
1360 ObjectSafety_SetInterfaceSafetyOptions
1363 static IObjectSafety ObjectSafety
= { &ObjectSafetyVtbl
};
1365 static HRESULT WINAPI
AXObjectSafety_QueryInterface(IObjectSafety
*iface
, REFIID riid
, void **ppv
)
1369 if(IsEqualGUID(&IID_IActiveScript
, riid
)) {
1370 CHECK_EXPECT(AXQueryInterface_IActiveScript
);
1371 return E_NOINTERFACE
;
1374 if(IsEqualGUID(&IID_IObjectSafety
, riid
)) {
1375 CHECK_EXPECT2(AXQueryInterface_IObjectSafety
);
1377 return E_NOINTERFACE
;
1382 ok(0, "unexpected call %s\n", debugstr_guid(riid
));
1383 return E_NOINTERFACE
;
1386 static HRESULT WINAPI
AXObjectSafety_GetInterfaceSafetyOptions(IObjectSafety
*iface
, REFIID riid
,
1387 DWORD
*pdwSupportedOptions
, DWORD
*pdwEnabledOptions
)
1389 CHECK_EXPECT(AXGetInterfaceSafetyOptions
);
1391 ok(IsEqualGUID(&IID_IDispatchEx
, riid
), "unexpected riid %s\n", debugstr_guid(riid
));
1392 ok(pdwSupportedOptions
!= NULL
, "pdwSupportedOptions == NULL\n");
1393 ok(pdwEnabledOptions
!= NULL
, "pdwEnabledOptions == NULL\n");
1395 if(SUCCEEDED(ax_getopt_hres
)) {
1396 *pdwSupportedOptions
= INTERFACESAFE_FOR_UNTRUSTED_DATA
|INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
;
1397 *pdwEnabledOptions
= INTERFACE_USES_DISPEX
;
1400 return ax_getopt_hres
;
1403 static HRESULT WINAPI
AXObjectSafety_SetInterfaceSafetyOptions(IObjectSafety
*iface
, REFIID riid
,
1404 DWORD dwOptionSetMask
, DWORD dwEnabledOptions
)
1406 if(IsEqualGUID(&IID_IDispatchEx
, riid
)) {
1407 switch(dwEnabledOptions
) {
1408 case INTERFACESAFE_FOR_UNTRUSTED_CALLER
|INTERFACE_USES_SECURITY_MANAGER
:
1409 CHECK_EXPECT(AXSetInterfaceSafetyOptions_IDispatchEx_caller_secmgr
);
1411 case INTERFACESAFE_FOR_UNTRUSTED_CALLER
:
1412 CHECK_EXPECT(AXSetInterfaceSafetyOptions_IDispatchEx_caller
);
1415 ok(0, "unexpected dwEnabledOptions %x\n", dwEnabledOptions
);
1418 ok(dwOptionSetMask
== dwEnabledOptions
, "dwOptionSetMask=%x, expected %x\n", dwOptionSetMask
, dwEnabledOptions
);
1419 return ax_setopt_dispex_hres
;
1422 if(IsEqualGUID(&IID_IDispatch
, riid
)) {
1425 switch(dwEnabledOptions
) {
1426 case INTERFACESAFE_FOR_UNTRUSTED_CALLER
:
1427 CHECK_EXPECT(AXSetInterfaceSafetyOptions_IDispatch_caller
);
1428 hres
= ax_setopt_disp_caller_hres
;
1430 case INTERFACESAFE_FOR_UNTRUSTED_DATA
:
1431 CHECK_EXPECT(AXSetInterfaceSafetyOptions_IDispatch_data
);
1432 hres
= ax_setopt_disp_data_hres
;
1435 ok(0, "unexpected dwEnabledOptions %x\n", dwEnabledOptions
);
1438 ok(dwOptionSetMask
== dwEnabledOptions
, "dwOptionSetMask=%x, expected %x\n", dwOptionSetMask
, dwEnabledOptions
);
1442 ok(0, "unexpected riid %s\n", debugstr_guid(riid
));
1443 return E_NOINTERFACE
;
1446 static const IObjectSafetyVtbl AXObjectSafetyVtbl
= {
1447 AXObjectSafety_QueryInterface
,
1448 ObjectSafety_AddRef
,
1449 ObjectSafety_Release
,
1450 AXObjectSafety_GetInterfaceSafetyOptions
,
1451 AXObjectSafety_SetInterfaceSafetyOptions
1454 static IObjectSafety AXObjectSafety
= { &AXObjectSafetyVtbl
};
1456 static BOOL
set_safe_reg(BOOL safe_call
, BOOL safe_data
)
1458 return init_key("CLSID\\"TESTACTIVEX_CLSID
"\\Implemented Categories\\{7dd95801-9882-11cf-9fa9-00aa006c42c4}",
1460 && init_key("CLSID\\"TESTACTIVEX_CLSID
"\\Implemented Categories\\{7dd95802-9882-11cf-9fa9-00aa006c42c4}",
1464 #define check_custom_policy(a,b,c,d) _check_custom_policy(__LINE__,a,b,c,d)
1465 static void _check_custom_policy(unsigned line
, HRESULT hres
, BYTE
*ppolicy
, DWORD policy_size
, DWORD expolicy
)
1467 ok_(__FILE__
,line
)(hres
== S_OK
, "QueryCusromPolicy failed: %08x\n", hres
);
1468 ok_(__FILE__
,line
)(policy_size
== sizeof(DWORD
), "policy_size = %d\n", policy_size
);
1469 ok_(__FILE__
,line
)(*(DWORD
*)ppolicy
== expolicy
, "policy = %x, expected %x\n", *(DWORD
*)ppolicy
, expolicy
);
1470 CoTaskMemFree(ppolicy
);
1473 static void test_security_reg(IInternetHostSecurityManager
*sec_mgr
, DWORD policy_caller
, DWORD policy_load
)
1475 struct CONFIRMSAFETY cs
;
1480 cs
.clsid
= CLSID_TestActiveX
;
1481 cs
.pUnk
= (IUnknown
*)&AXObjectSafety
;
1485 SET_EXPECT(AXQueryInterface_IActiveScript
);
1486 SET_EXPECT(AXQueryInterface_IObjectSafety
);
1487 hres
= IInternetHostSecurityManager_QueryCustomPolicy(sec_mgr
, &GUID_CUSTOM_CONFIRMOBJECTSAFETY
,
1488 &ppolicy
, &policy_size
, (BYTE
*)&cs
, sizeof(cs
), 0);
1489 CHECK_CALLED(AXQueryInterface_IActiveScript
);
1490 CHECK_CALLED(AXQueryInterface_IObjectSafety
);
1491 check_custom_policy(hres
, ppolicy
, policy_size
, policy_caller
);
1494 SET_EXPECT(AXQueryInterface_IActiveScript
);
1495 SET_EXPECT(AXQueryInterface_IObjectSafety
);
1496 SET_EXPECT(AXGetInterfaceSafetyOptions
);
1497 SET_EXPECT(AXSetInterfaceSafetyOptions_IDispatchEx_caller_secmgr
);
1498 hres
= IInternetHostSecurityManager_QueryCustomPolicy(sec_mgr
, &GUID_CUSTOM_CONFIRMOBJECTSAFETY
,
1499 &ppolicy
, &policy_size
, (BYTE
*)&cs
, sizeof(cs
), 0);
1500 CHECK_CALLED(AXQueryInterface_IActiveScript
);
1501 CHECK_CALLED(AXQueryInterface_IObjectSafety
);
1502 CHECK_CALLED(AXGetInterfaceSafetyOptions
);
1503 CHECK_CALLED(AXSetInterfaceSafetyOptions_IDispatchEx_caller_secmgr
);
1504 check_custom_policy(hres
, ppolicy
, policy_size
, URLPOLICY_ALLOW
);
1506 if(skip_loadobject_tests
)
1509 cs
.dwFlags
= CONFIRMSAFETYACTION_LOADOBJECT
;
1511 SET_EXPECT(AXQueryInterface_IActiveScript
);
1512 SET_EXPECT(AXQueryInterface_IObjectSafety
);
1513 hres
= IInternetHostSecurityManager_QueryCustomPolicy(sec_mgr
, &GUID_CUSTOM_CONFIRMOBJECTSAFETY
,
1514 &ppolicy
, &policy_size
, (BYTE
*)&cs
, sizeof(cs
), 0);
1515 CHECK_CALLED(AXQueryInterface_IActiveScript
);
1516 CHECK_CALLED(AXQueryInterface_IObjectSafety
);
1517 check_custom_policy(hres
, ppolicy
, policy_size
, policy_load
);
1520 SET_EXPECT(AXQueryInterface_IActiveScript
);
1521 SET_EXPECT(AXQueryInterface_IObjectSafety
);
1522 SET_EXPECT(AXGetInterfaceSafetyOptions
);
1523 SET_EXPECT(AXSetInterfaceSafetyOptions_IDispatchEx_caller_secmgr
);
1524 SET_EXPECT(AXSetInterfaceSafetyOptions_IDispatch_data
);
1525 hres
= IInternetHostSecurityManager_QueryCustomPolicy(sec_mgr
, &GUID_CUSTOM_CONFIRMOBJECTSAFETY
,
1526 &ppolicy
, &policy_size
, (BYTE
*)&cs
, sizeof(cs
), 0);
1527 CHECK_CALLED(AXQueryInterface_IActiveScript
);
1528 CHECK_CALLED(AXQueryInterface_IObjectSafety
);
1529 CHECK_CALLED(AXGetInterfaceSafetyOptions
);
1530 CHECK_CALLED(AXSetInterfaceSafetyOptions_IDispatchEx_caller_secmgr
);
1531 CHECK_CALLED(AXSetInterfaceSafetyOptions_IDispatch_data
);
1532 check_custom_policy(hres
, ppolicy
, policy_size
, URLPOLICY_ALLOW
);
1535 static void test_security(void)
1537 IInternetHostSecurityManager
*sec_mgr
;
1538 IServiceProvider
*sp
;
1539 DWORD policy
, policy_size
;
1540 struct CONFIRMSAFETY cs
;
1544 hres
= IActiveScriptSite_QueryInterface(site
, &IID_IServiceProvider
, (void**)&sp
);
1545 ok(hres
== S_OK
, "Could not get IServiceProvider iface: %08x\n", hres
);
1547 hres
= IServiceProvider_QueryService(sp
, &SID_SInternetHostSecurityManager
,
1548 &IID_IInternetHostSecurityManager
, (void**)&sec_mgr
);
1549 IServiceProvider_Release(sp
);
1550 ok(hres
== S_OK
, "QueryService failed: %08x\n", hres
);
1552 hres
= IInternetHostSecurityManager_ProcessUrlAction(sec_mgr
, URLACTION_ACTIVEX_RUN
, (BYTE
*)&policy
, sizeof(policy
),
1553 (BYTE
*)&CLSID_TestActiveX
, sizeof(CLSID
), 0, 0);
1554 ok(hres
== S_OK
, "ProcessUrlAction failed: %08x\n", hres
);
1555 ok(policy
== URLPOLICY_ALLOW
, "policy = %x\n", policy
);
1557 cs
.clsid
= CLSID_TestActiveX
;
1558 cs
.pUnk
= (IUnknown
*)&AXObjectSafety
;
1562 SET_EXPECT(AXQueryInterface_IActiveScript
);
1563 SET_EXPECT(AXQueryInterface_IObjectSafety
);
1564 SET_EXPECT(AXGetInterfaceSafetyOptions
);
1565 SET_EXPECT(AXSetInterfaceSafetyOptions_IDispatchEx_caller_secmgr
);
1566 hres
= IInternetHostSecurityManager_QueryCustomPolicy(sec_mgr
, &GUID_CUSTOM_CONFIRMOBJECTSAFETY
,
1567 &ppolicy
, &policy_size
, (BYTE
*)&cs
, sizeof(cs
), 0);
1568 CHECK_CALLED(AXQueryInterface_IActiveScript
);
1569 CHECK_CALLED(AXQueryInterface_IObjectSafety
);
1570 CHECK_CALLED(AXGetInterfaceSafetyOptions
);
1571 CHECK_CALLED(AXSetInterfaceSafetyOptions_IDispatchEx_caller_secmgr
);
1572 check_custom_policy(hres
, ppolicy
, policy_size
, URLPOLICY_ALLOW
);
1574 cs
.dwFlags
= CONFIRMSAFETYACTION_LOADOBJECT
;
1575 SET_EXPECT(AXQueryInterface_IActiveScript
);
1576 SET_EXPECT(AXQueryInterface_IObjectSafety
);
1577 SET_EXPECT(AXGetInterfaceSafetyOptions
);
1578 SET_EXPECT(AXSetInterfaceSafetyOptions_IDispatchEx_caller_secmgr
);
1579 SET_EXPECT(AXSetInterfaceSafetyOptions_IDispatch_data
);
1580 hres
= IInternetHostSecurityManager_QueryCustomPolicy(sec_mgr
, &GUID_CUSTOM_CONFIRMOBJECTSAFETY
,
1581 &ppolicy
, &policy_size
, (BYTE
*)&cs
, sizeof(cs
), 0);
1582 CHECK_CALLED(AXQueryInterface_IActiveScript
);
1583 CHECK_CALLED(AXQueryInterface_IObjectSafety
);
1584 CHECK_CALLED(AXGetInterfaceSafetyOptions
);
1585 CHECK_CALLED(AXSetInterfaceSafetyOptions_IDispatchEx_caller_secmgr
);
1586 if(called_AXSetInterfaceSafetyOptions_IDispatch_data
) {
1587 CHECK_CALLED(AXSetInterfaceSafetyOptions_IDispatch_data
);
1589 win_skip("CONFIRMSAFETYACTION_LOADOBJECT flag not supported\n");
1590 skip_loadobject_tests
= TRUE
;
1591 CLEAR_CALLED(AXSetInterfaceSafetyOptions_IDispatch_data
);
1593 check_custom_policy(hres
, ppolicy
, policy_size
, URLPOLICY_ALLOW
);
1597 SET_EXPECT(AXQueryInterface_IActiveScript
);
1598 SET_EXPECT(AXQueryInterface_IObjectSafety
);
1599 hres
= IInternetHostSecurityManager_QueryCustomPolicy(sec_mgr
, &GUID_CUSTOM_CONFIRMOBJECTSAFETY
,
1600 &ppolicy
, &policy_size
, (BYTE
*)&cs
, sizeof(cs
), 0);
1601 CHECK_CALLED(AXQueryInterface_IActiveScript
);
1602 CHECK_CALLED(AXQueryInterface_IObjectSafety
);
1603 check_custom_policy(hres
, ppolicy
, policy_size
, URLPOLICY_DISALLOW
);
1605 if(!skip_loadobject_tests
) {
1606 cs
.dwFlags
= CONFIRMSAFETYACTION_LOADOBJECT
;
1608 SET_EXPECT(AXQueryInterface_IActiveScript
);
1609 SET_EXPECT(AXQueryInterface_IObjectSafety
);
1610 hres
= IInternetHostSecurityManager_QueryCustomPolicy(sec_mgr
, &GUID_CUSTOM_CONFIRMOBJECTSAFETY
,
1611 &ppolicy
, &policy_size
, (BYTE
*)&cs
, sizeof(cs
), 0);
1612 CHECK_CALLED(AXQueryInterface_IActiveScript
);
1613 CHECK_CALLED(AXQueryInterface_IObjectSafety
);
1614 check_custom_policy(hres
, ppolicy
, policy_size
, URLPOLICY_DISALLOW
);
1617 if(set_safe_reg(TRUE
, FALSE
)) {
1618 test_security_reg(sec_mgr
, URLPOLICY_ALLOW
, URLPOLICY_DISALLOW
);
1620 set_safe_reg(FALSE
, TRUE
);
1621 test_security_reg(sec_mgr
, URLPOLICY_DISALLOW
, URLPOLICY_DISALLOW
);
1623 set_safe_reg(TRUE
, TRUE
);
1624 test_security_reg(sec_mgr
, URLPOLICY_ALLOW
, URLPOLICY_ALLOW
);
1626 set_safe_reg(FALSE
, FALSE
);
1628 skip("Could not set safety registry\n");
1634 ax_setopt_dispex_hres
= E_NOINTERFACE
;
1635 SET_EXPECT(AXQueryInterface_IActiveScript
);
1636 SET_EXPECT(AXQueryInterface_IObjectSafety
);
1637 SET_EXPECT(AXGetInterfaceSafetyOptions
);
1638 SET_EXPECT(AXSetInterfaceSafetyOptions_IDispatchEx_caller_secmgr
);
1639 SET_EXPECT(AXSetInterfaceSafetyOptions_IDispatch_caller
);
1640 hres
= IInternetHostSecurityManager_QueryCustomPolicy(sec_mgr
, &GUID_CUSTOM_CONFIRMOBJECTSAFETY
,
1641 &ppolicy
, &policy_size
, (BYTE
*)&cs
, sizeof(cs
), 0);
1642 CHECK_CALLED(AXQueryInterface_IActiveScript
);
1643 CHECK_CALLED(AXQueryInterface_IObjectSafety
);
1644 CHECK_CALLED(AXGetInterfaceSafetyOptions
);
1645 CHECK_CALLED(AXSetInterfaceSafetyOptions_IDispatchEx_caller_secmgr
);
1646 CHECK_CALLED(AXSetInterfaceSafetyOptions_IDispatch_caller
);
1647 check_custom_policy(hres
, ppolicy
, policy_size
, URLPOLICY_ALLOW
);
1649 ax_setopt_dispex_hres
= E_FAIL
;
1650 ax_setopt_disp_caller_hres
= E_NOINTERFACE
;
1651 SET_EXPECT(AXQueryInterface_IActiveScript
);
1652 SET_EXPECT(AXQueryInterface_IObjectSafety
);
1653 SET_EXPECT(AXGetInterfaceSafetyOptions
);
1654 SET_EXPECT(AXSetInterfaceSafetyOptions_IDispatchEx_caller_secmgr
);
1655 SET_EXPECT(AXSetInterfaceSafetyOptions_IDispatch_caller
);
1656 hres
= IInternetHostSecurityManager_QueryCustomPolicy(sec_mgr
, &GUID_CUSTOM_CONFIRMOBJECTSAFETY
,
1657 &ppolicy
, &policy_size
, (BYTE
*)&cs
, sizeof(cs
), 0);
1658 CHECK_CALLED(AXQueryInterface_IActiveScript
);
1659 CHECK_CALLED(AXQueryInterface_IObjectSafety
);
1660 CHECK_CALLED(AXGetInterfaceSafetyOptions
);
1661 CHECK_CALLED(AXSetInterfaceSafetyOptions_IDispatchEx_caller_secmgr
);
1662 CHECK_CALLED(AXSetInterfaceSafetyOptions_IDispatch_caller
);
1663 check_custom_policy(hres
, ppolicy
, policy_size
, URLPOLICY_DISALLOW
);
1665 if(!skip_loadobject_tests
) {
1666 cs
.dwFlags
= CONFIRMSAFETYACTION_LOADOBJECT
;
1667 ax_setopt_dispex_hres
= E_FAIL
;
1668 ax_setopt_disp_caller_hres
= E_NOINTERFACE
;
1669 SET_EXPECT(AXQueryInterface_IActiveScript
);
1670 SET_EXPECT(AXQueryInterface_IObjectSafety
);
1671 SET_EXPECT(AXGetInterfaceSafetyOptions
);
1672 SET_EXPECT(AXSetInterfaceSafetyOptions_IDispatchEx_caller_secmgr
);
1673 SET_EXPECT(AXSetInterfaceSafetyOptions_IDispatch_caller
);
1674 hres
= IInternetHostSecurityManager_QueryCustomPolicy(sec_mgr
, &GUID_CUSTOM_CONFIRMOBJECTSAFETY
,
1675 &ppolicy
, &policy_size
, (BYTE
*)&cs
, sizeof(cs
), 0);
1676 CHECK_CALLED(AXQueryInterface_IActiveScript
);
1677 CHECK_CALLED(AXQueryInterface_IObjectSafety
);
1678 CHECK_CALLED(AXGetInterfaceSafetyOptions
);
1679 CHECK_CALLED(AXSetInterfaceSafetyOptions_IDispatchEx_caller_secmgr
);
1680 CHECK_CALLED(AXSetInterfaceSafetyOptions_IDispatch_caller
);
1681 check_custom_policy(hres
, ppolicy
, policy_size
, URLPOLICY_DISALLOW
);
1685 ax_setopt_dispex_hres
= E_FAIL
;
1686 ax_setopt_disp_caller_hres
= S_OK
;
1687 ax_getopt_hres
= E_NOINTERFACE
;
1688 SET_EXPECT(AXQueryInterface_IActiveScript
);
1689 SET_EXPECT(AXQueryInterface_IObjectSafety
);
1690 SET_EXPECT(AXGetInterfaceSafetyOptions
);
1691 SET_EXPECT(AXSetInterfaceSafetyOptions_IDispatchEx_caller
);
1692 SET_EXPECT(AXSetInterfaceSafetyOptions_IDispatch_caller
);
1693 hres
= IInternetHostSecurityManager_QueryCustomPolicy(sec_mgr
, &GUID_CUSTOM_CONFIRMOBJECTSAFETY
,
1694 &ppolicy
, &policy_size
, (BYTE
*)&cs
, sizeof(cs
), 0);
1695 CHECK_CALLED(AXQueryInterface_IActiveScript
);
1696 CHECK_CALLED(AXQueryInterface_IObjectSafety
);
1697 CHECK_CALLED(AXGetInterfaceSafetyOptions
);
1698 CHECK_CALLED(AXSetInterfaceSafetyOptions_IDispatchEx_caller
);
1699 CHECK_CALLED(AXSetInterfaceSafetyOptions_IDispatch_caller
);
1700 check_custom_policy(hres
, ppolicy
, policy_size
, URLPOLICY_ALLOW
);
1702 if(!skip_loadobject_tests
) {
1703 cs
.dwFlags
= CONFIRMSAFETYACTION_LOADOBJECT
;
1704 ax_setopt_dispex_hres
= E_FAIL
;
1705 ax_setopt_disp_caller_hres
= S_OK
;
1706 ax_setopt_disp_data_hres
= E_FAIL
;
1707 ax_getopt_hres
= E_NOINTERFACE
;
1708 SET_EXPECT(AXQueryInterface_IActiveScript
);
1709 SET_EXPECT(AXQueryInterface_IObjectSafety
);
1710 SET_EXPECT(AXGetInterfaceSafetyOptions
);
1711 SET_EXPECT(AXSetInterfaceSafetyOptions_IDispatchEx_caller
);
1712 SET_EXPECT(AXSetInterfaceSafetyOptions_IDispatch_caller
);
1713 SET_EXPECT(AXSetInterfaceSafetyOptions_IDispatch_data
);
1714 hres
= IInternetHostSecurityManager_QueryCustomPolicy(sec_mgr
, &GUID_CUSTOM_CONFIRMOBJECTSAFETY
,
1715 &ppolicy
, &policy_size
, (BYTE
*)&cs
, sizeof(cs
), 0);
1716 CHECK_CALLED(AXQueryInterface_IActiveScript
);
1717 CHECK_CALLED(AXQueryInterface_IObjectSafety
);
1718 CHECK_CALLED(AXGetInterfaceSafetyOptions
);
1719 CHECK_CALLED(AXSetInterfaceSafetyOptions_IDispatchEx_caller
);
1720 CHECK_CALLED(AXSetInterfaceSafetyOptions_IDispatch_caller
);
1721 CHECK_CALLED(AXSetInterfaceSafetyOptions_IDispatch_data
);
1722 check_custom_policy(hres
, ppolicy
, policy_size
, URLPOLICY_DISALLOW
);
1725 IInternetHostSecurityManager_Release(sec_mgr
);
1728 static HRESULT WINAPI
ActiveScriptProperty_QueryInterface(IActiveScriptProperty
*iface
, REFIID riid
, void **ppv
)
1731 ok(0, "unexpected call\n");
1732 return E_NOINTERFACE
;
1735 static ULONG WINAPI
ActiveScriptProperty_AddRef(IActiveScriptProperty
*iface
)
1740 static ULONG WINAPI
ActiveScriptProperty_Release(IActiveScriptProperty
*iface
)
1745 static HRESULT WINAPI
ActiveScriptProperty_GetProperty(IActiveScriptProperty
*iface
, DWORD dwProperty
,
1746 VARIANT
*pvarIndex
, VARIANT
*pvarValue
)
1748 ok(0, "unexpected call\n");
1752 static HRESULT WINAPI
ActiveScriptProperty_SetProperty(IActiveScriptProperty
*iface
, DWORD dwProperty
,
1753 VARIANT
*pvarIndex
, VARIANT
*pvarValue
)
1755 switch(dwProperty
) {
1756 case SCRIPTPROP_HACK_TRIDENTEVENTSINK
:
1757 CHECK_EXPECT(SetProperty_HACK_TRIDENTEVENTSINK
);
1758 ok(V_VT(pvarValue
) == VT_BOOL
, "V_VT(pvarValue)=%d\n", V_VT(pvarValue
));
1759 ok(V_BOOL(pvarValue
) == VARIANT_TRUE
, "V_BOOL(pvarValue)=%x\n", V_BOOL(pvarValue
));
1761 case SCRIPTPROP_INVOKEVERSIONING
:
1762 CHECK_EXPECT(SetProperty_INVOKEVERSIONING
);
1763 ok(V_VT(pvarValue
) == VT_I4
, "V_VT(pvarValue)=%d\n", V_VT(pvarValue
));
1764 ok(V_I4(pvarValue
) == 1, "V_I4(pvarValue)=%d\n", V_I4(pvarValue
));
1766 case SCRIPTPROP_ABBREVIATE_GLOBALNAME_RESOLUTION
:
1767 CHECK_EXPECT(SetProperty_ABBREVIATE_GLOBALNAME_RESOLUTION
);
1768 ok(V_VT(pvarValue
) == VT_BOOL
, "V_VT(pvarValue)=%d\n", V_VT(pvarValue
));
1769 ok(V_BOOL(pvarValue
) == VARIANT_TRUE
, "V_BOOL(pvarValue)=%x\n", V_BOOL(pvarValue
));
1771 case 0x70000003: /* Undocumented property set by IE10 */
1774 ok(0, "unexpected property %x\n", dwProperty
);
1778 ok(!pvarIndex
, "pvarIndex != NULL\n");
1779 ok(pvarValue
!= NULL
, "pvarValue == NULL\n");
1784 static const IActiveScriptPropertyVtbl ActiveScriptPropertyVtbl
= {
1785 ActiveScriptProperty_QueryInterface
,
1786 ActiveScriptProperty_AddRef
,
1787 ActiveScriptProperty_Release
,
1788 ActiveScriptProperty_GetProperty
,
1789 ActiveScriptProperty_SetProperty
1792 static IActiveScriptProperty ActiveScriptProperty
= { &ActiveScriptPropertyVtbl
};
1794 static HRESULT WINAPI
ActiveScriptParseProcedure_QueryInterface(IActiveScriptParseProcedure2
*iface
, REFIID riid
, void **ppv
)
1797 ok(0, "unexpected call\n");
1798 return E_NOINTERFACE
;
1801 static ULONG WINAPI
ActiveScriptParseProcedure_AddRef(IActiveScriptParseProcedure2
*iface
)
1806 static ULONG WINAPI
ActiveScriptParseProcedure_Release(IActiveScriptParseProcedure2
*iface
)
1811 static HRESULT WINAPI
ActiveScriptParseProcedure_ParseProcedureText(IActiveScriptParseProcedure2
*iface
,
1812 LPCOLESTR pstrCode
, LPCOLESTR pstrFormalParams
, LPCOLESTR pstrProcedureName
,
1813 LPCOLESTR pstrItemName
, IUnknown
*punkContext
, LPCOLESTR pstrDelimiter
,
1814 CTXARG_T dwSourceContextCookie
, ULONG ulStartingLineNumber
, DWORD dwFlags
, IDispatch
**ppdisp
)
1816 ok(0, "unexpected call\n");
1820 static const IActiveScriptParseProcedure2Vtbl ActiveScriptParseProcedureVtbl
= {
1821 ActiveScriptParseProcedure_QueryInterface
,
1822 ActiveScriptParseProcedure_AddRef
,
1823 ActiveScriptParseProcedure_Release
,
1824 ActiveScriptParseProcedure_ParseProcedureText
1827 static IActiveScriptParseProcedure2 ActiveScriptParseProcedure
= { &ActiveScriptParseProcedureVtbl
};
1829 static HRESULT WINAPI
ActiveScriptParse_QueryInterface(IActiveScriptParse
*iface
, REFIID riid
, void **ppv
)
1832 ok(0, "unexpected call\n");
1833 return E_NOINTERFACE
;
1836 static ULONG WINAPI
ActiveScriptParse_AddRef(IActiveScriptParse
*iface
)
1841 static ULONG WINAPI
ActiveScriptParse_Release(IActiveScriptParse
*iface
)
1846 static HRESULT WINAPI
ActiveScriptParse_InitNew(IActiveScriptParse
*iface
)
1848 CHECK_EXPECT(InitNew
);
1852 static HRESULT WINAPI
ActiveScriptParse_AddScriptlet(IActiveScriptParse
*iface
,
1853 LPCOLESTR pstrDefaultName
, LPCOLESTR pstrCode
, LPCOLESTR pstrItemName
,
1854 LPCOLESTR pstrSubItemName
, LPCOLESTR pstrEventName
, LPCOLESTR pstrDelimiter
,
1855 CTXARG_T dwSourceContextCookie
, ULONG ulStartingLineNumber
, DWORD dwFlags
,
1856 BSTR
*pbstrName
, EXCEPINFO
*pexcepinfo
)
1858 ok(0, "unexpected call\n");
1862 static HRESULT
dispex_propput(IDispatchEx
*obj
, DISPID id
, DWORD flags
, VARIANT
*var
, IServiceProvider
*caller_sp
)
1864 DISPID propput_arg
= DISPID_PROPERTYPUT
;
1865 DISPPARAMS dp
= {var
, &propput_arg
, 1, 1};
1868 return IDispatchEx_InvokeEx(obj
, id
, LOCALE_NEUTRAL
, DISPATCH_PROPERTYPUT
|flags
, &dp
, NULL
, &ei
, caller_sp
);
1871 static HRESULT
dispex_propget(IDispatchEx
*obj
, DISPID id
, VARIANT
*res
, IServiceProvider
*caller_sp
)
1873 DISPPARAMS dp
= {NULL
};
1876 return IDispatchEx_InvokeEx(obj
, id
, LOCALE_NEUTRAL
, DISPATCH_PROPERTYGET
, &dp
, res
, &ei
, caller_sp
);
1879 static void test_func(IDispatchEx
*obj
)
1882 IDispatchEx
*dispex
;
1890 str
= a2bstr("toString");
1891 hres
= IDispatchEx_GetDispID(obj
, str
, fdexNameCaseSensitive
, &id
);
1893 ok(hres
== S_OK
, "GetDispID failed: %08x\n", hres
);
1894 ok(id
== DISPID_IOMNAVIGATOR_TOSTRING
, "id = %x\n", id
);
1896 memset(&dp
, 0, sizeof(dp
));
1897 memset(&ei
, 0, sizeof(ei
));
1899 hres
= IDispatchEx_InvokeEx(obj
, id
, LOCALE_NEUTRAL
, DISPATCH_PROPERTYGET
, &dp
, &var
, &ei
, NULL
);
1900 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
1901 ok(V_VT(&var
) == VT_DISPATCH
, "V_VT(var)=%d\n", V_VT(&var
));
1902 ok(V_DISPATCH(&var
) != NULL
, "V_DISPATCH(var) == NULL\n");
1903 disp
= V_DISPATCH(&var
);
1905 hres
= IDispatch_QueryInterface(disp
, &IID_IDispatchEx
, (void**)&dispex
);
1906 IDispatch_Release(disp
);
1907 ok(hres
== S_OK
, "Could not get IDispatchEx iface: %08x\n", hres
);
1909 /* FIXME: Test InvokeEx(DISPATCH_METHOD) */
1911 memset(&dp
, 0, sizeof(dp
));
1912 memset(&ei
, 0, sizeof(ei
));
1914 hres
= IDispatchEx_Invoke(dispex
, DISPID_VALUE
, &IID_NULL
, LOCALE_NEUTRAL
, DISPATCH_METHOD
, &dp
, &var
, &ei
, NULL
);
1915 ok(hres
== S_OK
|| broken(E_ACCESSDENIED
), "InvokeEx failed: %08x\n", hres
);
1916 if(SUCCEEDED(hres
)) {
1917 ok(V_VT(&var
) == VT_BSTR
, "V_VT(var)=%d\n", V_VT(&var
));
1918 ok(!strcmp_wa(V_BSTR(&var
), "[object]"), "V_BSTR(var) = %s\n", wine_dbgstr_w(V_BSTR(&var
)));
1924 hres
= dispex_propput(obj
, id
, 0, &var
, NULL
);
1925 ok(hres
== E_NOTIMPL
, "InvokeEx failed: %08x\n", hres
);
1927 IDispatchEx_Release(dispex
);
1930 static void test_nextdispid(IDispatchEx
*dispex
)
1932 DISPID last_id
= DISPID_STARTENUM
, id
, dyn_id
;
1937 name
= a2bstr("dynVal");
1938 hres
= IDispatchEx_GetDispID(dispex
, name
, fdexNameCaseSensitive
|fdexNameEnsure
, &dyn_id
);
1939 ok(hres
== S_OK
, "GetDispID failed: %08x\n", hres
);
1940 SysFreeString(name
);
1942 V_VT(&var
) = VT_EMPTY
;
1943 hres
= dispex_propput(dispex
, dyn_id
, 0, &var
, NULL
);
1944 ok(hres
== S_OK
, "dispex_propput failed: %08x\n", hres
);
1946 while(last_id
!= dyn_id
) {
1947 hres
= IDispatchEx_GetNextDispID(dispex
, fdexEnumAll
, last_id
, &id
);
1948 ok(hres
== S_OK
, "GetNextDispID returned: %08x\n", hres
);
1949 ok(id
!= DISPID_STARTENUM
, "id == DISPID_STARTENUM\n");
1950 ok(id
!= DISPID_IOMNAVIGATOR_TOSTRING
, "id == DISPID_IOMNAVIGATOR_TOSTRING\n");
1952 hres
= IDispatchEx_GetMemberName(dispex
, id
, &name
);
1953 ok(hres
== S_OK
, "GetMemberName failed: %08x\n", hres
);
1956 ok(!strcmp_wa(name
, "dynVal"), "name = %s\n", wine_dbgstr_w(name
));
1957 else if(id
== DISPID_IOMNAVIGATOR_PLATFORM
)
1958 ok(!strcmp_wa(name
, "platform"), "name = %s\n", wine_dbgstr_w(name
));
1960 SysFreeString(name
);
1964 hres
= IDispatchEx_GetNextDispID(dispex
, 0, id
, &id
);
1965 ok(hres
== S_FALSE
, "GetNextDispID returned: %08x\n", hres
);
1966 ok(id
== DISPID_STARTENUM
, "id != DISPID_STARTENUM\n");
1969 static void test_global_id(void)
1978 SET_EXPECT(GetScriptDispatch
);
1979 SET_EXPECT(script_divid_d
);
1980 tmp
= a2bstr("divid");
1981 hres
= IDispatchEx_GetDispID(window_dispex
, tmp
, fdexNameCaseSensitive
, &id
);
1982 ok(hres
== S_OK
, "GetDispID failed: %08x\n", hres
);
1984 CHECK_CALLED(GetScriptDispatch
);
1985 CHECK_CALLED(script_divid_d
);
1988 memset(&ei
, 0, sizeof(ei
));
1989 memset(&dp
, 0, sizeof(dp
));
1990 hres
= IDispatchEx_InvokeEx(window_dispex
, id
, 0, DISPATCH_PROPERTYGET
, &dp
, &var
, &ei
, NULL
);
1991 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
1992 ok(V_VT(&var
) == VT_DISPATCH
, "V_VT(var) = %d\n", V_VT(&var
));
1996 static void test_arg_conv(IHTMLWindow2
*window
)
1998 IHTMLDocument2
*doc
;
1999 IDispatchEx
*dispex
;
2004 hres
= IHTMLWindow2_get_document(window
, &doc
);
2005 ok(hres
== S_OK
, "get_document failed: %08x\n", hres
);
2007 hres
= IHTMLDocument2_get_body(doc
, &elem
);
2008 IHTMLDocument2_Release(doc
);
2009 ok(hres
== S_OK
, "get_body failed: %08x\n", hres
);
2011 hres
= IHTMLElement_QueryInterface(elem
, &IID_IDispatchEx
, (void**)&dispex
);
2012 IHTMLElement_Release(elem
);
2013 ok(hres
== S_OK
, "Could not get IDispatchEx iface: %08x\n", hres
);
2015 SET_EXPECT(QS_VariantConversion
);
2016 SET_EXPECT(ChangeType
);
2018 V_I4(&v
) = 0xf0f0f0;
2019 hres
= dispex_propput(dispex
, DISPID_IHTMLBODYELEMENT_BACKGROUND
, 0, &v
, &caller_sp
);
2020 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
2021 CHECK_CALLED(QS_VariantConversion
);
2022 CHECK_CALLED(ChangeType
);
2024 V_VT(&v
) = VT_EMPTY
;
2025 hres
= dispex_propget(dispex
, DISPID_IHTMLBODYELEMENT_BGCOLOR
, &v
, &caller_sp
);
2026 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
2027 ok(V_VT(&v
) == VT_BSTR
, "V_VT(var)=%d\n", V_VT(&v
));
2028 ok(!V_BSTR(&v
), "V_BSTR(&var) = %s\n", wine_dbgstr_w(V_BSTR(&v
)));
2030 IDispatchEx_Release(dispex
);
2033 #define test_elem_disabled(a,b) _test_elem_disabled(__LINE__,a,b)
2034 static void _test_elem_disabled(unsigned line
, IHTMLElement
*elem
, VARIANT_BOOL exb
)
2036 IHTMLElement3
*elem3
;
2037 VARIANT_BOOL b
= 100;
2040 hres
= IHTMLElement_QueryInterface(elem
, &IID_IHTMLElement3
, (void**)&elem3
);
2041 ok_(__FILE__
,line
)(hres
== S_OK
, "Could not get IHTMLElement3 iface: %08x\n", hres
);
2043 hres
= IHTMLElement3_get_disabled(elem3
, &b
);
2044 ok_(__FILE__
,line
)(hres
== S_OK
, "get_disabled failed: %08x\n", hres
);
2045 ok_(__FILE__
,line
)(b
== exb
, "disabled = %x, expected %x\n", b
, exb
);
2047 IHTMLElement3_Release(elem3
);
2050 static void test_default_arg_conv(IHTMLWindow2
*window
)
2052 IHTMLDocument2
*doc
;
2053 IDispatchEx
*dispex
;
2058 hres
= IHTMLWindow2_get_document(window
, &doc
);
2059 ok(hres
== S_OK
, "get_document failed: %08x\n", hres
);
2061 hres
= IHTMLDocument2_get_body(doc
, &elem
);
2062 IHTMLDocument2_Release(doc
);
2063 ok(hres
== S_OK
, "get_body failed: %08x\n", hres
);
2065 hres
= IHTMLElement_QueryInterface(elem
, &IID_IDispatchEx
, (void**)&dispex
);
2066 ok(hres
== S_OK
, "Could not get IDispatchEx iface: %08x\n", hres
);
2068 test_elem_disabled(elem
, VARIANT_FALSE
);
2071 V_BSTR(&v
) = a2bstr("test");
2072 hres
= dispex_propput(dispex
, DISPID_IHTMLELEMENT3_DISABLED
, 0, &v
, NULL
);
2073 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
2074 SysFreeString(V_BSTR(&v
));
2076 test_elem_disabled(elem
, VARIANT_TRUE
);
2080 hres
= dispex_propput(dispex
, DISPID_IHTMLELEMENT3_DISABLED
, 0, &v
, NULL
);
2081 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
2083 test_elem_disabled(elem
, VARIANT_FALSE
);
2085 IHTMLElement_Release(elem
);
2086 IDispatchEx_Release(dispex
);
2089 static void test_ui(void)
2091 IActiveScriptSiteUIControl
*ui_control
;
2092 SCRIPTUICHANDLING uic_handling
= 10;
2095 hres
= IActiveScriptSite_QueryInterface(site
, &IID_IActiveScriptSiteUIControl
, (void**)&ui_control
);
2096 if(hres
== E_NOINTERFACE
) {
2097 win_skip("IActiveScriptSiteUIControl not supported\n");
2100 ok(hres
== S_OK
, "Could not get IActiveScriptSiteUIControl: %08x\n", hres
);
2102 hres
= IActiveScriptSiteUIControl_GetUIBehavior(ui_control
, SCRIPTUICITEM_MSGBOX
, &uic_handling
);
2103 ok(hres
== S_OK
, "GetUIBehavior failed: %08x\n", hres
);
2104 ok(uic_handling
== SCRIPTUICHANDLING_ALLOW
, "uic_handling = %d\n", uic_handling
);
2106 IActiveScriptSiteUIControl_Release(ui_control
);
2109 static void test_sp(void)
2111 IServiceProvider
*sp
;
2115 hres
= IActiveScriptSite_QueryInterface(site
, &IID_IServiceProvider
, (void**)&sp
);
2116 ok(hres
== S_OK
, "Could not get IServiceProvider iface: %08x\n", hres
);
2118 hres
= IServiceProvider_QueryService(sp
, &SID_SContainerDispatch
, &IID_IHTMLDocument
, (void**)&unk
);
2119 ok(hres
== S_OK
, "Could not get SID_SContainerDispatch service: %08x\n", hres
);
2120 IUnknown_Release(unk
);
2122 IServiceProvider_Release(sp
);
2125 static void test_script_run(void)
2127 IDispatchEx
*document
, *dispex
;
2128 IHTMLWindow2
*window
;
2129 IOmNavigator
*navigator
;
2138 static const WCHAR documentW
[] = {'d','o','c','u','m','e','n','t',0};
2139 static const WCHAR testW
[] = {'t','e','s','t',0};
2140 static const WCHAR funcW
[] = {'f','u','n','c',0};
2142 SET_EXPECT(GetScriptDispatch
);
2144 tmp
= SysAllocString(documentW
);
2145 hres
= IDispatchEx_GetDispID(window_dispex
, tmp
, fdexNameCaseSensitive
, &id
);
2147 ok(hres
== S_OK
, "GetDispID(document) failed: %08x\n", hres
);
2148 ok(id
== DISPID_IHTMLWINDOW2_DOCUMENT
, "id=%x\n", id
);
2150 CHECK_CALLED(GetScriptDispatch
);
2153 memset(&dp
, 0, sizeof(dp
));
2154 memset(&ei
, 0, sizeof(ei
));
2156 hres
= IDispatchEx_InvokeEx(window_dispex
, id
, LOCALE_NEUTRAL
, INVOKE_PROPERTYGET
, &dp
, &var
, &ei
, NULL
);
2157 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
2158 ok(V_VT(&var
) == VT_DISPATCH
, "V_VT(var)=%d\n", V_VT(&var
));
2159 ok(V_DISPATCH(&var
) != NULL
, "V_DISPATCH(&var) == NULL\n");
2161 hres
= IDispatch_QueryInterface(V_DISPATCH(&var
), &IID_IDispatchEx
, (void**)&document
);
2163 ok(hres
== S_OK
, "Could not get DispatchEx: %08x\n", hres
);
2165 tmp
= SysAllocString(testW
);
2166 hres
= IDispatchEx_GetDispID(document
, tmp
, fdexNameCaseSensitive
, &id
);
2167 ok(hres
== DISP_E_UNKNOWNNAME
, "GetDispID(document) failed: %08x, expected DISP_E_UNKNOWNNAME\n", hres
);
2168 hres
= IDispatchEx_GetDispID(document
, tmp
, fdexNameCaseSensitive
| fdexNameImplicit
, &id
);
2169 ok(hres
== DISP_E_UNKNOWNNAME
, "GetDispID(document) failed: %08x, expected DISP_E_UNKNOWNNAME\n", hres
);
2173 tmp
= SysAllocString(testW
);
2174 hres
= IDispatchEx_GetDispID(document
, tmp
, fdexNameCaseSensitive
|fdexNameEnsure
, &id
);
2176 ok(hres
== S_OK
, "GetDispID(document) failed: %08x\n", hres
);
2177 ok(id
, "id == 0\n");
2181 hres
= dispex_propput(document
, id
, 0, &var
, NULL
);
2182 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
2184 tmp
= SysAllocString(testW
);
2185 hres
= IDispatchEx_GetDispID(document
, tmp
, fdexNameCaseSensitive
, &id
);
2187 ok(hres
== S_OK
, "GetDispID(document) failed: %08x\n", hres
);
2189 hres
= IDispatchEx_DeleteMemberByDispID(document
, id
);
2190 ok(hres
== E_NOTIMPL
, "DeleteMemberByDispID failed = %08x\n", hres
);
2193 memset(&dp
, 0, sizeof(dp
));
2194 memset(&ei
, 0, sizeof(ei
));
2195 hres
= IDispatchEx_InvokeEx(document
, id
, LOCALE_NEUTRAL
, INVOKE_PROPERTYGET
, &dp
, &var
, &ei
, NULL
);
2196 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
2197 ok(V_VT(&var
) == VT_I4
, "V_VT(var)=%d\n", V_VT(&var
));
2198 ok(V_I4(&var
) == 100, "V_I4(&var) = %d\n", V_I4(&var
));
2202 hres
= dispex_propput(document
, id
, DISPATCH_PROPERTYPUTREF
, &var
, NULL
);
2203 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
2206 memset(&dp
, 0, sizeof(dp
));
2207 memset(&ei
, 0, sizeof(ei
));
2208 hres
= IDispatchEx_InvokeEx(document
, id
, LOCALE_NEUTRAL
, INVOKE_PROPERTYGET
, &dp
, &var
, &ei
, NULL
);
2209 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
2210 ok(V_VT(&var
) == VT_I4
, "V_VT(var)=%d\n", V_VT(&var
));
2211 ok(V_I4(&var
) == 200, "V_I4(&var) = %d\n", V_I4(&var
));
2213 memset(&dp
, 0, sizeof(dp
));
2214 memset(&ei
, 0, sizeof(ei
));
2219 hres
= IDispatchEx_InvokeEx(document
, id
, LOCALE_NEUTRAL
, INVOKE_PROPERTYPUT
, &dp
, NULL
, &ei
, NULL
);
2220 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
2223 memset(&dp
, 0, sizeof(dp
));
2224 memset(&ei
, 0, sizeof(ei
));
2225 hres
= IDispatchEx_InvokeEx(document
, id
, LOCALE_NEUTRAL
, INVOKE_PROPERTYGET
, &dp
, &var
, &ei
, NULL
);
2226 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
2227 ok(V_VT(&var
) == VT_I4
, "V_VT(var)=%d\n", V_VT(&var
));
2228 ok(V_I4(&var
) == 300, "V_I4(&var) = %d\n", V_I4(&var
));
2230 V_VT(&var
) = VT_BSTR
;
2231 V_BSTR(&var
) = NULL
;
2232 dispex_propput(document
, id
, 0, &var
, NULL
);
2235 memset(&dp
, 0, sizeof(dp
));
2236 memset(&ei
, 0, sizeof(ei
));
2237 hres
= IDispatchEx_InvokeEx(document
, id
, LOCALE_NEUTRAL
, INVOKE_PROPERTYGET
, &dp
, &var
, &ei
, NULL
);
2238 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
2239 ok(V_VT(&var
) == VT_BSTR
, "V_VT(var)=%d\n", V_VT(&var
));
2240 ok(!V_BSTR(&var
), "V_BSTR(&var) = %s\n", wine_dbgstr_w(V_BSTR(&var
)));
2242 unk
= (void*)0xdeadbeef;
2243 hres
= IDispatchEx_GetNameSpaceParent(window_dispex
, &unk
);
2244 ok(hres
== S_OK
, "GetNameSpaceParent failed: %08x\n", hres
);
2245 ok(!unk
, "unk=%p, expected NULL\n", unk
);
2248 tmp
= SysAllocString(funcW
);
2249 hres
= IDispatchEx_GetDispID(document
, tmp
, fdexNameCaseSensitive
|fdexNameEnsure
, &id
);
2251 ok(hres
== S_OK
, "GetDispID(func) failed: %08x\n", hres
);
2252 ok(id
, "id == 0\n");
2257 dp
.rgdispidNamedArgs
= NULL
;
2258 V_VT(&var
) = VT_DISPATCH
;
2259 V_DISPATCH(&var
) = (IDispatch
*)&funcDisp
;
2260 hres
= IDispatchEx_InvokeEx(document
, id
, LOCALE_NEUTRAL
, INVOKE_PROPERTYPUT
, &dp
, NULL
, &ei
, NULL
);
2261 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
2264 memset(&dp
, 0, sizeof(dp
));
2265 memset(&ei
, 0, sizeof(ei
));
2266 V_VT(&arg
) = VT_BOOL
;
2267 V_BOOL(&arg
) = VARIANT_TRUE
;
2271 SET_EXPECT(funcDisp
);
2272 hres
= IDispatchEx_InvokeEx(document
, id
, LOCALE_NEUTRAL
, INVOKE_FUNC
, &dp
, &var
, &ei
, NULL
);
2273 CHECK_CALLED(funcDisp
);
2275 ok(hres
== S_OK
, "InvokeEx(INVOKE_FUNC) failed: %08x\n", hres
);
2276 ok(V_VT(&var
) == VT_I4
, "V_VT(var)=%d\n", V_VT(&var
));
2277 ok(V_I4(&var
) == 100, "V_I4(&var) == NULL\n");
2279 IDispatchEx_Release(document
);
2281 hres
= IDispatchEx_QueryInterface(window_dispex
, &IID_IHTMLWindow2
, (void**)&window
);
2282 ok(hres
== S_OK
, "Could not get IHTMLWindow2 iface: %08x\n", hres
);
2284 hres
= IHTMLWindow2_get_navigator(window
, &navigator
);
2285 ok(hres
== S_OK
, "get_navigator failed: %08x\n", hres
);
2287 hres
= IOmNavigator_QueryInterface(navigator
, &IID_IDispatchEx
, (void**)&dispex
);
2288 IOmNavigator_Release(navigator
);
2289 ok(hres
== S_OK
, "Could not get IDispatchEx iface: %08x\n", hres
);
2292 test_nextdispid(dispex
);
2294 test_arg_conv(window
);
2295 test_default_arg_conv(window
);
2296 IHTMLWindow2_Release(window
);
2298 tmp
= a2bstr("test");
2299 hres
= IDispatchEx_DeleteMemberByName(dispex
, tmp
, fdexNameCaseSensitive
);
2300 ok(hres
== E_NOTIMPL
, "DeleteMemberByName failed: %08x\n", hres
);
2302 IDispatchEx_Release(dispex
);
2304 script_disp
= (IDispatch
*)&scriptDisp
;
2306 SET_EXPECT(GetScriptDispatch
);
2307 SET_EXPECT(script_testprop_d
);
2308 tmp
= a2bstr("testProp");
2309 hres
= IDispatchEx_GetDispID(window_dispex
, tmp
, fdexNameCaseSensitive
, &id
);
2310 ok(hres
== S_OK
, "GetDispID failed: %08x\n", hres
);
2311 ok(id
!= DISPID_SCRIPT_TESTPROP
, "id == DISPID_SCRIPT_TESTPROP\n");
2312 CHECK_CALLED(GetScriptDispatch
);
2313 CHECK_CALLED(script_testprop_d
);
2316 tmp
= a2bstr("testProp");
2317 hres
= IDispatchEx_GetDispID(window_dispex
, tmp
, fdexNameCaseSensitive
, &id
);
2318 ok(hres
== S_OK
, "GetDispID failed: %08x\n", hres
);
2319 ok(id
!= DISPID_SCRIPT_TESTPROP
, "id == DISPID_SCRIPT_TESTPROP\n");
2322 SET_EXPECT(GetScriptDispatch
);
2323 SET_EXPECT(script_testprop_i
);
2324 memset(&ei
, 0, sizeof(ei
));
2325 memset(&dp
, 0, sizeof(dp
));
2326 hres
= IDispatchEx_InvokeEx(window_dispex
, id
, 0, DISPATCH_PROPERTYGET
, &dp
, &var
, &ei
, NULL
);
2327 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
2328 ok(V_VT(&var
) == VT_NULL
, "V_VT(var) = %d\n", V_VT(&var
));
2329 CHECK_CALLED(GetScriptDispatch
);
2330 CHECK_CALLED(script_testprop_i
);
2332 SET_EXPECT(GetScriptDispatch
);
2333 SET_EXPECT(script_testprop2_d
);
2334 tmp
= a2bstr("testProp2");
2335 hres
= IDispatchEx_GetDispID(window_dispex
, tmp
, fdexNameCaseSensitive
|fdexNameEnsure
, &id
);
2336 ok(hres
== S_OK
, "GetDispID failed: %08x\n", hres
);
2337 ok(id
!= DISPID_SCRIPT_TESTPROP2
, "id == DISPID_SCRIPT_TESTPROP2\n");
2338 CHECK_CALLED(GetScriptDispatch
);
2339 CHECK_CALLED(script_testprop2_d
);
2342 tmp
= a2bstr("test");
2343 hres
= IDispatchEx_DeleteMemberByName(window_dispex
, tmp
, fdexNameCaseSensitive
);
2344 ok(hres
== E_NOTIMPL
, "DeleteMemberByName failed: %08x\n", hres
);
2353 static HRESULT WINAPI
ActiveScriptParse_ParseScriptText(IActiveScriptParse
*iface
,
2354 LPCOLESTR pstrCode
, LPCOLESTR pstrItemName
, IUnknown
*punkContext
,
2355 LPCOLESTR pstrDelimiter
, CTXARG_T dwSourceContextCookie
, ULONG ulStartingLine
,
2356 DWORD dwFlags
, VARIANT
*pvarResult
, EXCEPINFO
*pexcepinfo
)
2358 ok(pvarResult
!= NULL
, "pvarResult == NULL\n");
2359 ok(pexcepinfo
!= NULL
, "pexcepinfo == NULL\n");
2361 if(!strcmp_wa(pstrCode
, "execScript call")) {
2362 CHECK_EXPECT(ParseScriptText_execScript
);
2363 ok(!pstrItemName
, "pstrItemName = %s\n", wine_dbgstr_w(pstrItemName
));
2364 ok(!strcmp_wa(pstrDelimiter
, "\""), "pstrDelimiter = %s\n", wine_dbgstr_w(pstrDelimiter
));
2365 ok(dwFlags
== SCRIPTTEXT_ISVISIBLE
, "dwFlags = %x\n", dwFlags
);
2367 V_VT(pvarResult
) = VT_I4
;
2368 V_I4(pvarResult
) = 10;
2370 }else if(!strcmp_wa(pstrCode
, "simple script")) {
2371 CHECK_EXPECT(ParseScriptText_script
);
2372 ok(!strcmp_wa(pstrItemName
, "window"), "pstrItemName = %s\n", wine_dbgstr_w(pstrItemName
));
2373 ok(!strcmp_wa(pstrDelimiter
, "</SCRIPT>"), "pstrDelimiter = %s\n", wine_dbgstr_w(pstrDelimiter
));
2374 ok(dwFlags
== (SCRIPTTEXT_ISVISIBLE
|SCRIPTTEXT_HOSTMANAGESSOURCE
), "dwFlags = %x\n", dwFlags
);
2380 ok(0, "unexpected script %s\n", wine_dbgstr_w(pstrCode
));
2384 static const IActiveScriptParseVtbl ActiveScriptParseVtbl
= {
2385 ActiveScriptParse_QueryInterface
,
2386 ActiveScriptParse_AddRef
,
2387 ActiveScriptParse_Release
,
2388 ActiveScriptParse_InitNew
,
2389 ActiveScriptParse_AddScriptlet
,
2390 ActiveScriptParse_ParseScriptText
2393 static IActiveScriptParse ActiveScriptParse
= { &ActiveScriptParseVtbl
};
2395 static HRESULT WINAPI
ActiveScript_QueryInterface(IActiveScript
*iface
, REFIID riid
, void **ppv
)
2399 if(IsEqualGUID(&IID_IUnknown
, riid
) || IsEqualGUID(&IID_IActiveScript
, riid
)) {
2404 if(IsEqualGUID(&IID_IActiveScriptParse
, riid
)) {
2405 *ppv
= &ActiveScriptParse
;
2409 if(IsEqualGUID(&IID_IActiveScriptParseProcedure2
, riid
)) {
2410 *ppv
= &ActiveScriptParseProcedure
;
2414 if(IsEqualGUID(&IID_IActiveScriptProperty
, riid
)) {
2415 *ppv
= &ActiveScriptProperty
;
2419 if(IsEqualGUID(&IID_IObjectSafety
, riid
)) {
2420 *ppv
= &ObjectSafety
;
2424 if(IsEqualGUID(&IID_IActiveScriptDebug
, riid
))
2425 return E_NOINTERFACE
;
2427 trace("QI(%s)\n", debugstr_guid(riid
));
2428 return E_NOINTERFACE
;
2431 static ULONG WINAPI
ActiveScript_AddRef(IActiveScript
*iface
)
2436 static ULONG WINAPI
ActiveScript_Release(IActiveScript
*iface
)
2441 static HRESULT WINAPI
ActiveScript_SetScriptSite(IActiveScript
*iface
, IActiveScriptSite
*pass
)
2443 IActiveScriptSiteInterruptPoll
*poll
;
2444 IActiveScriptSiteDebug
*debug
;
2445 IServiceProvider
*service
;
2446 ICanHandleException
*canexpection
;
2450 CHECK_EXPECT(SetScriptSite
);
2452 ok(pass
!= NULL
, "pass == NULL\n");
2454 hres
= IActiveScriptSite_QueryInterface(pass
, &IID_IActiveScriptSiteInterruptPoll
, (void**)&poll
);
2455 ok(hres
== S_OK
, "Could not get IActiveScriptSiteInterruptPoll interface: %08x\n", hres
);
2457 IActiveScriptSiteInterruptPoll_Release(poll
);
2459 hres
= IActiveScriptSite_GetLCID(pass
, &lcid
);
2460 ok(hres
== S_OK
, "GetLCID failed: %08x\n", hres
);
2462 hres
= IActiveScriptSite_OnStateChange(pass
, (state
= SCRIPTSTATE_INITIALIZED
));
2463 ok(hres
== S_OK
, "OnStateChange failed: %08x\n", hres
);
2465 hres
= IActiveScriptSite_QueryInterface(pass
, &IID_IActiveScriptSiteDebug
, (void**)&debug
);
2466 ok(hres
== S_OK
, "Could not get IActiveScriptSiteDebug interface: %08x\n", hres
);
2468 IActiveScriptSiteDebug_Release(debug
);
2470 hres
= IActiveScriptSite_QueryInterface(pass
, &IID_ICanHandleException
, (void**)&canexpection
);
2471 ok(hres
== E_NOINTERFACE
, "Could not get IID_ICanHandleException interface: %08x\n", hres
);
2473 hres
= IActiveScriptSite_QueryInterface(pass
, &IID_IServiceProvider
, (void**)&service
);
2474 ok(hres
== S_OK
, "Could not get IServiceProvider interface: %08x\n", hres
);
2476 IServiceProvider_Release(service
);
2479 IActiveScriptSite_AddRef(site
);
2483 static HRESULT WINAPI
ActiveScript_GetScriptSite(IActiveScript
*iface
, REFIID riid
,
2486 ok(0, "unexpected call\n");
2490 static HRESULT WINAPI
ActiveScript_SetScriptState(IActiveScript
*iface
, SCRIPTSTATE ss
)
2495 case SCRIPTSTATE_STARTED
:
2496 CHECK_EXPECT(SetScriptState_STARTED
);
2498 case SCRIPTSTATE_CONNECTED
:
2499 CHECK_EXPECT(SetScriptState_CONNECTED
);
2501 case SCRIPTSTATE_DISCONNECTED
:
2502 CHECK_EXPECT(SetScriptState_DISCONNECTED
);
2505 ok(0, "unexpected state %d\n", ss
);
2509 hres
= IActiveScriptSite_OnStateChange(site
, (state
= ss
));
2510 ok(hres
== S_OK
, "OnStateChange failed: %08x\n", hres
);
2515 static HRESULT WINAPI
ActiveScript_GetScriptState(IActiveScript
*iface
, SCRIPTSTATE
*pssState
)
2517 CHECK_EXPECT(GetScriptState
);
2523 static HRESULT WINAPI
ActiveScript_Close(IActiveScript
*iface
)
2525 CHECK_EXPECT(Close
);
2529 static HRESULT WINAPI
ActiveScript_AddNamedItem(IActiveScript
*iface
,
2530 LPCOLESTR pstrName
, DWORD dwFlags
)
2533 IUnknown
*unk
= NULL
, *unk2
;
2536 static const WCHAR windowW
[] = {'w','i','n','d','o','w',0};
2538 static const IID unknown_iid
= {0x719C3050,0xF9D3,0x11CF,{0xA4,0x93,0x00,0x40,0x05,0x23,0xA8,0xA0}};
2540 CHECK_EXPECT(AddNamedItem
);
2542 ok(!lstrcmpW(pstrName
, windowW
), "pstrName=%s\n", wine_dbgstr_w(pstrName
));
2543 ok(dwFlags
== (SCRIPTITEM_ISVISIBLE
|SCRIPTITEM_ISSOURCE
|SCRIPTITEM_GLOBALMEMBERS
), "dwFlags=%x\n", dwFlags
);
2545 hres
= IActiveScriptSite_GetItemInfo(site
, windowW
, SCRIPTINFO_IUNKNOWN
, &unk
, NULL
);
2546 ok(hres
== S_OK
, "GetItemInfo failed: %08x\n", hres
);
2547 ok(unk
!= NULL
, "unk == NULL\n");
2549 hres
= IUnknown_QueryInterface(unk
, &IID_IDispatch
, (void**)&disp
);
2550 ok(hres
== S_OK
, "Could not get IDispatch interface: %08x\n", hres
);
2552 IDispatch_Release(disp
);
2554 hres
= IUnknown_QueryInterface(unk
, &unknown_iid
, (void**)&unk2
);
2555 ok(hres
== E_NOINTERFACE
, "Got ?? interface: %p\n", unk2
);
2557 IUnknown_Release(unk2
);
2559 hres
= IUnknown_QueryInterface(unk
, &IID_IDispatchEx
, (void**)&window_dispex
);
2560 ok(hres
== S_OK
, "Could not get IDispatchEx interface: %08x\n", hres
);
2562 IUnknown_Release(unk
);
2566 static HRESULT WINAPI
ActiveScript_AddTypeLib(IActiveScript
*iface
, REFGUID rguidTypeLib
,
2567 DWORD dwMajor
, DWORD dwMinor
, DWORD dwFlags
)
2569 ok(0, "unexpected call\n");
2573 static HRESULT WINAPI
ActiveScript_GetScriptDispatch(IActiveScript
*iface
, LPCOLESTR pstrItemName
,
2576 CHECK_EXPECT(GetScriptDispatch
);
2578 ok(!strcmp_wa(pstrItemName
, "window"), "pstrItemName = %s\n", wine_dbgstr_w(pstrItemName
));
2583 *ppdisp
= script_disp
;
2587 static HRESULT WINAPI
ActiveScript_GetCurrentScriptThreadID(IActiveScript
*iface
,
2588 SCRIPTTHREADID
*pstridThread
)
2590 ok(0, "unexpected call\n");
2594 static HRESULT WINAPI
ActiveScript_GetScriptThreadID(IActiveScript
*iface
,
2595 DWORD dwWin32ThreadId
, SCRIPTTHREADID
*pstidThread
)
2597 ok(0, "unexpected call\n");
2601 static HRESULT WINAPI
ActiveScript_GetScriptThreadState(IActiveScript
*iface
,
2602 SCRIPTTHREADID stidThread
, SCRIPTTHREADSTATE
*pstsState
)
2604 ok(0, "unexpected call\n");
2608 static HRESULT WINAPI
ActiveScript_InterruptScriptThread(IActiveScript
*iface
,
2609 SCRIPTTHREADID stidThread
, const EXCEPINFO
*pexcepinfo
, DWORD dwFlags
)
2611 ok(0, "unexpected call\n");
2615 static HRESULT WINAPI
ActiveScript_Clone(IActiveScript
*iface
, IActiveScript
**ppscript
)
2617 ok(0, "unexpected call\n");
2621 static const IActiveScriptVtbl ActiveScriptVtbl
= {
2622 ActiveScript_QueryInterface
,
2623 ActiveScript_AddRef
,
2624 ActiveScript_Release
,
2625 ActiveScript_SetScriptSite
,
2626 ActiveScript_GetScriptSite
,
2627 ActiveScript_SetScriptState
,
2628 ActiveScript_GetScriptState
,
2630 ActiveScript_AddNamedItem
,
2631 ActiveScript_AddTypeLib
,
2632 ActiveScript_GetScriptDispatch
,
2633 ActiveScript_GetCurrentScriptThreadID
,
2634 ActiveScript_GetScriptThreadID
,
2635 ActiveScript_GetScriptThreadState
,
2636 ActiveScript_InterruptScriptThread
,
2640 static IActiveScript ActiveScript
= { &ActiveScriptVtbl
};
2642 static HRESULT WINAPI
ClassFactory_QueryInterface(IClassFactory
*iface
, REFIID riid
, void **ppv
)
2646 if(IsEqualGUID(&IID_IUnknown
, riid
) || IsEqualGUID(&IID_IClassFactory
, riid
)) {
2651 if(IsEqualGUID(&IID_IMarshal
, riid
))
2652 return E_NOINTERFACE
;
2653 if(IsEqualGUID(&CLSID_IdentityUnmarshal
, riid
))
2654 return E_NOINTERFACE
;
2656 ok(0, "unexpected riid %s\n", debugstr_guid(riid
));
2660 static ULONG WINAPI
ClassFactory_AddRef(IClassFactory
*iface
)
2665 static ULONG WINAPI
ClassFactory_Release(IClassFactory
*iface
)
2670 static HRESULT WINAPI
ClassFactory_CreateInstance(IClassFactory
*iface
, IUnknown
*outer
, REFIID riid
, void **ppv
)
2672 CHECK_EXPECT(CreateInstance
);
2674 ok(!outer
, "outer = %p\n", outer
);
2675 ok(IsEqualGUID(&IID_IActiveScript
, riid
), "unexpected riid %s\n", debugstr_guid(riid
));
2676 *ppv
= &ActiveScript
;
2680 static HRESULT WINAPI
ClassFactory_LockServer(IClassFactory
*iface
, BOOL dolock
)
2682 ok(0, "unexpected call\n");
2686 static const IClassFactoryVtbl ClassFactoryVtbl
= {
2687 ClassFactory_QueryInterface
,
2688 ClassFactory_AddRef
,
2689 ClassFactory_Release
,
2690 ClassFactory_CreateInstance
,
2691 ClassFactory_LockServer
2694 static IClassFactory script_cf
= { &ClassFactoryVtbl
};
2696 static const char simple_script_str
[] =
2697 "<html><head></head><body>"
2698 "<div id=\"divid\"></div>"
2699 "<script language=\"TestScript\">simple script</script>"
2702 static void test_exec_script(IHTMLDocument2
*doc
, const char *codea
, const char *langa
)
2704 IHTMLWindow2
*window
;
2709 hres
= IHTMLDocument2_get_parentWindow(doc
, &window
);
2710 ok(hres
== S_OK
, "get_parentWindow failed: %08x\n", hres
);
2712 code
= a2bstr(codea
);
2713 lang
= a2bstr(langa
);
2715 SET_EXPECT(ParseScriptText_execScript
);
2716 hres
= IHTMLWindow2_execScript(window
, code
, lang
, &v
);
2717 ok(hres
== S_OK
, "execScript failed: %08x\n", hres
);
2718 ok(V_VT(&v
) == VT_I4
, "V_VT(v) = %d\n", V_VT(&v
));
2719 ok(V_I4(&v
) == 10, "V_I4(v) = %d\n", V_I4(&v
));
2720 CHECK_CALLED(ParseScriptText_execScript
);
2721 SysFreeString(lang
);
2723 lang
= a2bstr("invalid");
2725 hres
= IHTMLWindow2_execScript(window
, code
, lang
, &v
);
2726 ok(hres
== CO_E_CLASSSTRING
, "execScript failed: %08x, expected CO_E_CLASSSTRING\n", hres
);
2727 ok(V_VT(&v
) == 100, "V_VT(v) = %d\n", V_VT(&v
));
2728 SysFreeString(lang
);
2729 SysFreeString(code
);
2731 IHTMLWindow2_Release(window
);
2734 static void test_simple_script(void)
2736 IHTMLDocument2
*doc
;
2738 doc
= create_document();
2742 SET_EXPECT(CreateInstance
);
2743 SET_EXPECT(GetInterfaceSafetyOptions
);
2744 SET_EXPECT(SetInterfaceSafetyOptions
);
2745 SET_EXPECT(SetProperty_INVOKEVERSIONING
); /* IE8 */
2746 SET_EXPECT(SetProperty_HACK_TRIDENTEVENTSINK
);
2747 SET_EXPECT(InitNew
);
2748 SET_EXPECT(SetScriptSite
);
2749 SET_EXPECT(GetScriptState
);
2750 SET_EXPECT(SetScriptState_STARTED
);
2751 SET_EXPECT(AddNamedItem
);
2752 SET_EXPECT(SetProperty_ABBREVIATE_GLOBALNAME_RESOLUTION
); /* IE8 */
2753 SET_EXPECT(ParseScriptText_script
);
2754 SET_EXPECT(SetScriptState_CONNECTED
);
2756 load_doc(doc
, simple_script_str
);
2758 CHECK_CALLED(CreateInstance
);
2759 CHECK_CALLED(GetInterfaceSafetyOptions
);
2760 CHECK_CALLED(SetInterfaceSafetyOptions
);
2761 CHECK_CALLED_BROKEN(SetProperty_INVOKEVERSIONING
); /* IE8 */
2762 CHECK_CALLED(SetProperty_HACK_TRIDENTEVENTSINK
);
2763 CHECK_CALLED(InitNew
);
2764 CHECK_CALLED(SetScriptSite
);
2765 CHECK_CALLED(GetScriptState
);
2766 CHECK_CALLED(SetScriptState_STARTED
);
2767 CHECK_CALLED(AddNamedItem
);
2768 CHECK_CALLED_BROKEN(SetProperty_ABBREVIATE_GLOBALNAME_RESOLUTION
); /* IE8 */
2769 CHECK_CALLED(ParseScriptText_script
);
2770 CHECK_CALLED(SetScriptState_CONNECTED
);
2772 test_exec_script(doc
, "execScript call", "TestScript");
2775 IActiveScriptSite_Release(site
);
2777 IDispatchEx_Release(window_dispex
);
2779 SET_EXPECT(SetScriptState_DISCONNECTED
);
2782 IHTMLDocument2_Release(doc
);
2784 CHECK_CALLED(SetScriptState_DISCONNECTED
);
2785 CHECK_CALLED(Close
);
2788 static void run_js_script(const char *test_name
)
2790 WCHAR url
[INTERNET_MAX_URL_LENGTH
];
2791 char urlA
[INTERNET_MAX_URL_LENGTH
];
2792 IPersistMoniker
*persist
;
2793 IHTMLDocument2
*doc
;
2798 static const char res
[] = "res://";
2800 trace("running %s...\n", test_name
);
2802 doc
= create_document();
2806 set_client_site(doc
, TRUE
);
2807 do_advise(doc
, &IID_IPropertyNotifySink
, (IUnknown
*)&PropertyNotifySink
);
2809 lstrcpyA(urlA
, res
);
2810 GetModuleFileNameA(NULL
, urlA
+ lstrlenA(res
), sizeof(urlA
) - lstrlenA(res
));
2811 lstrcatA(urlA
, "/");
2812 lstrcatA(urlA
, test_name
);
2813 MultiByteToWideChar(CP_ACP
, 0, urlA
, -1, url
, sizeof(url
)/sizeof(WCHAR
));
2815 hres
= CreateURLMoniker(NULL
, url
, &mon
);
2816 ok(hres
== S_OK
, "CreateURLMoniker failed: %08x\n", hres
);
2818 hres
= IHTMLDocument2_QueryInterface(doc
, &IID_IPersistMoniker
, (void**)&persist
);
2819 ok(hres
== S_OK
, "Could not get IPersistMoniker iface: %08x\n", hres
);
2821 hres
= IPersistMoniker_Load(persist
, FALSE
, mon
, NULL
, 0);
2822 ok(hres
== S_OK
, "Load failed: %08x\n", hres
);
2824 IMoniker_Release(mon
);
2825 IPersistMoniker_Release(persist
);
2827 SET_EXPECT(external_success
);
2829 while(!called_external_success
&& GetMessage(&msg
, NULL
, 0, 0)) {
2830 TranslateMessage(&msg
);
2831 DispatchMessage(&msg
);
2834 CHECK_CALLED(external_success
);
2836 set_client_site(doc
, FALSE
);
2837 IHTMLDocument2_Release(doc
);
2840 static void run_js_tests(void)
2842 run_js_script("jstest.html");
2843 run_js_script("exectest.html");
2844 run_js_script("vbtest.html");
2845 run_js_script("events.html");
2848 static BOOL
init_registry(BOOL init
)
2850 return init_key("TestScript\\CLSID", TESTSCRIPT_CLSID
, init
)
2851 && init_key("CLSID\\"TESTSCRIPT_CLSID
"\\Implemented Categories\\{F0B7A1A1-9847-11CF-8F20-00805F2CD064}",
2853 && init_key("CLSID\\"TESTSCRIPT_CLSID
"\\Implemented Categories\\{F0B7A1A2-9847-11CF-8F20-00805F2CD064}",
2857 static BOOL
register_script_engine(void)
2862 if(!init_registry(TRUE
)) {
2863 init_registry(FALSE
);
2867 hres
= CoRegisterClassObject(&CLSID_TestScript
, (IUnknown
*)&script_cf
,
2868 CLSCTX_INPROC_SERVER
, REGCLS_MULTIPLEUSE
, ®id
);
2869 ok(hres
== S_OK
, "Could not register script engine: %08x\n", hres
);
2874 static LRESULT WINAPI
wnd_proc(HWND hwnd
, UINT msg
, WPARAM wParam
, LPARAM lParam
)
2876 return DefWindowProc(hwnd
, msg
, wParam
, lParam
);
2879 static HWND
create_container_window(void)
2881 static const CHAR szHTMLDocumentTest
[] = "HTMLDocumentTest";
2882 static WNDCLASSEXA wndclass
= {
2883 sizeof(WNDCLASSEXA
),
2886 0, 0, NULL
, NULL
, NULL
, NULL
, NULL
,
2891 RegisterClassExA(&wndclass
);
2892 return CreateWindowA(szHTMLDocumentTest
, szHTMLDocumentTest
,
2893 WS_OVERLAPPEDWINDOW
, CW_USEDEFAULT
, CW_USEDEFAULT
,
2894 300, 300, NULL
, NULL
, NULL
, NULL
);
2900 container_hwnd
= create_container_window();
2902 if(winetest_interactive
|| ! is_ie_hardened()) {
2903 if(register_script_engine()) {
2904 test_simple_script();
2905 init_registry(FALSE
);
2907 skip("Could not register TestScript engine\n");
2911 skip("IE running in Enhanced Security Configuration\n");
2914 DestroyWindow(container_hwnd
);