dlls/shdocvw/webbrowser.c

   1 /*
   2  * Implementation of IWebBrowser interface for WebBrowser control
   3  *
   4  * Copyright 2001 John R. Sheets (for CodeWeavers)
   5  * Copyright 2005 Jacek Caban
   6  *
   7  * This library is free software; you can redistribute it and/or
   8  * modify it under the terms of the GNU Lesser General Public
   9  * License as published by the Free Software Foundation; either
  10  * version 2.1 of the License, or (at your option) any later version.
  11  *
  12  * This library is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15  * Lesser General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU Lesser General Public
  18  * License along with this library; if not, write to the Free Software
  19  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  20  */
  21
  22 #include "wine/debug.h"
  23 #include "shdocvw.h"
  24 #include "exdispid.h"
  25 #include "mshtml.h"
  26
  27 WINE_DEFAULT_DEBUG_CHANNEL(shdocvw);
  28
  29 static inline WebBrowser *impl_from_IWebBrowser2(IWebBrowser2 *iface)
  30 {
  31     return CONTAINING_RECORD(iface, WebBrowser, IWebBrowser2_iface);
  32 }
  33
  34 static HRESULT WINAPI WebBrowser_QueryInterface(IWebBrowser2 *iface, REFIID riid, LPVOID *ppv)
  35 {
  36     WebBrowser *This = impl_from_IWebBrowser2(iface);
  37
  38     if (ppv == NULL)
  39         return E_POINTER;
  40     *ppv = NULL;
  41
  42     if(IsEqualGUID(&IID_IUnknown, riid)) {
  43         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
  44         *ppv = &This->IWebBrowser2_iface;
  45     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
  46         TRACE("(%p)->(IID_IDispatch %p)\n", This, ppv);
  47         *ppv = &This->IWebBrowser2_iface;
  48     }else if(IsEqualGUID(&IID_IWebBrowser, riid)) {
  49         TRACE("(%p)->(IID_IWebBrowser %p)\n", This, ppv);
  50         *ppv = &This->IWebBrowser2_iface;
  51     }else if(IsEqualGUID(&IID_IWebBrowserApp, riid)) {
  52         TRACE("(%p)->(IID_IWebBrowserApp %p)\n", This, ppv);
  53         *ppv = &This->IWebBrowser2_iface;
  54     }else if(IsEqualGUID(&IID_IWebBrowser2, riid)) {
  55         TRACE("(%p)->(IID_IWebBrowser2 %p)\n", This, ppv);
  56         *ppv = &This->IWebBrowser2_iface;
  57     }else if(IsEqualGUID(&IID_IOleObject, riid)) {
  58         TRACE("(%p)->(IID_IOleObject %p)\n", This, ppv);
  59         *ppv = &This->IOleObject_iface;
  60     }else if(IsEqualGUID(&IID_IOleWindow, riid)) {
  61         TRACE("(%p)->(IID_IOleWindow %p)\n", This, ppv);
  62         *ppv = &This->IOleInPlaceObject_iface;
  63     }else if(IsEqualGUID (&IID_IOleInPlaceObject, riid)) {
  64         TRACE("(%p)->(IID_IOleInPlaceObject %p)\n", This, ppv);
  65         *ppv = &This->IOleInPlaceObject_iface;
  66     }else if(IsEqualGUID(&IID_IOleControl, riid)) {
  67         TRACE("(%p)->(IID_IOleControl %p)\n", This, ppv);
  68         *ppv = &This->IOleControl_iface;
  69     }else if(IsEqualGUID(&IID_IPersist, riid)) {
  70         TRACE("(%p)->(IID_IPersist %p)\n", This, ppv);
  71         *ppv = &This->IPersistStorage_iface;
  72     }else if(IsEqualGUID(&IID_IPersistStorage, riid)) {
  73         TRACE("(%p)->(IID_IPersistStorage %p)\n", This, ppv);
  74         *ppv = &This->IPersistStorage_iface;
  75     }else if(IsEqualGUID(&IID_IPersistMemory, riid)) {
  76         TRACE("(%p)->(IID_IPersistStorage %p)\n", This, ppv);
  77         *ppv = &This->IPersistMemory_iface;
  78     }else if(IsEqualGUID (&IID_IPersistStreamInit, riid)) {
  79         TRACE("(%p)->(IID_IPersistStreamInit %p)\n", This, ppv);
  80         *ppv = &This->IPersistStreamInit_iface;
  81     }else if(IsEqualGUID(&IID_IProvideClassInfo, riid)) {
  82         TRACE("(%p)->(IID_IProvideClassInfo %p)\n", This, ppv);
  83         *ppv = &This->IProvideClassInfo2_iface;
  84     }else if(IsEqualGUID(&IID_IProvideClassInfo2, riid)) {
  85         TRACE("(%p)->(IID_IProvideClassInfo2 %p)\n", This, ppv);
  86         *ppv = &This->IProvideClassInfo2_iface;
  87     }else if(IsEqualGUID(&IID_IConnectionPointContainer, riid)) {
  88         TRACE("(%p)->(IID_IConnectionPointContainer %p)\n", This, ppv);
  89         *ppv = &This->doc_host.cps.IConnectionPointContainer_iface;
  90     }else if(IsEqualGUID(&IID_IViewObject, riid)) {
  91         TRACE("(%p)->(IID_IViewObject %p)\n", This, ppv);
  92         *ppv = &This->IViewObject2_iface;
  93     }else if(IsEqualGUID(&IID_IViewObject2, riid)) {
  94         TRACE("(%p)->(IID_IViewObject2 %p)\n", This, ppv);
  95         *ppv = &This->IViewObject2_iface;
  96     }else if(IsEqualGUID(&IID_IOleInPlaceActiveObject, riid)) {
  97         TRACE("(%p)->(IID_IOleInPlaceActiveObject %p)\n", This, ppv);
  98         *ppv = &This->IOleInPlaceActiveObject_iface;
  99     }else if(IsEqualGUID(&IID_IOleCommandTarget, riid)) {
 100         TRACE("(%p)->(IID_IOleCommandTarget %p)\n", This, ppv);
 101         *ppv = &This->IOleCommandTarget_iface;
 102     }else if(IsEqualGUID(&IID_IServiceProvider, riid)) {
 103         *ppv = &This->IServiceProvider_iface;
 104         TRACE("(%p)->(IID_IServiceProvider %p)\n", This, ppv);
 105     }else if(IsEqualGUID(&IID_IDataObject, riid)) {
 106         *ppv = &This->IDataObject_iface;
 107         TRACE("(%p)->(IID_IDataObject %p)\n", This, ppv);
 108     }else if(IsEqualGUID(&IID_IQuickActivate, riid)) {
 109         TRACE("(%p)->(IID_IQuickActivate %p) returning NULL\n", This, ppv);
 110         return E_NOINTERFACE;
 111     }else if(IsEqualGUID(&IID_IRunnableObject, riid)) {
 112         TRACE("(%p)->(IID_IRunnableObject %p) returning NULL\n", This, ppv);
 113         return E_NOINTERFACE;
 114     }else if(IsEqualGUID(&IID_IPerPropertyBrowsing, riid)) {
 115         TRACE("(%p)->(IID_IPerPropertyBrowsing %p) returning NULL\n", This, ppv);
 116         return E_NOINTERFACE;
 117     }else if(IsEqualGUID(&IID_IOleCache, riid)) {
 118         TRACE("(%p)->(IID_IOleCache %p) returning NULL\n", This, ppv);
 119         return E_NOINTERFACE;
 120     }else if(IsEqualGUID(&IID_IOleInPlaceSite, riid)) {
 121         TRACE("(%p)->(IID_IOleInPlaceSite %p) returning NULL\n", This, ppv);
 122         return E_NOINTERFACE;
 123     }else if(IsEqualGUID(&IID_IObjectWithSite, riid)) {
 124         TRACE("(%p)->(IID_IObjectWithSite %p) returning NULL\n", This, ppv);
 125         return E_NOINTERFACE;
 126     }else if(IsEqualGUID(&IID_IViewObjectEx, riid)) {
 127         TRACE("(%p)->(IID_IViewObjectEx %p) returning NULL\n", This, ppv);
 128         return E_NOINTERFACE;
 129     }else if(IsEqualGUID(&IID_IOleLink, riid)) {
 130         TRACE("(%p)->(IID_IOleLink %p) returning NULL\n", This, ppv);
 131         return E_NOINTERFACE;
 132     }else if(IsEqualGUID(&IID_IMarshal, riid)) {
 133         TRACE("(%p)->(IID_IMarshal %p) returning NULL\n", This, ppv);
 134         return E_NOINTERFACE;
 135     }else if(IsEqualGUID(&IID_IStdMarshalInfo, riid)) {
 136         TRACE("(%p)->(IID_IStdMarshalInfo %p) returning NULL\n", This, ppv);
 137         return E_NOINTERFACE;
 138     }else if(HlinkFrame_QI(&This->hlink_frame, riid, ppv)) {
 139         return S_OK;
 140     }
 141
 142     if(*ppv) {
 143         IUnknown_AddRef((IUnknown*)*ppv);
 144         return S_OK;
 145     }
 146
 147     FIXME("(%p)->(%s %p) interface not supported\n", This, debugstr_guid(riid), ppv);
 148     return E_NOINTERFACE;
 149 }
 150
 151 static ULONG WINAPI WebBrowser_AddRef(IWebBrowser2 *iface)
 152 {
 153     WebBrowser *This = impl_from_IWebBrowser2(iface);
 154     LONG ref = InterlockedIncrement(&This->ref);
 155     TRACE("(%p) ref=%d\n", This, ref);
 156     return ref;
 157 }
 158
 159 static ULONG WINAPI WebBrowser_Release(IWebBrowser2 *iface)
 160 {
 161     WebBrowser *This = impl_from_IWebBrowser2(iface);
 162     LONG ref = InterlockedDecrement(&This->ref);
 163
 164     TRACE("(%p) ref=%d\n", This, ref);
 165
 166     if(!ref) {
 167         if(This->doc_host.document)
 168             IUnknown_Release(This->doc_host.document);
 169
 170         DocHost_Release(&This->doc_host);
 171
 172         WebBrowser_OleObject_Destroy(This);
 173
 174         heap_free(This);
 175         SHDOCVW_UnlockModule();
 176     }
 177
 178     return ref;
 179 }
 180
 181 /* IDispatch methods */
 182 static HRESULT WINAPI WebBrowser_GetTypeInfoCount(IWebBrowser2 *iface, UINT *pctinfo)
 183 {
 184     WebBrowser *This = impl_from_IWebBrowser2(iface);
 185
 186     TRACE("(%p)->(%p)\n", This, pctinfo);
 187
 188     *pctinfo = 1;
 189     return S_OK;
 190 }
 191
 192 static HRESULT WINAPI WebBrowser_GetTypeInfo(IWebBrowser2 *iface, UINT iTInfo, LCID lcid,
 193                                      LPTYPEINFO *ppTInfo)
 194 {
 195     WebBrowser *This = impl_from_IWebBrowser2(iface);
 196     ITypeInfo *typeinfo;
 197     HRESULT hres;
 198
 199     TRACE("(%p)->(%d %d %p)\n", This, iTInfo, lcid, ppTInfo);
 200
 201     hres = get_typeinfo(&typeinfo);
 202     if(FAILED(hres))
 203         return hres;
 204
 205     ITypeInfo_AddRef(typeinfo);
 206     *ppTInfo = typeinfo;
 207     return S_OK;
 208 }
 209
 210 static HRESULT WINAPI WebBrowser_GetIDsOfNames(IWebBrowser2 *iface, REFIID riid,
 211                                        LPOLESTR *rgszNames, UINT cNames,
 212                                        LCID lcid, DISPID *rgDispId)
 213 {
 214     WebBrowser *This = impl_from_IWebBrowser2(iface);
 215     ITypeInfo *typeinfo;
 216     HRESULT hres;
 217
 218     TRACE("(%p)->(%s %p %d %d %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
 219           lcid, rgDispId);
 220
 221     hres = get_typeinfo(&typeinfo);
 222     if(FAILED(hres))
 223         return hres;
 224
 225     return ITypeInfo_GetIDsOfNames(typeinfo, rgszNames, cNames, rgDispId);
 226 }
 227
 228 static HRESULT WINAPI WebBrowser_Invoke(IWebBrowser2 *iface, DISPID dispIdMember,
 229                                 REFIID riid, LCID lcid, WORD wFlags,
 230                                 DISPPARAMS *pDispParams, VARIANT *pVarResult,
 231                                 EXCEPINFO *pExepInfo, UINT *puArgErr)
 232 {
 233     WebBrowser *This = impl_from_IWebBrowser2(iface);
 234     ITypeInfo *typeinfo;
 235     HRESULT hres;
 236
 237     TRACE("(%p)->(%d %s %d %08x %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
 238             lcid, wFlags, pDispParams, pVarResult, pExepInfo, puArgErr);
 239
 240     hres = get_typeinfo(&typeinfo);
 241     if(FAILED(hres))
 242         return hres;
 243
 244     return ITypeInfo_Invoke(typeinfo, &This->IWebBrowser2_iface, dispIdMember, wFlags, pDispParams,
 245             pVarResult, pExepInfo, puArgErr);
 246 }
 247
 248 /* IWebBrowser methods */
 249 static HRESULT WINAPI WebBrowser_GoBack(IWebBrowser2 *iface)
 250 {
 251     WebBrowser *This = impl_from_IWebBrowser2(iface);
 252     FIXME("(%p)\n", This);
 253     return E_NOTIMPL;
 254 }
 255
 256 static HRESULT WINAPI WebBrowser_GoForward(IWebBrowser2 *iface)
 257 {
 258     WebBrowser *This = impl_from_IWebBrowser2(iface);
 259     FIXME("(%p)\n", This);
 260     return E_NOTIMPL;
 261 }
 262
 263 static HRESULT WINAPI WebBrowser_GoHome(IWebBrowser2 *iface)
 264 {
 265     WebBrowser *This = impl_from_IWebBrowser2(iface);
 266     TRACE("(%p)\n", This);
 267     return go_home(&This->doc_host);
 268 }
 269
 270 static HRESULT WINAPI WebBrowser_GoSearch(IWebBrowser2 *iface)
 271 {
 272     WebBrowser *This = impl_from_IWebBrowser2(iface);
 273     FIXME("(%p)\n", This);
 274     return E_NOTIMPL;
 275 }
 276
 277 static HRESULT WINAPI WebBrowser_Navigate(IWebBrowser2 *iface, BSTR szUrl,
 278                                   VARIANT *Flags, VARIANT *TargetFrameName,
 279                                   VARIANT *PostData, VARIANT *Headers)
 280 {
 281     WebBrowser *This = impl_from_IWebBrowser2(iface);
 282
 283     TRACE("(%p)->(%s %s %s %s %s)\n", This, debugstr_w(szUrl), debugstr_variant(Flags),
 284           debugstr_variant(TargetFrameName), debugstr_variant(PostData),
 285           debugstr_variant(Headers));
 286
 287     return navigate_url(&This->doc_host, szUrl, Flags, TargetFrameName, PostData, Headers);
 288 }
 289
 290 static HRESULT WINAPI WebBrowser_Refresh(IWebBrowser2 *iface)
 291 {
 292     WebBrowser *This = impl_from_IWebBrowser2(iface);
 293     FIXME("(%p)\n", This);
 294     return E_NOTIMPL;
 295 }
 296
 297 static HRESULT WINAPI WebBrowser_Refresh2(IWebBrowser2 *iface, VARIANT *Level)
 298 {
 299     WebBrowser *This = impl_from_IWebBrowser2(iface);
 300     FIXME("(%p)->(%s)\n", This, debugstr_variant(Level));
 301     return E_NOTIMPL;
 302 }
 303
 304 static HRESULT WINAPI WebBrowser_Stop(IWebBrowser2 *iface)
 305 {
 306     WebBrowser *This = impl_from_IWebBrowser2(iface);
 307     FIXME("(%p)\n", This);
 308     return S_OK;
 309 }
 310
 311 static HRESULT WINAPI WebBrowser_get_Application(IWebBrowser2 *iface, IDispatch **ppDisp)
 312 {
 313     WebBrowser *This = impl_from_IWebBrowser2(iface);
 314
 315     TRACE("(%p)->(%p)\n", This, ppDisp);
 316
 317     if(!ppDisp)
 318         return E_POINTER;
 319
 320     *ppDisp = (IDispatch*)&This->IWebBrowser2_iface;
 321     IDispatch_AddRef(*ppDisp);
 322     return S_OK;
 323 }
 324
 325 static HRESULT WINAPI WebBrowser_get_Parent(IWebBrowser2 *iface, IDispatch **ppDisp)
 326 {
 327     WebBrowser *This = impl_from_IWebBrowser2(iface);
 328     FIXME("(%p)->(%p)\n", This, ppDisp);
 329     return E_NOTIMPL;
 330 }
 331
 332 static HRESULT WINAPI WebBrowser_get_Container(IWebBrowser2 *iface, IDispatch **ppDisp)
 333 {
 334     WebBrowser *This = impl_from_IWebBrowser2(iface);
 335     FIXME("(%p)->(%p)\n", This, ppDisp);
 336     return E_NOTIMPL;
 337 }
 338
 339 static HRESULT WINAPI WebBrowser_get_Document(IWebBrowser2 *iface, IDispatch **ppDisp)
 340 {
 341     WebBrowser *This = impl_from_IWebBrowser2(iface);
 342     IDispatch *disp = NULL;
 343
 344     TRACE("(%p)->(%p)\n", This, ppDisp);
 345
 346     if(This->doc_host.document) {
 347         HRESULT hres;
 348
 349         hres = IUnknown_QueryInterface(This->doc_host.document, &IID_IDispatch, (void**)&disp);
 350         if(SUCCEEDED(hres)) {
 351             IDispatch *html_doc;
 352
 353             /* Some broken apps cast returned IDispatch to IHTMLDocument2
 354              * without QueryInterface call */
 355             hres = IDispatch_QueryInterface(disp, &IID_IHTMLDocument2, (void**)&html_doc);
 356             if(SUCCEEDED(hres)) {
 357                 IDispatch_Release(disp);
 358                 disp = html_doc;
 359             }
 360         }
 361     }
 362
 363     *ppDisp = disp;
 364     return S_OK;
 365 }
 366
 367 static HRESULT WINAPI WebBrowser_get_TopLevelContainer(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
 368 {
 369     WebBrowser *This = impl_from_IWebBrowser2(iface);
 370     FIXME("(%p)->(%p)\n", This, pBool);
 371     return E_NOTIMPL;
 372 }
 373
 374 static HRESULT WINAPI WebBrowser_get_Type(IWebBrowser2 *iface, BSTR *Type)
 375 {
 376     WebBrowser *This = impl_from_IWebBrowser2(iface);
 377     FIXME("(%p)->(%p)\n", This, Type);
 378     return E_NOTIMPL;
 379 }
 380
 381 static HRESULT WINAPI WebBrowser_get_Left(IWebBrowser2 *iface, LONG *pl)
 382 {
 383     WebBrowser *This = impl_from_IWebBrowser2(iface);
 384
 385     TRACE("(%p)->(%p)\n", This, pl);
 386
 387     *pl = This->pos_rect.left;
 388     return S_OK;
 389 }
 390
 391 static HRESULT WINAPI WebBrowser_put_Left(IWebBrowser2 *iface, LONG Left)
 392 {
 393     WebBrowser *This = impl_from_IWebBrowser2(iface);
 394     RECT rect;
 395
 396     TRACE("(%p)->(%d)\n", This, Left);
 397
 398     if(!This->inplace)
 399         return E_UNEXPECTED;
 400
 401     rect = This->pos_rect;
 402     rect.left = Left;
 403
 404     /* We don't really change the window position here.
 405      * We just notify the embedder that he should do so. */
 406     return IOleInPlaceSite_OnPosRectChange(This->inplace, &rect);
 407 }
 408
 409 static HRESULT WINAPI WebBrowser_get_Top(IWebBrowser2 *iface, LONG *pl)
 410 {
 411     WebBrowser *This = impl_from_IWebBrowser2(iface);
 412
 413     TRACE("(%p)->(%p)\n", This, pl);
 414
 415     *pl = This->pos_rect.top;
 416     return S_OK;
 417 }
 418
 419 static HRESULT WINAPI WebBrowser_put_Top(IWebBrowser2 *iface, LONG Top)
 420 {
 421     WebBrowser *This = impl_from_IWebBrowser2(iface);
 422     RECT rect;
 423
 424     TRACE("(%p)->(%d)\n", This, Top);
 425
 426     if(!This->inplace)
 427         return E_UNEXPECTED;
 428
 429     rect = This->pos_rect;
 430     rect.top = Top;
 431
 432     /* We don't really change the window position here.
 433      * We just notify the embedder that he should do so. */
 434     return IOleInPlaceSite_OnPosRectChange(This->inplace, &rect);
 435 }
 436
 437 static HRESULT WINAPI WebBrowser_get_Width(IWebBrowser2 *iface, LONG *pl)
 438 {
 439     WebBrowser *This = impl_from_IWebBrowser2(iface);
 440
 441     TRACE("(%p)->(%p)\n", This, pl);
 442
 443     *pl = This->pos_rect.right - This->pos_rect.left;
 444     return S_OK;
 445 }
 446
 447 static HRESULT WINAPI WebBrowser_put_Width(IWebBrowser2 *iface, LONG Width)
 448 {
 449     WebBrowser *This = impl_from_IWebBrowser2(iface);
 450     RECT rect;
 451
 452     TRACE("(%p)->(%d)\n", This, Width);
 453
 454     if(!This->inplace)
 455         return E_UNEXPECTED;
 456
 457     rect = This->pos_rect;
 458     rect.right = rect.left+Width;
 459
 460     /* We don't really change the window size here.
 461      * We just notify the embedder that he should do so. */
 462    return IOleInPlaceSite_OnPosRectChange(This->inplace, &rect);
 463 }
 464
 465 static HRESULT WINAPI WebBrowser_get_Height(IWebBrowser2 *iface, LONG *pl)
 466 {
 467     WebBrowser *This = impl_from_IWebBrowser2(iface);
 468
 469     TRACE("(%p)->(%p)\n", This, pl);
 470
 471     *pl = This->pos_rect.bottom - This->pos_rect.top;
 472     return S_OK;
 473 }
 474
 475 static HRESULT WINAPI WebBrowser_put_Height(IWebBrowser2 *iface, LONG Height)
 476 {
 477     WebBrowser *This = impl_from_IWebBrowser2(iface);
 478     RECT rect;
 479
 480     TRACE("(%p)->(%d)\n", This, Height);
 481
 482     if(!This->inplace)
 483         return E_UNEXPECTED;
 484
 485     rect = This->pos_rect;
 486     rect.bottom = rect.top+Height;
 487
 488     /* We don't really change the window size here.
 489      * We just notify the embedder that he should do so. */
 490     return IOleInPlaceSite_OnPosRectChange(This->inplace, &rect);
 491 }
 492
 493 static HRESULT WINAPI WebBrowser_get_LocationName(IWebBrowser2 *iface, BSTR *LocationName)
 494 {
 495     WebBrowser *This = impl_from_IWebBrowser2(iface);
 496     FIXME("(%p)->(%p)\n", This, LocationName);
 497     return E_NOTIMPL;
 498 }
 499
 500 static HRESULT WINAPI WebBrowser_get_LocationURL(IWebBrowser2 *iface, BSTR *LocationURL)
 501 {
 502     WebBrowser *This = impl_from_IWebBrowser2(iface);
 503
 504     TRACE("(%p)->(%p)\n", This, LocationURL);
 505
 506     return get_location_url(&This->doc_host, LocationURL);
 507 }
 508
 509 static HRESULT WINAPI WebBrowser_get_Busy(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
 510 {
 511     WebBrowser *This = impl_from_IWebBrowser2(iface);
 512
 513     TRACE("(%p)->(%p)\n", This, pBool);
 514
 515     *pBool = This->doc_host.busy;
 516     return S_OK;
 517 }
 518
 519 static HRESULT WINAPI WebBrowser_Quit(IWebBrowser2 *iface)
 520 {
 521     WebBrowser *This = impl_from_IWebBrowser2(iface);
 522
 523     TRACE("(%p)\n", This);
 524
 525     /* It's a InternetExplorer specific method, we have nothing to do here. */
 526     return E_FAIL;
 527 }
 528
 529 static HRESULT WINAPI WebBrowser_ClientToWindow(IWebBrowser2 *iface, int *pcx, int *pcy)
 530 {
 531     WebBrowser *This = impl_from_IWebBrowser2(iface);
 532     FIXME("(%p)->(%p %p)\n", This, pcx, pcy);
 533     return E_NOTIMPL;
 534 }
 535
 536 static HRESULT WINAPI WebBrowser_PutProperty(IWebBrowser2 *iface, BSTR szProperty, VARIANT vtValue)
 537 {
 538     WebBrowser *This = impl_from_IWebBrowser2(iface);
 539     FIXME("(%p)->(%s %s)\n", This, debugstr_w(szProperty), debugstr_variant(&vtValue));
 540     return E_NOTIMPL;
 541 }
 542
 543 static HRESULT WINAPI WebBrowser_GetProperty(IWebBrowser2 *iface, BSTR szProperty, VARIANT *pvtValue)
 544 {
 545     WebBrowser *This = impl_from_IWebBrowser2(iface);
 546     FIXME("(%p)->(%s %s)\n", This, debugstr_w(szProperty), debugstr_variant(pvtValue));
 547     return E_NOTIMPL;
 548 }
 549
 550 static HRESULT WINAPI WebBrowser_get_Name(IWebBrowser2 *iface, BSTR *Name)
 551 {
 552     static const WCHAR sName[] = {'M','i','c','r','o','s','o','f','t',' ','W','e','b',
 553                                   ' ','B','r','o','w','s','e','r',' ','C','o','n','t','r','o','l',0};
 554     WebBrowser *This = impl_from_IWebBrowser2(iface);
 555
 556     TRACE("(%p)->(%p)\n", This, Name);
 557
 558     *Name = SysAllocString(sName);
 559
 560     return S_OK;
 561 }
 562
 563 static HRESULT WINAPI WebBrowser_get_HWND(IWebBrowser2 *iface, LONG *pHWND)
 564 {
 565     WebBrowser *This = impl_from_IWebBrowser2(iface);
 566
 567     TRACE("(%p)->(%p)\n", This, pHWND);
 568
 569     /* WebBrowser control never has a frame window (in opposition to InternetExplorer) */
 570     *pHWND = 0;
 571     return E_FAIL;
 572 }
 573
 574 static HRESULT WINAPI WebBrowser_get_FullName(IWebBrowser2 *iface, BSTR *FullName)
 575 {
 576     WebBrowser *This = impl_from_IWebBrowser2(iface);
 577     FIXME("(%p)->(%p)\n", This, FullName);
 578     return E_NOTIMPL;
 579 }
 580
 581 static HRESULT WINAPI WebBrowser_get_Path(IWebBrowser2 *iface, BSTR *Path)
 582 {
 583     WebBrowser *This = impl_from_IWebBrowser2(iface);
 584     FIXME("(%p)->(%p)\n", This, Path);
 585     return E_NOTIMPL;
 586 }
 587
 588 static HRESULT WINAPI WebBrowser_get_Visible(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
 589 {
 590     WebBrowser *This = impl_from_IWebBrowser2(iface);
 591
 592     TRACE("(%p)->(%p)\n", This, pBool);
 593
 594     *pBool = This->visible;
 595     return S_OK;
 596 }
 597
 598 static HRESULT WINAPI WebBrowser_put_Visible(IWebBrowser2 *iface, VARIANT_BOOL Value)
 599 {
 600     WebBrowser *This = impl_from_IWebBrowser2(iface);
 601     VARIANTARG arg;
 602     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 603
 604     TRACE("(%p)->(%x)\n", This, Value);
 605
 606     This->visible = Value;
 607
 608     V_VT(&arg) = VT_BOOL;
 609     V_BOOL(&arg) = Value;
 610     call_sink(This->doc_host.cps.wbe2, DISPID_ONVISIBLE, &dispparams);
 611
 612     return S_OK;
 613 }
 614
 615 static HRESULT WINAPI WebBrowser_get_StatusBar(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
 616 {
 617     WebBrowser *This = impl_from_IWebBrowser2(iface);
 618
 619     TRACE("(%p)->(%p)\n", This, pBool);
 620
 621     *pBool = This->status_bar;
 622     return S_OK;
 623 }
 624
 625 static HRESULT WINAPI WebBrowser_put_StatusBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
 626 {
 627     WebBrowser *This = impl_from_IWebBrowser2(iface);
 628     VARIANTARG arg;
 629     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 630
 631     TRACE("(%p)->(%x)\n", This, Value);
 632
 633     This->status_bar = Value ? VARIANT_TRUE : VARIANT_FALSE;
 634
 635     /* In opposition to InternetExplorer, all we should do here is
 636      * inform the embedder about the status bar change. */
 637
 638     V_VT(&arg) = VT_BOOL;
 639     V_BOOL(&arg) = Value;
 640     call_sink(This->doc_host.cps.wbe2, DISPID_ONSTATUSBAR, &dispparams);
 641
 642     return S_OK;
 643 }
 644
 645 static HRESULT WINAPI WebBrowser_get_StatusText(IWebBrowser2 *iface, BSTR *StatusText)
 646 {
 647     WebBrowser *This = impl_from_IWebBrowser2(iface);
 648     FIXME("(%p)->(%p)\n", This, StatusText);
 649     return E_NOTIMPL;
 650 }
 651
 652 static HRESULT WINAPI WebBrowser_put_StatusText(IWebBrowser2 *iface, BSTR StatusText)
 653 {
 654     WebBrowser *This = impl_from_IWebBrowser2(iface);
 655     FIXME("(%p)->(%s)\n", This, debugstr_w(StatusText));
 656     return E_NOTIMPL;
 657 }
 658
 659 static HRESULT WINAPI WebBrowser_get_ToolBar(IWebBrowser2 *iface, int *Value)
 660 {
 661     WebBrowser *This = impl_from_IWebBrowser2(iface);
 662
 663     TRACE("(%p)->(%p)\n", This, Value);
 664
 665     *Value = This->tool_bar;
 666     return S_OK;
 667 }
 668
 669 static HRESULT WINAPI WebBrowser_put_ToolBar(IWebBrowser2 *iface, int Value)
 670 {
 671     WebBrowser *This = impl_from_IWebBrowser2(iface);
 672     VARIANTARG arg;
 673     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 674
 675     TRACE("(%p)->(%x)\n", This, Value);
 676
 677     This->tool_bar = Value ? VARIANT_TRUE : VARIANT_FALSE;
 678
 679     /* In opposition to InternetExplorer, all we should do here is
 680      * inform the embedder about the tool bar change. */
 681
 682     V_VT(&arg) = VT_BOOL;
 683     V_BOOL(&arg) = This->tool_bar;
 684     call_sink(This->doc_host.cps.wbe2, DISPID_ONTOOLBAR, &dispparams);
 685
 686     return S_OK;
 687 }
 688
 689 static HRESULT WINAPI WebBrowser_get_MenuBar(IWebBrowser2 *iface, VARIANT_BOOL *Value)
 690 {
 691     WebBrowser *This = impl_from_IWebBrowser2(iface);
 692
 693     TRACE("(%p)->(%p)\n", This, Value);
 694
 695     *Value = This->menu_bar;
 696     return S_OK;
 697 }
 698
 699 static HRESULT WINAPI WebBrowser_put_MenuBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
 700 {
 701     WebBrowser *This = impl_from_IWebBrowser2(iface);
 702     VARIANTARG arg;
 703     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 704
 705     TRACE("(%p)->(%x)\n", This, Value);
 706
 707     This->menu_bar = Value ? VARIANT_TRUE : VARIANT_FALSE;
 708
 709     /* In opposition to InternetExplorer, all we should do here is
 710      * inform the embedder about the menu bar change. */
 711
 712     V_VT(&arg) = VT_BOOL;
 713     V_BOOL(&arg) = Value;
 714     call_sink(This->doc_host.cps.wbe2, DISPID_ONMENUBAR, &dispparams);
 715
 716     return S_OK;
 717 }
 718
 719 static HRESULT WINAPI WebBrowser_get_FullScreen(IWebBrowser2 *iface, VARIANT_BOOL *pbFullScreen)
 720 {
 721     WebBrowser *This = impl_from_IWebBrowser2(iface);
 722
 723     TRACE("(%p)->(%p)\n", This, pbFullScreen);
 724
 725     *pbFullScreen = This->full_screen;
 726     return S_OK;
 727 }
 728
 729 static HRESULT WINAPI WebBrowser_put_FullScreen(IWebBrowser2 *iface, VARIANT_BOOL bFullScreen)
 730 {
 731     WebBrowser *This = impl_from_IWebBrowser2(iface);
 732     VARIANTARG arg;
 733     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 734
 735     /* In opposition to InternetExplorer, all we should do here is
 736      * inform the embedder about the fullscreen change. */
 737
 738     TRACE("(%p)->(%x)\n", This, bFullScreen);
 739
 740     This->full_screen = bFullScreen ? VARIANT_TRUE : VARIANT_FALSE;
 741
 742     V_VT(&arg) = VT_BOOL;
 743     V_BOOL(&arg) = bFullScreen;
 744     call_sink(This->doc_host.cps.wbe2, DISPID_ONFULLSCREEN, &dispparams);
 745
 746     return S_OK;
 747 }
 748
 749 static HRESULT WINAPI WebBrowser_Navigate2(IWebBrowser2 *iface, VARIANT *URL, VARIANT *Flags,
 750         VARIANT *TargetFrameName, VARIANT *PostData, VARIANT *Headers)
 751 {
 752     WebBrowser *This = impl_from_IWebBrowser2(iface);
 753     LPCWSTR url;
 754
 755     TRACE("(%p)->(%s %s %s %s %s)\n", This, debugstr_variant(URL), debugstr_variant(Flags),
 756           debugstr_variant(TargetFrameName), debugstr_variant(PostData), debugstr_variant(Headers));
 757
 758     if(!This->client)
 759         return E_FAIL;
 760
 761     if(!URL)
 762         return S_OK;
 763
 764     switch (V_VT(URL))
 765     {
 766     case VT_BSTR:
 767         url = V_BSTR(URL);
 768         break;
 769     case VT_BSTR|VT_BYREF:
 770         url = *V_BSTRREF(URL);
 771         break;
 772     default:
 773         FIXME("Unsupported V_VT(URL) %d\n", V_VT(URL));
 774         return E_INVALIDARG;
 775     }
 776
 777     return navigate_url(&This->doc_host, url, Flags, TargetFrameName, PostData, Headers);
 778 }
 779
 780 static HRESULT WINAPI WebBrowser_QueryStatusWB(IWebBrowser2 *iface, OLECMDID cmdID, OLECMDF *pcmdf)
 781 {
 782     WebBrowser *This = impl_from_IWebBrowser2(iface);
 783     IOleCommandTarget *target = NULL;
 784     OLECMD ole_command[1];
 785     HRESULT hres;
 786
 787     TRACE("(%p)->(%d %p)\n", This, cmdID, pcmdf);
 788
 789     if (!pcmdf)
 790         return E_POINTER;
 791     ole_command[0].cmdID = cmdID;
 792     ole_command[0].cmdf = *pcmdf;
 793
 794     if (This->container)
 795     {
 796         hres = IOleContainer_QueryInterface(This->container, &IID_IOleCommandTarget, (LPVOID*)&target);
 797         if(FAILED(hres))
 798             target = NULL;
 799     }
 800     if (!target && This->doc_host.document)
 801     {
 802         hres = IOleContainer_QueryInterface(This->doc_host.document, &IID_IOleCommandTarget, (LPVOID*)&target);
 803         if(FAILED(hres))
 804             target = NULL;
 805     }
 806
 807     if (!target)
 808         return E_UNEXPECTED;
 809
 810     hres = IOleCommandTarget_QueryStatus(target, NULL, 1, ole_command, NULL);
 811     if (SUCCEEDED(hres))
 812         *pcmdf = ole_command[0].cmdf;
 813     if (hres == OLECMDERR_E_NOTSUPPORTED)
 814     {
 815         *pcmdf = 0;
 816         hres = S_OK;
 817     }
 818     IOleCommandTarget_Release(target);
 819
 820     return hres;
 821 }
 822
 823 static HRESULT WINAPI WebBrowser_ExecWB(IWebBrowser2 *iface, OLECMDID cmdID,
 824         OLECMDEXECOPT cmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
 825 {
 826     WebBrowser *This = impl_from_IWebBrowser2(iface);
 827     IOleCommandTarget *target = NULL;
 828     HRESULT hres;
 829
 830     TRACE("(%p)->(%d %d %s %p)\n", This, cmdID, cmdexecopt, debugstr_variant(pvaIn), pvaOut);
 831
 832     if(This->container)
 833     {
 834         hres = IOleContainer_QueryInterface(This->container, &IID_IOleCommandTarget, (LPVOID*)&target);
 835         if(FAILED(hres))
 836             target = NULL;
 837     }
 838     if(!target && This->doc_host.document)
 839     {
 840         hres = IOleContainer_QueryInterface(This->doc_host.document, &IID_IOleCommandTarget, (LPVOID*)&target);
 841         if(FAILED(hres))
 842             target = NULL;
 843     }
 844
 845     if(!target)
 846         return E_UNEXPECTED;
 847
 848     hres = IOleCommandTarget_Exec(target, NULL, cmdID, cmdexecopt, pvaIn, pvaOut);
 849     IOleCommandTarget_Release(target);
 850
 851     return hres;
 852 }
 853
 854 static HRESULT WINAPI WebBrowser_ShowBrowserBar(IWebBrowser2 *iface, VARIANT *pvaClsid,
 855         VARIANT *pvarShow, VARIANT *pvarSize)
 856 {
 857     WebBrowser *This = impl_from_IWebBrowser2(iface);
 858     FIXME("(%p)->(%s %s %s)\n", This, debugstr_variant(pvaClsid), debugstr_variant(pvarShow),
 859           debugstr_variant(pvarSize));
 860     return E_NOTIMPL;
 861 }
 862
 863 static HRESULT WINAPI WebBrowser_get_ReadyState(IWebBrowser2 *iface, READYSTATE *lpReadyState)
 864 {
 865     WebBrowser *This = impl_from_IWebBrowser2(iface);
 866
 867     TRACE("(%p)->(%p)\n", This, lpReadyState);
 868
 869     *lpReadyState = This->doc_host.ready_state;
 870     return S_OK;
 871 }
 872
 873 static HRESULT WINAPI WebBrowser_get_Offline(IWebBrowser2 *iface, VARIANT_BOOL *pbOffline)
 874 {
 875     WebBrowser *This = impl_from_IWebBrowser2(iface);
 876
 877     TRACE("(%p)->(%p)\n", This, pbOffline);
 878
 879     *pbOffline = This->doc_host.offline;
 880     return S_OK;
 881 }
 882
 883 static HRESULT WINAPI WebBrowser_put_Offline(IWebBrowser2 *iface, VARIANT_BOOL bOffline)
 884 {
 885     WebBrowser *This = impl_from_IWebBrowser2(iface);
 886
 887     TRACE("(%p)->(%x)\n", This, bOffline);
 888
 889     This->doc_host.offline = bOffline ? VARIANT_TRUE : VARIANT_FALSE;
 890     return S_OK;
 891 }
 892
 893 static HRESULT WINAPI WebBrowser_get_Silent(IWebBrowser2 *iface, VARIANT_BOOL *pbSilent)
 894 {
 895     WebBrowser *This = impl_from_IWebBrowser2(iface);
 896
 897     TRACE("(%p)->(%p)\n", This, pbSilent);
 898
 899     *pbSilent = This->doc_host.silent;
 900     return S_OK;
 901 }
 902
 903 static HRESULT WINAPI WebBrowser_put_Silent(IWebBrowser2 *iface, VARIANT_BOOL bSilent)
 904 {
 905     WebBrowser *This = impl_from_IWebBrowser2(iface);
 906
 907     TRACE("(%p)->(%x)\n", This, bSilent);
 908
 909     This->doc_host.silent = bSilent ? VARIANT_TRUE : VARIANT_FALSE;
 910     return S_OK;
 911 }
 912
 913 static HRESULT WINAPI WebBrowser_get_RegisterAsBrowser(IWebBrowser2 *iface,
 914         VARIANT_BOOL *pbRegister)
 915 {
 916     WebBrowser *This = impl_from_IWebBrowser2(iface);
 917
 918     FIXME("(%p)->(%p)\n", This, pbRegister);
 919
 920     *pbRegister = This->register_browser;
 921     return S_OK;
 922 }
 923
 924 static HRESULT WINAPI WebBrowser_put_RegisterAsBrowser(IWebBrowser2 *iface,
 925         VARIANT_BOOL bRegister)
 926 {
 927     WebBrowser *This = impl_from_IWebBrowser2(iface);
 928
 929     FIXME("(%p)->(%x)\n", This, bRegister);
 930
 931     This->register_browser = bRegister ? VARIANT_TRUE : VARIANT_FALSE;
 932     return S_OK;
 933 }
 934
 935 static HRESULT WINAPI WebBrowser_get_RegisterAsDropTarget(IWebBrowser2 *iface,
 936         VARIANT_BOOL *pbRegister)
 937 {
 938     WebBrowser *This = impl_from_IWebBrowser2(iface);
 939     FIXME("(%p)->(%p)\n", This, pbRegister);
 940     *pbRegister=0;
 941     return S_OK;
 942 }
 943
 944 static HRESULT WINAPI WebBrowser_put_RegisterAsDropTarget(IWebBrowser2 *iface,
 945         VARIANT_BOOL bRegister)
 946 {
 947     WebBrowser *This = impl_from_IWebBrowser2(iface);
 948     FIXME("(%p)->(%x)\n", This, bRegister);
 949     return S_OK;
 950 }
 951
 952 static HRESULT WINAPI WebBrowser_get_TheaterMode(IWebBrowser2 *iface, VARIANT_BOOL *pbRegister)
 953 {
 954     WebBrowser *This = impl_from_IWebBrowser2(iface);
 955
 956     TRACE("(%p)->(%p)\n", This, pbRegister);
 957
 958     *pbRegister = This->theater_mode;
 959     return S_OK;
 960 }
 961
 962 static HRESULT WINAPI WebBrowser_put_TheaterMode(IWebBrowser2 *iface, VARIANT_BOOL bRegister)
 963 {
 964     WebBrowser *This = impl_from_IWebBrowser2(iface);
 965     VARIANTARG arg;
 966     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 967
 968     TRACE("(%p)->(%x)\n", This, bRegister);
 969
 970     This->theater_mode = bRegister ? VARIANT_TRUE : VARIANT_FALSE;
 971
 972     /* In opposition to InternetExplorer, all we should do here is
 973      * inform the embedder about the theater mode change. */
 974
 975     V_VT(&arg) = VT_BOOL;
 976     V_BOOL(&arg) = bRegister;
 977     call_sink(This->doc_host.cps.wbe2, DISPID_ONTHEATERMODE, &dispparams);
 978
 979     return S_OK;
 980 }
 981
 982 static HRESULT WINAPI WebBrowser_get_AddressBar(IWebBrowser2 *iface, VARIANT_BOOL *Value)
 983 {
 984     WebBrowser *This = impl_from_IWebBrowser2(iface);
 985
 986     TRACE("(%p)->(%p)\n", This, Value);
 987
 988     *Value = This->address_bar;
 989     return S_OK;
 990 }
 991
 992 static HRESULT WINAPI WebBrowser_put_AddressBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
 993 {
 994     WebBrowser *This = impl_from_IWebBrowser2(iface);
 995     VARIANTARG arg;
 996     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 997
 998     TRACE("(%p)->(%x)\n", This, Value);
 999
1000     This->address_bar = Value ? VARIANT_TRUE : VARIANT_FALSE;
1001
1002     /* In opposition to InternetExplorer, all we should do here is
1003      * inform the embedder about the address bar change. */
1004
1005     V_VT(&arg) = VT_BOOL;
1006     V_BOOL(&arg) = Value;
1007     call_sink(This->doc_host.cps.wbe2, DISPID_ONADDRESSBAR, &dispparams);
1008
1009     return S_OK;
1010 }
1011
1012 static HRESULT WINAPI WebBrowser_get_Resizable(IWebBrowser2 *iface, VARIANT_BOOL *Value)
1013 {
1014     WebBrowser *This = impl_from_IWebBrowser2(iface);
1015
1016     TRACE("(%p)->(%p)\n", This, Value);
1017
1018     /* It's InternetExplorer object's method. We have nothing to do here. */
1019     return E_NOTIMPL;
1020 }
1021
1022 static HRESULT WINAPI WebBrowser_put_Resizable(IWebBrowser2 *iface, VARIANT_BOOL Value)
1023 {
1024     WebBrowser *This = impl_from_IWebBrowser2(iface);
1025     VARIANTARG arg;
1026     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
1027
1028     TRACE("(%p)->(%x)\n", This, Value);
1029
1030     /* In opposition to InternetExplorer, all we should do here is
1031      * inform the embedder about the resizable change. */
1032
1033     V_VT(&arg) = VT_BOOL;
1034     V_BOOL(&arg) = Value;
1035     call_sink(This->doc_host.cps.wbe2, DISPID_WINDOWSETRESIZABLE, &dispparams);
1036
1037     return S_OK;
1038 }
1039
1040 static const IWebBrowser2Vtbl WebBrowser2Vtbl =
1041 {
1042     WebBrowser_QueryInterface,
1043     WebBrowser_AddRef,
1044     WebBrowser_Release,
1045     WebBrowser_GetTypeInfoCount,
1046     WebBrowser_GetTypeInfo,
1047     WebBrowser_GetIDsOfNames,
1048     WebBrowser_Invoke,
1049     WebBrowser_GoBack,
1050     WebBrowser_GoForward,
1051     WebBrowser_GoHome,
1052     WebBrowser_GoSearch,
1053     WebBrowser_Navigate,
1054     WebBrowser_Refresh,
1055     WebBrowser_Refresh2,
1056     WebBrowser_Stop,
1057     WebBrowser_get_Application,
1058     WebBrowser_get_Parent,
1059     WebBrowser_get_Container,
1060     WebBrowser_get_Document,
1061     WebBrowser_get_TopLevelContainer,
1062     WebBrowser_get_Type,
1063     WebBrowser_get_Left,
1064     WebBrowser_put_Left,
1065     WebBrowser_get_Top,
1066     WebBrowser_put_Top,
1067     WebBrowser_get_Width,
1068     WebBrowser_put_Width,
1069     WebBrowser_get_Height,
1070     WebBrowser_put_Height,
1071     WebBrowser_get_LocationName,
1072     WebBrowser_get_LocationURL,
1073     WebBrowser_get_Busy,
1074     WebBrowser_Quit,
1075     WebBrowser_ClientToWindow,
1076     WebBrowser_PutProperty,
1077     WebBrowser_GetProperty,
1078     WebBrowser_get_Name,
1079     WebBrowser_get_HWND,
1080     WebBrowser_get_FullName,
1081     WebBrowser_get_Path,
1082     WebBrowser_get_Visible,
1083     WebBrowser_put_Visible,
1084     WebBrowser_get_StatusBar,
1085     WebBrowser_put_StatusBar,
1086     WebBrowser_get_StatusText,
1087     WebBrowser_put_StatusText,
1088     WebBrowser_get_ToolBar,
1089     WebBrowser_put_ToolBar,
1090     WebBrowser_get_MenuBar,
1091     WebBrowser_put_MenuBar,
1092     WebBrowser_get_FullScreen,
1093     WebBrowser_put_FullScreen,
1094     WebBrowser_Navigate2,
1095     WebBrowser_QueryStatusWB,
1096     WebBrowser_ExecWB,
1097     WebBrowser_ShowBrowserBar,
1098     WebBrowser_get_ReadyState,
1099     WebBrowser_get_Offline,
1100     WebBrowser_put_Offline,
1101     WebBrowser_get_Silent,
1102     WebBrowser_put_Silent,
1103     WebBrowser_get_RegisterAsBrowser,
1104     WebBrowser_put_RegisterAsBrowser,
1105     WebBrowser_get_RegisterAsDropTarget,
1106     WebBrowser_put_RegisterAsDropTarget,
1107     WebBrowser_get_TheaterMode,
1108     WebBrowser_put_TheaterMode,
1109     WebBrowser_get_AddressBar,
1110     WebBrowser_put_AddressBar,
1111     WebBrowser_get_Resizable,
1112     WebBrowser_put_Resizable
1113 };
1114
1115 static inline WebBrowser *impl_from_IServiceProvider(IServiceProvider *iface)
1116 {
1117     return CONTAINING_RECORD(iface, WebBrowser, IServiceProvider_iface);
1118 }
1119
1120 static HRESULT WINAPI WBServiceProvider_QueryInterface(IServiceProvider *iface,
1121             REFIID riid, LPVOID *ppv)
1122 {
1123     WebBrowser *This = impl_from_IServiceProvider(iface);
1124     return IWebBrowser_QueryInterface(&This->IWebBrowser2_iface, riid, ppv);
1125 }
1126
1127 static ULONG WINAPI WBServiceProvider_AddRef(IServiceProvider *iface)
1128 {
1129     WebBrowser *This = impl_from_IServiceProvider(iface);
1130     return IWebBrowser_AddRef(&This->IWebBrowser2_iface);
1131 }
1132
1133 static ULONG WINAPI WBServiceProvider_Release(IServiceProvider *iface)
1134 {
1135     WebBrowser *This = impl_from_IServiceProvider(iface);
1136     return IWebBrowser_Release(&This->IWebBrowser2_iface);
1137 }
1138
1139 static HRESULT STDMETHODCALLTYPE WBServiceProvider_QueryService(IServiceProvider *iface,
1140             REFGUID guidService, REFIID riid, void **ppv)
1141 {
1142     WebBrowser *This = impl_from_IServiceProvider(iface);
1143     static const IID IID_IBrowserService2 =
1144         {0x68BD21CC,0x438B,0x11d2,{0xA5,0x60,0x00,0xA0,0xC,0x2D,0xBF,0xE8}};
1145
1146     if(*ppv)
1147         ppv = NULL;
1148
1149     if(IsEqualGUID(&IID_IBrowserService2, riid)) {
1150         TRACE("(%p)->(IID_IBrowserService2 return E_FAIL)\n", This);
1151         return E_FAIL;
1152     }
1153
1154     FIXME("(%p)->(%s, %s %p)\n", This, debugstr_guid(guidService), debugstr_guid(riid), ppv);
1155
1156     return E_NOINTERFACE;
1157 }
1158
1159 static const IServiceProviderVtbl ServiceProviderVtbl =
1160 {
1161     WBServiceProvider_QueryInterface,
1162     WBServiceProvider_AddRef,
1163     WBServiceProvider_Release,
1164     WBServiceProvider_QueryService
1165 };
1166
1167 static inline WebBrowser *impl_from_DocHost(DocHost *iface)
1168 {
1169     return CONTAINING_RECORD(iface, WebBrowser, doc_host);
1170 }
1171
1172 static ULONG WebBrowser_addref(DocHost *iface)
1173 {
1174     WebBrowser *This = impl_from_DocHost(iface);
1175     return IWebBrowser2_AddRef(&This->IWebBrowser2_iface);
1176 }
1177
1178 static ULONG WebBrowser_release(DocHost *iface)
1179 {
1180     WebBrowser *This = impl_from_DocHost(iface);
1181     return IWebBrowser2_Release(&This->IWebBrowser2_iface);
1182 }
1183
1184 static void WINAPI DocHostContainer_GetDocObjRect(DocHost* This, RECT* rc)
1185 {
1186     GetClientRect(This->frame_hwnd, rc);
1187 }
1188
1189 static HRESULT WINAPI DocHostContainer_SetStatusText(DocHost* This, LPCWSTR text)
1190 {
1191     return E_NOTIMPL;
1192 }
1193
1194 static void WINAPI DocHostContainer_SetURL(DocHost* This, LPCWSTR url)
1195 {
1196
1197 }
1198
1199 static HRESULT DocHostContainer_exec(DocHost *doc_host, const GUID *cmd_group, DWORD cmdid, DWORD execopt, VARIANT *in,
1200         VARIANT *out)
1201 {
1202     WebBrowser *This = impl_from_DocHost(doc_host);
1203     IOleCommandTarget *cmdtrg = NULL;
1204     HRESULT hres;
1205
1206     if(This->client) {
1207         hres = IOleClientSite_QueryInterface(This->client, &IID_IOleCommandTarget, (void**)&cmdtrg);
1208         if(FAILED(hres))
1209             cmdtrg = NULL;
1210     }
1211
1212     if(!cmdtrg && This->container) {
1213         hres = IOleContainer_QueryInterface(This->container, &IID_IOleCommandTarget, (void**)&cmdtrg);
1214         if(FAILED(hres))
1215             cmdtrg = NULL;
1216     }
1217
1218     if(!cmdtrg)
1219         return S_OK;
1220
1221     hres = IOleCommandTarget_Exec(cmdtrg, cmd_group, cmdid, execopt, in, out);
1222     IOleCommandTarget_Release(cmdtrg);
1223     if(FAILED(hres))
1224         FIXME("Exec failed\n");
1225
1226     return hres;
1227 }
1228
1229 static const IDocHostContainerVtbl DocHostContainerVtbl = {
1230     WebBrowser_addref,
1231     WebBrowser_release,
1232     DocHostContainer_GetDocObjRect,
1233     DocHostContainer_SetStatusText,
1234     DocHostContainer_SetURL,
1235     DocHostContainer_exec
1236 };
1237
1238 static HRESULT WebBrowser_Create(INT version, IUnknown *pOuter, REFIID riid, void **ppv)
1239 {
1240     WebBrowser *ret;
1241     HRESULT hres;
1242
1243     TRACE("(%p %s %p) version=%d\n", pOuter, debugstr_guid(riid), ppv, version);
1244
1245     ret = heap_alloc_zero(sizeof(WebBrowser));
1246
1247     ret->IWebBrowser2_iface.lpVtbl = &WebBrowser2Vtbl;
1248     ret->IServiceProvider_iface.lpVtbl = &ServiceProviderVtbl;
1249     ret->ref = 1;
1250     ret->version = version;
1251
1252     DocHost_Init(&ret->doc_host, (IDispatch*)&ret->IWebBrowser2_iface, &DocHostContainerVtbl);
1253
1254     ret->visible = VARIANT_TRUE;
1255     ret->menu_bar = VARIANT_TRUE;
1256     ret->address_bar = VARIANT_TRUE;
1257     ret->status_bar = VARIANT_TRUE;
1258     ret->tool_bar = VARIANT_TRUE;
1259
1260     WebBrowser_OleObject_Init(ret);
1261     WebBrowser_ViewObject_Init(ret);
1262     WebBrowser_Persist_Init(ret);
1263     WebBrowser_ClassInfo_Init(ret);
1264
1265     HlinkFrame_Init(&ret->hlink_frame, (IUnknown*)&ret->IWebBrowser2_iface, &ret->doc_host);
1266
1267     SHDOCVW_LockModule();
1268
1269     hres = IWebBrowser_QueryInterface(&ret->IWebBrowser2_iface, riid, ppv);
1270
1271     IWebBrowser2_Release(&ret->IWebBrowser2_iface);
1272     return hres;
1273 }
1274
1275 HRESULT WebBrowserV1_Create(IUnknown *pOuter, REFIID riid, void **ppv)
1276 {
1277     return WebBrowser_Create(1, pOuter, riid, ppv);
1278 }
1279
1280 HRESULT WebBrowserV2_Create(IUnknown *pOuter, REFIID riid, void **ppv)
1281 {
1282     return WebBrowser_Create(2, pOuter, riid, ppv);
1283 }