ReactOS  0.4.15-dev-499-g1f31905
activex.c
Go to the documentation of this file.
1 /*
2  * Copyright 2009 Jacek Caban for CodeWeavers
3  *
4  * This library is free software; you can redistribute it and/or
5  * modify it under the terms of the GNU Lesser General Public
6  * License as published by the Free Software Foundation; either
7  * version 2.1 of the License, or (at your option) any later version.
8  *
9  * This library is distributed in the hope that it will be useful,
10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12  * Lesser General Public License for more details.
13  *
14  * You should have received a copy of the GNU Lesser General Public
15  * License along with this library; if not, write to the Free Software
16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
17  */
18 
19 
20 #include "jscript.h"
21 #include "objsafe.h"
22 #include "mshtmhst.h"
23 
24 #include "wine/debug.h"
25 
27 
28 /* Defined as extern in urlmon.idl, but not exported by uuid.lib */
30  {0x10200490,0xfa38,0x11d0,{0xac,0x0e,0x00,0xa0,0xc9,0xf,0xff,0xc0}};
31 
33 {
36  HRESULT hres;
37 
38  if(!ctx->site)
39  return NULL;
40 
41  if(ctx->secmgr)
42  return ctx->secmgr;
43 
44  hres = IActiveScriptSite_QueryInterface(ctx->site, &IID_IServiceProvider, (void**)&sp);
45  if(FAILED(hres))
46  return NULL;
47 
48  hres = IServiceProvider_QueryService(sp, &SID_SInternetHostSecurityManager, &IID_IInternetHostSecurityManager,
49  (void**)&secmgr);
50  IServiceProvider_Release(sp);
51  if(FAILED(hres))
52  return NULL;
53 
54  return ctx->secmgr = secmgr;
55 }
56 
58 {
60  IObjectWithSite *obj_site;
61  struct CONFIRMSAFETY cs;
62  IClassFactoryEx *cfex;
64  DWORD policy_size;
65  BYTE *bpolicy;
66  IUnknown *obj;
67  DWORD policy;
68  GUID guid;
69  HRESULT hres;
70 
71  TRACE("%s\n", debugstr_w(progid));
72 
74  if(FAILED(hres))
75  return NULL;
76 
77  TRACE("GUID %s\n", debugstr_guid(&guid));
78 
79  if(ctx->safeopt & INTERFACE_USES_SECURITY_MANAGER) {
80  secmgr = get_sec_mgr(ctx);
81  if(!secmgr)
82  return NULL;
83 
84  policy = 0;
85  hres = IInternetHostSecurityManager_ProcessUrlAction(secmgr, URLACTION_ACTIVEX_RUN,
86  (BYTE*)&policy, sizeof(policy), (BYTE*)&guid, sizeof(GUID), 0, 0);
87  if(FAILED(hres) || policy != URLPOLICY_ALLOW)
88  return NULL;
89  }
90 
91  hres = CoGetClassObject(&guid, CLSCTX_INPROC_SERVER|CLSCTX_LOCAL_SERVER, NULL, &IID_IClassFactory, (void**)&cf);
92  if(FAILED(hres))
93  return NULL;
94 
95  hres = IClassFactory_QueryInterface(cf, &IID_IClassFactoryEx, (void**)&cfex);
96  if(SUCCEEDED(hres)) {
97  FIXME("Use IClassFactoryEx\n");
98  IClassFactoryEx_Release(cfex);
99  }
100 
101  hres = IClassFactory_CreateInstance(cf, NULL, &IID_IUnknown, (void**)&obj);
102  if(FAILED(hres))
103  return NULL;
104 
105  if(secmgr) {
106  cs.clsid = guid;
107  cs.pUnk = obj;
108  cs.dwFlags = 0;
109  hres = IInternetHostSecurityManager_QueryCustomPolicy(secmgr, &GUID_CUSTOM_CONFIRMOBJECTSAFETY,
110  &bpolicy, &policy_size, (BYTE*)&cs, sizeof(cs), 0);
111  if(SUCCEEDED(hres)) {
112  policy = policy_size >= sizeof(DWORD) ? *(DWORD*)bpolicy : URLPOLICY_DISALLOW;
113  CoTaskMemFree(bpolicy);
114  }
115 
116  if(FAILED(hres) || policy != URLPOLICY_ALLOW) {
117  IUnknown_Release(obj);
118  return NULL;
119  }
120  }
121 
122  hres = IUnknown_QueryInterface(obj, &IID_IObjectWithSite, (void**)&obj_site);
123  if(SUCCEEDED(hres)) {
124  IUnknown *ax_site;
125 
126  ax_site = create_ax_site(ctx);
127  if(ax_site) {
128  hres = IObjectWithSite_SetSite(obj_site, ax_site);
129  IUnknown_Release(ax_site);
130  }
131  IObjectWithSite_Release(obj_site);
132  if(!ax_site || FAILED(hres)) {
133  IUnknown_Release(obj);
134  return NULL;
135  }
136  }
137 
138  return obj;
139 }
140 
142  jsval_t *r)
143 {
144  jsstr_t * progid_str;
145  const WCHAR *progid;
146  IDispatch *disp;
147  IUnknown *obj;
148  HRESULT hres;
149 
150  TRACE("\n");
151 
152  if(flags != DISPATCH_CONSTRUCT) {
153  FIXME("unsupported flags %x\n", flags);
154  return E_NOTIMPL;
155  }
156 
157  if(ctx->safeopt != (INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER)
158  && ctx->safeopt != INTERFACE_USES_DISPEX) {
159  FIXME("Unsupported safeopt %x\n", ctx->safeopt);
160  return E_NOTIMPL;
161  }
162 
163  if(argc != 1) {
164  FIXME("unsupported argc %d\n", argc);
165  return E_NOTIMPL;
166  }
167 
168  hres = to_flat_string(ctx, argv[0], &progid_str, &progid);
169  if(FAILED(hres))
170  return hres;
171 
173  jsstr_release(progid_str);
174  if(!obj)
176 
177  hres = IUnknown_QueryInterface(obj, &IID_IDispatch, (void**)&disp);
178  IUnknown_Release(obj);
179  if(FAILED(hres)) {
180  FIXME("Object does not support IDispatch\n");
181  return E_NOTIMPL;
182  }
183 
184  *r = jsval_disp(disp);
185  return S_OK;
186 }
187 
189 {
190  jsdisp_t *prototype;
191  HRESULT hres;
192 
193  static const WCHAR ActiveXObjectW[] = {'A','c','t','i','v','e','X','O','b','j','e','c','t',0};
194 
195  hres = create_object(ctx, NULL, &prototype);
196  if(FAILED(hres))
197  return hres;
198 
200  PROPF_CONSTR|1, prototype, ret);
201 
202  jsdisp_release(prototype);
203  return hres;
204 }
static IClassFactory * cf
Definition: jsval.h:54
static HRESULT ActiveXObject_value(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
Definition: activex.c:141
disp
Definition: i386-dis.c:3181
static int argc
Definition: ServiceArgs.c:12
VOID WINAPI CoTaskMemFree(LPVOID ptr)
Definition: ifs.c:442
static IUnknown * create_activex_object(script_ctx_t *ctx, const WCHAR *progid)
Definition: activex.c:57
Definition: jsstr.h:39
GLdouble GLdouble GLdouble r
Definition: gl.h:2055
#define PROPF_CONSTR
Definition: jscript.h:98
static void jsstr_release(jsstr_t *str)
Definition: jsstr.h:110
#define argv
Definition: mplay32.c:18
#define DWORD
Definition: nt_native.h:44
HRESULT WINAPI DECLSPEC_HOTPATCH CLSIDFromProgID(LPCOLESTR progid, LPCLSID clsid)
Definition: compobj.c:2602
const GUID GUID_CUSTOM_CONFIRMOBJECTSAFETY
Definition: activex.c:29
GLsizei GLsizei GLuint * obj
Definition: glext.h:6042
uint32_t cs
Definition: isohybrid.c:75
const GUID * guid
WINE_DEFAULT_DEBUG_CHANNEL(jscript)
#define debugstr_w
Definition: kernel32.h:32
#define FIXME(fmt,...)
Definition: debug.h:111
smooth NULL
Definition: ftsmooth.c:416
#define debugstr_guid
Definition: kernel32.h:35
HRESULT WINAPI DECLSPEC_HOTPATCH CoGetClassObject(REFCLSID rclsid, DWORD dwClsContext, COSERVERINFO *pServerInfo, REFIID iid, LPVOID *ppv)
Definition: compobj.c:3103
#define TRACE(s)
Definition: solgame.cpp:4
static jsval_t jsval_disp(IDispatch *obj)
Definition: jsval.h:117
HRESULT hres
Definition: protocol.c:465
static const WCHAR ActiveXObjectW[]
Definition: global.c:52
DWORD safeopt
Definition: jscript.h:419
__wchar_t WCHAR
Definition: xmlstorage.h:180
LONG HRESULT
Definition: typedefs.h:78
const GUID IID_IUnknown
const IID IID_IObjectWithSite
unsigned short WORD
Definition: ntddk_ex.h:93
unsigned long DWORD
Definition: ntddk_ex.h:95
GLbitfield flags
Definition: glext.h:7161
const GUID IID_IDispatch
int ret
unsigned char BYTE
Definition: xxhash.c:193
static IInternetHostSecurityManager * get_sec_mgr(script_ctx_t *ctx)
Definition: activex.c:32
#define S_OK
Definition: intsafe.h:59
#define E_NOTIMPL
Definition: ddrawi.h:99
IActiveScriptSite * site
Definition: jscript.h:417
IInternetHostSecurityManager * secmgr
Definition: jscript.h:418
static void jsdisp_release(jsdisp_t *jsdisp)
Definition: jscript.h:268
HRESULT create_activex_constr(script_ctx_t *ctx, jsdisp_t **ret)
Definition: activex.c:188
IUnknown * create_ax_site(script_ctx_t *ctx)
Definition: jscript.c:324
#define progid(str)
Definition: exdisp.idl:31
HRESULT create_object(script_ctx_t *, jsdisp_t *, jsdisp_t **) DECLSPEC_HIDDEN
Definition: object.c:731
static const WCHAR sp[]
Definition: suminfo.c:288
HRESULT throw_generic_error(script_ctx_t *ctx, HRESULT error, const WCHAR *str)
Definition: error.c:415
const GUID IID_IClassFactory
HRESULT to_flat_string(script_ctx_t *, jsval_t, jsstr_t **, const WCHAR **) DECLSPEC_HIDDEN
Definition: jsutils.c:798
#define SUCCEEDED(hr)
Definition: intsafe.h:57
#define JS_E_CANNOT_CREATE_OBJ
Definition: jscript.h:532
HRESULT create_builtin_function(script_ctx_t *ctx, builtin_invoke_t value_proc, const WCHAR *name, const builtin_info_t *builtin_info, DWORD flags, jsdisp_t *prototype, jsdisp_t **ret)
Definition: function.c:651