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