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