activex.c File Reference

#include <stdio.h>
#include <ole2.h>
#include <dispex.h>
#include <activscp.h>
#include <objsafe.h>
#include <urlmon.h>
#include <mshtmhst.h>
#include "wine/test.h"

Include dependency graph for activex.c:

Go to the source code of this file.

Macros
#define	COBJMACROS
#define	CONST_VTABLE
#define	IActiveScriptParse_QueryInterface   IActiveScriptParse32_QueryInterface
#define	IActiveScriptParse_Release   IActiveScriptParse32_Release
#define	IActiveScriptParse_InitNew   IActiveScriptParse32_InitNew
#define	IActiveScriptParse_ParseScriptText   IActiveScriptParse32_ParseScriptText
#define	IActiveScriptParseProcedure2_Release    IActiveScriptParseProcedure2_32_Release
#define	IActiveScriptParseProcedure2_ParseProcedureText    IActiveScriptParseProcedure2_32_ParseProcedureText
#define	DEFINE_EXPECT(func)    static BOOL expect_ ## func = FALSE, called_ ## func = FALSE
#define	SET_EXPECT(func)    expect_ ## func = TRUE
#define	CHECK_EXPECT2(func)
#define	CHECK_EXPECT(func)
#define	CHECK_CALLED(func)
#define	TESTOBJ_CLSID   "{178fc163-f585-4e24-9c13-4bb7faf80646}"
#define	DISPID_TEST_REPORTSUCCESS   0x1000
#define	DISPID_GLOBAL_OK   0x2000
#define	parse_script_a(p, s)   _parse_script_a(__LINE__,p,s)
#define	call_procedure(p, c)   _call_procedure(__LINE__,p,c)

Functions
	DEFINE_EXPECT (CreateInstance)
	DEFINE_EXPECT (ProcessUrlAction)
	DEFINE_EXPECT (QueryCustomPolicy)
	DEFINE_EXPECT (reportSuccess)
	DEFINE_EXPECT (Host_QS_SecMgr)
	DEFINE_EXPECT (Caller_QS_SecMgr)
	DEFINE_EXPECT (QI_IObjectWithSite)
	DEFINE_EXPECT (SetSite)
static BSTR	a2bstr (const char *str)
static int	strcmp_wa (LPCWSTR strw, const char *stra)
static HRESULT WINAPI	ObjectWithSite_QueryInterface (IObjectWithSite *iface, REFIID riid, void **ppv)
static ULONG WINAPI	ObjectWithSite_AddRef (IObjectWithSite *iface)
static ULONG WINAPI	ObjectWithSite_Release (IObjectWithSite *iface)
static HRESULT WINAPI	ObjectWithSite_SetSite (IObjectWithSite *iface, IUnknown *pUnkSite)
static HRESULT WINAPI	ObjectWithSite_GetSite (IObjectWithSite *iface, REFIID riid, void **ppvSite)
static HRESULT WINAPI	DispatchEx_QueryInterface (IDispatchEx *iface, REFIID riid, void **ppv)
static ULONG WINAPI	DispatchEx_AddRef (IDispatchEx *iface)
static ULONG WINAPI	DispatchEx_Release (IDispatchEx *iface)
static HRESULT WINAPI	DispatchEx_GetTypeInfoCount (IDispatchEx *iface, UINT *pctinfo)
static HRESULT WINAPI	DispatchEx_GetTypeInfo (IDispatchEx *iface, UINT iTInfo, LCID lcid, ITypeInfo **ppTInfo)
static HRESULT WINAPI	DispatchEx_GetIDsOfNames (IDispatchEx *iface, REFIID riid, LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId)
static HRESULT WINAPI	DispatchEx_Invoke (IDispatchEx *iface, DISPID dispIdMember, REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams, VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
static HRESULT WINAPI	DispatchEx_DeleteMemberByName (IDispatchEx *iface, BSTR bstrName, DWORD grfdex)
static HRESULT WINAPI	DispatchEx_DeleteMemberByDispID (IDispatchEx *iface, DISPID id)
static HRESULT WINAPI	DispatchEx_GetMemberProperties (IDispatchEx *iface, DISPID id, DWORD grfdexFetch, DWORD *pgrfdex)
static HRESULT WINAPI	DispatchEx_GetMemberName (IDispatchEx *iface, DISPID id, BSTR *pbstrName)
static HRESULT WINAPI	DispatchEx_GetNextDispID (IDispatchEx *iface, DWORD grfdex, DISPID id, DISPID *pid)
static HRESULT WINAPI	DispatchEx_GetNameSpaceParent (IDispatchEx *iface, IUnknown **ppunk)
static HRESULT WINAPI	Test_GetDispID (IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
static HRESULT WINAPI	Test_InvokeEx (IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp, VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
static HRESULT WINAPI	Global_GetDispID (IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
static HRESULT WINAPI	Global_InvokeEx (IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp, VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
static HRESULT WINAPI	ClassFactory_QueryInterface (IClassFactory *iface, REFIID riid, void **ppv)
static ULONG WINAPI	ClassFactory_AddRef (IClassFactory *iface)
static ULONG WINAPI	ClassFactory_Release (IClassFactory *iface)
static HRESULT WINAPI	ClassFactory_CreateInstance (IClassFactory *iface, IUnknown *outer, REFIID riid, void **ppv)
static HRESULT WINAPI	ClassFactory_LockServer (IClassFactory *iface, BOOL dolock)
static HRESULT WINAPI	InternetHostSecurityManager_QueryInterface (IInternetHostSecurityManager *iface, REFIID riid, void **ppv)
static ULONG WINAPI	InternetHostSecurityManager_AddRef (IInternetHostSecurityManager *iface)
static ULONG WINAPI	InternetHostSecurityManager_Release (IInternetHostSecurityManager *iface)
static HRESULT WINAPI	InternetHostSecurityManager_GetSecurityId (IInternetHostSecurityManager *iface, BYTE *pbSecurityId, DWORD *pcbSecurityId, DWORD_PTR dwReserved)
static HRESULT WINAPI	InternetHostSecurityManager_ProcessUrlAction (IInternetHostSecurityManager *iface, DWORD dwAction, BYTE *pPolicy, DWORD cbPolicy, BYTE *pContext, DWORD cbContext, DWORD dwFlags, DWORD dwReserved)
static HRESULT WINAPI	InternetHostSecurityManager_QueryCustomPolicy (IInternetHostSecurityManager *iface, REFGUID guidKey, BYTE **ppPolicy, DWORD *pcbPolicy, BYTE *pContext, DWORD cbContext, DWORD dwReserved)
static HRESULT WINAPI	ServiceProvider_QueryInterface (IServiceProvider *iface, REFIID riid, void **ppv)
static ULONG WINAPI	ServiceProvider_AddRef (IServiceProvider *iface)
static ULONG WINAPI	ServiceProvider_Release (IServiceProvider *iface)
static HRESULT WINAPI	ServiceProvider_QueryService (IServiceProvider *iface, REFGUID guidService, REFIID riid, void **ppv)
static HRESULT WINAPI	ActiveScriptSite_QueryInterface (IActiveScriptSite *iface, REFIID riid, void **ppv)
static ULONG WINAPI	ActiveScriptSite_AddRef (IActiveScriptSite *iface)
static ULONG WINAPI	ActiveScriptSite_Release (IActiveScriptSite *iface)
static HRESULT WINAPI	ActiveScriptSite_GetLCID (IActiveScriptSite *iface, LCID *plcid)
static HRESULT WINAPI	ActiveScriptSite_GetItemInfo (IActiveScriptSite *iface, LPCOLESTR pstrName, DWORD dwReturnMask, IUnknown **ppiunkItem, ITypeInfo **ppti)
static HRESULT WINAPI	ActiveScriptSite_GetDocVersionString (IActiveScriptSite *iface, BSTR *pbstrVersion)
static HRESULT WINAPI	ActiveScriptSite_OnScriptTerminate (IActiveScriptSite *iface, const VARIANT *pvarResult, const EXCEPINFO *pexcepinfo)
static HRESULT WINAPI	ActiveScriptSite_OnStateChange (IActiveScriptSite *iface, SCRIPTSTATE ssScriptState)
static HRESULT WINAPI	ActiveScriptSite_OnScriptError (IActiveScriptSite *iface, IActiveScriptError *pscripterror)
static HRESULT WINAPI	ActiveScriptSite_OnEnterScript (IActiveScriptSite *iface)
static HRESULT WINAPI	ActiveScriptSite_OnLeaveScript (IActiveScriptSite *iface)
static void	set_safety_options (IUnknown *unk, BOOL use_sec_mgr)
static void	_parse_script_a (unsigned line, IActiveScriptParse *parser, const char *script)
static IActiveScriptParse *	create_script (BOOL skip_tests, BOOL use_sec_mgr)
static IDispatchEx *	parse_procedure_a (IActiveScriptParse *parser, const char *src)
static void	_call_procedure (unsigned line, IDispatchEx *proc, IServiceProvider *caller)
static void	test_ActiveXObject (void)
static BOOL	init_key (const char *key_name, const char *def_value, BOOL init)
static BOOL	init_registry (BOOL init)
static BOOL	register_activex (void)
static BOOL	check_jscript (void)
	START_TEST (activex)

Variables
static const CLSID	CLSID_JScript
static const WCHAR	testW [] = {'t','e','s','t',0}
static HRESULT	QS_SecMgr_hres
static HRESULT	ProcessUrlAction_hres
static DWORD	ProcessUrlAction_policy
static HRESULT	CreateInstance_hres
static HRESULT	QueryCustomPolicy_hres
static DWORD	QueryCustomPolicy_psize
static DWORD	QueryCustomPolicy_policy
static HRESULT	QI_IDispatch_hres
static HRESULT	SetSite_hres
static BOOL	AllowIServiceProvider
static const GUID	CLSID_TestObj
const GUID	GUID_CUSTOM_CONFIRMOBJECTSAFETY
static const IObjectWithSiteVtbl	ObjectWithSiteVtbl
static IObjectWithSite	ObjectWithSite = { &ObjectWithSiteVtbl }
static IObjectWithSite *	object_with_site
static IDispatchExVtbl	testObjVtbl
static IDispatchEx	testObj = { &testObjVtbl }
static IDispatchExVtbl	globalObjVtbl
static IDispatchEx	globalObj = { &globalObjVtbl }
static const IClassFactoryVtbl	ClassFactoryVtbl
static IClassFactory	activex_cf = { &ClassFactoryVtbl }
static const IInternetHostSecurityManagerVtbl	InternetHostSecurityManagerVtbl
static IInternetHostSecurityManager	InternetHostSecurityManager = { &InternetHostSecurityManagerVtbl }
static IServiceProvider	ServiceProvider = { &ServiceProviderVtbl }
static IServiceProviderVtbl	ServiceProviderVtbl
static IServiceProvider	caller_sp = { &ServiceProviderVtbl }
static const IActiveScriptSiteVtbl	ActiveScriptSiteVtbl
static IActiveScriptSite	ActiveScriptSite = { &ActiveScriptSiteVtbl }

Macro Definition Documentation

call_procedure

#define call_procedure	(		p,
			c
	)		_call_procedure(__LINE__,p,c)

Definition at line 803 of file activex.c.

CHECK_CALLED

#define CHECK_CALLED

(

func

)

Value:

    do { \
        ok(called_ ## func, "expected " #func "\n"); \
        expect_ ## func = called_ ## func = FALSE; \
    }while(0)

Definition at line 78 of file activex.c.

CHECK_EXPECT

#define CHECK_EXPECT

(

func

)

Value:

    do { \
        CHECK_EXPECT2(func); \
        expect_ ## func = FALSE; \
    }while(0)

Definition at line 72 of file activex.c.

CHECK_EXPECT2

#define CHECK_EXPECT2

(

func

)

Value:

    do { \
        ok(expect_ ##func, "unexpected call " #func "\n"); \
        called_ ## func = TRUE; \
    }while(0)

Definition at line 66 of file activex.c.

COBJMACROS

#define COBJMACROS

Definition at line 21 of file activex.c.

CONST_VTABLE

#define CONST_VTABLE

Definition at line 22 of file activex.c.

DEFINE_EXPECT

#define DEFINE_EXPECT

(

func

)

static BOOL expect_ ## func = FALSE, called_ ## func = FALSE

Definition at line 60 of file activex.c.

DISPID_GLOBAL_OK

#define DISPID_GLOBAL_OK   0x2000

Definition at line 117 of file activex.c.

DISPID_TEST_REPORTSUCCESS

#define DISPID_TEST_REPORTSUCCESS   0x1000

Definition at line 115 of file activex.c.

IActiveScriptParse_InitNew

#define IActiveScriptParse_InitNew   IActiveScriptParse32_InitNew

Definition at line 48 of file activex.c.

IActiveScriptParse_ParseScriptText

#define IActiveScriptParse_ParseScriptText   IActiveScriptParse32_ParseScriptText

Definition at line 49 of file activex.c.

IActiveScriptParse_QueryInterface

#define IActiveScriptParse_QueryInterface   IActiveScriptParse32_QueryInterface

Definition at line 46 of file activex.c.

IActiveScriptParse_Release

#define IActiveScriptParse_Release   IActiveScriptParse32_Release

Definition at line 47 of file activex.c.

IActiveScriptParseProcedure2_ParseProcedureText

#define IActiveScriptParseProcedure2_ParseProcedureText    IActiveScriptParseProcedure2_32_ParseProcedureText

Definition at line 52 of file activex.c.

IActiveScriptParseProcedure2_Release

#define IActiveScriptParseProcedure2_Release    IActiveScriptParseProcedure2_32_Release

Definition at line 50 of file activex.c.

parse_script_a

#define parse_script_a	(		p,
			s
	)		_parse_script_a(__LINE__,p,s)

Definition at line 704 of file activex.c.

SET_EXPECT

#define SET_EXPECT

(

func

)

expect_ ## func = TRUE

Definition at line 63 of file activex.c.

TESTOBJ_CLSID

#define TESTOBJ_CLSID   "{178fc163-f585-4e24-9c13-4bb7faf80646}"

Definition at line 106 of file activex.c.

Function Documentation

_call_procedure()

static void _call_procedure ( unsigned  line, IDispatchEx *  proc, IServiceProvider *  caller  )

static

Definition at line 804 of file activex.c.

{
    DISPPARAMS dp = {NULL,NULL,0,0};
    EXCEPINFO ei = {0};
    HRESULT hres;
 
    hres = IDispatchEx_InvokeEx(proc, DISPID_VALUE, 0, DISPATCH_METHOD, &dp, NULL, &ei, caller);
    ok_(__FILE__,line)(hres == S_OK, "InvokeEx failed: %08x\n", hres);
 
}

_parse_script_a()

static void _parse_script_a ( unsigned  line, IActiveScriptParse *  parser, const char *  script  )

static

Definition at line 705 of file activex.c.

{
    BSTR str;
    HRESULT hres;
 
    str = a2bstr(script);
    hres = IActiveScriptParse_ParseScriptText(parser, str, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
    SysFreeString(str);
    ok_(__FILE__,line)(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
}

a2bstr()

static BSTR a2bstr ( const char *  str )

static

Definition at line 119 of file activex.c.

{
    BSTR ret;
    int len;
 
    len = MultiByteToWideChar(CP_ACP, 0, str, -1, NULL, 0);
    ret = SysAllocStringLen(NULL, len-1);
    MultiByteToWideChar(CP_ACP, 0, str, -1, ret, len);
 
    return ret;
}

Referenced by _doc_get_elems_by_name(), _get_elem_attr_node(), _insert_adjacent_elem(), _link_put_href(), _link_put_rel(), _link_put_rev(), _link_put_type(), _parse_script_a(), _set_body_scroll(), _set_button_name(), _set_framebase_marginheight(), _set_framebase_marginwidth(), _set_iframe_height(), _set_iframe_width(), _set_meta_charset(), _set_stylesheet_csstext(), _test_create_elem(), _test_create_text(), _test_doc_set_title(), _test_elem_set_title(), _test_form_put_action(), _test_form_put_encoding(), _test_form_put_method(), _test_form_put_name(), _test_framebase_put_name(), _test_link_media(), _test_node_put_value_str(), _test_range_set_end_point(), _test_tr_possess(), check_jscript(), doc_complex_write(), doc_write(), get_doc_elem_by_id(), get_elem_by_id(), parse_procedure_a(), test_attr(), test_body_funs(), test_create_elems(), test_default_body(), test_defaults(), test_dom_implementation(), test_elem_col_item(), test_elem_dispex(), test_elems(), test_exec_script(), test_form_target(), test_framebase(), test_frames_collection(), test_iframe_elem(), test_label_elem(), test_object_elem(), test_table_elem(), test_td_elem(), and test_tr_elem().

ActiveScriptSite_AddRef()

static ULONG WINAPI ActiveScriptSite_AddRef ( IActiveScriptSite *  iface )

static

Definition at line 599 of file activex.c.

{
    return 2;
}

ActiveScriptSite_GetDocVersionString()

static HRESULT WINAPI ActiveScriptSite_GetDocVersionString ( IActiveScriptSite *  iface, BSTR *  pbstrVersion  )

static

Definition at line 626 of file activex.c.

{
    return E_NOTIMPL;
}

ActiveScriptSite_GetItemInfo()

static HRESULT WINAPI ActiveScriptSite_GetItemInfo ( IActiveScriptSite *  iface, LPCOLESTR  pstrName, DWORD  dwReturnMask, IUnknown **  ppiunkItem, ITypeInfo **  ppti  )

static

Definition at line 615 of file activex.c.

{
    ok(dwReturnMask == SCRIPTINFO_IUNKNOWN, "unexpected dwReturnMask %x\n", dwReturnMask);
    ok(!ppti, "ppti != NULL\n");
    ok(!strcmp_wa(pstrName, "test"), "pstrName = %s\n", wine_dbgstr_w(pstrName));
 
    *ppiunkItem = (IUnknown*)&globalObj;
    return S_OK;
}

ActiveScriptSite_GetLCID()

static HRESULT WINAPI ActiveScriptSite_GetLCID ( IActiveScriptSite *  iface, LCID *  plcid  )

static

Definition at line 609 of file activex.c.

{
    *plcid = GetUserDefaultLCID();
    return S_OK;
}

ActiveScriptSite_OnEnterScript()

static HRESULT WINAPI ActiveScriptSite_OnEnterScript ( IActiveScriptSite *  iface )

static

Definition at line 647 of file activex.c.

{
    return E_NOTIMPL;
}

ActiveScriptSite_OnLeaveScript()

static HRESULT WINAPI ActiveScriptSite_OnLeaveScript ( IActiveScriptSite *  iface )

static

Definition at line 652 of file activex.c.

{
    return E_NOTIMPL;
}

ActiveScriptSite_OnScriptError()

static HRESULT WINAPI ActiveScriptSite_OnScriptError ( IActiveScriptSite *  iface, IActiveScriptError *  pscripterror  )

static

Definition at line 642 of file activex.c.

{
    return E_NOTIMPL;
}

ActiveScriptSite_OnScriptTerminate()

static HRESULT WINAPI ActiveScriptSite_OnScriptTerminate ( IActiveScriptSite *  iface, const VARIANT *  pvarResult, const EXCEPINFO *  pexcepinfo  )

static

Definition at line 631 of file activex.c.

{
    return E_NOTIMPL;
}

ActiveScriptSite_OnStateChange()

static HRESULT WINAPI ActiveScriptSite_OnStateChange ( IActiveScriptSite *  iface, SCRIPTSTATE  ssScriptState  )

static

Definition at line 637 of file activex.c.

{
    return E_NOTIMPL;
}

ActiveScriptSite_QueryInterface()

static HRESULT WINAPI ActiveScriptSite_QueryInterface ( IActiveScriptSite *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 582 of file activex.c.

{
    if(IsEqualGUID(&IID_IUnknown, riid)) {
        *ppv = iface;
    }else if(IsEqualGUID(&IID_IActiveScriptSite, riid)) {
        *ppv = iface;
    }else if(IsEqualGUID(&IID_IServiceProvider, riid) && AllowIServiceProvider) {
        *ppv = &ServiceProvider;
    }else {
        *ppv = NULL;
        return E_NOINTERFACE;
    }
 
    IUnknown_AddRef((IUnknown*)*ppv);
    return S_OK;
}

ActiveScriptSite_Release()

static ULONG WINAPI ActiveScriptSite_Release ( IActiveScriptSite *  iface )

static

Definition at line 604 of file activex.c.

{
    return 1;
}

check_jscript()

static BOOL check_jscript ( void  )

static

Definition at line 1117 of file activex.c.

{
    IActiveScriptProperty *script_prop;
    IActiveScriptParse *parser;
    BSTR str;
    HRESULT hres;
 
    parser = create_script(TRUE, TRUE);
    if(!parser)
        return FALSE;
 
    str = a2bstr("if(!('localeCompare' in String.prototype)) throw 1;");
    hres = IActiveScriptParse_ParseScriptText(parser, str, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
    SysFreeString(str);
 
    if(hres == S_OK)
        hres = IActiveScriptParse_QueryInterface(parser, &IID_IActiveScriptProperty, (void**)&script_prop);
    IActiveScriptParse_Release(parser);
    if(hres == S_OK)
        IActiveScriptProperty_Release(script_prop);
 
    return hres == S_OK;
}

Referenced by START_TEST().

ClassFactory_AddRef()

static ULONG WINAPI ClassFactory_AddRef ( IClassFactory *  iface )

static

Definition at line 409 of file activex.c.

{
    return 2;
}

ClassFactory_CreateInstance()

static HRESULT WINAPI ClassFactory_CreateInstance ( IClassFactory *  iface, IUnknown *  outer, REFIID  riid, void **  ppv  )

static

Definition at line 419 of file activex.c.

{
    CHECK_EXPECT(CreateInstance);
 
    ok(!outer, "outer = %p\n", outer);
    ok(IsEqualGUID(&IID_IUnknown, riid), "unexpected riid %s\n", wine_dbgstr_guid(riid));
 
    if(SUCCEEDED(CreateInstance_hres))
        *ppv = &testObj;
    return CreateInstance_hres;
}

ClassFactory_LockServer()

static HRESULT WINAPI ClassFactory_LockServer ( IClassFactory *  iface, BOOL  dolock  )

static

Definition at line 431 of file activex.c.

{
    ok(0, "unexpected call\n");
    return S_OK;
}

ClassFactory_QueryInterface()

static HRESULT WINAPI ClassFactory_QueryInterface ( IClassFactory *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 397 of file activex.c.

{
    if(IsEqualGUID(&IID_IUnknown, riid) || IsEqualGUID(&IID_IClassFactory, riid)) {
        *ppv = iface;
        return S_OK;
    }
 
    /* TODO: IClassFactoryEx */
    *ppv = NULL;
    return E_NOINTERFACE;
}

ClassFactory_Release()

static ULONG WINAPI ClassFactory_Release ( IClassFactory *  iface )

static

Definition at line 414 of file activex.c.

{
    return 1;
}

create_script()

static IActiveScriptParse * create_script ( BOOL  skip_tests, BOOL  use_sec_mgr  )

static

Definition at line 716 of file activex.c.

{
    IActiveScriptParse *parser;
    IActiveScript *script;
    HRESULT hres;
 
    QS_SecMgr_hres = S_OK;
    ProcessUrlAction_hres = S_OK;
    ProcessUrlAction_policy = URLPOLICY_ALLOW;
    CreateInstance_hres = S_OK;
    QueryCustomPolicy_hres = S_OK;
    QueryCustomPolicy_psize = sizeof(DWORD);
    QueryCustomPolicy_policy = URLPOLICY_ALLOW;
    QI_IDispatch_hres = S_OK;
    SetSite_hres = S_OK;
    AllowIServiceProvider = TRUE;
 
    hres = CoCreateInstance(&CLSID_JScript, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
            &IID_IActiveScript, (void**)&script);
    if(!skip_tests)
        ok(hres == S_OK, "CoCreateInstance failed: %08x\n", hres);
    if(FAILED(hres))
        return NULL;
 
    if(!skip_tests)
        set_safety_options((IUnknown*)script, use_sec_mgr);
 
    hres = IActiveScript_QueryInterface(script, &IID_IActiveScriptParse, (void**)&parser);
    ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
 
    hres = IActiveScriptParse_InitNew(parser);
    ok(hres == S_OK, "InitNew failed: %08x\n", hres);
 
    hres = IActiveScript_SetScriptSite(script, &ActiveScriptSite);
    ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
 
    hres = IActiveScript_AddNamedItem(script, testW,
            SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|SCRIPTITEM_GLOBALMEMBERS);
    ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
 
    hres = IActiveScript_SetScriptState(script, SCRIPTSTATE_STARTED);
    ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
 
    IActiveScript_Release(script);
 
    if(!skip_tests) {
        parse_script_a(parser,
                "function testException(func, type, number) {\n"
                "    try {\n"
                "        func();\n"
                "    }catch(e) {\n"
                "        ok(e.name === type, 'e.name = ' + e.name + ', expected ' + type)\n"
                "        ok(e.number === number, 'e.number = ' + e.number + ', expected ' + number);\n"
                "        return;\n"
                "    }\n"
                "    ok(false, 'exception expected');\n"
                "}");
    }
 
    return parser;
}

DEFINE_EXPECT() [1/8]

DEFINE_EXPECT

(

Caller_QS_SecMgr

)

DEFINE_EXPECT() [2/8]

DEFINE_EXPECT

(

CreateInstance

)

DEFINE_EXPECT() [3/8]

DEFINE_EXPECT

(

Host_QS_SecMgr

)

DEFINE_EXPECT() [4/8]

DEFINE_EXPECT

(

ProcessUrlAction

)

DEFINE_EXPECT() [5/8]

DEFINE_EXPECT

(

QI_IObjectWithSite

)

DEFINE_EXPECT() [6/8]

DEFINE_EXPECT

(

QueryCustomPolicy

)

DEFINE_EXPECT() [7/8]

DEFINE_EXPECT

(

reportSuccess

)

DEFINE_EXPECT() [8/8]

DEFINE_EXPECT

(

SetSite

)

DispatchEx_AddRef()

static ULONG WINAPI DispatchEx_AddRef ( IDispatchEx *  iface )

static

Definition at line 208 of file activex.c.

{
    return 2;
}

DispatchEx_DeleteMemberByDispID()

static HRESULT WINAPI DispatchEx_DeleteMemberByDispID ( IDispatchEx *  iface, DISPID  id  )

static

Definition at line 253 of file activex.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

DispatchEx_DeleteMemberByName()

static HRESULT WINAPI DispatchEx_DeleteMemberByName ( IDispatchEx *  iface, BSTR  bstrName, DWORD  grfdex  )

static

Definition at line 247 of file activex.c.

{
    ok(0, "unexpected call %s %x\n", wine_dbgstr_w(bstrName), grfdex);
    return E_NOTIMPL;
}

DispatchEx_GetIDsOfNames()

static HRESULT WINAPI DispatchEx_GetIDsOfNames ( IDispatchEx *  iface, REFIID  riid, LPOLESTR *  rgszNames, UINT  cNames, LCID  lcid, DISPID *  rgDispId  )

static

Definition at line 231 of file activex.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

DispatchEx_GetMemberName()

static HRESULT WINAPI DispatchEx_GetMemberName ( IDispatchEx *  iface, DISPID  id, BSTR *  pbstrName  )

static

Definition at line 265 of file activex.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

DispatchEx_GetMemberProperties()

static HRESULT WINAPI DispatchEx_GetMemberProperties ( IDispatchEx *  iface, DISPID  id, DWORD  grfdexFetch, DWORD *  pgrfdex  )

static

Definition at line 259 of file activex.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

DispatchEx_GetNameSpaceParent()

static HRESULT WINAPI DispatchEx_GetNameSpaceParent ( IDispatchEx *  iface, IUnknown **  ppunk  )

static

Definition at line 277 of file activex.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

DispatchEx_GetNextDispID()

static HRESULT WINAPI DispatchEx_GetNextDispID ( IDispatchEx *  iface, DWORD  grfdex, DISPID  id, DISPID *  pid  )

static

Definition at line 271 of file activex.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

DispatchEx_GetTypeInfo()

static HRESULT WINAPI DispatchEx_GetTypeInfo ( IDispatchEx *  iface, UINT  iTInfo, LCID  lcid, ITypeInfo **  ppTInfo  )

static

Definition at line 224 of file activex.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

DispatchEx_GetTypeInfoCount()

static HRESULT WINAPI DispatchEx_GetTypeInfoCount ( IDispatchEx *  iface, UINT *  pctinfo  )

static

Definition at line 218 of file activex.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

DispatchEx_Invoke()

static HRESULT WINAPI DispatchEx_Invoke ( IDispatchEx *  iface, DISPID  dispIdMember, REFIID  riid, LCID  lcid, WORD  wFlags, DISPPARAMS *  pDispParams, VARIANT *  pVarResult, EXCEPINFO *  pExcepInfo, UINT *  puArgErr  )

static

Definition at line 239 of file activex.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

DispatchEx_QueryInterface()

static HRESULT WINAPI DispatchEx_QueryInterface ( IDispatchEx *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 188 of file activex.c.

{
    *ppv = NULL;
 
    if(IsEqualGUID(riid, &IID_IUnknown)) {
       *ppv = iface;
    }else if(IsEqualGUID(riid, &IID_IDispatch) || IsEqualGUID(riid, &IID_IDispatchEx)) {
        if(FAILED(QI_IDispatch_hres))
            return QI_IDispatch_hres;
        *ppv = iface;
    }else if(IsEqualGUID(&IID_IObjectWithSite, riid)) {
        CHECK_EXPECT(QI_IObjectWithSite);
        *ppv = object_with_site;
    }else if(IsEqualGUID(&IID_IObjectSafety, riid)) {
        ok(0, "Unexpected IID_IObjectSafety query\n");
    }
 
    return *ppv ? S_OK : E_NOINTERFACE;
}

DispatchEx_Release()

static ULONG WINAPI DispatchEx_Release ( IDispatchEx *  iface )

static

Definition at line 213 of file activex.c.

{
    return 1;
}

Global_GetDispID()

static HRESULT WINAPI Global_GetDispID ( IDispatchEx *  iface, BSTR  bstrName, DWORD  grfdex, DISPID *  pid  )

static

Definition at line 339 of file activex.c.

{
    if(!strcmp_wa(bstrName, "ok")) {
        ok(grfdex == fdexNameCaseSensitive, "grfdex = %x\n", grfdex);
        *pid = DISPID_GLOBAL_OK;
        return S_OK;
    }
 
    ok(0, "unexpected name %s\n", wine_dbgstr_w(bstrName));
    return E_NOTIMPL;
}

Global_InvokeEx()

static HRESULT WINAPI Global_InvokeEx ( IDispatchEx *  iface, DISPID  id, LCID  lcid, WORD  wFlags, DISPPARAMS *  pdp, VARIANT *  pvarRes, EXCEPINFO *  pei, IServiceProvider *  pspCaller  )

static

Definition at line 351 of file activex.c.

{
    switch(id) {
    case DISPID_GLOBAL_OK:
        ok(wFlags == INVOKE_FUNC || wFlags == (INVOKE_FUNC|INVOKE_PROPERTYGET), "wFlags = %x\n", wFlags);
        ok(pdp != NULL, "pdp == NULL\n");
        ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
        ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
        ok(pdp->cArgs == 2, "cArgs = %d\n", pdp->cArgs);
        ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
        ok(pei != NULL, "pei == NULL\n");
 
        ok(V_VT(pdp->rgvarg) == VT_BSTR, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp->rgvarg));
        ok(V_VT(pdp->rgvarg+1) == VT_BOOL, "V_VT(psp->rgvargs+1) = %d\n", V_VT(pdp->rgvarg));
        ok(V_BOOL(pdp->rgvarg+1), "%s\n", wine_dbgstr_w(V_BSTR(pdp->rgvarg)));
        break;
 
    default:
        ok(0, "unexpected call\n");
        return E_NOTIMPL;
    }
 
    return S_OK;
}

init_key()

static BOOL init_key ( const char *  key_name, const char *  def_value, BOOL  init  )

static

Definition at line 1073 of file activex.c.

{
    HKEY hkey;
    DWORD res;
 
    if(!init) {
        RegDeleteKeyA(HKEY_CLASSES_ROOT, key_name);
        return TRUE;
    }
 
    res = RegCreateKeyA(HKEY_CLASSES_ROOT, key_name, &hkey);
    if(res != ERROR_SUCCESS)
        return FALSE;
 
    if(def_value)
        res = RegSetValueA(hkey, NULL, REG_SZ, def_value, strlen(def_value));
 
    RegCloseKey(hkey);
 
    return res == ERROR_SUCCESS;
}

Referenced by init_registry().

init_registry()

static BOOL init_registry ( BOOL  init )

static

Definition at line 1095 of file activex.c.

{
    return init_key("Wine.Test\\CLSID", TESTOBJ_CLSID, init);
}

Referenced by register_activex(), and START_TEST().

InternetHostSecurityManager_AddRef()

static ULONG WINAPI InternetHostSecurityManager_AddRef ( IInternetHostSecurityManager *  iface )

static

Definition at line 453 of file activex.c.

{
    return 2;
}

InternetHostSecurityManager_GetSecurityId()

static HRESULT WINAPI InternetHostSecurityManager_GetSecurityId ( IInternetHostSecurityManager *  iface, BYTE *  pbSecurityId, DWORD *  pcbSecurityId, DWORD_PTR  dwReserved  )

static

Definition at line 463 of file activex.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

InternetHostSecurityManager_ProcessUrlAction()

static HRESULT WINAPI InternetHostSecurityManager_ProcessUrlAction ( IInternetHostSecurityManager *  iface, DWORD  dwAction, BYTE *  pPolicy, DWORD  cbPolicy, BYTE *  pContext, DWORD  cbContext, DWORD  dwFlags, DWORD  dwReserved  )

static

Definition at line 470 of file activex.c.

{
    CHECK_EXPECT(ProcessUrlAction);
 
    ok(dwAction == URLACTION_ACTIVEX_RUN, "dwAction = %x\n", dwAction);
    ok(pPolicy != NULL, "pPolicy == NULL\n");
    ok(cbPolicy == sizeof(DWORD), "cbPolicy = %d\n", cbPolicy);
    ok(pContext != NULL, "pContext == NULL\n");
    ok(cbContext == sizeof(GUID), "cbContext = %d\n", cbContext);
    ok(IsEqualGUID(pContext, &CLSID_TestObj), "pContext = %s\n", wine_dbgstr_guid((const IID*)pContext));
    ok(!dwFlags, "dwFlags = %x\n", dwFlags);
    ok(!dwReserved, "dwReserved = %x\n", dwReserved);
 
    if(SUCCEEDED(ProcessUrlAction_hres))
        *(DWORD*)pPolicy = ProcessUrlAction_policy;
    return ProcessUrlAction_hres;
}

InternetHostSecurityManager_QueryCustomPolicy()

static HRESULT WINAPI InternetHostSecurityManager_QueryCustomPolicy ( IInternetHostSecurityManager *  iface, REFGUID  guidKey, BYTE **  ppPolicy, DWORD *  pcbPolicy, BYTE *  pContext, DWORD  cbContext, DWORD  dwReserved  )

static

Definition at line 489 of file activex.c.

{
    const struct CONFIRMSAFETY *cs = (const struct CONFIRMSAFETY*)pContext;
    DWORD *ret;
 
    CHECK_EXPECT(QueryCustomPolicy);
 
    ok(IsEqualGUID(&GUID_CUSTOM_CONFIRMOBJECTSAFETY, guidKey), "guidKey = %s\n", wine_dbgstr_guid(guidKey));
 
    ok(ppPolicy != NULL, "ppPolicy == NULL\n");
    ok(pcbPolicy != NULL, "pcbPolicy == NULL\n");
    ok(pContext != NULL, "pContext == NULL\n");
    ok(cbContext == sizeof(struct CONFIRMSAFETY), "cbContext = %d\n", cbContext);
    ok(!dwReserved, "dwReserved = %x\n", dwReserved);
 
    /* TODO: CLSID */
    ok(cs->pUnk != NULL, "cs->pUnk == NULL\n");
    ok(!cs->dwFlags, "dwFlags = %x\n", cs->dwFlags);
 
    if(FAILED(QueryCustomPolicy_hres))
        return QueryCustomPolicy_hres;
 
    ret = CoTaskMemAlloc(QueryCustomPolicy_psize);
    *ppPolicy = (BYTE*)ret;
    *pcbPolicy = QueryCustomPolicy_psize;
    memset(ret, 0, QueryCustomPolicy_psize);
    if(QueryCustomPolicy_psize >= sizeof(DWORD))
        *ret = QueryCustomPolicy_policy;
 
    return QueryCustomPolicy_hres;
}

InternetHostSecurityManager_QueryInterface()

static HRESULT WINAPI InternetHostSecurityManager_QueryInterface ( IInternetHostSecurityManager *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 447 of file activex.c.

{
    ok(0, "unexpected call\n");
    return E_NOINTERFACE;
}

InternetHostSecurityManager_Release()

static ULONG WINAPI InternetHostSecurityManager_Release ( IInternetHostSecurityManager *  iface )

static

Definition at line 458 of file activex.c.

{
    return 1;
}

ObjectWithSite_AddRef()

static ULONG WINAPI ObjectWithSite_AddRef ( IObjectWithSite *  iface )

static

Definition at line 144 of file activex.c.

{
    return 2;
}

ObjectWithSite_GetSite()

static HRESULT WINAPI ObjectWithSite_GetSite ( IObjectWithSite *  iface, REFIID  riid, void **  ppvSite  )

static

Definition at line 170 of file activex.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

ObjectWithSite_QueryInterface()

static HRESULT WINAPI ObjectWithSite_QueryInterface ( IObjectWithSite *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 138 of file activex.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

ObjectWithSite_Release()

static ULONG WINAPI ObjectWithSite_Release ( IObjectWithSite *  iface )

static

Definition at line 149 of file activex.c.

{
    return 1;
}

ObjectWithSite_SetSite()

static HRESULT WINAPI ObjectWithSite_SetSite ( IObjectWithSite *  iface, IUnknown *  pUnkSite  )

static

Definition at line 154 of file activex.c.

{
    IServiceProvider *sp;
    HRESULT hres;
 
 
    CHECK_EXPECT(SetSite);
    ok(pUnkSite != NULL, "pUnkSite == NULL\n");
 
    hres = IUnknown_QueryInterface(pUnkSite, &IID_IServiceProvider, (void**)&sp);
    ok(hres == S_OK, "Could not get IServiceProvider iface: %08x\n", hres);
    IServiceProvider_Release(sp);
 
    return SetSite_hres;
}

parse_procedure_a()

static IDispatchEx * parse_procedure_a ( IActiveScriptParse *  parser, const char *  src  )

static

Definition at line 778 of file activex.c.

{
    IActiveScriptParseProcedure2 *parse_proc;
    IDispatchEx *dispex;
    IDispatch *disp;
    BSTR str;
    HRESULT hres;
 
    hres = IActiveScriptParse_QueryInterface(parser, &IID_IActiveScriptParseProcedure2, (void**)&parse_proc);
    ok(hres == S_OK, "Could not get IActiveScriptParseProcedure2: %08x\n", hres);
 
    str = a2bstr(src);
    hres = IActiveScriptParseProcedure2_ParseProcedureText(parse_proc, str, NULL, NULL, NULL, NULL, NULL, 0, 0, 0, &disp);
    SysFreeString(str);
    IActiveScriptParseProcedure2_Release(parse_proc);
    ok(hres == S_OK, "ParseProcedureText failed: %08x\n", hres);
    ok(disp != NULL, "disp == NULL\n");
 
    hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex);
    IDispatch_Release(disp);
    ok(hres == S_OK, "Could not get IDispatchEx iface: %08x\n", hres);
 
    return dispex;
}

Referenced by test_ActiveXObject().

register_activex()

static BOOL register_activex ( void  )

static

Definition at line 1100 of file activex.c.

{
    DWORD regid;
    HRESULT hres;
 
    if(!init_registry(TRUE)) {
        init_registry(FALSE);
        return FALSE;
    }
 
    hres = CoRegisterClassObject(&CLSID_TestObj, (IUnknown *)&activex_cf,
                                 CLSCTX_INPROC_SERVER, REGCLS_MULTIPLEUSE, &regid);
    ok(hres == S_OK, "Could not register script engine: %08x\n", hres);
 
    return TRUE;
}

Referenced by START_TEST().

ServiceProvider_AddRef()

static ULONG WINAPI ServiceProvider_AddRef ( IServiceProvider *  iface )

static

Definition at line 541 of file activex.c.

{
    return 2;
}

ServiceProvider_QueryInterface()

static HRESULT WINAPI ServiceProvider_QueryInterface ( IServiceProvider *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 535 of file activex.c.

{
    ok(0, "unexpected call\n");
    return E_NOINTERFACE;
}

ServiceProvider_QueryService()

static HRESULT WINAPI ServiceProvider_QueryService ( IServiceProvider *  iface, REFGUID  guidService, REFIID  riid, void **  ppv  )

static

Definition at line 551 of file activex.c.

{
    if(IsEqualGUID(&SID_GetCaller, guidService))
        return E_NOINTERFACE;
 
    if(IsEqualGUID(&SID_SInternetHostSecurityManager, guidService)) {
        if(iface == &ServiceProvider)
            CHECK_EXPECT(Host_QS_SecMgr);
        else
            CHECK_EXPECT(Caller_QS_SecMgr);
        ok(IsEqualGUID(&IID_IInternetHostSecurityManager, riid), "unexpected riid %s\n", wine_dbgstr_guid(riid));
        if(SUCCEEDED(QS_SecMgr_hres))
            *ppv = &InternetHostSecurityManager;
        return QS_SecMgr_hres;
    }
 
    ok(0, "unexpected service %s\n", wine_dbgstr_guid(guidService));
    return E_NOINTERFACE;
}

ServiceProvider_Release()

static ULONG WINAPI ServiceProvider_Release ( IServiceProvider *  iface )

static

Definition at line 546 of file activex.c.

{
    return 1;
}

set_safety_options()

static void set_safety_options ( IUnknown *  unk, BOOL  use_sec_mgr  )

static

Definition at line 675 of file activex.c.

{
    IObjectSafety *safety;
    DWORD supported, enabled, options_all, options_set;
    HRESULT hres;
 
    hres = IUnknown_QueryInterface(unk, &IID_IObjectSafety, (void**)&safety);
    ok(hres == S_OK, "Could not get IObjectSafety: %08x\n", hres);
    if(FAILED(hres))
        return;
 
    options_all = INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER;
    if(use_sec_mgr)
        options_set = options_all;
    else
        options_set = INTERFACE_USES_DISPEX;
 
    hres = IObjectSafety_SetInterfaceSafetyOptions(safety, &IID_IActiveScriptParse, options_all, options_set);
    ok(hres == S_OK, "SetInterfaceSafetyOptions failed: %08x\n", hres);
 
    supported = enabled = 0xdeadbeef;
    hres = IObjectSafety_GetInterfaceSafetyOptions(safety, &IID_IActiveScriptParse, &supported, &enabled);
    ok(hres == S_OK, "GetInterfaceSafetyOptions failed: %08x\n", hres);
    ok(supported == options_all, "supported=%x, expected %x\n", supported, options_all);
    ok(enabled == options_set, "enabled=%x, expected %x\n", enabled, options_set);
 
    IObjectSafety_Release(safety);
}

Referenced by create_script().

START_TEST()

START_TEST

(

activex

)

Definition at line 1141 of file activex.c.

{
    CoInitialize(NULL);
 
    if(check_jscript()) {
        if(register_activex()) {
            test_ActiveXObject();
            init_registry(FALSE);
        }else {
            skip("Could not register ActiveX object\n");
        }
    }else {
        win_skip("Broken engine, probably too old\n");
    }
 
    CoUninitialize();
}

strcmp_wa()

static int strcmp_wa ( LPCWSTR  strw, const char *  stra  )

static

Definition at line 131 of file activex.c.

{
    CHAR buf[512];
    WideCharToMultiByte(CP_ACP, 0, strw, -1, buf, sizeof(buf), 0, 0);
    return lstrcmpA(buf, stra);
}

Referenced by ActiveScriptSite_GetItemInfo(), Dispatch_GetIDsOfNames(), Global_GetDispID(), PersistPropertyBag_Load(), Test_GetDispID(), test_mon_displayname(), and test_object_elem().

test_ActiveXObject()

static void test_ActiveXObject ( void  )

static

Definition at line 815 of file activex.c.

{
    IActiveScriptParse *parser;
    IDispatchEx *proc;
 
    parser = create_script(FALSE, TRUE);
 
    SET_EXPECT(Host_QS_SecMgr);
    SET_EXPECT(ProcessUrlAction);
    SET_EXPECT(CreateInstance);
    SET_EXPECT(QueryCustomPolicy);
    SET_EXPECT(QI_IObjectWithSite);
    SET_EXPECT(reportSuccess);
    parse_script_a(parser, "(new ActiveXObject('Wine.Test')).reportSuccess();");
    CHECK_CALLED(Host_QS_SecMgr);
    CHECK_CALLED(ProcessUrlAction);
    CHECK_CALLED(CreateInstance);
    CHECK_CALLED(QueryCustomPolicy);
    CHECK_CALLED(QI_IObjectWithSite);
    CHECK_CALLED(reportSuccess);
 
    proc = parse_procedure_a(parser, "(new ActiveXObject('Wine.Test')).reportSuccess();");
 
    SET_EXPECT(ProcessUrlAction);
    SET_EXPECT(CreateInstance);
    SET_EXPECT(QueryCustomPolicy);
    SET_EXPECT(QI_IObjectWithSite);
    SET_EXPECT(reportSuccess);
    call_procedure(proc, NULL);
    CHECK_CALLED(ProcessUrlAction);
    CHECK_CALLED(CreateInstance);
    CHECK_CALLED(QueryCustomPolicy);
    CHECK_CALLED(QI_IObjectWithSite);
    CHECK_CALLED(reportSuccess);
 
    SET_EXPECT(ProcessUrlAction);
    SET_EXPECT(CreateInstance);
    SET_EXPECT(QueryCustomPolicy);
    SET_EXPECT(QI_IObjectWithSite);
    SET_EXPECT(reportSuccess);
    call_procedure(proc, &caller_sp);
    CHECK_CALLED(ProcessUrlAction);
    CHECK_CALLED(CreateInstance);
    CHECK_CALLED(QueryCustomPolicy);
    CHECK_CALLED(QI_IObjectWithSite);
    CHECK_CALLED(reportSuccess);
 
    IDispatchEx_Release(proc);
    IActiveScriptParse_Release(parser);
 
    parser = create_script(FALSE, TRUE);
    proc = parse_procedure_a(parser, "(new ActiveXObject('Wine.Test')).reportSuccess();");
 
    SET_EXPECT(Host_QS_SecMgr);
    SET_EXPECT(ProcessUrlAction);
    SET_EXPECT(CreateInstance);
    SET_EXPECT(QueryCustomPolicy);
    SET_EXPECT(QI_IObjectWithSite);
    SET_EXPECT(reportSuccess);
    call_procedure(proc, &caller_sp);
    CHECK_CALLED(Host_QS_SecMgr);
    CHECK_CALLED(ProcessUrlAction);
    CHECK_CALLED(CreateInstance);
    CHECK_CALLED(QueryCustomPolicy);
    CHECK_CALLED(QI_IObjectWithSite);
    CHECK_CALLED(reportSuccess);
 
    parse_script_a(parser, "testException(function() { new ActiveXObject('Wine.TestABC'); }, 'Error', -2146827859);");
 
    IDispatchEx_Release(proc);
    IActiveScriptParse_Release(parser);
 
    parser = create_script(FALSE, TRUE);
    QS_SecMgr_hres = E_NOINTERFACE;
 
    SET_EXPECT(Host_QS_SecMgr);
    parse_script_a(parser, "testException(function() { new ActiveXObject('Wine.Test'); }, 'Error', -2146827859);");
    CHECK_CALLED(Host_QS_SecMgr);
 
    IActiveScriptParse_Release(parser);
 
    parser = create_script(FALSE, TRUE);
    ProcessUrlAction_hres = E_FAIL;
 
    SET_EXPECT(Host_QS_SecMgr);
    SET_EXPECT(ProcessUrlAction);
    parse_script_a(parser, "testException(function() { new ActiveXObject('Wine.Test'); }, 'Error', -2146827859);");
    CHECK_CALLED(Host_QS_SecMgr);
    CHECK_CALLED(ProcessUrlAction);
 
    IActiveScriptParse_Release(parser);
 
    parser = create_script(FALSE, TRUE);
    ProcessUrlAction_policy = URLPOLICY_DISALLOW;
 
    SET_EXPECT(Host_QS_SecMgr);
    SET_EXPECT(ProcessUrlAction);
    parse_script_a(parser, "testException(function() { new ActiveXObject('Wine.Test'); }, 'Error', -2146827859);");
    CHECK_CALLED(Host_QS_SecMgr);
    CHECK_CALLED(ProcessUrlAction);
 
    IActiveScriptParse_Release(parser);
 
    parser = create_script(FALSE, TRUE);
    CreateInstance_hres = E_FAIL;
 
    SET_EXPECT(Host_QS_SecMgr);
    SET_EXPECT(ProcessUrlAction);
    SET_EXPECT(CreateInstance);
    parse_script_a(parser, "testException(function() { new ActiveXObject('Wine.Test'); }, 'Error', -2146827859);");
    CHECK_CALLED(Host_QS_SecMgr);
    CHECK_CALLED(ProcessUrlAction);
    CHECK_CALLED(CreateInstance);
 
    IActiveScriptParse_Release(parser);
 
    parser = create_script(FALSE, TRUE);
    QueryCustomPolicy_hres = E_FAIL;
 
    SET_EXPECT(Host_QS_SecMgr);
    SET_EXPECT(ProcessUrlAction);
    SET_EXPECT(CreateInstance);
    SET_EXPECT(QueryCustomPolicy);
    parse_script_a(parser, "testException(function() { new ActiveXObject('Wine.Test'); }, 'Error', -2146827859);");
    CHECK_CALLED(Host_QS_SecMgr);
    CHECK_CALLED(ProcessUrlAction);
    CHECK_CALLED(CreateInstance);
    CHECK_CALLED(QueryCustomPolicy);
 
    IActiveScriptParse_Release(parser);
 
    parser = create_script(FALSE, TRUE);
    QueryCustomPolicy_psize = 6;
 
    SET_EXPECT(Host_QS_SecMgr);
    SET_EXPECT(ProcessUrlAction);
    SET_EXPECT(CreateInstance);
    SET_EXPECT(QueryCustomPolicy);
    SET_EXPECT(QI_IObjectWithSite);
    SET_EXPECT(reportSuccess);
    parse_script_a(parser, "(new ActiveXObject('Wine.Test')).reportSuccess();");
    CHECK_CALLED(Host_QS_SecMgr);
    CHECK_CALLED(ProcessUrlAction);
    CHECK_CALLED(CreateInstance);
    CHECK_CALLED(QueryCustomPolicy);
    CHECK_CALLED(QI_IObjectWithSite);
    CHECK_CALLED(reportSuccess);
 
    IActiveScriptParse_Release(parser);
 
    parser = create_script(FALSE, TRUE);
    QueryCustomPolicy_policy = URLPOLICY_DISALLOW;
 
    SET_EXPECT(Host_QS_SecMgr);
    SET_EXPECT(ProcessUrlAction);
    SET_EXPECT(CreateInstance);
    SET_EXPECT(QueryCustomPolicy);
    parse_script_a(parser, "testException(function() { new ActiveXObject('Wine.Test'); }, 'Error', -2146827859);");
    CHECK_CALLED(Host_QS_SecMgr);
    CHECK_CALLED(ProcessUrlAction);
    CHECK_CALLED(CreateInstance);
    CHECK_CALLED(QueryCustomPolicy);
 
    QueryCustomPolicy_psize = 6;
 
    SET_EXPECT(ProcessUrlAction);
    SET_EXPECT(CreateInstance);
    SET_EXPECT(QueryCustomPolicy);
    parse_script_a(parser, "testException(function() { new ActiveXObject('Wine.Test'); }, 'Error', -2146827859);");
    CHECK_CALLED(ProcessUrlAction);
    CHECK_CALLED(CreateInstance);
    CHECK_CALLED(QueryCustomPolicy);
 
    QueryCustomPolicy_policy = URLPOLICY_ALLOW;
    QueryCustomPolicy_psize = 3;
 
    SET_EXPECT(ProcessUrlAction);
    SET_EXPECT(CreateInstance);
    SET_EXPECT(QueryCustomPolicy);
    parse_script_a(parser, "testException(function() { new ActiveXObject('Wine.Test'); }, 'Error', -2146827859);");
    CHECK_CALLED(ProcessUrlAction);
    CHECK_CALLED(CreateInstance);
    CHECK_CALLED(QueryCustomPolicy);
 
    IActiveScriptParse_Release(parser);
 
    parser = create_script(FALSE, FALSE);
 
    SET_EXPECT(CreateInstance);
    SET_EXPECT(QI_IObjectWithSite);
    SET_EXPECT(reportSuccess);
    parse_script_a(parser, "(new ActiveXObject('Wine.Test')).reportSuccess();");
    CHECK_CALLED(CreateInstance);
    CHECK_CALLED(QI_IObjectWithSite);
    CHECK_CALLED(reportSuccess);
 
    IActiveScriptParse_Release(parser);
 
    parser = create_script(FALSE, TRUE);
    object_with_site = &ObjectWithSite;
 
    SET_EXPECT(Host_QS_SecMgr);
    SET_EXPECT(ProcessUrlAction);
    SET_EXPECT(CreateInstance);
    SET_EXPECT(QueryCustomPolicy);
    SET_EXPECT(QI_IObjectWithSite);
    SET_EXPECT(SetSite);
    SET_EXPECT(reportSuccess);
    parse_script_a(parser, "(new ActiveXObject('Wine.Test')).reportSuccess();");
    CHECK_CALLED(Host_QS_SecMgr);
    CHECK_CALLED(ProcessUrlAction);
    CHECK_CALLED(CreateInstance);
    CHECK_CALLED(QueryCustomPolicy);
    CHECK_CALLED(QI_IObjectWithSite);
    CHECK_CALLED(SetSite);
    CHECK_CALLED(reportSuccess);
 
    SetSite_hres = E_FAIL;
    SET_EXPECT(ProcessUrlAction);
    SET_EXPECT(CreateInstance);
    SET_EXPECT(QueryCustomPolicy);
    SET_EXPECT(QI_IObjectWithSite);
    SET_EXPECT(SetSite);
    parse_script_a(parser, "testException(function() { new ActiveXObject('Wine.Test'); }, 'Error', -2146827859);");
    CHECK_CALLED(ProcessUrlAction);
    CHECK_CALLED(CreateInstance);
    CHECK_CALLED(QueryCustomPolicy);
    CHECK_CALLED(QI_IObjectWithSite);
    CHECK_CALLED(SetSite);
 
    IActiveScriptParse_Release(parser);
 
    /* No IServiceProvider Interface */
    parser = create_script(FALSE, FALSE);
    object_with_site = &ObjectWithSite;
    AllowIServiceProvider = FALSE;
 
    SET_EXPECT(CreateInstance);
    SET_EXPECT(QI_IObjectWithSite);
    SET_EXPECT(reportSuccess);
    SET_EXPECT(SetSite);
    parse_script_a(parser, "(new ActiveXObject('Wine.Test')).reportSuccess();");
    CHECK_CALLED(CreateInstance);
    CHECK_CALLED(QI_IObjectWithSite);
    CHECK_CALLED(reportSuccess);
    CHECK_CALLED(SetSite);
 
    IActiveScriptParse_Release(parser);
 
    parser = create_script(FALSE, TRUE);
    object_with_site = &ObjectWithSite;
    AllowIServiceProvider = FALSE;
 
    parse_script_a(parser, "testException(function() { new ActiveXObject('Wine.Test'); }, 'Error', -2146827859);");
 
    IActiveScriptParse_Release(parser);
}

Referenced by START_TEST().

Test_GetDispID()

static HRESULT WINAPI Test_GetDispID ( IDispatchEx *  iface, BSTR  bstrName, DWORD  grfdex, DISPID *  pid  )

static

Definition at line 283 of file activex.c.

{
    if(!strcmp_wa(bstrName, "reportSuccess")) {
        ok(grfdex == fdexNameCaseSensitive, "grfdex = %x\n", grfdex);
        *pid = DISPID_TEST_REPORTSUCCESS;
        return S_OK;
    }
 
    ok(0, "unexpected name %s\n", wine_dbgstr_w(bstrName));
    return E_NOTIMPL;
}

Test_InvokeEx()

static HRESULT WINAPI Test_InvokeEx ( IDispatchEx *  iface, DISPID  id, LCID  lcid, WORD  wFlags, DISPPARAMS *  pdp, VARIANT *  pvarRes, EXCEPINFO *  pei, IServiceProvider *  pspCaller  )

static

Definition at line 295 of file activex.c.

{
    switch(id) {
    case DISPID_TEST_REPORTSUCCESS:
        CHECK_EXPECT(reportSuccess);
 
        ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags);
        ok(pdp != NULL, "pdp == NULL\n");
        ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
        ok(pdp->cArgs == 0, "cArgs = %d\n", pdp->cArgs);
        ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
        ok(!pvarRes, "pvarRes != NULL\n");
        ok(pei != NULL, "pei == NULL\n");
        break;
 
    default:
        ok(0, "unexpected call\n");
        return E_NOTIMPL;
    }
 
    return S_OK;
}

Variable Documentation

ActiveScriptSite

IActiveScriptSite ActiveScriptSite = { &ActiveScriptSiteVtbl }

static

Definition at line 673 of file activex.c.

Referenced by create_script().

ActiveScriptSiteVtbl

const IActiveScriptSiteVtbl ActiveScriptSiteVtbl

static

Initial value:

= {
    ActiveScriptSite_QueryInterface,
    ActiveScriptSite_AddRef,
    ActiveScriptSite_Release,
    ActiveScriptSite_GetLCID,
    ActiveScriptSite_GetItemInfo,
    ActiveScriptSite_GetDocVersionString,
    ActiveScriptSite_OnScriptTerminate,
    ActiveScriptSite_OnStateChange,
    ActiveScriptSite_OnScriptError,
    ActiveScriptSite_OnEnterScript,
    ActiveScriptSite_OnLeaveScript
}

Definition at line 659 of file activex.c.

activex_cf

IClassFactory activex_cf = { &ClassFactoryVtbl }

static

Definition at line 445 of file activex.c.

Referenced by register_activex().

AllowIServiceProvider

BOOL AllowIServiceProvider

static

Definition at line 104 of file activex.c.

Referenced by ActiveScriptSite_QueryInterface(), create_script(), and test_ActiveXObject().

caller_sp

IServiceProvider caller_sp = { &ServiceProviderVtbl }

static

Definition at line 580 of file activex.c.

Referenced by test_ActiveXObject().

ClassFactoryVtbl

const IClassFactoryVtbl ClassFactoryVtbl

static

Initial value:

= {
    ClassFactory_QueryInterface,
    ClassFactory_AddRef,
    ClassFactory_Release,
    ClassFactory_CreateInstance,
    ClassFactory_LockServer
}

Definition at line 437 of file activex.c.

CLSID_JScript

const CLSID CLSID_JScript

static

Initial value:

=
    {0xf414c260,0x6ac0,0x11cf,{0xb6,0xd1,0x00,0xaa,0x00,0xbb,0xbb,0x58}}

Definition at line 57 of file activex.c.

Referenced by create_script(), DllGetClassObject(), get_default_script_guid(), get_elem_script_host(), get_guid_from_type(), is_jscript_available(), and script_parse_event().

CLSID_TestObj

const GUID CLSID_TestObj

static

Initial value:

=
    {0x178fc163,0xf585,0x4e24,{0x9c,0x13,0x4b,0xb7,0xfa,0xf8,0x06,0x46}}

Definition at line 108 of file activex.c.

Referenced by InternetHostSecurityManager_ProcessUrlAction(), and register_activex().

CreateInstance_hres

HRESULT CreateInstance_hres

static

Definition at line 98 of file activex.c.

Referenced by ClassFactory_CreateInstance(), create_script(), and test_ActiveXObject().

globalObj

IDispatchEx globalObj = { &globalObjVtbl }

static

Definition at line 395 of file activex.c.

Referenced by ActiveScriptSite_GetItemInfo().

globalObjVtbl

IDispatchExVtbl globalObjVtbl

static

Initial value:

= {
    DispatchEx_QueryInterface,
    DispatchEx_AddRef,
    DispatchEx_Release,
    DispatchEx_GetTypeInfoCount,
    DispatchEx_GetTypeInfo,
    DispatchEx_GetIDsOfNames,
    DispatchEx_Invoke,
    Global_GetDispID,
    Global_InvokeEx,
    DispatchEx_DeleteMemberByName,
    DispatchEx_DeleteMemberByDispID,
    DispatchEx_GetMemberProperties,
    DispatchEx_GetMemberName,
    DispatchEx_GetNextDispID,
    DispatchEx_GetNameSpaceParent
}

Definition at line 377 of file activex.c.

GUID_CUSTOM_CONFIRMOBJECTSAFETY

const GUID GUID_CUSTOM_CONFIRMOBJECTSAFETY

Initial value:

=
    {0x10200490,0xfa38,0x11d0,{0xac,0x0e,0x00,0xa0,0xc9,0xf,0xff,0xc0}}

Definition at line 112 of file activex.c.

InternetHostSecurityManager

IInternetHostSecurityManager InternetHostSecurityManager = { &InternetHostSecurityManagerVtbl }

static

Definition at line 531 of file activex.c.

Referenced by ServiceProvider_QueryService().

InternetHostSecurityManagerVtbl

const IInternetHostSecurityManagerVtbl InternetHostSecurityManagerVtbl

static

Initial value:

= {
    InternetHostSecurityManager_QueryInterface,
    InternetHostSecurityManager_AddRef,
    InternetHostSecurityManager_Release,
    InternetHostSecurityManager_GetSecurityId,
    InternetHostSecurityManager_ProcessUrlAction,
    InternetHostSecurityManager_QueryCustomPolicy
}

Definition at line 522 of file activex.c.

object_with_site

IObjectWithSite* object_with_site

static

Definition at line 186 of file activex.c.

Referenced by DispatchEx_QueryInterface(), and test_ActiveXObject().

ObjectWithSite

IObjectWithSite ObjectWithSite = { &ObjectWithSiteVtbl }

static

Definition at line 184 of file activex.c.

Referenced by test_ActiveXObject().

ObjectWithSiteVtbl

const IObjectWithSiteVtbl ObjectWithSiteVtbl

static

Initial value:

= {
    ObjectWithSite_QueryInterface,
    ObjectWithSite_AddRef,
    ObjectWithSite_Release,
    ObjectWithSite_SetSite,
    ObjectWithSite_GetSite
}

Definition at line 176 of file activex.c.

ProcessUrlAction_hres

HRESULT ProcessUrlAction_hres

static

Definition at line 96 of file activex.c.

Referenced by create_script(), InternetHostSecurityManager_ProcessUrlAction(), and test_ActiveXObject().

ProcessUrlAction_policy

DWORD ProcessUrlAction_policy

static

Definition at line 97 of file activex.c.

Referenced by create_script(), InternetHostSecurityManager_ProcessUrlAction(), and test_ActiveXObject().

QI_IDispatch_hres

HRESULT QI_IDispatch_hres

static

Definition at line 102 of file activex.c.

Referenced by create_script(), and DispatchEx_QueryInterface().

QS_SecMgr_hres

HRESULT QS_SecMgr_hres

static

Definition at line 95 of file activex.c.

Referenced by create_script(), ServiceProvider_QueryService(), and test_ActiveXObject().

QueryCustomPolicy_hres

HRESULT QueryCustomPolicy_hres

static

Definition at line 99 of file activex.c.

Referenced by create_script(), InternetHostSecurityManager_QueryCustomPolicy(), and test_ActiveXObject().

QueryCustomPolicy_policy

DWORD QueryCustomPolicy_policy

static

Definition at line 101 of file activex.c.

Referenced by create_script(), InternetHostSecurityManager_QueryCustomPolicy(), and test_ActiveXObject().

QueryCustomPolicy_psize

DWORD QueryCustomPolicy_psize

static

Definition at line 100 of file activex.c.

Referenced by create_script(), InternetHostSecurityManager_QueryCustomPolicy(), and test_ActiveXObject().

ServiceProvider

static IServiceProvider ServiceProvider = { &ServiceProviderVtbl }

static

Definition at line 533 of file activex.c.

Referenced by ActiveScriptSite_QueryInterface(), cs_qi(), and ServiceProvider_QueryService().

ServiceProviderVtbl

IServiceProviderVtbl ServiceProviderVtbl

static

Initial value:

= {
    ServiceProvider_QueryInterface,
    ServiceProvider_AddRef,
    ServiceProvider_Release,
    ServiceProvider_QueryService
}

Definition at line 572 of file activex.c.

SetSite_hres

HRESULT SetSite_hres

static

Definition at line 103 of file activex.c.

Referenced by create_script(), ObjectWithSite_SetSite(), and test_ActiveXObject().

testObj

IDispatchEx testObj = { &testObjVtbl }

static

Definition at line 337 of file activex.c.

Referenced by ClassFactory_CreateInstance().

testObjVtbl

IDispatchExVtbl testObjVtbl

static

Initial value:

= {
    DispatchEx_QueryInterface,
    DispatchEx_AddRef,
    DispatchEx_Release,
    DispatchEx_GetTypeInfoCount,
    DispatchEx_GetTypeInfo,
    DispatchEx_GetIDsOfNames,
    DispatchEx_Invoke,
    Test_GetDispID,
    Test_InvokeEx,
    DispatchEx_DeleteMemberByName,
    DispatchEx_DeleteMemberByDispID,
    DispatchEx_GetMemberProperties,
    DispatchEx_GetMemberName,
    DispatchEx_GetNextDispID,
    DispatchEx_GetNameSpaceParent
}

Definition at line 319 of file activex.c.

testW

const WCHAR testW[] = {'t','e','s','t',0}

static

Definition at line 93 of file activex.c.

Referenced by create_script().