dlls/msscript.ocx/msscript.c

   1 /*
   2  * Copyright 2015 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 #define COBJMACROS
  20
  21 #include "windows.h"
  22 #include "initguid.h"
  23 #include "ole2.h"
  24 #include "olectl.h"
  25 #include "objsafe.h"
  26 #include "activscp.h"
  27 #include "rpcproxy.h"
  28 #include "msscript.h"
  29
  30 #include "wine/debug.h"
  31 #include "wine/list.h"
  32
  33 WINE_DEFAULT_DEBUG_CHANNEL(msscript);
  34
  35 #ifdef _WIN64
  36
  37 #define IActiveScriptParse_Release IActiveScriptParse64_Release
  38 #define IActiveScriptParse_InitNew IActiveScriptParse64_InitNew
  39 #define IActiveScriptParse_ParseScriptText IActiveScriptParse64_ParseScriptText
  40
  41 #else
  42
  43 #define IActiveScriptParse_Release IActiveScriptParse32_Release
  44 #define IActiveScriptParse_InitNew IActiveScriptParse32_InitNew
  45 #define IActiveScriptParse_ParseScriptText IActiveScriptParse32_ParseScriptText
  46
  47 #endif
  48
  49 struct ScriptControl;
  50 typedef struct ConnectionPoint ConnectionPoint;
  51
  52 struct ConnectionPoint {
  53     IConnectionPoint IConnectionPoint_iface;
  54     ScriptControl *control;
  55     const IID *riid;
  56     ConnectionPoint *next;
  57 };
  58
  59 struct named_item {
  60     struct list entry;
  61     BSTR name;
  62     IDispatch *disp;
  63 };
  64
  65 typedef struct ScriptHost {
  66     IActiveScriptSite IActiveScriptSite_iface;
  67     IActiveScriptSiteWindow IActiveScriptSiteWindow_iface;
  68     IServiceProvider IServiceProvider_iface;
  69     LONG ref;
  70
  71     IActiveScript *script;
  72     IActiveScriptParse *parse;
  73     CLSID clsid;
  74
  75     struct list named_items;
  76 } ScriptHost;
  77
  78 struct ScriptControl {
  79     IScriptControl IScriptControl_iface;
  80     IPersistStreamInit IPersistStreamInit_iface;
  81     IOleObject IOleObject_iface;
  82     IOleControl IOleControl_iface;
  83     IQuickActivate IQuickActivate_iface;
  84     IViewObjectEx IViewObjectEx_iface;
  85     IPointerInactive IPointerInactive_iface;
  86     IConnectionPointContainer IConnectionPointContainer_iface;
  87     LONG ref;
  88     IOleClientSite *site;
  89     SIZEL extent;
  90     LONG timeout;
  91
  92     /* connection points */
  93     ConnectionPoint *cp_list;
  94     ConnectionPoint cp_scsource;
  95     ConnectionPoint cp_propnotif;
  96
  97     /* IViewObject sink */
  98     IAdviseSink *view_sink;
  99     DWORD view_sink_flags;
 100
 101     ScriptHost *host;
 102 };
 103
 104 static HINSTANCE msscript_instance;
 105
 106 static inline void * __WINE_ALLOC_SIZE(1) heap_alloc(size_t len)
 107 {
 108     return HeapAlloc(GetProcessHeap(), 0, len);
 109 }
 110
 111 static inline BOOL heap_free(void *mem)
 112 {
 113     return HeapFree(GetProcessHeap(), 0, mem);
 114 }
 115
 116 typedef enum tid_t {
 117     IScriptControl_tid,
 118     LAST_tid
 119 } tid_t;
 120
 121 static ITypeLib *typelib;
 122 static ITypeInfo *typeinfos[LAST_tid];
 123
 124 static REFIID tid_ids[] = {
 125     &IID_IScriptControl
 126 };
 127
 128 static HRESULT load_typelib(void)
 129 {
 130     HRESULT hres;
 131     ITypeLib *tl;
 132
 133     hres = LoadRegTypeLib(&LIBID_MSScriptControl, 1, 0, LOCALE_SYSTEM_DEFAULT, &tl);
 134     if(FAILED(hres)) {
 135         ERR("LoadRegTypeLib failed: %08x\n", hres);
 136         return hres;
 137     }
 138
 139     if(InterlockedCompareExchangePointer((void**)&typelib, tl, NULL))
 140         ITypeLib_Release(tl);
 141     return hres;
 142 }
 143
 144 static HRESULT get_typeinfo(tid_t tid, ITypeInfo **typeinfo)
 145 {
 146     HRESULT hres;
 147
 148     if (!typelib)
 149         hres = load_typelib();
 150     if (!typelib)
 151         return hres;
 152
 153     if(!typeinfos[tid]) {
 154         ITypeInfo *ti;
 155
 156         hres = ITypeLib_GetTypeInfoOfGuid(typelib, tid_ids[tid], &ti);
 157         if(FAILED(hres)) {
 158             ERR("GetTypeInfoOfGuid(%s) failed: %08x\n", debugstr_guid(tid_ids[tid]), hres);
 159             return hres;
 160         }
 161
 162         if(InterlockedCompareExchangePointer((void**)(typeinfos+tid), ti, NULL))
 163             ITypeInfo_Release(ti);
 164     }
 165
 166     *typeinfo = typeinfos[tid];
 167     ITypeInfo_AddRef(typeinfos[tid]);
 168     return S_OK;
 169 }
 170
 171 static void release_typelib(void)
 172 {
 173     unsigned i;
 174
 175     if(!typelib)
 176         return;
 177
 178     for(i=0; i < sizeof(typeinfos)/sizeof(*typeinfos); i++)
 179         if(typeinfos[i])
 180             ITypeInfo_Release(typeinfos[i]);
 181
 182     ITypeLib_Release(typelib);
 183 }
 184
 185 static void clear_named_items(ScriptHost *host)
 186 {
 187     struct named_item *item, *item1;
 188     LIST_FOR_EACH_ENTRY_SAFE(item, item1, &host->named_items, struct named_item, entry) {
 189        list_remove(&item->entry);
 190        SysFreeString(item->name);
 191        IDispatch_Release(item->disp);
 192        heap_free(item);
 193     }
 194 }
 195
 196 static struct named_item *host_get_named_item(ScriptHost *host, const WCHAR *nameW)
 197 {
 198     struct named_item *item;
 199
 200     LIST_FOR_EACH_ENTRY(item, &host->named_items, struct named_item, entry) {
 201         if (!lstrcmpW(item->name, nameW))
 202             return item;
 203     }
 204
 205     return NULL;
 206 }
 207
 208 static inline ScriptControl *impl_from_IScriptControl(IScriptControl *iface)
 209 {
 210     return CONTAINING_RECORD(iface, ScriptControl, IScriptControl_iface);
 211 }
 212
 213 static inline ScriptControl *impl_from_IOleObject(IOleObject *iface)
 214 {
 215     return CONTAINING_RECORD(iface, ScriptControl, IOleObject_iface);
 216 }
 217
 218 static inline ScriptControl *impl_from_IPersistStreamInit(IPersistStreamInit *iface)
 219 {
 220     return CONTAINING_RECORD(iface, ScriptControl, IPersistStreamInit_iface);
 221 }
 222
 223 static inline ScriptControl *impl_from_IOleControl(IOleControl *iface)
 224 {
 225     return CONTAINING_RECORD(iface, ScriptControl, IOleControl_iface);
 226 }
 227
 228 static inline ScriptControl *impl_from_IQuickActivate(IQuickActivate *iface)
 229 {
 230     return CONTAINING_RECORD(iface, ScriptControl, IQuickActivate_iface);
 231 }
 232
 233 static inline ScriptControl *impl_from_IViewObjectEx(IViewObjectEx *iface)
 234 {
 235     return CONTAINING_RECORD(iface, ScriptControl, IViewObjectEx_iface);
 236 }
 237
 238 static inline ScriptControl *impl_from_IPointerInactive(IPointerInactive *iface)
 239 {
 240     return CONTAINING_RECORD(iface, ScriptControl, IPointerInactive_iface);
 241 }
 242
 243 static inline ScriptControl *impl_from_IConnectionPointContainer(IConnectionPointContainer *iface)
 244 {
 245     return CONTAINING_RECORD(iface, ScriptControl, IConnectionPointContainer_iface);
 246 }
 247
 248 static inline ConnectionPoint *impl_from_IConnectionPoint(IConnectionPoint *iface)
 249 {
 250     return CONTAINING_RECORD(iface, ConnectionPoint, IConnectionPoint_iface);
 251 }
 252
 253 static inline ScriptHost *impl_from_IActiveScriptSite(IActiveScriptSite *iface)
 254 {
 255     return CONTAINING_RECORD(iface, ScriptHost, IActiveScriptSite_iface);
 256 }
 257
 258 static inline ScriptHost *impl_from_IActiveScriptSiteWindow(IActiveScriptSiteWindow *iface)
 259 {
 260     return CONTAINING_RECORD(iface, ScriptHost, IActiveScriptSiteWindow_iface);
 261 }
 262
 263 static inline ScriptHost *impl_from_IServiceProvider(IServiceProvider *iface)
 264 {
 265     return CONTAINING_RECORD(iface, ScriptHost, IServiceProvider_iface);
 266 }
 267
 268 /* IActiveScriptSite */
 269 static HRESULT WINAPI ActiveScriptSite_QueryInterface(IActiveScriptSite *iface, REFIID riid, void **ppv)
 270 {
 271     ScriptHost *This = impl_from_IActiveScriptSite(iface);
 272
 273     if(IsEqualGUID(&IID_IUnknown, riid)) {
 274         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
 275         *ppv = &This->IActiveScriptSite_iface;
 276     }else if(IsEqualGUID(&IID_IActiveScriptSite, riid)) {
 277         TRACE("(%p)->(IID_IActiveScriptSite %p)\n", This, ppv);
 278         *ppv = &This->IActiveScriptSite_iface;
 279     }else if(IsEqualGUID(&IID_IActiveScriptSiteWindow, riid)) {
 280         TRACE("(%p)->(IID_IActiveScriptSiteWindow %p)\n", This, ppv);
 281         *ppv = &This->IActiveScriptSiteWindow_iface;
 282     }else if(IsEqualGUID(&IID_IServiceProvider, riid)) {
 283         TRACE("(%p)->(IID_IServiceProvider %p)\n", This, ppv);
 284         *ppv = &This->IServiceProvider_iface;
 285     }else {
 286         FIXME("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
 287         *ppv = NULL;
 288         return E_NOINTERFACE;
 289     }
 290
 291     IUnknown_AddRef((IUnknown*)*ppv);
 292     return S_OK;
 293 }
 294
 295 static ULONG WINAPI ActiveScriptSite_AddRef(IActiveScriptSite *iface)
 296 {
 297     ScriptHost *This = impl_from_IActiveScriptSite(iface);
 298     LONG ref = InterlockedIncrement(&This->ref);
 299
 300     TRACE("(%p) ref=%d\n", This, ref);
 301
 302     return ref;
 303 }
 304
 305 static void release_script_engine(ScriptHost *host)
 306 {
 307     if (host->script) {
 308         IActiveScript_Close(host->script);
 309         IActiveScript_Release(host->script);
 310     }
 311
 312     if (host->parse)
 313         IActiveScriptParse_Release(host->parse);
 314
 315     host->parse = NULL;
 316     host->script = NULL;
 317
 318     IActiveScriptSite_Release(&host->IActiveScriptSite_iface);
 319 }
 320
 321 static ULONG WINAPI ActiveScriptSite_Release(IActiveScriptSite *iface)
 322 {
 323     ScriptHost *This = impl_from_IActiveScriptSite(iface);
 324     LONG ref = InterlockedDecrement(&This->ref);
 325
 326     TRACE("(%p) ref=%d\n", This, ref);
 327
 328     if(!ref) {
 329         clear_named_items(This);
 330         heap_free(This);
 331     }
 332
 333     return ref;
 334 }
 335
 336 static HRESULT WINAPI ActiveScriptSite_GetLCID(IActiveScriptSite *iface, LCID *lcid)
 337 {
 338     ScriptHost *This = impl_from_IActiveScriptSite(iface);
 339
 340     TRACE("(%p, %p)\n", This, lcid);
 341
 342     *lcid = GetUserDefaultLCID();
 343     return S_OK;
 344 }
 345
 346 static HRESULT WINAPI ActiveScriptSite_GetItemInfo(IActiveScriptSite *iface, LPCOLESTR name, DWORD mask,
 347     IUnknown **unk, ITypeInfo **ti)
 348 {
 349     ScriptHost *This = impl_from_IActiveScriptSite(iface);
 350     struct named_item *item;
 351
 352     TRACE("(%p, %s, %#x, %p, %p)\n", This, debugstr_w(name), mask, unk, ti);
 353
 354     item = host_get_named_item(This, name);
 355     if (!item)
 356         return TYPE_E_ELEMENTNOTFOUND;
 357
 358     if (mask != SCRIPTINFO_IUNKNOWN) {
 359         FIXME("mask %#x is not supported\n", mask);
 360         return E_NOTIMPL;
 361     }
 362
 363     *unk = (IUnknown*)item->disp;
 364     IUnknown_AddRef(*unk);
 365
 366     return S_OK;
 367 }
 368
 369 static HRESULT WINAPI ActiveScriptSite_GetDocVersionString(IActiveScriptSite *iface, BSTR *version)
 370 {
 371     ScriptHost *This = impl_from_IActiveScriptSite(iface);
 372
 373     FIXME("(%p, %p)\n", This, version);
 374
 375     return E_NOTIMPL;
 376 }
 377
 378 static HRESULT WINAPI ActiveScriptSite_OnScriptTerminate(IActiveScriptSite *iface, const VARIANT *result,
 379     const EXCEPINFO *ei)
 380 {
 381     ScriptHost *This = impl_from_IActiveScriptSite(iface);
 382
 383     FIXME("(%p, %s, %p)\n", This, debugstr_variant(result), ei);
 384
 385     return E_NOTIMPL;
 386 }
 387
 388 static HRESULT WINAPI ActiveScriptSite_OnStateChange(IActiveScriptSite *iface, SCRIPTSTATE state)
 389 {
 390     ScriptHost *This = impl_from_IActiveScriptSite(iface);
 391
 392     FIXME("(%p, %d)\n", This, state);
 393
 394     return E_NOTIMPL;
 395 }
 396
 397 static HRESULT WINAPI ActiveScriptSite_OnScriptError(IActiveScriptSite *iface, IActiveScriptError *script_error)
 398 {
 399     ScriptHost *This = impl_from_IActiveScriptSite(iface);
 400
 401     FIXME("(%p, %p)\n", This, script_error);
 402
 403     return E_NOTIMPL;
 404 }
 405
 406 static HRESULT WINAPI ActiveScriptSite_OnEnterScript(IActiveScriptSite *iface)
 407 {
 408     ScriptHost *This = impl_from_IActiveScriptSite(iface);
 409
 410     FIXME("(%p)\n", This);
 411
 412     return E_NOTIMPL;
 413 }
 414
 415 static HRESULT WINAPI ActiveScriptSite_OnLeaveScript(IActiveScriptSite *iface)
 416 {
 417     ScriptHost *This = impl_from_IActiveScriptSite(iface);
 418
 419     FIXME("(%p)\n", This);
 420
 421     return E_NOTIMPL;
 422 }
 423
 424 static const IActiveScriptSiteVtbl ActiveScriptSiteVtbl = {
 425     ActiveScriptSite_QueryInterface,
 426     ActiveScriptSite_AddRef,
 427     ActiveScriptSite_Release,
 428     ActiveScriptSite_GetLCID,
 429     ActiveScriptSite_GetItemInfo,
 430     ActiveScriptSite_GetDocVersionString,
 431     ActiveScriptSite_OnScriptTerminate,
 432     ActiveScriptSite_OnStateChange,
 433     ActiveScriptSite_OnScriptError,
 434     ActiveScriptSite_OnEnterScript,
 435     ActiveScriptSite_OnLeaveScript
 436 };
 437
 438 /* IActiveScriptSiteWindow */
 439 static HRESULT WINAPI ActiveScriptSiteWindow_QueryInterface(IActiveScriptSiteWindow *iface, REFIID riid, void **obj)
 440 {
 441     ScriptHost *This = impl_from_IActiveScriptSiteWindow(iface);
 442     return IActiveScriptSite_QueryInterface(&This->IActiveScriptSite_iface, riid, obj);
 443 }
 444
 445 static ULONG WINAPI ActiveScriptSiteWindow_AddRef(IActiveScriptSiteWindow *iface)
 446 {
 447     ScriptHost *This = impl_from_IActiveScriptSiteWindow(iface);
 448     return IActiveScriptSite_AddRef(&This->IActiveScriptSite_iface);
 449 }
 450
 451 static ULONG WINAPI ActiveScriptSiteWindow_Release(IActiveScriptSiteWindow *iface)
 452 {
 453     ScriptHost *This = impl_from_IActiveScriptSiteWindow(iface);
 454     return IActiveScriptSite_Release(&This->IActiveScriptSite_iface);
 455 }
 456
 457 static HRESULT WINAPI ActiveScriptSiteWindow_GetWindow(IActiveScriptSiteWindow *iface, HWND *hwnd)
 458 {
 459     ScriptHost *This = impl_from_IActiveScriptSiteWindow(iface);
 460
 461     FIXME("(%p, %p)\n", This, hwnd);
 462
 463     return E_NOTIMPL;
 464 }
 465
 466 static HRESULT WINAPI ActiveScriptSiteWindow_EnableModeless(IActiveScriptSiteWindow *iface, BOOL enable)
 467 {
 468     ScriptHost *This = impl_from_IActiveScriptSiteWindow(iface);
 469
 470     FIXME("(%p, %d)\n", This, enable);
 471
 472     return E_NOTIMPL;
 473 }
 474
 475 static const IActiveScriptSiteWindowVtbl ActiveScriptSiteWindowVtbl = {
 476     ActiveScriptSiteWindow_QueryInterface,
 477     ActiveScriptSiteWindow_AddRef,
 478     ActiveScriptSiteWindow_Release,
 479     ActiveScriptSiteWindow_GetWindow,
 480     ActiveScriptSiteWindow_EnableModeless
 481 };
 482
 483 /* IServiceProvider */
 484 static HRESULT WINAPI ServiceProvider_QueryInterface(IServiceProvider *iface, REFIID riid, void **obj)
 485 {
 486     ScriptHost *This = impl_from_IServiceProvider(iface);
 487     return IActiveScriptSite_QueryInterface(&This->IActiveScriptSite_iface, riid, obj);
 488 }
 489
 490 static ULONG WINAPI ServiceProvider_AddRef(IServiceProvider *iface)
 491 {
 492     ScriptHost *This = impl_from_IServiceProvider(iface);
 493     return IActiveScriptSite_AddRef(&This->IActiveScriptSite_iface);
 494 }
 495
 496 static ULONG WINAPI ServiceProvider_Release(IServiceProvider *iface)
 497 {
 498     ScriptHost *This = impl_from_IServiceProvider(iface);
 499     return IActiveScriptSite_Release(&This->IActiveScriptSite_iface);
 500 }
 501
 502 static HRESULT WINAPI ServiceProvider_QueryService(IServiceProvider *iface, REFGUID service,
 503     REFIID riid, void **obj)
 504 {
 505     ScriptHost *This = impl_from_IServiceProvider(iface);
 506
 507     FIXME("(%p)->(%s %s %p)\n", This, debugstr_guid(service), debugstr_guid(riid), obj);
 508
 509     return E_NOTIMPL;
 510 }
 511
 512 static const IServiceProviderVtbl ServiceProviderVtbl = {
 513     ServiceProvider_QueryInterface,
 514     ServiceProvider_AddRef,
 515     ServiceProvider_Release,
 516     ServiceProvider_QueryService
 517 };
 518
 519 static HRESULT init_script_host(const CLSID *clsid, ScriptHost **ret)
 520 {
 521     IObjectSafety *objsafety;
 522     ScriptHost *host;
 523     HRESULT hr;
 524
 525     *ret = NULL;
 526
 527     host = heap_alloc(sizeof(*host));
 528     if (!host)
 529         return E_OUTOFMEMORY;
 530
 531     host->IActiveScriptSite_iface.lpVtbl = &ActiveScriptSiteVtbl;
 532     host->IActiveScriptSiteWindow_iface.lpVtbl = &ActiveScriptSiteWindowVtbl;
 533     host->IServiceProvider_iface.lpVtbl = &ServiceProviderVtbl;
 534     host->ref = 1;
 535     host->script = NULL;
 536     host->parse = NULL;
 537     host->clsid = *clsid;
 538     list_init(&host->named_items);
 539
 540     hr = CoCreateInstance(&host->clsid, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
 541             &IID_IActiveScript, (void**)&host->script);
 542     if (FAILED(hr)) {
 543         WARN("Failed to create an instance for %s, %#x\n", debugstr_guid(clsid), hr);
 544         goto failed;
 545     }
 546
 547     hr = IActiveScript_QueryInterface(host->script, &IID_IObjectSafety, (void**)&objsafety);
 548     if (FAILED(hr)) {
 549         FIXME("Could not get IObjectSafety, %#x\n", hr);
 550         goto failed;
 551     }
 552
 553     hr = IObjectSafety_SetInterfaceSafetyOptions(objsafety, &IID_IActiveScriptParse, INTERFACESAFE_FOR_UNTRUSTED_DATA, 0);
 554     IObjectSafety_Release(objsafety);
 555     if (FAILED(hr)) {
 556         FIXME("SetInterfaceSafetyOptions failed, %#x\n", hr);
 557         goto failed;
 558     }
 559
 560     hr = IActiveScript_SetScriptSite(host->script, &host->IActiveScriptSite_iface);
 561     if (FAILED(hr)) {
 562         WARN("SetScriptSite failed, %#x\n", hr);
 563         goto failed;
 564     }
 565
 566     hr = IActiveScript_QueryInterface(host->script, &IID_IActiveScriptParse, (void**)&host->parse);
 567     if (FAILED(hr)) {
 568         WARN("Failed to get IActiveScriptParse, %#x\n", hr);
 569         goto failed;
 570     }
 571
 572     hr = IActiveScriptParse_InitNew(host->parse);
 573     if (FAILED(hr)) {
 574         WARN("InitNew failed, %#x\n", hr);
 575         goto failed;
 576     }
 577
 578     *ret = host;
 579     return S_OK;
 580
 581 failed:
 582     release_script_engine(host);
 583     return hr;
 584 }
 585
 586 static HRESULT WINAPI ScriptControl_QueryInterface(IScriptControl *iface, REFIID riid, void **ppv)
 587 {
 588     ScriptControl *This = impl_from_IScriptControl(iface);
 589
 590     if(IsEqualGUID(&IID_IUnknown, riid)) {
 591         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
 592         *ppv = &This->IScriptControl_iface;
 593     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
 594         TRACE("(%p)->(IID_IDispatch %p)\n", This, ppv);
 595         *ppv = &This->IScriptControl_iface;
 596     }else if(IsEqualGUID(&IID_IScriptControl, riid)) {
 597         TRACE("(%p)->(IID_IScriptControl %p)\n", This, ppv);
 598         *ppv = &This->IScriptControl_iface;
 599     }else if(IsEqualGUID(&IID_IOleObject, riid)) {
 600         TRACE("(%p)->(IID_IOleObject %p)\n", This, ppv);
 601         *ppv = &This->IOleObject_iface;
 602     }else if(IsEqualGUID(&IID_IPersistStreamInit, riid)) {
 603         TRACE("(%p)->(IID_IPersistStreamInit %p)\n", This, ppv);
 604         *ppv = &This->IPersistStreamInit_iface;
 605     }else if(IsEqualGUID(&IID_IPersist, riid)) {
 606         TRACE("(%p)->(IID_IPersist %p)\n", This, ppv);
 607         *ppv = &This->IPersistStreamInit_iface;
 608     }else if(IsEqualGUID(&IID_IOleControl, riid)) {
 609         TRACE("(%p)->(IID_IOleControl %p)\n", This, ppv);
 610         *ppv = &This->IOleControl_iface;
 611     }else if(IsEqualGUID(&IID_IQuickActivate, riid)) {
 612         TRACE("(%p)->(IID_IQuickActivate %p)\n", This, ppv);
 613         *ppv = &This->IQuickActivate_iface;
 614     }else if(IsEqualGUID(&IID_IViewObject, riid)) {
 615         TRACE("(%p)->(IID_IViewObject %p)\n", This, ppv);
 616         *ppv = &This->IViewObjectEx_iface;
 617     }else if(IsEqualGUID(&IID_IViewObject2, riid)) {
 618         TRACE("(%p)->(IID_IViewObject2 %p)\n", This, ppv);
 619         *ppv = &This->IViewObjectEx_iface;
 620     }else if(IsEqualGUID(&IID_IViewObjectEx, riid)) {
 621         TRACE("(%p)->(IID_IViewObjectEx %p)\n", This, ppv);
 622         *ppv = &This->IViewObjectEx_iface;
 623     }else if(IsEqualGUID(&IID_IPointerInactive, riid)) {
 624         TRACE("(%p)->(IID_IPointerInactive %p)\n", This, ppv);
 625         *ppv = &This->IPointerInactive_iface;
 626     }else if(IsEqualGUID(&IID_IConnectionPointContainer, riid)) {
 627         TRACE("(%p)->(IID_IConnectionPointContainer %p)\n", This, ppv);
 628         *ppv = &This->IConnectionPointContainer_iface;
 629     }else {
 630         FIXME("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
 631         *ppv = NULL;
 632         return E_NOINTERFACE;
 633     }
 634
 635     IUnknown_AddRef((IUnknown*)*ppv);
 636     return S_OK;
 637 }
 638
 639 static ULONG WINAPI ScriptControl_AddRef(IScriptControl *iface)
 640 {
 641     ScriptControl *This = impl_from_IScriptControl(iface);
 642     LONG ref = InterlockedIncrement(&This->ref);
 643
 644     TRACE("(%p) ref=%d\n", This, ref);
 645
 646     return ref;
 647 }
 648
 649 static ULONG WINAPI ScriptControl_Release(IScriptControl *iface)
 650 {
 651     ScriptControl *This = impl_from_IScriptControl(iface);
 652     LONG ref = InterlockedDecrement(&This->ref);
 653
 654     TRACE("(%p) ref=%d\n", This, ref);
 655
 656     if(!ref) {
 657         if (This->site)
 658             IOleClientSite_Release(This->site);
 659         if (This->host)
 660             release_script_engine(This->host);
 661         heap_free(This);
 662     }
 663
 664     return ref;
 665 }
 666
 667 static HRESULT WINAPI ScriptControl_GetTypeInfoCount(IScriptControl *iface, UINT *pctinfo)
 668 {
 669     ScriptControl *This = impl_from_IScriptControl(iface);
 670     TRACE("(%p)->(%p)\n", This, pctinfo);
 671     *pctinfo = 1;
 672     return S_OK;
 673 }
 674
 675 static HRESULT WINAPI ScriptControl_GetTypeInfo(IScriptControl *iface, UINT iTInfo,
 676         LCID lcid, ITypeInfo **ppTInfo)
 677 {
 678     ScriptControl *This = impl_from_IScriptControl(iface);
 679     TRACE("(%p)->(%u %u %p)\n", This, iTInfo, lcid, ppTInfo);
 680     return get_typeinfo(IScriptControl_tid, ppTInfo);
 681 }
 682
 683 static HRESULT WINAPI ScriptControl_GetIDsOfNames(IScriptControl *iface, REFIID riid,
 684         LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId)
 685 {
 686     ScriptControl *This = impl_from_IScriptControl(iface);
 687     ITypeInfo *typeinfo;
 688     HRESULT hres;
 689
 690     TRACE("(%p)->(%s %p %u %u %p)\n", This, debugstr_guid(riid), rgszNames, cNames, lcid, rgDispId);
 691
 692     hres = get_typeinfo(IScriptControl_tid, &typeinfo);
 693     if(SUCCEEDED(hres)) {
 694         hres = ITypeInfo_GetIDsOfNames(typeinfo, rgszNames, cNames, rgDispId);
 695         ITypeInfo_Release(typeinfo);
 696     }
 697
 698     return hres;
 699 }
 700
 701 static HRESULT WINAPI ScriptControl_Invoke(IScriptControl *iface, DISPID dispIdMember,
 702         REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams, VARIANT *pVarResult,
 703         EXCEPINFO *pExcepInfo, UINT *puArgErr)
 704 {
 705     ScriptControl *This = impl_from_IScriptControl(iface);
 706     ITypeInfo *typeinfo;
 707     HRESULT hres;
 708
 709     TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
 710            lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
 711
 712     hres = get_typeinfo(IScriptControl_tid, &typeinfo);
 713     if(SUCCEEDED(hres)) {
 714         hres = ITypeInfo_Invoke(typeinfo, iface, dispIdMember, wFlags,
 715                 pDispParams, pVarResult, pExcepInfo, puArgErr);
 716         ITypeInfo_Release(typeinfo);
 717     }
 718
 719     return hres;
 720 }
 721
 722 static HRESULT WINAPI ScriptControl_get_Language(IScriptControl *iface, BSTR *p)
 723 {
 724     ScriptControl *This = impl_from_IScriptControl(iface);
 725     LPOLESTR progidW;
 726     HRESULT hr;
 727
 728     TRACE("(%p)->(%p)\n", This, p);
 729
 730     if (!p)
 731         return E_POINTER;
 732
 733     *p = NULL;
 734
 735     if (!This->host)
 736         return S_OK;
 737
 738     hr = ProgIDFromCLSID(&This->host->clsid, &progidW);
 739     if (FAILED(hr))
 740         return hr;
 741
 742     *p = SysAllocString(progidW);
 743     CoTaskMemFree(progidW);
 744     return *p ? S_OK : E_OUTOFMEMORY;
 745 }
 746
 747 static HRESULT WINAPI ScriptControl_put_Language(IScriptControl *iface, BSTR language)
 748 {
 749     ScriptControl *This = impl_from_IScriptControl(iface);
 750     CLSID clsid;
 751
 752     TRACE("(%p)->(%s)\n", This, debugstr_w(language));
 753
 754     if (language && FAILED(CLSIDFromProgID(language, &clsid)))
 755         return CTL_E_INVALIDPROPERTYVALUE;
 756
 757     if (This->host) {
 758         release_script_engine(This->host);
 759         This->host = NULL;
 760     }
 761
 762     if (!language)
 763         return S_OK;
 764
 765     return init_script_host(&clsid, &This->host);
 766 }
 767
 768 static HRESULT WINAPI ScriptControl_get_State(IScriptControl *iface, ScriptControlStates *p)
 769 {
 770     ScriptControl *This = impl_from_IScriptControl(iface);
 771     FIXME("(%p)->(%p)\n", This, p);
 772     return E_NOTIMPL;
 773 }
 774
 775 static HRESULT WINAPI ScriptControl_put_State(IScriptControl *iface, ScriptControlStates state)
 776 {
 777     ScriptControl *This = impl_from_IScriptControl(iface);
 778     FIXME("(%p)->(%x)\n", This, state);
 779     return E_NOTIMPL;
 780 }
 781
 782 static HRESULT WINAPI ScriptControl_put_SitehWnd(IScriptControl *iface, LONG hwnd)
 783 {
 784     ScriptControl *This = impl_from_IScriptControl(iface);
 785     FIXME("(%p)->(%x)\n", This, hwnd);
 786     return E_NOTIMPL;
 787 }
 788
 789 static HRESULT WINAPI ScriptControl_get_SitehWnd(IScriptControl *iface, LONG *p)
 790 {
 791     ScriptControl *This = impl_from_IScriptControl(iface);
 792     FIXME("(%p)->(%p)\n", This, p);
 793     return E_NOTIMPL;
 794 }
 795
 796 static HRESULT WINAPI ScriptControl_get_Timeout(IScriptControl *iface, LONG *p)
 797 {
 798     ScriptControl *This = impl_from_IScriptControl(iface);
 799
 800     TRACE("(%p)->(%p)\n", This, p);
 801
 802     if (!p)
 803         return E_POINTER;
 804
 805     *p = This->timeout;
 806     return S_OK;
 807 }
 808
 809 static HRESULT WINAPI ScriptControl_put_Timeout(IScriptControl *iface, LONG timeout)
 810 {
 811     ScriptControl *This = impl_from_IScriptControl(iface);
 812
 813     TRACE("(%p)->(%d)\n", This, timeout);
 814
 815     if (timeout < -1)
 816         return CTL_E_INVALIDPROPERTYVALUE;
 817
 818     if (timeout != -1)
 819         FIXME("execution timeout ignored\n");
 820
 821     This->timeout = timeout;
 822     return S_OK;
 823 }
 824
 825 static HRESULT WINAPI ScriptControl_get_AllowUI(IScriptControl *iface, VARIANT_BOOL *p)
 826 {
 827     ScriptControl *This = impl_from_IScriptControl(iface);
 828     FIXME("(%p)->(%p)\n", This, p);
 829     return E_NOTIMPL;
 830 }
 831
 832 static HRESULT WINAPI ScriptControl_put_AllowUI(IScriptControl *iface, VARIANT_BOOL allow_ui)
 833 {
 834     ScriptControl *This = impl_from_IScriptControl(iface);
 835     FIXME("(%p)->(%x)\n", This, allow_ui);
 836     return E_NOTIMPL;
 837 }
 838
 839 static HRESULT WINAPI ScriptControl_get_UseSafeSubset(IScriptControl *iface, VARIANT_BOOL *p)
 840 {
 841     ScriptControl *This = impl_from_IScriptControl(iface);
 842     FIXME("(%p)->(%p)\n", This, p);
 843     return E_NOTIMPL;
 844 }
 845
 846 static HRESULT WINAPI ScriptControl_put_UseSafeSubset(IScriptControl *iface, VARIANT_BOOL v)
 847 {
 848     ScriptControl *This = impl_from_IScriptControl(iface);
 849     FIXME("(%p)->(%x)\n", This, v);
 850     return E_NOTIMPL;
 851 }
 852
 853 static HRESULT WINAPI ScriptControl_get_Modules(IScriptControl *iface, IScriptModuleCollection **p)
 854 {
 855     ScriptControl *This = impl_from_IScriptControl(iface);
 856     FIXME("(%p)->(%p)\n", This, p);
 857     return E_NOTIMPL;
 858 }
 859
 860 static HRESULT WINAPI ScriptControl_get_Error(IScriptControl *iface, IScriptError **p)
 861 {
 862     ScriptControl *This = impl_from_IScriptControl(iface);
 863     FIXME("(%p)->(%p)\n", This, p);
 864     return E_NOTIMPL;
 865 }
 866
 867 static HRESULT WINAPI ScriptControl_get_CodeObject(IScriptControl *iface, IDispatch **p)
 868 {
 869     ScriptControl *This = impl_from_IScriptControl(iface);
 870     FIXME("(%p)->(%p)\n", This, p);
 871     return E_NOTIMPL;
 872 }
 873
 874 static HRESULT WINAPI ScriptControl_get_Procedures(IScriptControl *iface, IScriptProcedureCollection **p)
 875 {
 876     ScriptControl *This = impl_from_IScriptControl(iface);
 877     FIXME("(%p)->(%p)\n", This, p);
 878     return E_NOTIMPL;
 879 }
 880
 881 static HRESULT WINAPI ScriptControl__AboutBox(IScriptControl *iface)
 882 {
 883     ScriptControl *This = impl_from_IScriptControl(iface);
 884     FIXME("(%p)\n", This);
 885     return E_NOTIMPL;
 886 }
 887
 888 static HRESULT WINAPI ScriptControl_AddObject(IScriptControl *iface, BSTR name, IDispatch *object, VARIANT_BOOL add_members)
 889 {
 890     ScriptControl *This = impl_from_IScriptControl(iface);
 891     DWORD flags = SCRIPTITEM_ISVISIBLE | SCRIPTITEM_ISSOURCE;
 892     struct named_item *item;
 893     HRESULT hr;
 894
 895     TRACE("(%p)->(%s %p %x)\n", This, debugstr_w(name), object, add_members);
 896
 897     if (!object)
 898         return E_INVALIDARG;
 899
 900     if (!This->host)
 901         return E_FAIL;
 902
 903     if (host_get_named_item(This->host, name))
 904         return E_INVALIDARG;
 905
 906     item = heap_alloc(sizeof(*item));
 907     if (!item)
 908         return E_OUTOFMEMORY;
 909
 910     item->name = SysAllocString(name);
 911     IDispatch_AddRef(item->disp = object);
 912     list_add_tail(&This->host->named_items, &item->entry);
 913
 914     if (add_members)
 915         flags |= SCRIPTITEM_GLOBALMEMBERS;
 916     hr = IActiveScript_AddNamedItem(This->host->script, name, flags);
 917     if (FAILED(hr)) {
 918         list_remove(&item->entry);
 919         IDispatch_Release(item->disp);
 920         SysFreeString(item->name);
 921         heap_free(item);
 922         return hr;
 923     }
 924
 925
 926     return hr;
 927 }
 928
 929 static HRESULT WINAPI ScriptControl_Reset(IScriptControl *iface)
 930 {
 931     ScriptControl *This = impl_from_IScriptControl(iface);
 932
 933     TRACE("(%p)\n", This);
 934
 935     if (!This->host)
 936         return E_FAIL;
 937
 938     clear_named_items(This->host);
 939     return IActiveScript_SetScriptState(This->host->script, SCRIPTSTATE_INITIALIZED);
 940 }
 941
 942 static HRESULT WINAPI ScriptControl_AddCode(IScriptControl *iface, BSTR code)
 943 {
 944     ScriptControl *This = impl_from_IScriptControl(iface);
 945     FIXME("(%p)->(%s)\n", This, debugstr_w(code));
 946     return E_NOTIMPL;
 947 }
 948
 949 static HRESULT WINAPI ScriptControl_Eval(IScriptControl *iface, BSTR expression, VARIANT *res)
 950 {
 951     ScriptControl *This = impl_from_IScriptControl(iface);
 952     FIXME("(%p)->(%s %p)\n", This, debugstr_w(expression), res);
 953     return E_NOTIMPL;
 954 }
 955
 956 static HRESULT WINAPI ScriptControl_ExecuteStatement(IScriptControl *iface, BSTR statement)
 957 {
 958     ScriptControl *This = impl_from_IScriptControl(iface);
 959     FIXME("(%p)->(%s)\n", This, debugstr_w(statement));
 960     return E_NOTIMPL;
 961 }
 962
 963 static HRESULT WINAPI ScriptControl_Run(IScriptControl *iface, BSTR procedure_name, SAFEARRAY **parameters, VARIANT *res)
 964 {
 965     ScriptControl *This = impl_from_IScriptControl(iface);
 966     FIXME("(%p)->(%s %p %p)\n", This, debugstr_w(procedure_name), parameters, res);
 967     return E_NOTIMPL;
 968 }
 969
 970 static const IScriptControlVtbl ScriptControlVtbl = {
 971     ScriptControl_QueryInterface,
 972     ScriptControl_AddRef,
 973     ScriptControl_Release,
 974     ScriptControl_GetTypeInfoCount,
 975     ScriptControl_GetTypeInfo,
 976     ScriptControl_GetIDsOfNames,
 977     ScriptControl_Invoke,
 978     ScriptControl_get_Language,
 979     ScriptControl_put_Language,
 980     ScriptControl_get_State,
 981     ScriptControl_put_State,
 982     ScriptControl_put_SitehWnd,
 983     ScriptControl_get_SitehWnd,
 984     ScriptControl_get_Timeout,
 985     ScriptControl_put_Timeout,
 986     ScriptControl_get_AllowUI,
 987     ScriptControl_put_AllowUI,
 988     ScriptControl_get_UseSafeSubset,
 989     ScriptControl_put_UseSafeSubset,
 990     ScriptControl_get_Modules,
 991     ScriptControl_get_Error,
 992     ScriptControl_get_CodeObject,
 993     ScriptControl_get_Procedures,
 994     ScriptControl__AboutBox,
 995     ScriptControl_AddObject,
 996     ScriptControl_Reset,
 997     ScriptControl_AddCode,
 998     ScriptControl_Eval,
 999     ScriptControl_ExecuteStatement,
1000     ScriptControl_Run
1001 };
1002
1003 static HRESULT WINAPI OleObject_QueryInterface(IOleObject *iface, REFIID riid, void **obj)
1004 {
1005     ScriptControl *This = impl_from_IOleObject(iface);
1006     return IScriptControl_QueryInterface(&This->IScriptControl_iface, riid, obj);
1007 }
1008
1009 static ULONG WINAPI OleObject_AddRef(IOleObject *iface)
1010 {
1011     ScriptControl *This = impl_from_IOleObject(iface);
1012     return IScriptControl_AddRef(&This->IScriptControl_iface);
1013 }
1014
1015 static ULONG WINAPI OleObject_Release(IOleObject *iface)
1016 {
1017     ScriptControl *This = impl_from_IOleObject(iface);
1018     return IScriptControl_Release(&This->IScriptControl_iface);
1019 }
1020
1021 static HRESULT WINAPI OleObject_SetClientSite(IOleObject *iface, IOleClientSite *site)
1022 {
1023     ScriptControl *This = impl_from_IOleObject(iface);
1024
1025     TRACE("(%p)->(%p)\n", This, site);
1026
1027     if (This->site)
1028         IOleClientSite_Release(This->site);
1029
1030     if ((This->site = site))
1031         IOleClientSite_AddRef(site);
1032
1033     return S_OK;
1034 }
1035
1036 static HRESULT WINAPI OleObject_GetClientSite(IOleObject *iface, IOleClientSite **site)
1037 {
1038     ScriptControl *This = impl_from_IOleObject(iface);
1039
1040     TRACE("(%p)->(%p)\n", This, site);
1041
1042     if (!site)
1043         return E_POINTER;
1044
1045     if ((*site = This->site))
1046         IOleClientSite_AddRef(*site);
1047
1048     return S_OK;
1049 }
1050
1051 static HRESULT WINAPI OleObject_SetHostNames(IOleObject *iface, LPCOLESTR containerapp, LPCOLESTR containerobj)
1052 {
1053     ScriptControl *This = impl_from_IOleObject(iface);
1054
1055     FIXME("(%p)->(%s %s)\n", This, debugstr_w(containerapp), debugstr_w(containerobj));
1056
1057     return E_NOTIMPL;
1058 }
1059
1060 static HRESULT WINAPI OleObject_Close(IOleObject *iface, DWORD save)
1061 {
1062     ScriptControl *This = impl_from_IOleObject(iface);
1063
1064     FIXME("(%p)->(%d)\n", This, save);
1065
1066     return E_NOTIMPL;
1067 }
1068
1069 static HRESULT WINAPI OleObject_SetMoniker(IOleObject *iface, DWORD which, IMoniker *moniker)
1070 {
1071     ScriptControl *This = impl_from_IOleObject(iface);
1072
1073     FIXME("(%p)->(%d %p)\n", This, which, moniker);
1074
1075     return E_NOTIMPL;
1076 }
1077
1078 static HRESULT WINAPI OleObject_GetMoniker(IOleObject *iface, DWORD assign, DWORD which, IMoniker **moniker)
1079 {
1080     ScriptControl *This = impl_from_IOleObject(iface);
1081
1082     FIXME("(%p)->(%d %d %p)\n", This, assign, which, moniker);
1083
1084     return E_NOTIMPL;
1085 }
1086
1087 static HRESULT WINAPI OleObject_InitFromData(IOleObject *iface, IDataObject *dataobj, BOOL creation,
1088     DWORD reserved)
1089 {
1090     ScriptControl *This = impl_from_IOleObject(iface);
1091
1092     FIXME("(%p)->(%p %d %d)\n", This, dataobj, creation, reserved);
1093
1094     return E_NOTIMPL;
1095 }
1096
1097 static HRESULT WINAPI OleObject_GetClipboardData(IOleObject *iface, DWORD reserved, IDataObject **dataobj)
1098 {
1099     ScriptControl *This = impl_from_IOleObject(iface);
1100
1101     FIXME("(%p)->(%d %p)\n", This, reserved, dataobj);
1102
1103     return E_NOTIMPL;
1104 }
1105
1106 static HRESULT WINAPI OleObject_DoVerb(IOleObject *iface, LONG verb, LPMSG msg, IOleClientSite *active_site,
1107     LONG index, HWND hwndParent, LPCRECT rect)
1108 {
1109     ScriptControl *This = impl_from_IOleObject(iface);
1110
1111     FIXME("(%p)->(%d %p %p %d %p %p)\n", This, verb, msg, active_site, index, hwndParent, rect);
1112
1113     return E_NOTIMPL;
1114 }
1115
1116 static HRESULT WINAPI OleObject_EnumVerbs(IOleObject *iface, IEnumOLEVERB **enumoleverb)
1117 {
1118     ScriptControl *This = impl_from_IOleObject(iface);
1119
1120     FIXME("(%p)->(%p)\n", This, enumoleverb);
1121
1122     return E_NOTIMPL;
1123 }
1124
1125 static HRESULT WINAPI OleObject_Update(IOleObject *iface)
1126 {
1127     ScriptControl *This = impl_from_IOleObject(iface);
1128
1129     FIXME("(%p)\n", This);
1130
1131     return E_NOTIMPL;
1132 }
1133
1134 static HRESULT WINAPI OleObject_IsUpToDate(IOleObject *iface)
1135 {
1136     ScriptControl *This = impl_from_IOleObject(iface);
1137
1138     FIXME("(%p)\n", This);
1139
1140     return E_NOTIMPL;
1141 }
1142
1143 static HRESULT WINAPI OleObject_GetUserClassID(IOleObject *iface, CLSID *clsid)
1144 {
1145     ScriptControl *This = impl_from_IOleObject(iface);
1146
1147     FIXME("(%p)->(%p)\n", This, clsid);
1148
1149     return E_NOTIMPL;
1150 }
1151
1152 static HRESULT WINAPI OleObject_GetUserType(IOleObject *iface, DWORD form_of_type, LPOLESTR *usertype)
1153 {
1154     ScriptControl *This = impl_from_IOleObject(iface);
1155
1156     FIXME("(%p)->(%d %p)\n", This, form_of_type, usertype);
1157
1158     return E_NOTIMPL;
1159 }
1160
1161 static HRESULT WINAPI OleObject_SetExtent(IOleObject *iface, DWORD aspect, SIZEL *size)
1162 {
1163     ScriptControl *This = impl_from_IOleObject(iface);
1164
1165     FIXME("(%p)->(%d %p)\n", This, aspect, size);
1166
1167     return E_NOTIMPL;
1168 }
1169
1170 static HRESULT WINAPI OleObject_GetExtent(IOleObject *iface, DWORD aspect, SIZEL *size)
1171 {
1172     ScriptControl *This = impl_from_IOleObject(iface);
1173
1174     TRACE("(%p)->(%d %p)\n", This, aspect, size);
1175
1176     if (aspect != DVASPECT_CONTENT)
1177         return DV_E_DVASPECT;
1178
1179     *size = This->extent;
1180     return S_OK;
1181 }
1182
1183 static HRESULT WINAPI OleObject_Advise(IOleObject *iface, IAdviseSink *sink, DWORD *connection)
1184 {
1185     ScriptControl *This = impl_from_IOleObject(iface);
1186
1187     FIXME("(%p)->(%p %p)\n", This, sink, connection);
1188
1189     return E_NOTIMPL;
1190 }
1191
1192 static HRESULT WINAPI OleObject_Unadvise(IOleObject *iface, DWORD connection)
1193 {
1194     ScriptControl *This = impl_from_IOleObject(iface);
1195
1196     FIXME("(%p)->(%d)\n", This, connection);
1197
1198     return E_NOTIMPL;
1199 }
1200
1201 static HRESULT WINAPI OleObject_EnumAdvise(IOleObject *iface, IEnumSTATDATA **enumadvise)
1202 {
1203     ScriptControl *This = impl_from_IOleObject(iface);
1204
1205     FIXME("(%p)->(%p)\n", This, enumadvise);
1206
1207     return E_NOTIMPL;
1208 }
1209
1210 static HRESULT WINAPI OleObject_GetMiscStatus(IOleObject *iface, DWORD aspect, DWORD *status)
1211 {
1212     ScriptControl *This = impl_from_IOleObject(iface);
1213
1214     TRACE("(%p)->(%d %p)\n", This, aspect, status);
1215
1216     return OleRegGetMiscStatus(&CLSID_ScriptControl, aspect, status);
1217 }
1218
1219 static HRESULT WINAPI OleObject_SetColorScheme(IOleObject *iface, LOGPALETTE *logpal)
1220 {
1221     ScriptControl *This = impl_from_IOleObject(iface);
1222
1223     FIXME("(%p)->(%p)\n", This, logpal);
1224
1225     return E_NOTIMPL;
1226 }
1227
1228 static const IOleObjectVtbl OleObjectVtbl = {
1229     OleObject_QueryInterface,
1230     OleObject_AddRef,
1231     OleObject_Release,
1232     OleObject_SetClientSite,
1233     OleObject_GetClientSite,
1234     OleObject_SetHostNames,
1235     OleObject_Close,
1236     OleObject_SetMoniker,
1237     OleObject_GetMoniker,
1238     OleObject_InitFromData,
1239     OleObject_GetClipboardData,
1240     OleObject_DoVerb,
1241     OleObject_EnumVerbs,
1242     OleObject_Update,
1243     OleObject_IsUpToDate,
1244     OleObject_GetUserClassID,
1245     OleObject_GetUserType,
1246     OleObject_SetExtent,
1247     OleObject_GetExtent,
1248     OleObject_Advise,
1249     OleObject_Unadvise,
1250     OleObject_EnumAdvise,
1251     OleObject_GetMiscStatus,
1252     OleObject_SetColorScheme
1253 };
1254
1255 static HRESULT WINAPI PersistStreamInit_QueryInterface(IPersistStreamInit *iface, REFIID riid, void **obj)
1256 {
1257     ScriptControl *This = impl_from_IPersistStreamInit(iface);
1258     return IScriptControl_QueryInterface(&This->IScriptControl_iface, riid, obj);
1259 }
1260
1261 static ULONG WINAPI PersistStreamInit_AddRef(IPersistStreamInit *iface)
1262 {
1263     ScriptControl *This = impl_from_IPersistStreamInit(iface);
1264     return IScriptControl_AddRef(&This->IScriptControl_iface);
1265 }
1266
1267 static ULONG WINAPI PersistStreamInit_Release(IPersistStreamInit *iface)
1268 {
1269     ScriptControl *This = impl_from_IPersistStreamInit(iface);
1270     return IScriptControl_Release(&This->IScriptControl_iface);
1271 }
1272
1273 static HRESULT WINAPI PersistStreamInit_GetClassID(IPersistStreamInit *iface, CLSID *clsid)
1274 {
1275     ScriptControl *This = impl_from_IPersistStreamInit(iface);
1276
1277     FIXME("(%p)->(%p)\n", This, clsid);
1278
1279     return E_NOTIMPL;
1280 }
1281
1282 static HRESULT WINAPI PersistStreamInit_IsDirty(IPersistStreamInit *iface)
1283 {
1284     ScriptControl *This = impl_from_IPersistStreamInit(iface);
1285
1286     FIXME("(%p)\n", This);
1287
1288     return E_NOTIMPL;
1289 }
1290
1291 static HRESULT WINAPI PersistStreamInit_Load(IPersistStreamInit *iface, IStream *stream)
1292 {
1293     ScriptControl *This = impl_from_IPersistStreamInit(iface);
1294
1295     FIXME("(%p)->(%p)\n", This, stream);
1296
1297     return E_NOTIMPL;
1298 }
1299
1300 static HRESULT WINAPI PersistStreamInit_Save(IPersistStreamInit *iface, IStream *stream, BOOL clear_dirty)
1301 {
1302     ScriptControl *This = impl_from_IPersistStreamInit(iface);
1303
1304     FIXME("(%p)->(%p %d)\n", This, stream, clear_dirty);
1305
1306     return E_NOTIMPL;
1307 }
1308
1309 static HRESULT WINAPI PersistStreamInit_GetSizeMax(IPersistStreamInit *iface, ULARGE_INTEGER *size)
1310 {
1311     ScriptControl *This = impl_from_IPersistStreamInit(iface);
1312
1313     FIXME("(%p)->(%p)\n", This, size);
1314
1315     return E_NOTIMPL;
1316 }
1317
1318 static HRESULT WINAPI PersistStreamInit_InitNew(IPersistStreamInit *iface)
1319 {
1320     ScriptControl *This = impl_from_IPersistStreamInit(iface);
1321
1322     FIXME("(%p)\n", This);
1323
1324     return S_OK;
1325 }
1326
1327 static const IPersistStreamInitVtbl PersistStreamInitVtbl = {
1328     PersistStreamInit_QueryInterface,
1329     PersistStreamInit_AddRef,
1330     PersistStreamInit_Release,
1331     PersistStreamInit_GetClassID,
1332     PersistStreamInit_IsDirty,
1333     PersistStreamInit_Load,
1334     PersistStreamInit_Save,
1335     PersistStreamInit_GetSizeMax,
1336     PersistStreamInit_InitNew
1337 };
1338
1339 static HRESULT WINAPI OleControl_QueryInterface(IOleControl *iface, REFIID riid, void **obj)
1340 {
1341     ScriptControl *This = impl_from_IOleControl(iface);
1342     return IScriptControl_QueryInterface(&This->IScriptControl_iface, riid, obj);
1343 }
1344
1345 static ULONG WINAPI OleControl_AddRef(IOleControl *iface)
1346 {
1347     ScriptControl *This = impl_from_IOleControl(iface);
1348     return IScriptControl_AddRef(&This->IScriptControl_iface);
1349 }
1350
1351 static ULONG WINAPI OleControl_Release(IOleControl *iface)
1352 {
1353     ScriptControl *This = impl_from_IOleControl(iface);
1354     return IScriptControl_Release(&This->IScriptControl_iface);
1355 }
1356
1357 static HRESULT WINAPI OleControl_GetControlInfo(IOleControl *iface, CONTROLINFO *info)
1358 {
1359     ScriptControl *This = impl_from_IOleControl(iface);
1360
1361     TRACE("(%p)->(%p)\n", This, info);
1362
1363     if (!info)
1364         return E_POINTER;
1365
1366     info->hAccel = NULL;
1367     info->cAccel = 0;
1368
1369     return S_OK;
1370 }
1371
1372 static HRESULT WINAPI OleControl_OnMnemonic(IOleControl *iface, MSG *msg)
1373 {
1374     ScriptControl *This = impl_from_IOleControl(iface);
1375
1376     FIXME("(%p)->(%p)\n", This, msg);
1377
1378     return E_NOTIMPL;
1379 }
1380
1381 static HRESULT WINAPI OleControl_OnAmbientPropertyChange(IOleControl *iface, DISPID dispid)
1382 {
1383     ScriptControl *This = impl_from_IOleControl(iface);
1384
1385     FIXME("(%p)->(%#x)\n", This, dispid);
1386
1387     return E_NOTIMPL;
1388 }
1389
1390 static HRESULT WINAPI OleControl_FreezeEvents(IOleControl *iface, BOOL freeze)
1391 {
1392     ScriptControl *This = impl_from_IOleControl(iface);
1393
1394     FIXME("(%p)->(%d)\n", This, freeze);
1395
1396     return E_NOTIMPL;
1397 }
1398
1399 static const IOleControlVtbl OleControlVtbl = {
1400     OleControl_QueryInterface,
1401     OleControl_AddRef,
1402     OleControl_Release,
1403     OleControl_GetControlInfo,
1404     OleControl_OnMnemonic,
1405     OleControl_OnAmbientPropertyChange,
1406     OleControl_FreezeEvents
1407 };
1408
1409 static HRESULT WINAPI QuickActivate_QueryInterface(IQuickActivate *iface, REFIID riid, void **obj)
1410 {
1411     ScriptControl *This = impl_from_IQuickActivate(iface);
1412     return IScriptControl_QueryInterface(&This->IScriptControl_iface, riid, obj);
1413 }
1414
1415 static ULONG WINAPI QuickActivate_AddRef(IQuickActivate *iface)
1416 {
1417     ScriptControl *This = impl_from_IQuickActivate(iface);
1418     return IScriptControl_AddRef(&This->IScriptControl_iface);
1419 }
1420
1421 static ULONG WINAPI QuickActivate_Release(IQuickActivate *iface)
1422 {
1423     ScriptControl *This = impl_from_IQuickActivate(iface);
1424     return IScriptControl_Release(&This->IScriptControl_iface);
1425 }
1426
1427 static HRESULT WINAPI QuickActivate_QuickActivate(IQuickActivate *iface, QACONTAINER *container, QACONTROL *control)
1428 {
1429     ScriptControl *This = impl_from_IQuickActivate(iface);
1430
1431     FIXME("(%p)->(%p %p)\n", This, container, control);
1432
1433     return E_NOTIMPL;
1434 }
1435
1436 static HRESULT WINAPI QuickActivate_SetContentExtent(IQuickActivate *iface, SIZEL *size)
1437 {
1438     ScriptControl *This = impl_from_IQuickActivate(iface);
1439
1440     FIXME("(%p)->(%p)\n", This, size);
1441
1442     return E_NOTIMPL;
1443 }
1444
1445 static HRESULT WINAPI QuickActivate_GetContentExtent(IQuickActivate *iface, SIZEL *size)
1446 {
1447     ScriptControl *This = impl_from_IQuickActivate(iface);
1448
1449     FIXME("(%p)->(%p)\n", This, size);
1450
1451     return E_NOTIMPL;
1452 }
1453
1454 static const IQuickActivateVtbl QuickActivateVtbl = {
1455     QuickActivate_QueryInterface,
1456     QuickActivate_AddRef,
1457     QuickActivate_Release,
1458     QuickActivate_QuickActivate,
1459     QuickActivate_SetContentExtent,
1460     QuickActivate_GetContentExtent
1461 };
1462
1463 static HRESULT WINAPI ViewObject_QueryInterface(IViewObjectEx *iface, REFIID riid, void **obj)
1464 {
1465     ScriptControl *This = impl_from_IViewObjectEx(iface);
1466     return IScriptControl_QueryInterface(&This->IScriptControl_iface, riid, obj);
1467 }
1468
1469 static ULONG WINAPI ViewObject_AddRef(IViewObjectEx *iface)
1470 {
1471     ScriptControl *This = impl_from_IViewObjectEx(iface);
1472     return IScriptControl_AddRef(&This->IScriptControl_iface);
1473 }
1474
1475 static ULONG WINAPI ViewObject_Release(IViewObjectEx *iface)
1476 {
1477     ScriptControl *This = impl_from_IViewObjectEx(iface);
1478     return IScriptControl_Release(&This->IScriptControl_iface);
1479 }
1480
1481 static HRESULT WINAPI ViewObject_Draw(IViewObjectEx *iface, DWORD drawaspect, LONG index, void *aspect,
1482     DVTARGETDEVICE *device, HDC target_dev, HDC hdc_draw, const RECTL *bounds, const RECTL *win_bounds,
1483     BOOL (STDMETHODCALLTYPE *fn_continue)(ULONG_PTR cont), ULONG_PTR cont)
1484 {
1485     ScriptControl *This = impl_from_IViewObjectEx(iface);
1486
1487     FIXME("(%p)->(%d %d %p %p %p %p %p %p %p %lu)\n", This, drawaspect, index, aspect, device, target_dev,
1488         hdc_draw, bounds, win_bounds, fn_continue, cont);
1489
1490     return E_NOTIMPL;
1491 }
1492
1493 static HRESULT WINAPI ViewObject_GetColorSet(IViewObjectEx *iface, DWORD drawaspect, LONG index, void *aspect,
1494     DVTARGETDEVICE *device, HDC hic_target, LOGPALETTE **colorset)
1495 {
1496     ScriptControl *This = impl_from_IViewObjectEx(iface);
1497
1498     FIXME("(%p)->(%d %d %p %p %p %p)\n", This, drawaspect, index, aspect, device, hic_target,
1499         colorset);
1500
1501     return E_NOTIMPL;
1502 }
1503
1504 static HRESULT WINAPI ViewObject_Freeze(IViewObjectEx *iface, DWORD drawaspect, LONG index, void *aspect,
1505     DWORD *freeze)
1506 {
1507     ScriptControl *This = impl_from_IViewObjectEx(iface);
1508
1509     FIXME("(%p)->(%d %d %p %p)\n", This, drawaspect, index, aspect, freeze);
1510
1511     return E_NOTIMPL;
1512 }
1513
1514 static HRESULT WINAPI ViewObject_Unfreeze(IViewObjectEx *iface, DWORD freeze)
1515 {
1516     ScriptControl *This = impl_from_IViewObjectEx(iface);
1517
1518     FIXME("(%p)->(%d)\n", This, freeze);
1519
1520     return E_NOTIMPL;
1521 }
1522
1523 static HRESULT WINAPI ViewObject_SetAdvise(IViewObjectEx *iface, DWORD aspects, DWORD flags, IAdviseSink *sink)
1524 {
1525     ScriptControl *This = impl_from_IViewObjectEx(iface);
1526
1527     TRACE("(%p)->(%d %#x %p)\n", This, aspects, flags, sink);
1528
1529     if (aspects != DVASPECT_CONTENT)
1530         return DV_E_DVASPECT;
1531
1532     This->view_sink_flags = flags;
1533     if (This->view_sink)
1534         IAdviseSink_Release(This->view_sink);
1535     This->view_sink = sink;
1536     if (This->view_sink)
1537         IAdviseSink_AddRef(This->view_sink);
1538
1539     return S_OK;
1540 }
1541
1542 static HRESULT WINAPI ViewObject_GetAdvise(IViewObjectEx *iface, DWORD *aspects, DWORD *flags, IAdviseSink **sink)
1543 {
1544     ScriptControl *This = impl_from_IViewObjectEx(iface);
1545
1546     TRACE("(%p)->(%p %p %p)\n", This, aspects, flags, sink);
1547
1548     if (aspects)
1549         *aspects = DVASPECT_CONTENT;
1550     if (flags)
1551         *flags = This->view_sink_flags;
1552     if (sink) {
1553         *sink = This->view_sink;
1554         if (*sink)
1555             IAdviseSink_AddRef(*sink);
1556     }
1557
1558     return S_OK;
1559 }
1560
1561 static HRESULT WINAPI ViewObject_GetExtent(IViewObjectEx *iface, DWORD draw_aspect, LONG index,
1562     DVTARGETDEVICE *device, SIZEL *size)
1563 {
1564     ScriptControl *This = impl_from_IViewObjectEx(iface);
1565
1566     FIXME("(%p)->(%d %d %p %p)\n", This, draw_aspect, index, device, size);
1567
1568     return E_NOTIMPL;
1569 }
1570
1571 static HRESULT WINAPI ViewObject_GetRect(IViewObjectEx *iface, DWORD aspect, RECTL *rect)
1572 {
1573     ScriptControl *This = impl_from_IViewObjectEx(iface);
1574
1575     FIXME("(%p)->(%d %p)\n", This, aspect, rect);
1576
1577     return E_NOTIMPL;
1578 }
1579
1580 static HRESULT WINAPI ViewObject_GetViewStatus(IViewObjectEx *iface, DWORD *status)
1581 {
1582     ScriptControl *This = impl_from_IViewObjectEx(iface);
1583
1584     TRACE("(%p)->(%p)\n", This, status);
1585
1586     *status = VIEWSTATUS_OPAQUE;
1587     return S_OK;
1588 }
1589
1590 static HRESULT WINAPI ViewObject_QueryHitPoint(IViewObjectEx *iface, DWORD aspect, const RECT *bounds,
1591     POINT pt, LONG close_hint, DWORD *hit_result)
1592 {
1593     ScriptControl *This = impl_from_IViewObjectEx(iface);
1594
1595     FIXME("(%p)->(%d %s %s %d %p)\n", This, aspect, wine_dbgstr_rect(bounds), wine_dbgstr_point(&pt), close_hint, hit_result);
1596
1597     return E_NOTIMPL;
1598 }
1599
1600 static HRESULT WINAPI ViewObject_QueryHitRect(IViewObjectEx *iface, DWORD aspect, const RECT *bounds,
1601     const RECT *loc, LONG close_hint, DWORD *hit_result)
1602 {
1603     ScriptControl *This = impl_from_IViewObjectEx(iface);
1604
1605     FIXME("(%p)->(%d %s %s %d %p)\n", This, aspect, wine_dbgstr_rect(bounds), wine_dbgstr_rect(loc), close_hint, hit_result);
1606
1607     return E_NOTIMPL;
1608 }
1609
1610 static HRESULT WINAPI ViewObject_GetNaturalExtent(IViewObjectEx *iface, DWORD aspect, LONG index,
1611     DVTARGETDEVICE *device, HDC target_hdc, DVEXTENTINFO *extent_info, SIZEL *size)
1612 {
1613     ScriptControl *This = impl_from_IViewObjectEx(iface);
1614
1615     FIXME("(%p)->(%d %d %p %p %p %p)\n", This, aspect, index, device, target_hdc, extent_info, size);
1616
1617     return E_NOTIMPL;
1618 }
1619
1620 static const IViewObjectExVtbl ViewObjectExVtbl = {
1621     ViewObject_QueryInterface,
1622     ViewObject_AddRef,
1623     ViewObject_Release,
1624     ViewObject_Draw,
1625     ViewObject_GetColorSet,
1626     ViewObject_Freeze,
1627     ViewObject_Unfreeze,
1628     ViewObject_SetAdvise,
1629     ViewObject_GetAdvise,
1630     ViewObject_GetExtent,
1631     ViewObject_GetRect,
1632     ViewObject_GetViewStatus,
1633     ViewObject_QueryHitPoint,
1634     ViewObject_QueryHitRect,
1635     ViewObject_GetNaturalExtent
1636 };
1637
1638 static HRESULT WINAPI PointerInactive_QueryInterface(IPointerInactive *iface, REFIID riid, void **obj)
1639 {
1640     ScriptControl *This = impl_from_IPointerInactive(iface);
1641     return IScriptControl_QueryInterface(&This->IScriptControl_iface, riid, obj);
1642 }
1643
1644 static ULONG WINAPI PointerInactive_AddRef(IPointerInactive *iface)
1645 {
1646     ScriptControl *This = impl_from_IPointerInactive(iface);
1647     return IScriptControl_AddRef(&This->IScriptControl_iface);
1648 }
1649
1650 static ULONG WINAPI PointerInactive_Release(IPointerInactive *iface)
1651 {
1652     ScriptControl *This = impl_from_IPointerInactive(iface);
1653     return IScriptControl_Release(&This->IScriptControl_iface);
1654 }
1655
1656 static HRESULT WINAPI PointerInactive_GetActivationPolicy(IPointerInactive *iface, DWORD *policy)
1657 {
1658     ScriptControl *This = impl_from_IPointerInactive(iface);
1659
1660     TRACE("(%p)->(%p)\n", This, policy);
1661
1662     if (!policy)
1663         return E_POINTER;
1664
1665     *policy = 0;
1666     return S_OK;
1667 }
1668
1669 static HRESULT WINAPI PointerInactive_OnInactiveMouseMove(IPointerInactive *iface, const RECT *bounds,
1670     LONG x, LONG y, DWORD key_state)
1671 {
1672     ScriptControl *This = impl_from_IPointerInactive(iface);
1673
1674     FIXME("(%p)->(%s %d %d %#x)\n", This, wine_dbgstr_rect(bounds), x, y, key_state);
1675
1676     return E_NOTIMPL;
1677 }
1678
1679 static HRESULT WINAPI PointerInactive_OnInactiveSetCursor(IPointerInactive *iface, const RECT *bounds,
1680     LONG x, LONG y, DWORD msg, BOOL set_always)
1681 {
1682     ScriptControl *This = impl_from_IPointerInactive(iface);
1683
1684     FIXME("(%p)->(%s %d %d %#x %d)\n", This, wine_dbgstr_rect(bounds), x, y, msg, set_always);
1685
1686     return E_NOTIMPL;
1687 }
1688
1689 static const IPointerInactiveVtbl PointerInactiveVtbl = {
1690     PointerInactive_QueryInterface,
1691     PointerInactive_AddRef,
1692     PointerInactive_Release,
1693     PointerInactive_GetActivationPolicy,
1694     PointerInactive_OnInactiveMouseMove,
1695     PointerInactive_OnInactiveSetCursor
1696 };
1697
1698 static HRESULT WINAPI ConnectionPointContainer_QueryInterface(IConnectionPointContainer *iface, REFIID riid, void **obj)
1699 {
1700     ScriptControl *This = impl_from_IConnectionPointContainer(iface);
1701     return IScriptControl_QueryInterface(&This->IScriptControl_iface, riid, obj);
1702 }
1703
1704 static ULONG WINAPI ConnectionPointContainer_AddRef(IConnectionPointContainer *iface)
1705 {
1706     ScriptControl *This = impl_from_IConnectionPointContainer(iface);
1707     return IScriptControl_AddRef(&This->IScriptControl_iface);
1708 }
1709
1710 static ULONG WINAPI ConnectionPointContainer_Release(IConnectionPointContainer *iface)
1711 {
1712     ScriptControl *This = impl_from_IConnectionPointContainer(iface);
1713     return IScriptControl_Release(&This->IScriptControl_iface);
1714 }
1715
1716 static HRESULT WINAPI ConnectionPointContainer_EnumConnectionPoints(IConnectionPointContainer *iface, IEnumConnectionPoints **enum_points)
1717 {
1718     ScriptControl *This = impl_from_IConnectionPointContainer(iface);
1719
1720     FIXME("(%p)->(%p)\n", This, enum_points);
1721
1722     return E_NOTIMPL;
1723 }
1724
1725 static HRESULT WINAPI ConnectionPointContainer_FindConnectionPoint(IConnectionPointContainer *iface, REFIID riid, IConnectionPoint **cp)
1726 {
1727     ScriptControl *This = impl_from_IConnectionPointContainer(iface);
1728     ConnectionPoint *iter;
1729
1730     TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), cp);
1731
1732     *cp = NULL;
1733
1734     for (iter = This->cp_list; iter; iter = iter->next) {
1735         if (IsEqualIID(iter->riid, riid))
1736             *cp = &iter->IConnectionPoint_iface;
1737     }
1738
1739     if (*cp) {
1740         IConnectionPoint_AddRef(*cp);
1741         return S_OK;
1742     }
1743
1744     FIXME("unsupported connection point %s\n", debugstr_guid(riid));
1745     return CONNECT_E_NOCONNECTION;
1746 }
1747
1748 static const IConnectionPointContainerVtbl ConnectionPointContainerVtbl = {
1749     ConnectionPointContainer_QueryInterface,
1750     ConnectionPointContainer_AddRef,
1751     ConnectionPointContainer_Release,
1752     ConnectionPointContainer_EnumConnectionPoints,
1753     ConnectionPointContainer_FindConnectionPoint
1754 };
1755
1756 static HRESULT WINAPI ConnectionPoint_QueryInterface(IConnectionPoint *iface,
1757         REFIID riid, void **ppv)
1758 {
1759     ConnectionPoint *This = impl_from_IConnectionPoint(iface);
1760
1761     if(IsEqualGUID(&IID_IUnknown, riid)) {
1762         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
1763         *ppv = &This->IConnectionPoint_iface;
1764     }else if(IsEqualGUID(&IID_IConnectionPoint, riid)) {
1765         TRACE("(%p)->(IID_IDispatch %p)\n", This, ppv);
1766         *ppv = &This->IConnectionPoint_iface;
1767     }else {
1768         FIXME("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
1769         *ppv = NULL;
1770         return E_NOINTERFACE;
1771     }
1772
1773     IUnknown_AddRef((IUnknown*)*ppv);
1774     return S_OK;
1775 }
1776
1777 static ULONG WINAPI ConnectionPoint_AddRef(IConnectionPoint *iface)
1778 {
1779     ConnectionPoint *This = impl_from_IConnectionPoint(iface);
1780     return IConnectionPointContainer_AddRef(&This->control->IConnectionPointContainer_iface);
1781 }
1782
1783 static ULONG WINAPI ConnectionPoint_Release(IConnectionPoint *iface)
1784 {
1785     ConnectionPoint *This = impl_from_IConnectionPoint(iface);
1786     return IConnectionPointContainer_Release(&This->control->IConnectionPointContainer_iface);
1787 }
1788
1789 static HRESULT WINAPI ConnectionPoint_GetConnectionInterface(IConnectionPoint *iface, IID *iid)
1790 {
1791     ConnectionPoint *This = impl_from_IConnectionPoint(iface);
1792
1793     TRACE("(%p)->(%p)\n", This, iid);
1794
1795     *iid = *This->riid;
1796     return S_OK;
1797 }
1798
1799 static HRESULT WINAPI ConnectionPoint_GetConnectionPointContainer(IConnectionPoint *iface,
1800         IConnectionPointContainer **container)
1801 {
1802     ConnectionPoint *This = impl_from_IConnectionPoint(iface);
1803
1804     TRACE("(%p)->(%p)\n", This, container);
1805
1806     if (!container)
1807         return E_POINTER;
1808
1809     *container = &This->control->IConnectionPointContainer_iface;
1810     IConnectionPointContainer_AddRef(*container);
1811
1812     return S_OK;
1813 }
1814
1815 static HRESULT WINAPI ConnectionPoint_Advise(IConnectionPoint *iface, IUnknown *unk_sink,
1816         DWORD *cookie)
1817 {
1818     ConnectionPoint *This = impl_from_IConnectionPoint(iface);
1819
1820     FIXME("(%p)->(%p %p)\n", This, unk_sink, cookie);
1821
1822     return E_NOTIMPL;
1823 }
1824
1825 static HRESULT WINAPI ConnectionPoint_Unadvise(IConnectionPoint *iface, DWORD cookie)
1826 {
1827     ConnectionPoint *This = impl_from_IConnectionPoint(iface);
1828
1829     FIXME("(%p)->(%d)\n", This, cookie);
1830
1831     return E_NOTIMPL;
1832 }
1833
1834 static HRESULT WINAPI ConnectionPoint_EnumConnections(IConnectionPoint *iface,
1835         IEnumConnections **ppEnum)
1836 {
1837     ConnectionPoint *This = impl_from_IConnectionPoint(iface);
1838
1839     FIXME("(%p)->(%p): stub\n", This, ppEnum);
1840
1841     return E_NOTIMPL;
1842 }
1843
1844 static const IConnectionPointVtbl ConnectionPointVtbl =
1845 {
1846     ConnectionPoint_QueryInterface,
1847     ConnectionPoint_AddRef,
1848     ConnectionPoint_Release,
1849     ConnectionPoint_GetConnectionInterface,
1850     ConnectionPoint_GetConnectionPointContainer,
1851     ConnectionPoint_Advise,
1852     ConnectionPoint_Unadvise,
1853     ConnectionPoint_EnumConnections
1854 };
1855
1856 static void ConnectionPoint_Init(ConnectionPoint *cp, ScriptControl *sc, REFIID riid)
1857 {
1858     cp->IConnectionPoint_iface.lpVtbl = &ConnectionPointVtbl;
1859     cp->control = sc;
1860     cp->riid = riid;
1861
1862     cp->next = sc->cp_list;
1863     sc->cp_list = cp;
1864 }
1865
1866 static HRESULT WINAPI ScriptControl_CreateInstance(IClassFactory *iface, IUnknown *outer, REFIID riid, void **ppv)
1867 {
1868     ScriptControl *script_control;
1869     DWORD dpi_x, dpi_y;
1870     HRESULT hres;
1871     HDC hdc;
1872
1873     TRACE("(%p %s %p)\n", outer, debugstr_guid(riid), ppv);
1874
1875     script_control = heap_alloc(sizeof(*script_control));
1876     if(!script_control)
1877         return E_OUTOFMEMORY;
1878
1879     script_control->IScriptControl_iface.lpVtbl = &ScriptControlVtbl;
1880     script_control->IPersistStreamInit_iface.lpVtbl = &PersistStreamInitVtbl;
1881     script_control->IOleObject_iface.lpVtbl = &OleObjectVtbl;
1882     script_control->IOleControl_iface.lpVtbl = &OleControlVtbl;
1883     script_control->IQuickActivate_iface.lpVtbl = &QuickActivateVtbl;
1884     script_control->IViewObjectEx_iface.lpVtbl = &ViewObjectExVtbl;
1885     script_control->IPointerInactive_iface.lpVtbl = &PointerInactiveVtbl;
1886     script_control->IConnectionPointContainer_iface.lpVtbl = &ConnectionPointContainerVtbl;
1887     script_control->ref = 1;
1888     script_control->site = NULL;
1889     script_control->cp_list = NULL;
1890     script_control->host = NULL;
1891     script_control->timeout = 10000;
1892     script_control->view_sink_flags = 0;
1893     script_control->view_sink = NULL;
1894
1895     ConnectionPoint_Init(&script_control->cp_scsource, script_control, &DIID_DScriptControlSource);
1896     ConnectionPoint_Init(&script_control->cp_propnotif, script_control, &IID_IPropertyNotifySink);
1897
1898     hdc = GetDC(0);
1899     dpi_x = GetDeviceCaps(hdc, LOGPIXELSX);
1900     dpi_y = GetDeviceCaps(hdc, LOGPIXELSY);
1901     ReleaseDC(0, hdc);
1902
1903     script_control->extent.cx = MulDiv(38, 2540, dpi_x);
1904     script_control->extent.cy = MulDiv(38, 2540, dpi_y);
1905
1906     hres = IScriptControl_QueryInterface(&script_control->IScriptControl_iface, riid, ppv);
1907     IScriptControl_Release(&script_control->IScriptControl_iface);
1908     return hres;
1909 }
1910
1911 /******************************************************************
1912  *              DllMain (msscript.ocx.@)
1913  */
1914 BOOL WINAPI DllMain(HINSTANCE instance, DWORD reason, void *reserved)
1915 {
1916     TRACE("(%p %d %p)\n", instance, reason, reserved);
1917
1918     switch(reason) {
1919     case DLL_WINE_PREATTACH:
1920         return FALSE;  /* prefer native version */
1921     case DLL_PROCESS_ATTACH:
1922         msscript_instance = instance;
1923         DisableThreadLibraryCalls(instance);
1924         break;
1925     case DLL_PROCESS_DETACH:
1926         if(!reserved)
1927             release_typelib();
1928         break;
1929     }
1930
1931     return TRUE;
1932 }
1933
1934 static HRESULT WINAPI ClassFactory_QueryInterface(IClassFactory *iface, REFIID riid, void **ppv)
1935 {
1936     *ppv = NULL;
1937
1938     if(IsEqualGUID(&IID_IUnknown, riid)) {
1939         TRACE("(%p)->(IID_IUnknown %p)\n", iface, ppv);
1940         *ppv = iface;
1941     }else if(IsEqualGUID(&IID_IClassFactory, riid)) {
1942         TRACE("(%p)->(IID_IClassFactory %p)\n", iface, ppv);
1943         *ppv = iface;
1944     }
1945
1946     if(*ppv) {
1947         IUnknown_AddRef((IUnknown*)*ppv);
1948         return S_OK;
1949     }
1950
1951     WARN("(%p)->(%s %p)\n", iface, debugstr_guid(riid), ppv);
1952     return E_NOINTERFACE;
1953 }
1954
1955 static ULONG WINAPI ClassFactory_AddRef(IClassFactory *iface)
1956 {
1957     TRACE("(%p)\n", iface);
1958     return 2;
1959 }
1960
1961 static ULONG WINAPI ClassFactory_Release(IClassFactory *iface)
1962 {
1963     TRACE("(%p)\n", iface);
1964     return 1;
1965 }
1966
1967 static HRESULT WINAPI ClassFactory_LockServer(IClassFactory *iface, BOOL fLock)
1968 {
1969     TRACE("(%p)->(%x)\n", iface, fLock);
1970     return S_OK;
1971 }
1972
1973 static const IClassFactoryVtbl ScriptControlFactoryVtbl = {
1974     ClassFactory_QueryInterface,
1975     ClassFactory_AddRef,
1976     ClassFactory_Release,
1977     ScriptControl_CreateInstance,
1978     ClassFactory_LockServer
1979 };
1980
1981 static IClassFactory ScriptControlFactory = { &ScriptControlFactoryVtbl };
1982
1983 /***********************************************************************
1984  *              DllGetClassObject       (msscript.ocx.@)
1985  */
1986 HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, LPVOID *ppv)
1987 {
1988     if(IsEqualGUID(&CLSID_ScriptControl, rclsid)) {
1989         TRACE("(CLSID_ScriptControl %s %p)\n", debugstr_guid(riid), ppv);
1990         return IClassFactory_QueryInterface(&ScriptControlFactory, riid, ppv);
1991     }
1992
1993     FIXME("%s %s %p\n", debugstr_guid(rclsid), debugstr_guid(riid), ppv);
1994     return CLASS_E_CLASSNOTAVAILABLE;
1995 }
1996
1997 /***********************************************************************
1998  *          DllCanUnloadNow (msscript.ocx.@)
1999  */
2000 HRESULT WINAPI DllCanUnloadNow(void)
2001 {
2002     TRACE("\n");
2003     return S_FALSE;
2004 }
2005
2006 /***********************************************************************
2007  *          DllRegisterServer (msscript.ocx.@)
2008  */
2009 HRESULT WINAPI DllRegisterServer(void)
2010 {
2011     TRACE("()\n");
2012     return __wine_register_resources(msscript_instance);
2013 }
2014
2015 /***********************************************************************
2016  *          DllUnregisterServer (msscript.ocx.@)
2017  */
2018 HRESULT WINAPI DllUnregisterServer(void)
2019 {
2020     TRACE("()\n");
2021     return __wine_unregister_resources(msscript_instance);
2022 }