ReactOS 0.4.15-dev-7958-gcd0bb1a
Macros | Functions | Variables
createobj.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 createobj.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 VB_E_ACCESS_DENIED   0x800a0046
 
#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 CLEAR_CALLED(func)    expect_ ## func = called_ ## func = FALSE
 
#define TESTOBJ_CLSID   "{178fc163-f585-4e24-9c13-4bb7faf80646}"
 
#define TESTOBJINST_CLSID   "{178fc163-f585-4e24-9c13-4bb7faf80647}"
 
#define DISPID_TEST_REPORTSUCCESS   0x1000
 
#define DISPID_GLOBAL_OK   0x2000
 
#define VB_E_CANNOT_CREATE_OBJ   0x800a01ad
 
#define parse_script_a(p, s)   _parse_script_a(__LINE__,p,s)
 

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 HRESULT parse_script_ae (IActiveScriptParse *parser, const char *script)
 
static IActiveScriptParse * create_script (BOOL use_sec_mgr)
 
static void test_CreateObject (void)
 
static void test_GetObject (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_vbscript (void)
 
 START_TEST (createobj)
 

Variables

const CLSID CLSID_VBScript
 
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 QI_IObjectWithSite_hres
 
static HRESULT SetSite_hres
 
static const GUID CLSID_TestObj
 
static const GUID CLSID_TestObjInst
 
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 const IActiveScriptSiteVtbl ActiveScriptSiteVtbl
 
static IActiveScriptSite ActiveScriptSite = { &ActiveScriptSiteVtbl }
 

Macro Definition Documentation

◆ CHECK_CALLED

#define CHECK_CALLED (   func)
Value:
do { \
ok(called_ ## func, "expected " #func "\n"); \
expect_ ## func = called_ ## func = FALSE; \
}while(0)
FALSE
#define FALSE
Definition: types.h:117
func
GLenum func
Definition: glext.h:6028
expect_
#define expect_(expected, got, precision)
Definition: font.c:29

Definition at line 73 of file createobj.c.

◆ CHECK_EXPECT

#define CHECK_EXPECT (   func)
Value:
do { \
CHECK_EXPECT2(func); \
expect_ ## func = FALSE; \
}while(0)

Definition at line 67 of file createobj.c.

◆ CHECK_EXPECT2

#define CHECK_EXPECT2 (   func)
Value:
do { \
ok(expect_ ##func, "unexpected call " #func "\n"); \
called_ ## func = TRUE; \
}while(0)
TRUE
#define TRUE
Definition: types.h:120

Definition at line 61 of file createobj.c.

◆ CLEAR_CALLED

#define CLEAR_CALLED (   func)     expect_ ## func = called_ ## func = FALSE

Definition at line 79 of file createobj.c.

◆ COBJMACROS

#define COBJMACROS

Definition at line 21 of file createobj.c.

◆ CONST_VTABLE

#define CONST_VTABLE

Definition at line 22 of file createobj.c.

◆ DEFINE_EXPECT

#define DEFINE_EXPECT (   func)     static BOOL expect_ ## func = FALSE, called_ ## func = FALSE

Definition at line 55 of file createobj.c.

◆ DISPID_GLOBAL_OK

#define DISPID_GLOBAL_OK   0x2000

Definition at line 118 of file createobj.c.

◆ DISPID_TEST_REPORTSUCCESS

#define DISPID_TEST_REPORTSUCCESS   0x1000

Definition at line 116 of file createobj.c.

◆ IActiveScriptParse_InitNew

#define IActiveScriptParse_InitNew   IActiveScriptParse32_InitNew

Definition at line 45 of file createobj.c.

◆ IActiveScriptParse_ParseScriptText

#define IActiveScriptParse_ParseScriptText   IActiveScriptParse32_ParseScriptText

Definition at line 46 of file createobj.c.

◆ IActiveScriptParse_QueryInterface

#define IActiveScriptParse_QueryInterface   IActiveScriptParse32_QueryInterface

Definition at line 43 of file createobj.c.

◆ IActiveScriptParse_Release

#define IActiveScriptParse_Release   IActiveScriptParse32_Release

Definition at line 44 of file createobj.c.

◆ IActiveScriptParseProcedure2_Release

#define IActiveScriptParseProcedure2_Release   IActiveScriptParseProcedure2_32_Release

Definition at line 47 of file createobj.c.

◆ parse_script_a

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

Definition at line 706 of file createobj.c.

◆ SET_EXPECT

#define SET_EXPECT (   func)     expect_ ## func = TRUE

Definition at line 58 of file createobj.c.

◆ TESTOBJ_CLSID

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

Definition at line 104 of file createobj.c.

◆ TESTOBJINST_CLSID

#define TESTOBJINST_CLSID   "{178fc163-f585-4e24-9c13-4bb7faf80647}"

Definition at line 105 of file createobj.c.

◆ VB_E_ACCESS_DENIED

#define VB_E_ACCESS_DENIED   0x800a0046

Definition at line 53 of file createobj.c.

◆ VB_E_CANNOT_CREATE_OBJ

#define VB_E_CANNOT_CREATE_OBJ   0x800a01ad

Definition at line 120 of file createobj.c.

Function Documentation

◆ _parse_script_a()

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

Definition at line 707 of file createobj.c.

708{
709 BSTR str;
710 HRESULT hres;
711
712 str = a2bstr(script);
713 hres = IActiveScriptParse_ParseScriptText(parser, str, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
714 SysFreeString(str);
715 ok_(__FILE__,line)(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
716}
ok_
#define ok_(x1, x2)
Definition: atltest.h:61
IActiveScriptParse_ParseScriptText
#define IActiveScriptParse_ParseScriptText
Definition: createobj.c:46
a2bstr
static BSTR a2bstr(const char *str)
Definition: createobj.c:122
NULL
#define NULL
Definition: types.h:112
BSTR
OLECHAR * BSTR
Definition: compat.h:2293
S_OK
#define S_OK
Definition: intsafe.h:52
hres
HRESULT hres
Definition: protocol.c:465
script
script
Definition: msipriv.h:383
SysFreeString
void WINAPI DECLSPEC_HOTPATCH SysFreeString(BSTR str)
Definition: oleaut.c:271
str
const WCHAR * str
Definition: rpc_transport.c:2724
line
Definition: parser.c:49
parser
Definition: import.c:81

◆ a2bstr()

static BSTR a2bstr ( const char *  str)
static

Definition at line 122 of file createobj.c.

123{
124 BSTR ret;
125 int len;
126
127 len = MultiByteToWideChar(CP_ACP, 0, str, -1, NULL, 0);
128 ret = SysAllocStringLen(NULL, len-1);
129 MultiByteToWideChar(CP_ACP, 0, str, -1, ret, len);
130
131 return ret;
132}
CP_ACP
#define CP_ACP
Definition: compat.h:109
MultiByteToWideChar
#define MultiByteToWideChar
Definition: compat.h:110
len
GLenum GLsizei len
Definition: glext.h:6722
SysAllocStringLen
BSTR WINAPI SysAllocStringLen(const OLECHAR *str, unsigned int len)
Definition: oleaut.c:339
ret
int ret
Definition: wcstombs-tests.c:31

Referenced by _parse_script_a(), and parse_script_ae().

◆ ActiveScriptSite_AddRef()

static ULONG WINAPI ActiveScriptSite_AddRef ( IActiveScriptSite *  iface)
static

Definition at line 603 of file createobj.c.

604{
605 return 2;
606}

◆ ActiveScriptSite_GetDocVersionString()

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

Definition at line 630 of file createobj.c.

631{
632 return E_NOTIMPL;
633}
E_NOTIMPL
#define E_NOTIMPL
Definition: ddrawi.h:99

◆ ActiveScriptSite_GetItemInfo()

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

Definition at line 619 of file createobj.c.

621{
622 ok(dwReturnMask == SCRIPTINFO_IUNKNOWN, "unexpected dwReturnMask %x\n", dwReturnMask);
623 ok(!ppti, "ppti != NULL\n");
624 ok(!strcmp_wa(pstrName, "test"), "pstrName = %s\n", wine_dbgstr_w(pstrName));
625
626 *ppiunkItem = (IUnknown*)&globalObj;
627 return S_OK;
628}
ok
#define ok(value,...)
Definition: atltest.h:57
strcmp_wa
static int strcmp_wa(LPCWSTR strw, const char *stra)
Definition: createobj.c:134
globalObj
static IDispatchEx globalObj
Definition: createobj.c:400
wine_dbgstr_w
#define wine_dbgstr_w
Definition: kernel32.h:34

◆ ActiveScriptSite_GetLCID()

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

Definition at line 613 of file createobj.c.

614{
615 *plcid = GetUserDefaultLCID();
616 return S_OK;
617}
GetUserDefaultLCID
LCID WINAPI GetUserDefaultLCID(void)
Definition: lang.c:778

◆ ActiveScriptSite_OnEnterScript()

static HRESULT WINAPI ActiveScriptSite_OnEnterScript ( IActiveScriptSite *  iface)
static

Definition at line 651 of file createobj.c.

652{
653 return E_NOTIMPL;
654}

◆ ActiveScriptSite_OnLeaveScript()

static HRESULT WINAPI ActiveScriptSite_OnLeaveScript ( IActiveScriptSite *  iface)
static

Definition at line 656 of file createobj.c.

657{
658 return E_NOTIMPL;
659}

◆ ActiveScriptSite_OnScriptError()

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

Definition at line 646 of file createobj.c.

647{
648 return E_NOTIMPL;
649}

◆ ActiveScriptSite_OnScriptTerminate()

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

Definition at line 635 of file createobj.c.

637{
638 return E_NOTIMPL;
639}

◆ ActiveScriptSite_OnStateChange()

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

Definition at line 641 of file createobj.c.

642{
643 return E_NOTIMPL;
644}

◆ ActiveScriptSite_QueryInterface()

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

Definition at line 586 of file createobj.c.

587{
588 if(IsEqualGUID(&IID_IUnknown, riid)) {
589 *ppv = iface;
590 }else if(IsEqualGUID(&IID_IActiveScriptSite, riid)) {
591 *ppv = iface;
592 }else if(IsEqualGUID(&IID_IServiceProvider, riid)) {
593 *ppv = &ServiceProvider;
594 }else {
595 *ppv = NULL;
596 return E_NOINTERFACE;
597 }
598
599 IUnknown_AddRef((IUnknown*)*ppv);
600 return S_OK;
601}
IID_IUnknown
const GUID IID_IUnknown
Definition: classfactory.cpp:11
ServiceProvider
static IServiceProvider ServiceProvider
Definition: createobj.c:538
riid
REFIID riid
Definition: atlbase.h:39
ppv
REFIID LPVOID * ppv
Definition: atlbase.h:39
IsEqualGUID
#define IsEqualGUID(rguid1, rguid2)
Definition: guiddef.h:147
E_NOINTERFACE
#define E_NOINTERFACE
Definition: winerror.h:2364

◆ ActiveScriptSite_Release()

static ULONG WINAPI ActiveScriptSite_Release ( IActiveScriptSite *  iface)
static

Definition at line 608 of file createobj.c.

609{
610 return 1;
611}

◆ check_vbscript()

static BOOL check_vbscript ( void  )
static

Definition at line 1080 of file createobj.c.

1081{
1082 IActiveScriptParseProcedure2 *vbscript;
1083 HRESULT hres;
1084
1085 hres = CoCreateInstance(&CLSID_VBScript, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
1086 &IID_IActiveScriptParseProcedure2, (void**)&vbscript);
1087 if(SUCCEEDED(hres))
1088 IActiveScriptParseProcedure2_Release(vbscript);
1089
1090 return hres == S_OK;
1091}
IActiveScriptParseProcedure2_Release
#define IActiveScriptParseProcedure2_Release
Definition: createobj.c:47
CLSID_VBScript
const CLSID CLSID_VBScript
CoCreateInstance
HRESULT WINAPI DECLSPEC_HOTPATCH CoCreateInstance(REFCLSID rclsid, LPUNKNOWN pUnkOuter, DWORD dwClsContext, REFIID iid, LPVOID *ppv)
Definition: compobj.c:3325
SUCCEEDED
#define SUCCEEDED(hr)
Definition: intsafe.h:50

Referenced by START_TEST().

◆ ClassFactory_AddRef()

static ULONG WINAPI ClassFactory_AddRef ( IClassFactory *  iface)
static

Definition at line 414 of file createobj.c.

415{
416 return 2;
417}

◆ ClassFactory_CreateInstance()

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

Definition at line 424 of file createobj.c.

425{
426 CHECK_EXPECT(CreateInstance);
427
428 ok(!outer, "outer = %p\n", outer);
429 ok(IsEqualGUID(&IID_IUnknown, riid), "unexpected riid %s\n", wine_dbgstr_guid(riid));
430
431 if(SUCCEEDED(CreateInstance_hres))
432 *ppv = &testObj;
433 return CreateInstance_hres;
434}
CreateInstance_hres
static HRESULT CreateInstance_hres
Definition: createobj.c:96
CHECK_EXPECT
#define CHECK_EXPECT(func)
Definition: createobj.c:67
testObj
static IDispatchEx testObj
Definition: createobj.c:342
wine_dbgstr_guid
static __inline const char * wine_dbgstr_guid(const GUID *id)
Definition: debug.h:197

◆ ClassFactory_LockServer()

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

Definition at line 436 of file createobj.c.

437{
438 ok(0, "unexpected call\n");
439 return S_OK;
440}

◆ ClassFactory_QueryInterface()

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

Definition at line 402 of file createobj.c.

403{
404 if(IsEqualGUID(&IID_IUnknown, riid) || IsEqualGUID(&IID_IClassFactory, riid)) {
405 *ppv = iface;
406 return S_OK;
407 }
408
409 /* TODO: IClassFactoryEx */
410 *ppv = NULL;
411 return E_NOINTERFACE;
412}
IID_IClassFactory
const GUID IID_IClassFactory
Definition: classfactory.cpp:12

◆ ClassFactory_Release()

static ULONG WINAPI ClassFactory_Release ( IClassFactory *  iface)
static

Definition at line 419 of file createobj.c.

420{
421 return 1;
422}

◆ create_script()

static IActiveScriptParse * create_script ( BOOL  use_sec_mgr)
static

Definition at line 730 of file createobj.c.

731{
732 IActiveScriptParse *parser;
733 IActiveScript *script;
734 HRESULT hres;
735
736 QS_SecMgr_hres = S_OK;
737 ProcessUrlAction_hres = S_OK;
738 ProcessUrlAction_policy = URLPOLICY_ALLOW;
739 CreateInstance_hres = S_OK;
740 QueryCustomPolicy_hres = S_OK;
741 QueryCustomPolicy_psize = sizeof(DWORD);
742 QueryCustomPolicy_policy = URLPOLICY_ALLOW;
743 QI_IDispatch_hres = S_OK;
744 QI_IObjectWithSite_hres = S_OK;
745 SetSite_hres = S_OK;
746
747 hres = CoCreateInstance(&CLSID_VBScript, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
748 &IID_IActiveScript, (void**)&script);
749 ok(hres == S_OK, "CoCreateInstance failed: %08x\n", hres);
750 if(FAILED(hres))
751 return NULL;
752
753 set_safety_options((IUnknown*)script, use_sec_mgr);
754
755 hres = IActiveScript_QueryInterface(script, &IID_IActiveScriptParse, (void**)&parser);
756 ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
757
758 hres = IActiveScriptParse_InitNew(parser);
759 ok(hres == S_OK, "InitNew failed: %08x\n", hres);
760
761 hres = IActiveScript_SetScriptSite(script, &ActiveScriptSite);
762 ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
763
764 hres = IActiveScript_AddNamedItem(script, testW,
765 SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|SCRIPTITEM_GLOBALMEMBERS);
766 ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
767
768 hres = IActiveScript_SetScriptState(script, SCRIPTSTATE_STARTED);
769 ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
770
771 IActiveScript_Release(script);
772
773 return parser;
774}
SCRIPTSTATE_STARTED
@ SCRIPTSTATE_STARTED
Definition: activscp.idl:58
set_safety_options
static void set_safety_options(IUnknown *unk, BOOL use_sec_mgr)
Definition: createobj.c:677
testW
static const WCHAR testW[]
Definition: createobj.c:91
ProcessUrlAction_policy
static DWORD ProcessUrlAction_policy
Definition: createobj.c:95
QueryCustomPolicy_policy
static DWORD QueryCustomPolicy_policy
Definition: createobj.c:99
IActiveScriptParse_InitNew
#define IActiveScriptParse_InitNew
Definition: createobj.c:45
QI_IDispatch_hres
static HRESULT QI_IDispatch_hres
Definition: createobj.c:100
ProcessUrlAction_hres
static HRESULT ProcessUrlAction_hres
Definition: createobj.c:94
QI_IObjectWithSite_hres
static HRESULT QI_IObjectWithSite_hres
Definition: createobj.c:101
QS_SecMgr_hres
static HRESULT QS_SecMgr_hres
Definition: createobj.c:93
QueryCustomPolicy_psize
static DWORD QueryCustomPolicy_psize
Definition: createobj.c:98
QueryCustomPolicy_hres
static HRESULT QueryCustomPolicy_hres
Definition: createobj.c:97
ActiveScriptSite
static IActiveScriptSite ActiveScriptSite
Definition: createobj.c:675
SetSite_hres
static HRESULT SetSite_hres
Definition: createobj.c:102
FAILED
#define FAILED(hr)
Definition: intsafe.h:51
DWORD
#define DWORD
Definition: nt_native.h:44

◆ 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 213 of file createobj.c.

214{
215 return 2;
216}

◆ DispatchEx_DeleteMemberByDispID()

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

Definition at line 258 of file createobj.c.

259{
260 ok(0, "unexpected call\n");
261 return E_NOTIMPL;
262}

◆ DispatchEx_DeleteMemberByName()

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

Definition at line 252 of file createobj.c.

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

◆ DispatchEx_GetIDsOfNames()

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

Definition at line 236 of file createobj.c.

239{
240 ok(0, "unexpected call\n");
241 return E_NOTIMPL;
242}

◆ DispatchEx_GetMemberName()

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

Definition at line 270 of file createobj.c.

271{
272 ok(0, "unexpected call\n");
273 return E_NOTIMPL;
274}

◆ DispatchEx_GetMemberProperties()

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

Definition at line 264 of file createobj.c.

265{
266 ok(0, "unexpected call\n");
267 return E_NOTIMPL;
268}

◆ DispatchEx_GetNameSpaceParent()

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

Definition at line 282 of file createobj.c.

283{
284 ok(0, "unexpected call\n");
285 return E_NOTIMPL;
286}

◆ DispatchEx_GetNextDispID()

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

Definition at line 276 of file createobj.c.

277{
278 ok(0, "unexpected call\n");
279 return E_NOTIMPL;
280}

◆ DispatchEx_GetTypeInfo()

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

Definition at line 229 of file createobj.c.

231{
232 ok(0, "unexpected call\n");
233 return E_NOTIMPL;
234}

◆ DispatchEx_GetTypeInfoCount()

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

Definition at line 223 of file createobj.c.

224{
225 ok(0, "unexpected call\n");
226 return E_NOTIMPL;
227}

◆ 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 244 of file createobj.c.

247{
248 ok(0, "unexpected call\n");
249 return E_NOTIMPL;
250}

◆ DispatchEx_QueryInterface()

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

Definition at line 191 of file createobj.c.

192{
193 *ppv = NULL;
194
195 if(IsEqualGUID(riid, &IID_IUnknown)) {
196 *ppv = iface;
197 }else if(IsEqualGUID(riid, &IID_IDispatch) || IsEqualGUID(riid, &IID_IDispatchEx)) {
198 if(FAILED(QI_IDispatch_hres))
199 return QI_IDispatch_hres;
200 *ppv = iface;
201 }else if(IsEqualGUID(&IID_IObjectWithSite, riid)) {
202 CHECK_EXPECT(QI_IObjectWithSite);
203 if(FAILED(QI_IObjectWithSite_hres))
204 return QI_IObjectWithSite_hres;
205 *ppv = object_with_site;
206 }else if(IsEqualGUID(&IID_IObjectSafety, riid)) {
207 ok(0, "Unexpected IID_IObjectSafety query\n");
208 }
209
210 return *ppv ? S_OK : E_NOINTERFACE;
211}
object_with_site
static IObjectWithSite * object_with_site
Definition: createobj.c:189
IID_IObjectWithSite
const IID IID_IObjectWithSite
IID_IDispatch
const GUID IID_IDispatch

◆ DispatchEx_Release()

static ULONG WINAPI DispatchEx_Release ( IDispatchEx *  iface)
static

Definition at line 218 of file createobj.c.

219{
220 return 1;
221}

◆ Global_GetDispID()

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

Definition at line 344 of file createobj.c.

345{
346 if(!strcmp_wa(bstrName, "ok")) {
347 ok(grfdex == fdexNameCaseSensitive, "grfdex = %x\n", grfdex);
348 *pid = DISPID_GLOBAL_OK;
349 return S_OK;
350 }
351
352 ok(0, "unexpected name %s\n", wine_dbgstr_w(bstrName));
353 return E_NOTIMPL;
354}
DISPID_GLOBAL_OK
#define DISPID_GLOBAL_OK
Definition: createobj.c:118
pid
_In_ ULONG_PTR _In_ ULONG _Out_ ULONG_PTR * pid
Definition: winddi.h:3837

◆ 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 356 of file createobj.c.

358{
359 switch(id) {
360 case DISPID_GLOBAL_OK:
361 ok(wFlags == INVOKE_FUNC || wFlags == (INVOKE_FUNC|INVOKE_PROPERTYGET), "wFlags = %x\n", wFlags);
362 ok(pdp != NULL, "pdp == NULL\n");
363 ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
364 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
365 ok(pdp->cArgs == 2, "cArgs = %d\n", pdp->cArgs);
366 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
367 ok(pei != NULL, "pei == NULL\n");
368
369 ok(V_VT(pdp->rgvarg) == VT_BSTR, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp->rgvarg));
370 ok(V_VT(pdp->rgvarg+1) == VT_BOOL, "V_VT(psp->rgvargs+1) = %d\n", V_VT(pdp->rgvarg));
371 ok(V_BOOL(pdp->rgvarg+1), "%s\n", wine_dbgstr_w(V_BSTR(pdp->rgvarg)));
372 break;
373
374 default:
375 ok(0, "unexpected call\n");
376 return E_NOTIMPL;
377 }
378
379 return S_OK;
380}
VT_BSTR
@ VT_BSTR
Definition: compat.h:2303
VT_BOOL
@ VT_BOOL
Definition: compat.h:2306
V_BOOL
#define V_BOOL(A)
Definition: oleauto.h:224
V_VT
#define V_VT(A)
Definition: oleauto.h:211
V_BSTR
#define V_BSTR(A)
Definition: oleauto.h:226
wFlags
_In_ DWORD _Out_ _In_ WORD wFlags
Definition: wincon.h:531

◆ init_key()

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

Definition at line 1032 of file createobj.c.

1033{
1034 HKEY hkey;
1035 DWORD res;
1036
1037 if(!init) {
1038 RegDeleteKeyA(HKEY_CLASSES_ROOT, key_name);
1039 return TRUE;
1040 }
1041
1042 res = RegCreateKeyA(HKEY_CLASSES_ROOT, key_name, &hkey);
1043 if(res != ERROR_SUCCESS)
1044 return FALSE;
1045
1046 if(def_value)
1047 res = RegSetValueA(hkey, NULL, REG_SZ, def_value, strlen(def_value));
1048
1049 RegCloseKey(hkey);
1050
1051 return res == ERROR_SUCCESS;
1052}
strlen
ACPI_SIZE strlen(const char *String)
Definition: utclib.c:269
RegCloseKey
#define RegCloseKey(hKey)
Definition: registry.h:49
ERROR_SUCCESS
#define ERROR_SUCCESS
Definition: deptool.c:10
RegCreateKeyA
LONG WINAPI RegCreateKeyA(HKEY hKey, LPCSTR lpSubKey, PHKEY phkResult)
Definition: reg.c:1179
RegSetValueA
LONG WINAPI RegSetValueA(HKEY hKeyOriginal, LPCSTR lpSubKey, DWORD dwType, LPCSTR lpData, DWORD cbData)
Definition: reg.c:4954
RegDeleteKeyA
LONG WINAPI RegDeleteKeyA(_In_ HKEY hKey, _In_ LPCSTR lpSubKey)
Definition: reg.c:1224
DWORD
unsigned long DWORD
Definition: ntddk_ex.h:95
res
GLuint res
Definition: glext.h:9613
REG_SZ
#define REG_SZ
Definition: layer.c:22
key_name
Definition: registry.c:449
HKEY_CLASSES_ROOT
#define HKEY_CLASSES_ROOT
Definition: winreg.h:10
init
static int init
Definition: wintirpc.c:33

Referenced by init_registry().

◆ init_registry()

static BOOL init_registry ( BOOL  init)
static

Definition at line 1054 of file createobj.c.

1055{
1056 return init_key("Wine.Test\\CLSID", TESTOBJ_CLSID, init);
1057}
init_key
static BOOL init_key(const char *key_name, const char *def_value, BOOL init)
Definition: createobj.c:1032
TESTOBJ_CLSID
#define TESTOBJ_CLSID
Definition: createobj.c:104

Referenced by register_activex(), and START_TEST().

◆ InternetHostSecurityManager_AddRef()

static ULONG WINAPI InternetHostSecurityManager_AddRef ( IInternetHostSecurityManager *  iface)
static

Definition at line 458 of file createobj.c.

459{
460 return 2;
461}

◆ InternetHostSecurityManager_GetSecurityId()

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

Definition at line 468 of file createobj.c.

470{
471 ok(0, "unexpected call\n");
472 return E_NOTIMPL;
473}

◆ 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 475 of file createobj.c.

477{
478 CHECK_EXPECT(ProcessUrlAction);
479
480 ok(dwAction == URLACTION_ACTIVEX_RUN, "dwAction = %x\n", dwAction);
481 ok(pPolicy != NULL, "pPolicy == NULL\n");
482 ok(cbPolicy == sizeof(DWORD), "cbPolicy = %d\n", cbPolicy);
483 ok(pContext != NULL, "pContext == NULL\n");
484 ok(cbContext == sizeof(GUID), "cbContext = %d\n", cbContext);
485 ok(IsEqualGUID(pContext, &CLSID_TestObj), "pContext = %s\n", wine_dbgstr_guid((const IID*)pContext));
486 ok(!dwFlags, "dwFlags = %x\n", dwFlags);
487 ok(!dwReserved, "dwReserved = %x\n", dwReserved);
488
489 if(SUCCEEDED(ProcessUrlAction_hres))
490 *(DWORD*)pPolicy = ProcessUrlAction_policy;
491 return ProcessUrlAction_hres;
492}
CLSID_TestObj
static const GUID CLSID_TestObj
Definition: createobj.c:107
dwReserved
_In_ HANDLE _In_ DWORD _In_ DWORD _Inout_opt_ LPOVERLAPPED _In_opt_ LPTRANSMIT_FILE_BUFFERS _In_ DWORD dwReserved
Definition: mswsock.h:95
_IID
Definition: mstsclib_i.c:51
dwFlags
_In_ PCCERT_CONTEXT _In_ DWORD dwFlags
Definition: wincrypt.h:1176

◆ 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 494 of file createobj.c.

496{
497 const struct CONFIRMSAFETY *cs = (const struct CONFIRMSAFETY*)pContext;
498 DWORD *ret;
499
500 CHECK_EXPECT(QueryCustomPolicy);
501
502 ok(IsEqualGUID(&GUID_CUSTOM_CONFIRMOBJECTSAFETY, guidKey), "guidKey = %s\n", wine_dbgstr_guid(guidKey));
503
504 ok(ppPolicy != NULL, "ppPolicy == NULL\n");
505 ok(pcbPolicy != NULL, "pcbPolicy == NULL\n");
506 ok(pContext != NULL, "pContext == NULL\n");
507 ok(cbContext == sizeof(struct CONFIRMSAFETY), "cbContext = %d\n", cbContext);
508 ok(!dwReserved, "dwReserved = %x\n", dwReserved);
509
510 /* TODO: CLSID */
511 ok(cs->pUnk != NULL, "cs->pUnk == NULL\n");
512 ok(!cs->dwFlags, "dwFlags = %x\n", cs->dwFlags);
513
514 if(FAILED(QueryCustomPolicy_hres))
515 return QueryCustomPolicy_hres;
516
517 ret = CoTaskMemAlloc(QueryCustomPolicy_psize);
518 *ppPolicy = (BYTE*)ret;
519 *pcbPolicy = QueryCustomPolicy_psize;
520 memset(ret, 0, QueryCustomPolicy_psize);
521 if(QueryCustomPolicy_psize >= sizeof(DWORD))
522 *ret = QueryCustomPolicy_policy;
523
524 return QueryCustomPolicy_hres;
525}
GUID_CUSTOM_CONFIRMOBJECTSAFETY
const GUID GUID_CUSTOM_CONFIRMOBJECTSAFETY
Definition: createobj.c:113
cs
#define cs
Definition: i386-dis.c:442
CoTaskMemAlloc
LPVOID WINAPI CoTaskMemAlloc(SIZE_T size)
Definition: ifs.c:426
memset
#define memset(x, y, z)
Definition: compat.h:39
BYTE
unsigned char BYTE
Definition: xxhash.c:193

◆ InternetHostSecurityManager_QueryInterface()

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

Definition at line 452 of file createobj.c.

453{
454 ok(0, "unexpected call\n");
455 return E_NOINTERFACE;
456}

◆ InternetHostSecurityManager_Release()

static ULONG WINAPI InternetHostSecurityManager_Release ( IInternetHostSecurityManager *  iface)
static

Definition at line 463 of file createobj.c.

464{
465 return 1;
466}

◆ ObjectWithSite_AddRef()

static ULONG WINAPI ObjectWithSite_AddRef ( IObjectWithSite *  iface)
static

Definition at line 147 of file createobj.c.

148{
149 return 2;
150}

◆ ObjectWithSite_GetSite()

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

Definition at line 173 of file createobj.c.

174{
175 ok(0, "unexpected call\n");
176 return E_NOTIMPL;
177}

◆ ObjectWithSite_QueryInterface()

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

Definition at line 141 of file createobj.c.

142{
143 ok(0, "unexpected call\n");
144 return E_NOTIMPL;
145}

◆ ObjectWithSite_Release()

static ULONG WINAPI ObjectWithSite_Release ( IObjectWithSite *  iface)
static

Definition at line 152 of file createobj.c.

153{
154 return 1;
155}

◆ ObjectWithSite_SetSite()

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

Definition at line 157 of file createobj.c.

158{
159 IServiceProvider *sp;
160 HRESULT hres;
161
162
163 CHECK_EXPECT(SetSite);
164 ok(pUnkSite != NULL, "pUnkSite == NULL\n");
165
166 hres = IUnknown_QueryInterface(pUnkSite, &IID_IServiceProvider, (void**)&sp);
167 ok(hres == S_OK, "Could not get IServiceProvider iface: %08x\n", hres);
168 IServiceProvider_Release(sp);
169
170 return SetSite_hres;
171}
sp
static const WCHAR sp[]
Definition: suminfo.c:287

◆ parse_script_ae()

static HRESULT parse_script_ae ( IActiveScriptParse *  parser,
const char *  script 
)
static

Definition at line 718 of file createobj.c.

719{
720 BSTR str;
721 HRESULT hres;
722
723 str = a2bstr(script);
724 hres = IActiveScriptParse_ParseScriptText(parser, str, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
725 SysFreeString(str);
726
727 return hres;
728}

Referenced by test_CreateObject(), and test_GetObject().

◆ register_activex()

static BOOL register_activex ( void  )
static

Definition at line 1059 of file createobj.c.

1060{
1061 DWORD regid;
1062 HRESULT hres;
1063
1064 if(!init_registry(TRUE)) {
1065 init_registry(FALSE);
1066 return FALSE;
1067 }
1068
1069 hres = CoRegisterClassObject(&CLSID_TestObj, (IUnknown *)&activex_cf,
1070 CLSCTX_INPROC_SERVER, REGCLS_MULTIPLEUSE, &regid);
1071 ok(hres == S_OK, "Could not register script engine: %08x\n", hres);
1072
1073 hres = CoRegisterClassObject(&CLSID_TestObjInst, (IUnknown *)&testObj,
1074 CLSCTX_INPROC_SERVER, REGCLS_MULTIPLEUSE, &regid);
1075 ok(hres == S_OK, "Could not register script engine: %08x\n", hres);
1076
1077 return TRUE;
1078}
activex_cf
static IClassFactory activex_cf
Definition: createobj.c:450
init_registry
static BOOL init_registry(BOOL init)
Definition: createobj.c:1054
CLSID_TestObjInst
static const GUID CLSID_TestObjInst
Definition: createobj.c:109
CoRegisterClassObject
HRESULT WINAPI CoRegisterClassObject(REFCLSID rclsid, LPUNKNOWN pUnk, DWORD dwClsContext, DWORD flags, LPDWORD lpdwRegister)
Definition: compobj.c:2897
regid
#define regid
Definition: ecma_167.h:64
REGCLS_MULTIPLEUSE
@ REGCLS_MULTIPLEUSE
Definition: objbase.h:393

Referenced by START_TEST().

◆ ServiceProvider_AddRef()

static ULONG WINAPI ServiceProvider_AddRef ( IServiceProvider *  iface)
static

Definition at line 546 of file createobj.c.

547{
548 return 2;
549}

◆ ServiceProvider_QueryInterface()

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

Definition at line 540 of file createobj.c.

541{
542 ok(0, "unexpected call\n");
543 return E_NOINTERFACE;
544}

◆ ServiceProvider_QueryService()

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

Definition at line 556 of file createobj.c.

558{
559 if(IsEqualGUID(&SID_GetCaller, guidService))
560 return E_NOINTERFACE;
561
562 if(IsEqualGUID(&SID_SInternetHostSecurityManager, guidService)) {
563 if(iface == &ServiceProvider)
564 CHECK_EXPECT(Host_QS_SecMgr);
565 else
566 CHECK_EXPECT(Caller_QS_SecMgr);
567 ok(IsEqualGUID(&IID_IInternetHostSecurityManager, riid), "unexpected riid %s\n", wine_dbgstr_guid(riid));
568 if(SUCCEEDED(QS_SecMgr_hres))
569 *ppv = &InternetHostSecurityManager;
570 return QS_SecMgr_hres;
571 }
572
573 ok(0, "unexpected service %s\n", wine_dbgstr_guid(guidService));
574 return E_NOINTERFACE;
575}
InternetHostSecurityManager
static IInternetHostSecurityManager InternetHostSecurityManager
Definition: createobj.c:536

◆ ServiceProvider_Release()

static ULONG WINAPI ServiceProvider_Release ( IServiceProvider *  iface)
static

Definition at line 551 of file createobj.c.

552{
553 return 1;
554}

◆ set_safety_options()

static void set_safety_options ( IUnknown *  unk,
BOOL  use_sec_mgr 
)
static

Definition at line 677 of file createobj.c.

678{
679 IObjectSafety *safety;
680 DWORD supported, enabled, options_all, options_set;
681 HRESULT hres;
682
683 hres = IUnknown_QueryInterface(unk, &IID_IObjectSafety, (void**)&safety);
684 ok(hres == S_OK, "Could not get IObjectSafety: %08x\n", hres);
685 if(FAILED(hres))
686 return;
687
688 options_all = INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER;
689 if(use_sec_mgr)
690 options_set = options_all;
691 else
692 options_set = INTERFACE_USES_DISPEX;
693
694 hres = IObjectSafety_SetInterfaceSafetyOptions(safety, &IID_IActiveScriptParse, options_all, options_set);
695 ok(hres == S_OK, "SetInterfaceSafetyOptions failed: %08x\n", hres);
696
697 supported = enabled = 0xdeadbeef;
698 hres = IObjectSafety_GetInterfaceSafetyOptions(safety, &IID_IActiveScriptParse, &supported, &enabled);
699 ok(hres == S_OK, "GetInterfaceSafetyOptions failed: %08x\n", hres);
700 ok(supported == options_all, "supported=%x, expected %x\n", supported, options_all);
701 ok(enabled == options_set, "enabled=%x, expected %x\n", enabled, options_set);
702
703 IObjectSafety_Release(safety);
704}
enabled
GLenum GLenum GLsizei const GLuint GLboolean enabled
Definition: glext.h:7750

Referenced by create_script().

◆ START_TEST()

START_TEST ( createobj  )

Definition at line 1094 of file createobj.c.

1095{
1096 CoInitialize(NULL);
1097
1098 if(check_vbscript()) {
1099 if(register_activex()) {
1100 test_CreateObject();
1101 test_GetObject();
1102 init_registry(FALSE);
1103 }else {
1104 skip("Could not register ActiveX object.\n");
1105 }
1106 }else {
1107 win_skip("Broken engine, probably too old\n");
1108 }
1109
1110 CoUninitialize();
1111}
skip
#define skip(...)
Definition: atltest.h:64
test_GetObject
static void test_GetObject(void)
Definition: createobj.c:976
check_vbscript
static BOOL check_vbscript(void)
Definition: createobj.c:1080
register_activex
static BOOL register_activex(void)
Definition: createobj.c:1059
test_CreateObject
static void test_CreateObject(void)
Definition: createobj.c:776
CoInitialize
HRESULT WINAPI CoInitialize(LPVOID lpReserved)
Definition: compobj.c:1964
CoUninitialize
void WINAPI DECLSPEC_HOTPATCH CoUninitialize(void)
Definition: compobj.c:2067
win_skip
#define win_skip
Definition: test.h:160

◆ strcmp_wa()

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

Definition at line 134 of file createobj.c.

135{
136 CHAR buf[512];
137 WideCharToMultiByte(CP_ACP, 0, strw, -1, buf, sizeof(buf), 0, 0);
138 return lstrcmpA(buf, stra);
139}
WideCharToMultiByte
#define WideCharToMultiByte
Definition: compat.h:111
buf
GLenum GLuint GLenum GLsizei const GLchar * buf
Definition: glext.h:7751
lstrcmpA
int WINAPI lstrcmpA(LPCSTR lpString1, LPCSTR lpString2)
Definition: lstring.c:18
strw
static const char * strw(LPCWSTR x)
Definition: actctx.c:49
CHAR
char CHAR
Definition: xmlstorage.h:175

Referenced by ActiveScriptSite_GetItemInfo(), Global_GetDispID(), and Test_GetDispID().

◆ test_CreateObject()

static void test_CreateObject ( void  )
static

Definition at line 776 of file createobj.c.

777{
778 IActiveScriptParse *parser;
779 HRESULT hres;
780
781 parser = create_script(TRUE);
782
783 SET_EXPECT(Host_QS_SecMgr);
784 SET_EXPECT(ProcessUrlAction);
785 SET_EXPECT(CreateInstance);
786 SET_EXPECT(QueryCustomPolicy);
787 SET_EXPECT(QI_IObjectWithSite);
788 SET_EXPECT(reportSuccess);
789 parse_script_a(parser, "Call CreateObject(\"Wine.Test\").reportSuccess()");
790 CHECK_CALLED(Host_QS_SecMgr);
791 CHECK_CALLED(ProcessUrlAction);
792 CHECK_CALLED(CreateInstance);
793 CHECK_CALLED(QueryCustomPolicy);
794 CHECK_CALLED(QI_IObjectWithSite);
795 CHECK_CALLED(reportSuccess);
796
797 IActiveScriptParse_Release(parser);
798
799 parser = create_script(TRUE);
800
801 hres = parse_script_ae(parser, "Call CreateObject(\"Wine.TestABC\")");
802 ok(hres == VB_E_CANNOT_CREATE_OBJ, "hres = %08x\n", hres);
803
804 IActiveScriptParse_Release(parser);
805
806 parser = create_script(TRUE);
807 QS_SecMgr_hres = E_NOINTERFACE;
808
809 SET_EXPECT(Host_QS_SecMgr);
810 hres = parse_script_ae(parser, "Call CreateObject(\"Wine.Test\")");
811 ok(hres == VB_E_CANNOT_CREATE_OBJ, "hres = %08x\n", hres);
812 CHECK_CALLED(Host_QS_SecMgr);
813
814 IActiveScriptParse_Release(parser);
815
816 parser = create_script(TRUE);
817 ProcessUrlAction_hres = E_FAIL;
818
819 SET_EXPECT(Host_QS_SecMgr);
820 SET_EXPECT(ProcessUrlAction);
821 hres = parse_script_ae(parser, "Call CreateObject(\"Wine.Test\")");
822 ok(hres == VB_E_CANNOT_CREATE_OBJ, "hres = %08x\n", hres);
823 CHECK_CALLED(Host_QS_SecMgr);
824 CHECK_CALLED(ProcessUrlAction);
825
826 IActiveScriptParse_Release(parser);
827
828 parser = create_script(TRUE);
829 ProcessUrlAction_policy = URLPOLICY_DISALLOW;
830
831 SET_EXPECT(Host_QS_SecMgr);
832 SET_EXPECT(ProcessUrlAction);
833 hres = parse_script_ae(parser, "Call CreateObject(\"Wine.Test\")");
834 ok(hres == VB_E_CANNOT_CREATE_OBJ, "hres = %08x\n", hres);
835 CHECK_CALLED(Host_QS_SecMgr);
836 CHECK_CALLED(ProcessUrlAction);
837
838 IActiveScriptParse_Release(parser);
839
840 parser = create_script(TRUE);
841 CreateInstance_hres = E_FAIL;
842
843 SET_EXPECT(Host_QS_SecMgr);
844 SET_EXPECT(ProcessUrlAction);
845 SET_EXPECT(CreateInstance);
846 hres = parse_script_ae(parser, "Call CreateObject(\"Wine.Test\")");
847 ok(hres == VB_E_CANNOT_CREATE_OBJ, "hres = %08x\n", hres);
848 CHECK_CALLED(Host_QS_SecMgr);
849 CHECK_CALLED(ProcessUrlAction);
850 CHECK_CALLED(CreateInstance);
851
852 IActiveScriptParse_Release(parser);
853
854 parser = create_script(TRUE);
855 QueryCustomPolicy_hres = E_FAIL;
856
857 SET_EXPECT(Host_QS_SecMgr);
858 SET_EXPECT(ProcessUrlAction);
859 SET_EXPECT(CreateInstance);
860 SET_EXPECT(QueryCustomPolicy);
861 hres = parse_script_ae(parser, "Call CreateObject(\"Wine.Test\")");
862 ok(hres == VB_E_CANNOT_CREATE_OBJ, "hres = %08x\n", hres);
863 CHECK_CALLED(Host_QS_SecMgr);
864 CHECK_CALLED(ProcessUrlAction);
865 CHECK_CALLED(CreateInstance);
866 CHECK_CALLED(QueryCustomPolicy);
867
868 IActiveScriptParse_Release(parser);
869
870 parser = create_script(TRUE);
871 QueryCustomPolicy_psize = 6;
872
873 SET_EXPECT(Host_QS_SecMgr);
874 SET_EXPECT(ProcessUrlAction);
875 SET_EXPECT(CreateInstance);
876 SET_EXPECT(QueryCustomPolicy);
877 SET_EXPECT(QI_IObjectWithSite);
878 SET_EXPECT(reportSuccess);
879 parse_script_a(parser, "Call CreateObject(\"Wine.Test\").reportSuccess()");
880 CHECK_CALLED(Host_QS_SecMgr);
881 CHECK_CALLED(ProcessUrlAction);
882 CHECK_CALLED(CreateInstance);
883 CHECK_CALLED(QueryCustomPolicy);
884 CHECK_CALLED(QI_IObjectWithSite);
885 CHECK_CALLED(reportSuccess);
886
887 IActiveScriptParse_Release(parser);
888
889 parser = create_script(TRUE);
890 QueryCustomPolicy_policy = URLPOLICY_DISALLOW;
891
892 SET_EXPECT(Host_QS_SecMgr);
893 SET_EXPECT(ProcessUrlAction);
894 SET_EXPECT(CreateInstance);
895 SET_EXPECT(QueryCustomPolicy);
896 hres = parse_script_ae(parser, "Call CreateObject(\"Wine.Test\")");
897 ok(hres == VB_E_CANNOT_CREATE_OBJ, "hres = %08x\n", hres);
898 CHECK_CALLED(Host_QS_SecMgr);
899 CHECK_CALLED(ProcessUrlAction);
900 CHECK_CALLED(CreateInstance);
901 CHECK_CALLED(QueryCustomPolicy);
902
903 QueryCustomPolicy_psize = 6;
904
905 SET_EXPECT(ProcessUrlAction);
906 SET_EXPECT(CreateInstance);
907 SET_EXPECT(QueryCustomPolicy);
908 hres = parse_script_ae(parser, "Call CreateObject(\"Wine.Test\")");
909 ok(hres == VB_E_CANNOT_CREATE_OBJ, "hres = %08x\n", hres);
910 CHECK_CALLED(ProcessUrlAction);
911 CHECK_CALLED(CreateInstance);
912 CHECK_CALLED(QueryCustomPolicy);
913
914 QueryCustomPolicy_policy = URLPOLICY_ALLOW;
915 QueryCustomPolicy_psize = 3;
916
917 SET_EXPECT(ProcessUrlAction);
918 SET_EXPECT(CreateInstance);
919 SET_EXPECT(QueryCustomPolicy);
920 hres = parse_script_ae(parser, "Call CreateObject(\"Wine.Test\")");
921 ok(hres == VB_E_CANNOT_CREATE_OBJ, "hres = %08x\n", hres);
922 CHECK_CALLED(ProcessUrlAction);
923 CHECK_CALLED(CreateInstance);
924 CHECK_CALLED(QueryCustomPolicy);
925
926 IActiveScriptParse_Release(parser);
927
928 parser = create_script(FALSE);
929
930 SET_EXPECT(CreateInstance);
931 SET_EXPECT(QI_IObjectWithSite);
932 SET_EXPECT(reportSuccess);
933 parse_script_a(parser, "Call CreateObject(\"Wine.Test\").reportSuccess()");
934 CHECK_CALLED(CreateInstance);
935 CHECK_CALLED(QI_IObjectWithSite);
936 CHECK_CALLED(reportSuccess);
937
938 IActiveScriptParse_Release(parser);
939
940 parser = create_script(TRUE);
941 object_with_site = &ObjectWithSite;
942
943 SET_EXPECT(Host_QS_SecMgr);
944 SET_EXPECT(ProcessUrlAction);
945 SET_EXPECT(CreateInstance);
946 SET_EXPECT(QueryCustomPolicy);
947 SET_EXPECT(QI_IObjectWithSite);
948 SET_EXPECT(SetSite);
949 SET_EXPECT(reportSuccess);
950 parse_script_a(parser, "Call CreateObject(\"Wine.Test\").reportSuccess()");
951 CHECK_CALLED(Host_QS_SecMgr);
952 CHECK_CALLED(ProcessUrlAction);
953 CHECK_CALLED(CreateInstance);
954 CHECK_CALLED(QueryCustomPolicy);
955 CHECK_CALLED(QI_IObjectWithSite);
956 CHECK_CALLED(SetSite);
957 CHECK_CALLED(reportSuccess);
958
959 SetSite_hres = E_FAIL;
960 SET_EXPECT(ProcessUrlAction);
961 SET_EXPECT(CreateInstance);
962 SET_EXPECT(QueryCustomPolicy);
963 SET_EXPECT(QI_IObjectWithSite);
964 SET_EXPECT(SetSite);
965 hres = parse_script_ae(parser, "Call CreateObject(\"Wine.Test\")");
966 ok(hres == VB_E_CANNOT_CREATE_OBJ, "hres = %08x\n", hres);
967 CHECK_CALLED(ProcessUrlAction);
968 CHECK_CALLED(CreateInstance);
969 CHECK_CALLED(QueryCustomPolicy);
970 CHECK_CALLED(QI_IObjectWithSite);
971 CHECK_CALLED(SetSite);
972
973 IActiveScriptParse_Release(parser);
974}
create_script
static IActiveScriptParse * create_script(void)
Definition: caller.c:501
parse_script_ae
static HRESULT parse_script_ae(IActiveScriptParse *parser, const char *script)
Definition: createobj.c:718
SET_EXPECT
#define SET_EXPECT(func)
Definition: createobj.c:58
VB_E_CANNOT_CREATE_OBJ
#define VB_E_CANNOT_CREATE_OBJ
Definition: createobj.c:120
parse_script_a
#define parse_script_a(p, s)
Definition: createobj.c:706
ObjectWithSite
static IObjectWithSite ObjectWithSite
Definition: createobj.c:187
IActiveScriptParse_Release
#define IActiveScriptParse_Release
Definition: createobj.c:44
CHECK_CALLED
#define CHECK_CALLED(func)
Definition: createobj.c:73
E_FAIL
#define E_FAIL
Definition: ddrawi.h:102

Referenced by START_TEST().

◆ Test_GetDispID()

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

Definition at line 288 of file createobj.c.

289{
290 if(!strcmp_wa(bstrName, "reportSuccess")) {
291 ok(grfdex == fdexNameCaseInsensitive, "grfdex = %x\n", grfdex);
292 *pid = DISPID_TEST_REPORTSUCCESS;
293 return S_OK;
294 }
295
296 ok(0, "unexpected name %s\n", wine_dbgstr_w(bstrName));
297 return E_NOTIMPL;
298}
DISPID_TEST_REPORTSUCCESS
#define DISPID_TEST_REPORTSUCCESS
Definition: createobj.c:116

◆ test_GetObject()

static void test_GetObject ( void  )
static

Definition at line 976 of file createobj.c.

977{
978 IActiveScriptParse *parser;
979 HRESULT hres;
980
981 /* Never allowed with security manager */
982 parser = create_script(TRUE);
983 hres = parse_script_ae(parser, "Call GetObject(\"clsid:" TESTOBJINST_CLSID "\").reportSuccess()");
984 ok(hres == VB_E_CANNOT_CREATE_OBJ, "hres = %08x\n", hres);
985 IActiveScriptParse_Release(parser);
986
987 parser = create_script(FALSE);
988
989 SET_EXPECT(QI_IObjectWithSite);
990 SET_EXPECT(SetSite);
991 SET_EXPECT(reportSuccess);
992 hres = parse_script_ae(parser, "Call GetObject(\"clsid:" TESTOBJINST_CLSID "\").reportSuccess()");
993 if(broken(hres == VB_E_ACCESS_DENIED)) /* 64-bit win8 fails on the first try */
994 hres = parse_script_ae(parser, "Call GetObject(\"clsid:" TESTOBJINST_CLSID "\").reportSuccess()");
995 if(hres == HRESULT_FROM_WIN32(ERROR_MOD_NOT_FOUND)) { /* Workaround for broken win2k */
996 win_skip("got unexpected error %08x\n", hres);
997 CLEAR_CALLED(QI_IObjectWithSite);
998 CLEAR_CALLED(SetSite);
999 CLEAR_CALLED(reportSuccess);
1000 IActiveScriptParse_Release(parser);
1001 return;
1002 }
1003 ok(hres == S_OK, "hres = %08x\n", hres);
1004 CHECK_CALLED(QI_IObjectWithSite);
1005 CHECK_CALLED(SetSite);
1006 CHECK_CALLED(reportSuccess);
1007
1008 SetSite_hres = E_FAIL;
1009 SET_EXPECT(QI_IObjectWithSite);
1010 SET_EXPECT(SetSite);
1011 hres = parse_script_ae(parser, "Call GetObject(\"clsid:" TESTOBJINST_CLSID "\").reportSuccess()");
1012 ok(hres == E_FAIL, "hres = %08x\n", hres);
1013 CHECK_CALLED(QI_IObjectWithSite);
1014 CHECK_CALLED(SetSite);
1015
1016 QI_IObjectWithSite_hres = E_NOINTERFACE;
1017 SET_EXPECT(QI_IObjectWithSite);
1018 SET_EXPECT(reportSuccess);
1019 parse_script_a(parser, "Call GetObject(\"clsid:" TESTOBJINST_CLSID "\").reportSuccess()");
1020 CHECK_CALLED(QI_IObjectWithSite);
1021 CHECK_CALLED(reportSuccess);
1022
1023 IActiveScriptParse_Release(parser);
1024
1025 /* Invalid moniker */
1026 parser = create_script(FALSE);
1027 hres = parse_script_ae(parser, "Call GetObject(\"nonexistent:test\").reportSuccess()");
1028 ok(hres == MK_E_SYNTAX, "hres = %08x\n", hres);
1029 IActiveScriptParse_Release(parser);
1030}
broken
#define broken(x)
Definition: _sntprintf.h:21
CLEAR_CALLED
#define CLEAR_CALLED(func)
Definition: createobj.c:79
VB_E_ACCESS_DENIED
#define VB_E_ACCESS_DENIED
Definition: createobj.c:53
TESTOBJINST_CLSID
#define TESTOBJINST_CLSID
Definition: createobj.c:105
ERROR_MOD_NOT_FOUND
#define ERROR_MOD_NOT_FOUND
Definition: compat.h:104
MK_E_SYNTAX
#define MK_E_SYNTAX
Definition: winerror.h:2785
HRESULT_FROM_WIN32
#define HRESULT_FROM_WIN32(x)
Definition: winerror.h:92

Referenced by START_TEST().

◆ 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 300 of file createobj.c.

302{
303 switch(id) {
304 case DISPID_TEST_REPORTSUCCESS:
305 CHECK_EXPECT(reportSuccess);
306
307 ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags);
308 ok(pdp != NULL, "pdp == NULL\n");
309 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
310 ok(pdp->cArgs == 0, "cArgs = %d\n", pdp->cArgs);
311 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
312 ok(!pvarRes, "pvarRes != NULL\n");
313 ok(pei != NULL, "pei == NULL\n");
314 break;
315
316 default:
317 ok(0, "unexpected call\n");
318 return E_NOTIMPL;
319 }
320
321 return S_OK;
322}

Variable Documentation

◆ ActiveScriptSite

IActiveScriptSite ActiveScriptSite = { &ActiveScriptSiteVtbl }
static

Definition at line 675 of file createobj.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
}
ActiveScriptSite_Release
static ULONG WINAPI ActiveScriptSite_Release(IActiveScriptSite *iface)
Definition: createobj.c:608
ActiveScriptSite_OnLeaveScript
static HRESULT WINAPI ActiveScriptSite_OnLeaveScript(IActiveScriptSite *iface)
Definition: createobj.c:656
ActiveScriptSite_OnStateChange
static HRESULT WINAPI ActiveScriptSite_OnStateChange(IActiveScriptSite *iface, SCRIPTSTATE ssScriptState)
Definition: createobj.c:641
ActiveScriptSite_GetDocVersionString
static HRESULT WINAPI ActiveScriptSite_GetDocVersionString(IActiveScriptSite *iface, BSTR *pbstrVersion)
Definition: createobj.c:630
ActiveScriptSite_GetItemInfo
static HRESULT WINAPI ActiveScriptSite_GetItemInfo(IActiveScriptSite *iface, LPCOLESTR pstrName, DWORD dwReturnMask, IUnknown **ppiunkItem, ITypeInfo **ppti)
Definition: createobj.c:619
ActiveScriptSite_QueryInterface
static HRESULT WINAPI ActiveScriptSite_QueryInterface(IActiveScriptSite *iface, REFIID riid, void **ppv)
Definition: createobj.c:586
ActiveScriptSite_OnEnterScript
static HRESULT WINAPI ActiveScriptSite_OnEnterScript(IActiveScriptSite *iface)
Definition: createobj.c:651
ActiveScriptSite_AddRef
static ULONG WINAPI ActiveScriptSite_AddRef(IActiveScriptSite *iface)
Definition: createobj.c:603
ActiveScriptSite_OnScriptTerminate
static HRESULT WINAPI ActiveScriptSite_OnScriptTerminate(IActiveScriptSite *iface, const VARIANT *pvarResult, const EXCEPINFO *pexcepinfo)
Definition: createobj.c:635
ActiveScriptSite_GetLCID
static HRESULT WINAPI ActiveScriptSite_GetLCID(IActiveScriptSite *iface, LCID *plcid)
Definition: createobj.c:613
ActiveScriptSite_OnScriptError
static HRESULT WINAPI ActiveScriptSite_OnScriptError(IActiveScriptSite *iface, IActiveScriptError *pscripterror)
Definition: createobj.c:646

Definition at line 661 of file createobj.c.

◆ activex_cf

IClassFactory activex_cf = { &ClassFactoryVtbl }
static

Definition at line 450 of file createobj.c.

Referenced by register_activex().

◆ ClassFactoryVtbl

const IClassFactoryVtbl ClassFactoryVtbl
static
Initial value:
= {
ClassFactory_QueryInterface,
ClassFactory_AddRef,
ClassFactory_Release,
ClassFactory_CreateInstance,
ClassFactory_LockServer
}
ClassFactory_CreateInstance
static HRESULT WINAPI ClassFactory_CreateInstance(IClassFactory *iface, IUnknown *outer, REFIID riid, void **ppv)
Definition: createobj.c:424
ClassFactory_LockServer
static HRESULT WINAPI ClassFactory_LockServer(IClassFactory *iface, BOOL dolock)
Definition: createobj.c:436
ClassFactory_Release
static ULONG WINAPI ClassFactory_Release(IClassFactory *iface)
Definition: createobj.c:419
ClassFactory_QueryInterface
static HRESULT WINAPI ClassFactory_QueryInterface(IClassFactory *iface, REFIID riid, void **ppv)
Definition: createobj.c:402
ClassFactory_AddRef
static ULONG WINAPI ClassFactory_AddRef(IClassFactory *iface)
Definition: createobj.c:414

Definition at line 442 of file createobj.c.

◆ CLSID_TestObj

const GUID CLSID_TestObj
static
Initial value:
=
{0x178fc163,0xf585,0x4e24,{0x9c,0x13,0x4b,0xb7,0xfa,0xf8,0x06,0x46}}

Definition at line 107 of file createobj.c.

Referenced by InternetHostSecurityManager_ProcessUrlAction(), and register_activex().

◆ CLSID_TestObjInst

const GUID CLSID_TestObjInst
static
Initial value:
=
{0x178fc163,0xf585,0x4e24,{0x9c,0x13,0x4b,0xb7,0xfa,0xf8,0x06,0x47}}

Definition at line 109 of file createobj.c.

Referenced by register_activex().

◆ CLSID_VBScript

const CLSID CLSID_VBScript
extern

Referenced by check_vbscript(), create_script(), create_vbscript(), DllGetClassObject(), and get_guid_from_type().

◆ CreateInstance_hres

HRESULT CreateInstance_hres
static

Definition at line 96 of file createobj.c.

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

◆ globalObj

IDispatchEx globalObj = { &globalObjVtbl }
static

Definition at line 400 of file createobj.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
}
DispatchEx_GetMemberProperties
static HRESULT WINAPI DispatchEx_GetMemberProperties(IDispatchEx *iface, DISPID id, DWORD grfdexFetch, DWORD *pgrfdex)
Definition: createobj.c:264
DispatchEx_Release
static ULONG WINAPI DispatchEx_Release(IDispatchEx *iface)
Definition: createobj.c:218
DispatchEx_GetIDsOfNames
static HRESULT WINAPI DispatchEx_GetIDsOfNames(IDispatchEx *iface, REFIID riid, LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId)
Definition: createobj.c:236
DispatchEx_DeleteMemberByDispID
static HRESULT WINAPI DispatchEx_DeleteMemberByDispID(IDispatchEx *iface, DISPID id)
Definition: createobj.c:258
DispatchEx_GetNameSpaceParent
static HRESULT WINAPI DispatchEx_GetNameSpaceParent(IDispatchEx *iface, IUnknown **ppunk)
Definition: createobj.c:282
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)
Definition: createobj.c:244
DispatchEx_GetMemberName
static HRESULT WINAPI DispatchEx_GetMemberName(IDispatchEx *iface, DISPID id, BSTR *pbstrName)
Definition: createobj.c:270
DispatchEx_GetNextDispID
static HRESULT WINAPI DispatchEx_GetNextDispID(IDispatchEx *iface, DWORD grfdex, DISPID id, DISPID *pid)
Definition: createobj.c:276
DispatchEx_QueryInterface
static HRESULT WINAPI DispatchEx_QueryInterface(IDispatchEx *iface, REFIID riid, void **ppv)
Definition: createobj.c:191
DispatchEx_AddRef
static ULONG WINAPI DispatchEx_AddRef(IDispatchEx *iface)
Definition: createobj.c:213
DispatchEx_GetTypeInfo
static HRESULT WINAPI DispatchEx_GetTypeInfo(IDispatchEx *iface, UINT iTInfo, LCID lcid, ITypeInfo **ppTInfo)
Definition: createobj.c:229
Global_InvokeEx
static HRESULT WINAPI Global_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp, VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
Definition: createobj.c:356
DispatchEx_DeleteMemberByName
static HRESULT WINAPI DispatchEx_DeleteMemberByName(IDispatchEx *iface, BSTR bstrName, DWORD grfdex)
Definition: createobj.c:252
DispatchEx_GetTypeInfoCount
static HRESULT WINAPI DispatchEx_GetTypeInfoCount(IDispatchEx *iface, UINT *pctinfo)
Definition: createobj.c:223
Global_GetDispID
static HRESULT WINAPI Global_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
Definition: createobj.c:344

Definition at line 382 of file createobj.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 113 of file createobj.c.

Referenced by InternetHostSecurityManager_QueryCustomPolicy().

◆ InternetHostSecurityManager

IInternetHostSecurityManager InternetHostSecurityManager = { &InternetHostSecurityManagerVtbl }
static

Definition at line 536 of file createobj.c.

Referenced by ServiceProvider_QueryService().

◆ InternetHostSecurityManagerVtbl

const IInternetHostSecurityManagerVtbl InternetHostSecurityManagerVtbl
static
Initial value:
= {
InternetHostSecurityManager_QueryInterface,
InternetHostSecurityManager_AddRef,
InternetHostSecurityManager_Release,
InternetHostSecurityManager_GetSecurityId,
InternetHostSecurityManager_ProcessUrlAction,
InternetHostSecurityManager_QueryCustomPolicy
}
InternetHostSecurityManager_QueryInterface
static HRESULT WINAPI InternetHostSecurityManager_QueryInterface(IInternetHostSecurityManager *iface, REFIID riid, void **ppv)
Definition: createobj.c:452
InternetHostSecurityManager_AddRef
static ULONG WINAPI InternetHostSecurityManager_AddRef(IInternetHostSecurityManager *iface)
Definition: createobj.c:458
InternetHostSecurityManager_GetSecurityId
static HRESULT WINAPI InternetHostSecurityManager_GetSecurityId(IInternetHostSecurityManager *iface, BYTE *pbSecurityId, DWORD *pcbSecurityId, DWORD_PTR dwReserved)
Definition: createobj.c:468
InternetHostSecurityManager_QueryCustomPolicy
static HRESULT WINAPI InternetHostSecurityManager_QueryCustomPolicy(IInternetHostSecurityManager *iface, REFGUID guidKey, BYTE **ppPolicy, DWORD *pcbPolicy, BYTE *pContext, DWORD cbContext, DWORD dwReserved)
Definition: createobj.c:494
InternetHostSecurityManager_Release
static ULONG WINAPI InternetHostSecurityManager_Release(IInternetHostSecurityManager *iface)
Definition: createobj.c:463
InternetHostSecurityManager_ProcessUrlAction
static HRESULT WINAPI InternetHostSecurityManager_ProcessUrlAction(IInternetHostSecurityManager *iface, DWORD dwAction, BYTE *pPolicy, DWORD cbPolicy, BYTE *pContext, DWORD cbContext, DWORD dwFlags, DWORD dwReserved)
Definition: createobj.c:475

Definition at line 527 of file createobj.c.

◆ object_with_site

IObjectWithSite* object_with_site
static

Definition at line 189 of file createobj.c.

Referenced by DispatchEx_QueryInterface(), and test_CreateObject().

◆ ObjectWithSite

IObjectWithSite ObjectWithSite = { &ObjectWithSiteVtbl }
static

Definition at line 187 of file createobj.c.

Referenced by test_CreateObject().

◆ ObjectWithSiteVtbl

const IObjectWithSiteVtbl ObjectWithSiteVtbl
static
Initial value:
= {
ObjectWithSite_QueryInterface,
ObjectWithSite_AddRef,
ObjectWithSite_Release,
ObjectWithSite_SetSite,
ObjectWithSite_GetSite
}
ObjectWithSite_Release
static ULONG WINAPI ObjectWithSite_Release(IObjectWithSite *iface)
Definition: createobj.c:152
ObjectWithSite_AddRef
static ULONG WINAPI ObjectWithSite_AddRef(IObjectWithSite *iface)
Definition: createobj.c:147
ObjectWithSite_QueryInterface
static HRESULT WINAPI ObjectWithSite_QueryInterface(IObjectWithSite *iface, REFIID riid, void **ppv)
Definition: createobj.c:141
ObjectWithSite_SetSite
static HRESULT WINAPI ObjectWithSite_SetSite(IObjectWithSite *iface, IUnknown *pUnkSite)
Definition: createobj.c:157
ObjectWithSite_GetSite
static HRESULT WINAPI ObjectWithSite_GetSite(IObjectWithSite *iface, REFIID riid, void **ppvSite)
Definition: createobj.c:173

Definition at line 179 of file createobj.c.

◆ ProcessUrlAction_hres

HRESULT ProcessUrlAction_hres
static

Definition at line 94 of file createobj.c.

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

◆ ProcessUrlAction_policy

DWORD ProcessUrlAction_policy
static

Definition at line 95 of file createobj.c.

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

◆ QI_IDispatch_hres

HRESULT QI_IDispatch_hres
static

Definition at line 100 of file createobj.c.

Referenced by create_script(), and DispatchEx_QueryInterface().

◆ QI_IObjectWithSite_hres

HRESULT QI_IObjectWithSite_hres
static

Definition at line 101 of file createobj.c.

Referenced by create_script(), DispatchEx_QueryInterface(), and test_GetObject().

◆ QS_SecMgr_hres

HRESULT QS_SecMgr_hres
static

Definition at line 93 of file createobj.c.

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

◆ QueryCustomPolicy_hres

HRESULT QueryCustomPolicy_hres
static

Definition at line 97 of file createobj.c.

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

◆ QueryCustomPolicy_policy

DWORD QueryCustomPolicy_policy
static

Definition at line 99 of file createobj.c.

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

◆ QueryCustomPolicy_psize

DWORD QueryCustomPolicy_psize
static

Definition at line 98 of file createobj.c.

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

◆ ServiceProvider

static IServiceProvider ServiceProvider = { &ServiceProviderVtbl }
static

Definition at line 538 of file createobj.c.

Referenced by ActiveScriptSite_QueryInterface(), and ServiceProvider_QueryService().

◆ ServiceProviderVtbl

IServiceProviderVtbl ServiceProviderVtbl
static
Initial value:
= {
ServiceProvider_QueryInterface,
ServiceProvider_AddRef,
ServiceProvider_Release,
ServiceProvider_QueryService
}
ServiceProvider_QueryService
static HRESULT WINAPI ServiceProvider_QueryService(IServiceProvider *iface, REFGUID guidService, REFIID riid, void **ppv)
Definition: createobj.c:556
ServiceProvider_Release
static ULONG WINAPI ServiceProvider_Release(IServiceProvider *iface)
Definition: createobj.c:551
ServiceProvider_QueryInterface
static HRESULT WINAPI ServiceProvider_QueryInterface(IServiceProvider *iface, REFIID riid, void **ppv)
Definition: createobj.c:540
ServiceProvider_AddRef
static ULONG WINAPI ServiceProvider_AddRef(IServiceProvider *iface)
Definition: createobj.c:546

Definition at line 577 of file createobj.c.

◆ SetSite_hres

HRESULT SetSite_hres
static

Definition at line 102 of file createobj.c.

Referenced by create_script(), ObjectWithSite_SetSite(), test_CreateObject(), and test_GetObject().

◆ testObj

IDispatchEx testObj = { &testObjVtbl }
static

Definition at line 342 of file createobj.c.

Referenced by ClassFactory_CreateInstance(), and register_activex().

◆ 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
}
Test_GetDispID
static HRESULT WINAPI Test_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
Definition: createobj.c:288
Test_InvokeEx
static HRESULT WINAPI Test_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp, VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
Definition: createobj.c:300

Definition at line 324 of file createobj.c.

◆ testW

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

Definition at line 91 of file createobj.c.

Referenced by create_script().