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
  26 WINE_DEFAULT_DEBUG_CHANNEL(shdocvw);
  27
  28 /**********************************************************************
  29  * Implement the IWebBrowser interface
  30  */
  31
  32 #define WEBBROWSER_THIS(iface) DEFINE_THIS(WebBrowser, WebBrowser2, iface)
  33
  34 static HRESULT WINAPI WebBrowser_QueryInterface(IWebBrowser2 *iface, REFIID riid, LPVOID *ppv)
  35 {
  36     WebBrowser *This = WEBBROWSER_THIS(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 = WEBBROWSER(This);
  45     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
  46         TRACE("(%p)->(IID_IDispatch %p)\n", This, ppv);
  47         *ppv = WEBBROWSER(This);
  48     }else if(IsEqualGUID(&IID_IWebBrowser, riid)) {
  49         TRACE("(%p)->(IID_IWebBrowser %p)\n", This, ppv);
  50         *ppv = WEBBROWSER(This);
  51     }else if(IsEqualGUID(&IID_IWebBrowserApp, riid)) {
  52         TRACE("(%p)->(IID_IWebBrowserApp %p)\n", This, ppv);
  53         *ppv = WEBBROWSER(This);
  54     }else if(IsEqualGUID(&IID_IWebBrowser2, riid)) {
  55         TRACE("(%p)->(IID_IWebBrowser2 %p)\n", This, ppv);
  56         *ppv = WEBBROWSER(This);
  57     }else if(IsEqualGUID(&IID_IOleObject, riid)) {
  58         TRACE("(%p)->(IID_IOleObject %p)\n", This, ppv);
  59         *ppv = OLEOBJ(This);
  60     }else if(IsEqualGUID(&IID_IOleWindow, riid)) {
  61         TRACE("(%p)->(IID_IOleWindow %p)\n", This, ppv);
  62         *ppv = INPLACEOBJ(This);
  63     }else if(IsEqualGUID (&IID_IOleInPlaceObject, riid)) {
  64         TRACE("(%p)->(IID_IOleInPlaceObject %p)\n", This, ppv);
  65         *ppv = INPLACEOBJ(This);
  66     }else if(IsEqualGUID(&IID_IOleControl, riid)) {
  67         TRACE("(%p)->(IID_IOleControl %p)\n", This, ppv);
  68         *ppv = CONTROL(This);
  69     }else if(IsEqualGUID(&IID_IPersist, riid)) {
  70         TRACE("(%p)->(IID_IPersist %p)\n", This, ppv);
  71         *ppv = PERSTORAGE(This);
  72     }else if(IsEqualGUID(&IID_IPersistStorage, riid)) {
  73         TRACE("(%p)->(IID_IPersistStorage %p)\n", This, ppv);
  74         *ppv = PERSTORAGE(This);
  75     }else if(IsEqualGUID(&IID_IPersistMemory, riid)) {
  76         TRACE("(%p)->(IID_IPersistStorage %p)\n", This, ppv);
  77         *ppv = PERMEMORY(This);
  78     }else if(IsEqualGUID (&IID_IPersistStreamInit, riid)) {
  79         TRACE("(%p)->(IID_IPersistStreamInit %p)\n", This, ppv);
  80         *ppv = PERSTRINIT(This);
  81     }else if(IsEqualGUID(&IID_IProvideClassInfo, riid)) {
  82         TRACE("(%p)->(IID_IProvideClassInfo %p)\n", This, ppv);
  83         *ppv = CLASSINFO(This);
  84     }else if(IsEqualGUID(&IID_IProvideClassInfo2, riid)) {
  85         TRACE("(%p)->(IID_IProvideClassInfo2 %p)\n", This, ppv);
  86         *ppv = CLASSINFO(This);
  87     }else if(IsEqualGUID(&IID_IConnectionPointContainer, riid)) {
  88         TRACE("(%p)->(IID_IConnectionPointContainer %p)\n", This, ppv);
  89         *ppv = CONPTCONT(&This->doc_host.cps);
  90     }else if(IsEqualGUID(&IID_IViewObject, riid)) {
  91         TRACE("(%p)->(IID_IViewObject %p)\n", This, ppv);
  92         *ppv = VIEWOBJ(This);
  93     }else if(IsEqualGUID(&IID_IViewObject2, riid)) {
  94         TRACE("(%p)->(IID_IViewObject2 %p)\n", This, ppv);
  95         *ppv = VIEWOBJ2(This);
  96     }else if(IsEqualGUID(&IID_IOleInPlaceActiveObject, riid)) {
  97         TRACE("(%p)->(IID_IOleInPlaceActiveObject %p)\n", This, ppv);
  98         *ppv = ACTIVEOBJ(This);
  99     }else if(IsEqualGUID(&IID_IOleCommandTarget, riid)) {
 100         TRACE("(%p)->(IID_IOleCommandTarget %p)\n", This, ppv);
 101         *ppv = OLECMD(This);
 102     }else if(IsEqualGUID(&IID_IHlinkFrame, riid)) {
 103         TRACE("(%p)->(IID_IHlinkFrame %p)\n", This, ppv);
 104         *ppv = HLINKFRAME(This);
 105     }else if(IsEqualGUID(&IID_IQuickActivate, riid)) {
 106         TRACE("(%p)->(IID_IQuickActivate %p) returning NULL\n", This, ppv);
 107         return E_NOINTERFACE;
 108     }else if(IsEqualGUID(&IID_IRunnableObject, riid)) {
 109         TRACE("(%p)->(IID_IRunnableObject %p) returning NULL\n", This, ppv);
 110         return E_NOINTERFACE;
 111     }
 112
 113     if(*ppv) {
 114         IUnknown_AddRef((IUnknown*)*ppv);
 115         return S_OK;
 116     }
 117
 118     FIXME("(%p)->(%s %p) interface not supported\n", This, debugstr_guid(riid), ppv);
 119     return E_NOINTERFACE;
 120 }
 121
 122 static ULONG WINAPI WebBrowser_AddRef(IWebBrowser2 *iface)
 123 {
 124     WebBrowser *This = WEBBROWSER_THIS(iface);
 125     LONG ref = InterlockedIncrement(&This->ref);
 126     TRACE("(%p) ref=%d\n", This, ref);
 127     return ref;
 128 }
 129
 130 static ULONG WINAPI WebBrowser_Release(IWebBrowser2 *iface)
 131 {
 132     WebBrowser *This = WEBBROWSER_THIS(iface);
 133     LONG ref = InterlockedDecrement(&This->ref);
 134
 135     TRACE("(%p) ref=%d\n", This, ref);
 136
 137     if(!ref) {
 138         if(This->doc_host.document)
 139             IUnknown_Release(This->doc_host.document);
 140
 141         DocHost_Release(&This->doc_host);
 142
 143         WebBrowser_OleObject_Destroy(This);
 144
 145         shdocvw_free(This);
 146         SHDOCVW_UnlockModule();
 147     }
 148
 149     return ref;
 150 }
 151
 152 /* IDispatch methods */
 153 static HRESULT WINAPI WebBrowser_GetTypeInfoCount(IWebBrowser2 *iface, UINT *pctinfo)
 154 {
 155     WebBrowser *This = WEBBROWSER_THIS(iface);
 156     FIXME("(%p)->(%p)\n", This, pctinfo);
 157     return E_NOTIMPL;
 158 }
 159
 160 static HRESULT WINAPI WebBrowser_GetTypeInfo(IWebBrowser2 *iface, UINT iTInfo, LCID lcid,
 161                                      LPTYPEINFO *ppTInfo)
 162 {
 163     WebBrowser *This = WEBBROWSER_THIS(iface);
 164     FIXME("(%p)->(%d %d %p)\n", This, iTInfo, lcid, ppTInfo);
 165     return E_NOTIMPL;
 166 }
 167
 168 static HRESULT WINAPI WebBrowser_GetIDsOfNames(IWebBrowser2 *iface, REFIID riid,
 169                                        LPOLESTR *rgszNames, UINT cNames,
 170                                        LCID lcid, DISPID *rgDispId)
 171 {
 172     WebBrowser *This = WEBBROWSER_THIS(iface);
 173     FIXME("(%p)->(%s %p %d %d %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
 174             lcid, rgDispId);
 175     return E_NOTIMPL;
 176 }
 177
 178 static HRESULT WINAPI WebBrowser_Invoke(IWebBrowser2 *iface, DISPID dispIdMember,
 179                                 REFIID riid, LCID lcid, WORD wFlags,
 180                                 DISPPARAMS *pDispParams, VARIANT *pVarResult,
 181                                 EXCEPINFO *pExepInfo, UINT *puArgErr)
 182 {
 183     WebBrowser *This = WEBBROWSER_THIS(iface);
 184     ITypeInfo *typeinfo;
 185     HRESULT hres;
 186
 187     TRACE("(%p)->(%d %s %d %08x %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
 188             lcid, wFlags, pDispParams, pVarResult, pExepInfo, puArgErr);
 189
 190     hres = get_typeinfo(&typeinfo);
 191     if(FAILED(hres))
 192         return hres;
 193
 194     return ITypeInfo_Invoke(typeinfo, WEBBROWSER2(This), dispIdMember, wFlags, pDispParams,
 195                             pVarResult, pExepInfo, puArgErr);
 196 }
 197
 198 /* IWebBrowser methods */
 199 static HRESULT WINAPI WebBrowser_GoBack(IWebBrowser2 *iface)
 200 {
 201     WebBrowser *This = WEBBROWSER_THIS(iface);
 202     FIXME("(%p)\n", This);
 203     return E_NOTIMPL;
 204 }
 205
 206 static HRESULT WINAPI WebBrowser_GoForward(IWebBrowser2 *iface)
 207 {
 208     WebBrowser *This = WEBBROWSER_THIS(iface);
 209     FIXME("(%p)\n", This);
 210     return E_NOTIMPL;
 211 }
 212
 213 static HRESULT WINAPI WebBrowser_GoHome(IWebBrowser2 *iface)
 214 {
 215     WebBrowser *This = WEBBROWSER_THIS(iface);
 216     TRACE("(%p)\n", This);
 217     return go_home(&This->doc_host);
 218 }
 219
 220 static HRESULT WINAPI WebBrowser_GoSearch(IWebBrowser2 *iface)
 221 {
 222     WebBrowser *This = WEBBROWSER_THIS(iface);
 223     FIXME("(%p)\n", This);
 224     return E_NOTIMPL;
 225 }
 226
 227 static HRESULT WINAPI WebBrowser_Navigate(IWebBrowser2 *iface, BSTR szUrl,
 228                                   VARIANT *Flags, VARIANT *TargetFrameName,
 229                                   VARIANT *PostData, VARIANT *Headers)
 230 {
 231     WebBrowser *This = WEBBROWSER_THIS(iface);
 232
 233     TRACE("(%p)->(%s %p %p %p %p)\n", This, debugstr_w(szUrl), Flags, TargetFrameName,
 234           PostData, Headers);
 235
 236     return navigate_url(&This->doc_host, szUrl, Flags, TargetFrameName, PostData, Headers);
 237 }
 238
 239 static HRESULT WINAPI WebBrowser_Refresh(IWebBrowser2 *iface)
 240 {
 241     WebBrowser *This = WEBBROWSER_THIS(iface);
 242     FIXME("(%p)\n", This);
 243     return E_NOTIMPL;
 244 }
 245
 246 static HRESULT WINAPI WebBrowser_Refresh2(IWebBrowser2 *iface, VARIANT *Level)
 247 {
 248     WebBrowser *This = WEBBROWSER_THIS(iface);
 249     FIXME("(%p)->(%p)\n", This, Level);
 250     return E_NOTIMPL;
 251 }
 252
 253 static HRESULT WINAPI WebBrowser_Stop(IWebBrowser2 *iface)
 254 {
 255     WebBrowser *This = WEBBROWSER_THIS(iface);
 256     FIXME("(%p)\n", This);
 257     return E_NOTIMPL;
 258 }
 259
 260 static HRESULT WINAPI WebBrowser_get_Application(IWebBrowser2 *iface, IDispatch **ppDisp)
 261 {
 262     WebBrowser *This = WEBBROWSER_THIS(iface);
 263
 264     TRACE("(%p)->(%p)\n", This, ppDisp);
 265
 266     if(!ppDisp)
 267         return E_POINTER;
 268
 269     *ppDisp = (IDispatch*)WEBBROWSER2(This);
 270     IDispatch_AddRef(*ppDisp);
 271     return S_OK;
 272 }
 273
 274 static HRESULT WINAPI WebBrowser_get_Parent(IWebBrowser2 *iface, IDispatch **ppDisp)
 275 {
 276     WebBrowser *This = WEBBROWSER_THIS(iface);
 277     FIXME("(%p)->(%p)\n", This, ppDisp);
 278     return E_NOTIMPL;
 279 }
 280
 281 static HRESULT WINAPI WebBrowser_get_Container(IWebBrowser2 *iface, IDispatch **ppDisp)
 282 {
 283     WebBrowser *This = WEBBROWSER_THIS(iface);
 284     FIXME("(%p)->(%p)\n", This, ppDisp);
 285     return E_NOTIMPL;
 286 }
 287
 288 static HRESULT WINAPI WebBrowser_get_Document(IWebBrowser2 *iface, IDispatch **ppDisp)
 289 {
 290     WebBrowser *This = WEBBROWSER_THIS(iface);
 291
 292     TRACE("(%p)->(%p)\n", This, ppDisp);
 293
 294     *ppDisp = NULL;
 295     if(This->doc_host.document)
 296         IUnknown_QueryInterface(This->doc_host.document, &IID_IDispatch, (void**)ppDisp);
 297
 298     return S_OK;
 299 }
 300
 301 static HRESULT WINAPI WebBrowser_get_TopLevelContainer(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
 302 {
 303     WebBrowser *This = WEBBROWSER_THIS(iface);
 304     FIXME("(%p)->(%p)\n", This, pBool);
 305     return E_NOTIMPL;
 306 }
 307
 308 static HRESULT WINAPI WebBrowser_get_Type(IWebBrowser2 *iface, BSTR *Type)
 309 {
 310     WebBrowser *This = WEBBROWSER_THIS(iface);
 311     FIXME("(%p)->(%p)\n", This, Type);
 312     return E_NOTIMPL;
 313 }
 314
 315 static HRESULT WINAPI WebBrowser_get_Left(IWebBrowser2 *iface, long *pl)
 316 {
 317     WebBrowser *This = WEBBROWSER_THIS(iface);
 318
 319     TRACE("(%p)->(%p)\n", This, pl);
 320
 321     *pl = This->pos_rect.left;
 322     return S_OK;
 323 }
 324
 325 static HRESULT WINAPI WebBrowser_put_Left(IWebBrowser2 *iface, long Left)
 326 {
 327     WebBrowser *This = WEBBROWSER_THIS(iface);
 328     RECT rect;
 329
 330     TRACE("(%p)->(%ld)\n", This, Left);
 331
 332     if(!This->inplace)
 333         return E_UNEXPECTED;
 334
 335     memcpy(&rect, &This->pos_rect, sizeof(RECT));
 336     rect.left = Left;
 337
 338     /* We don't really change the window position here.
 339      * We just notify the embedder that he should do so. */
 340     return IOleInPlaceSite_OnPosRectChange(This->inplace, &rect);
 341 }
 342
 343 static HRESULT WINAPI WebBrowser_get_Top(IWebBrowser2 *iface, long *pl)
 344 {
 345     WebBrowser *This = WEBBROWSER_THIS(iface);
 346
 347     TRACE("(%p)->(%p)\n", This, pl);
 348
 349     *pl = This->pos_rect.top;
 350     return S_OK;
 351 }
 352
 353 static HRESULT WINAPI WebBrowser_put_Top(IWebBrowser2 *iface, long Top)
 354 {
 355     WebBrowser *This = WEBBROWSER_THIS(iface);
 356     RECT rect;
 357
 358     TRACE("(%p)->(%ld)\n", This, Top);
 359
 360     if(!This->inplace)
 361         return E_UNEXPECTED;
 362
 363     memcpy(&rect, &This->pos_rect, sizeof(RECT));
 364     rect.top = Top;
 365
 366     /* We don't really change the window position here.
 367      * We just notify the embedder that he should do so. */
 368     return IOleInPlaceSite_OnPosRectChange(This->inplace, &rect);
 369 }
 370
 371 static HRESULT WINAPI WebBrowser_get_Width(IWebBrowser2 *iface, long *pl)
 372 {
 373     WebBrowser *This = WEBBROWSER_THIS(iface);
 374
 375     TRACE("(%p)->(%p)\n", This, pl);
 376
 377     *pl = This->pos_rect.right - This->pos_rect.left;
 378     return S_OK;
 379 }
 380
 381 static HRESULT WINAPI WebBrowser_put_Width(IWebBrowser2 *iface, long Width)
 382 {
 383     WebBrowser *This = WEBBROWSER_THIS(iface);
 384     RECT rect;
 385
 386     TRACE("(%p)->(%ld)\n", This, Width);
 387
 388     if(!This->inplace)
 389         return E_UNEXPECTED;
 390
 391     memcpy(&rect, &This->pos_rect, sizeof(RECT));
 392     rect.right = rect.left+Width;
 393
 394     /* We don't really change the window size here.
 395      * We just notify the embedder that he should do so. */
 396    return IOleInPlaceSite_OnPosRectChange(This->inplace, &rect);
 397 }
 398
 399 static HRESULT WINAPI WebBrowser_get_Height(IWebBrowser2 *iface, long *pl)
 400 {
 401     WebBrowser *This = WEBBROWSER_THIS(iface);
 402
 403     TRACE("(%p)->(%p)\n", This, pl);
 404
 405     *pl = This->pos_rect.bottom - This->pos_rect.top;
 406     return S_OK;
 407 }
 408
 409 static HRESULT WINAPI WebBrowser_put_Height(IWebBrowser2 *iface, long Height)
 410 {
 411     WebBrowser *This = WEBBROWSER_THIS(iface);
 412     RECT rect;
 413
 414     TRACE("(%p)->(%ld)\n", This, Height);
 415
 416     if(!This->inplace)
 417         return E_UNEXPECTED;
 418
 419     memcpy(&rect, &This->pos_rect, sizeof(RECT));
 420     rect.bottom = rect.top+Height;
 421
 422     /* We don't really change the window size here.
 423      * We just notify the embedder that he should do so. */
 424     return IOleInPlaceSite_OnPosRectChange(This->inplace, &rect);
 425 }
 426
 427 static HRESULT WINAPI WebBrowser_get_LocationName(IWebBrowser2 *iface, BSTR *LocationName)
 428 {
 429     WebBrowser *This = WEBBROWSER_THIS(iface);
 430     FIXME("(%p)->(%p)\n", This, LocationName);
 431     return E_NOTIMPL;
 432 }
 433
 434 static HRESULT WINAPI WebBrowser_get_LocationURL(IWebBrowser2 *iface, BSTR *LocationURL)
 435 {
 436     WebBrowser *This = WEBBROWSER_THIS(iface);
 437
 438     FIXME("(%p)->(%p)\n", This, LocationURL);
 439
 440     if(!This->doc_host.url) {
 441         static const WCHAR null_char = 0;
 442         *LocationURL = SysAllocString(&null_char);
 443         return S_FALSE;
 444     }
 445
 446     *LocationURL = SysAllocString(This->doc_host.url);
 447     return S_OK;
 448 }
 449
 450 static HRESULT WINAPI WebBrowser_get_Busy(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
 451 {
 452     WebBrowser *This = WEBBROWSER_THIS(iface);
 453     FIXME("(%p)->(%p)\n", This, pBool);
 454     return E_NOTIMPL;
 455 }
 456
 457 static HRESULT WINAPI WebBrowser_Quit(IWebBrowser2 *iface)
 458 {
 459     WebBrowser *This = WEBBROWSER_THIS(iface);
 460
 461     TRACE("(%p)\n", This);
 462
 463     /* It's a InternetExplorer specific method, we have nothing to do here. */
 464     return E_FAIL;
 465 }
 466
 467 static HRESULT WINAPI WebBrowser_ClientToWindow(IWebBrowser2 *iface, int *pcx, int *pcy)
 468 {
 469     WebBrowser *This = WEBBROWSER_THIS(iface);
 470     FIXME("(%p)->(%p %p)\n", This, pcx, pcy);
 471     return E_NOTIMPL;
 472 }
 473
 474 static HRESULT WINAPI WebBrowser_PutProperty(IWebBrowser2 *iface, BSTR szProperty, VARIANT vtValue)
 475 {
 476     WebBrowser *This = WEBBROWSER_THIS(iface);
 477     FIXME("(%p)->(%s)\n", This, debugstr_w(szProperty));
 478     return E_NOTIMPL;
 479 }
 480
 481 static HRESULT WINAPI WebBrowser_GetProperty(IWebBrowser2 *iface, BSTR szProperty, VARIANT *pvtValue)
 482 {
 483     WebBrowser *This = WEBBROWSER_THIS(iface);
 484     FIXME("(%p)->(%s %p)\n", This, debugstr_w(szProperty), pvtValue);
 485     return E_NOTIMPL;
 486 }
 487
 488 static HRESULT WINAPI WebBrowser_get_Name(IWebBrowser2 *iface, BSTR *Name)
 489 {
 490     WebBrowser *This = WEBBROWSER_THIS(iface);
 491     FIXME("(%p)->(%p)\n", This, Name);
 492     return E_NOTIMPL;
 493 }
 494
 495 static HRESULT WINAPI WebBrowser_get_HWND(IWebBrowser2 *iface, long *pHWND)
 496 {
 497     WebBrowser *This = WEBBROWSER_THIS(iface);
 498
 499     TRACE("(%p)->(%p)\n", This, pHWND);
 500
 501     /* WebBrowser control never has a frame window (in opposition to InternetExplorer) */
 502     *pHWND = 0;
 503     return E_FAIL;
 504 }
 505
 506 static HRESULT WINAPI WebBrowser_get_FullName(IWebBrowser2 *iface, BSTR *FullName)
 507 {
 508     WebBrowser *This = WEBBROWSER_THIS(iface);
 509     FIXME("(%p)->(%p)\n", This, FullName);
 510     return E_NOTIMPL;
 511 }
 512
 513 static HRESULT WINAPI WebBrowser_get_Path(IWebBrowser2 *iface, BSTR *Path)
 514 {
 515     WebBrowser *This = WEBBROWSER_THIS(iface);
 516     FIXME("(%p)->(%p)\n", This, Path);
 517     return E_NOTIMPL;
 518 }
 519
 520 static HRESULT WINAPI WebBrowser_get_Visible(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
 521 {
 522     WebBrowser *This = WEBBROWSER_THIS(iface);
 523
 524     TRACE("(%p)->(%p)\n", This, pBool);
 525
 526     *pBool = This->visible;
 527     return S_OK;
 528 }
 529
 530 static HRESULT WINAPI WebBrowser_put_Visible(IWebBrowser2 *iface, VARIANT_BOOL Value)
 531 {
 532     WebBrowser *This = WEBBROWSER_THIS(iface);
 533     VARIANTARG arg;
 534     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 535
 536     TRACE("(%p)->(%x)\n", This, Value);
 537
 538     This->visible = Value;
 539
 540     V_VT(&arg) = VT_BOOL;
 541     V_BOOL(&arg) = Value;
 542     call_sink(This->doc_host.cps.wbe2, DISPID_ONVISIBLE, &dispparams);
 543
 544     return S_OK;
 545 }
 546
 547 static HRESULT WINAPI WebBrowser_get_StatusBar(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
 548 {
 549     WebBrowser *This = WEBBROWSER_THIS(iface);
 550
 551     TRACE("(%p)->(%p)\n", This, pBool);
 552
 553     *pBool = This->status_bar;
 554     return S_OK;
 555 }
 556
 557 static HRESULT WINAPI WebBrowser_put_StatusBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
 558 {
 559     WebBrowser *This = WEBBROWSER_THIS(iface);
 560     VARIANTARG arg;
 561     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 562
 563     TRACE("(%p)->(%x)\n", This, Value);
 564
 565     This->status_bar = Value ? VARIANT_TRUE : VARIANT_FALSE;
 566
 567     /* In opposition to InternetExplorer, all we should do here is
 568      * inform the embedder about the status bar change. */
 569
 570     V_VT(&arg) = VT_BOOL;
 571     V_BOOL(&arg) = Value;
 572     call_sink(This->doc_host.cps.wbe2, DISPID_ONSTATUSBAR, &dispparams);
 573
 574     return S_OK;
 575 }
 576
 577 static HRESULT WINAPI WebBrowser_get_StatusText(IWebBrowser2 *iface, BSTR *StatusText)
 578 {
 579     WebBrowser *This = WEBBROWSER_THIS(iface);
 580     FIXME("(%p)->(%p)\n", This, StatusText);
 581     return E_NOTIMPL;
 582 }
 583
 584 static HRESULT WINAPI WebBrowser_put_StatusText(IWebBrowser2 *iface, BSTR StatusText)
 585 {
 586     WebBrowser *This = WEBBROWSER_THIS(iface);
 587     FIXME("(%p)->(%s)\n", This, debugstr_w(StatusText));
 588     return E_NOTIMPL;
 589 }
 590
 591 static HRESULT WINAPI WebBrowser_get_ToolBar(IWebBrowser2 *iface, int *Value)
 592 {
 593     WebBrowser *This = WEBBROWSER_THIS(iface);
 594
 595     TRACE("(%p)->(%p)\n", This, Value);
 596
 597     *Value = This->tool_bar;
 598     return S_OK;
 599 }
 600
 601 static HRESULT WINAPI WebBrowser_put_ToolBar(IWebBrowser2 *iface, int Value)
 602 {
 603     WebBrowser *This = WEBBROWSER_THIS(iface);
 604     VARIANTARG arg;
 605     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 606
 607     TRACE("(%p)->(%x)\n", This, Value);
 608
 609     This->tool_bar = Value ? VARIANT_TRUE : VARIANT_FALSE;
 610
 611     /* In opposition to InternetExplorer, all we should do here is
 612      * inform the embedder about the tool bar change. */
 613
 614     V_VT(&arg) = VT_BOOL;
 615     V_BOOL(&arg) = Value;
 616     call_sink(This->doc_host.cps.wbe2, DISPID_ONTOOLBAR, &dispparams);
 617
 618     return S_OK;
 619 }
 620
 621 static HRESULT WINAPI WebBrowser_get_MenuBar(IWebBrowser2 *iface, VARIANT_BOOL *Value)
 622 {
 623     WebBrowser *This = WEBBROWSER_THIS(iface);
 624
 625     TRACE("(%p)->(%p)\n", This, Value);
 626
 627     *Value = This->menu_bar;
 628     return S_OK;
 629 }
 630
 631 static HRESULT WINAPI WebBrowser_put_MenuBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
 632 {
 633     WebBrowser *This = WEBBROWSER_THIS(iface);
 634     VARIANTARG arg;
 635     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 636
 637     TRACE("(%p)->(%x)\n", This, Value);
 638
 639     This->menu_bar = Value ? VARIANT_TRUE : VARIANT_FALSE;
 640
 641     /* In opposition to InternetExplorer, all we should do here is
 642      * inform the embedder about the menu bar change. */
 643
 644     V_VT(&arg) = VT_BOOL;
 645     V_BOOL(&arg) = Value;
 646     call_sink(This->doc_host.cps.wbe2, DISPID_ONMENUBAR, &dispparams);
 647
 648     return S_OK;
 649 }
 650
 651 static HRESULT WINAPI WebBrowser_get_FullScreen(IWebBrowser2 *iface, VARIANT_BOOL *pbFullScreen)
 652 {
 653     WebBrowser *This = WEBBROWSER_THIS(iface);
 654
 655     TRACE("(%p)->(%p)\n", This, pbFullScreen);
 656
 657     *pbFullScreen = This->full_screen;
 658     return S_OK;
 659 }
 660
 661 static HRESULT WINAPI WebBrowser_put_FullScreen(IWebBrowser2 *iface, VARIANT_BOOL bFullScreen)
 662 {
 663     WebBrowser *This = WEBBROWSER_THIS(iface);
 664
 665     TRACE("(%p)->(%x)\n", This, bFullScreen);
 666
 667     This->full_screen = bFullScreen ? VARIANT_TRUE : VARIANT_FALSE;
 668     return S_OK;
 669 }
 670
 671 static HRESULT WINAPI WebBrowser_Navigate2(IWebBrowser2 *iface, VARIANT *URL, VARIANT *Flags,
 672         VARIANT *TargetFrameName, VARIANT *PostData, VARIANT *Headers)
 673 {
 674     WebBrowser *This = WEBBROWSER_THIS(iface);
 675
 676     TRACE("(%p)->(%p %p %p %p %p)\n", This, URL, Flags, TargetFrameName, PostData, Headers);
 677
 678     if(!This->client)
 679         return E_FAIL;
 680
 681     if(!URL)
 682         return S_OK;
 683
 684     if(V_VT(URL) != VT_BSTR) {
 685         FIXME("Unsupported V_VT(URL) %d\n", V_VT(URL));
 686         return E_INVALIDARG;
 687     }
 688
 689     return navigate_url(&This->doc_host, V_BSTR(URL), Flags, TargetFrameName, PostData, Headers);
 690 }
 691
 692 static HRESULT WINAPI WebBrowser_QueryStatusWB(IWebBrowser2 *iface, OLECMDID cmdID, OLECMDF *pcmdf)
 693 {
 694     WebBrowser *This = WEBBROWSER_THIS(iface);
 695     FIXME("(%p)->(%d %p)\n", This, cmdID, pcmdf);
 696     return E_NOTIMPL;
 697 }
 698
 699 static HRESULT WINAPI WebBrowser_ExecWB(IWebBrowser2 *iface, OLECMDID cmdID,
 700         OLECMDEXECOPT cmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
 701 {
 702     WebBrowser *This = WEBBROWSER_THIS(iface);
 703     FIXME("(%p)->(%d %d %p %p)\n", This, cmdID, cmdexecopt, pvaIn, pvaOut);
 704     return E_NOTIMPL;
 705 }
 706
 707 static HRESULT WINAPI WebBrowser_ShowBrowserBar(IWebBrowser2 *iface, VARIANT *pvaClsid,
 708         VARIANT *pvarShow, VARIANT *pvarSize)
 709 {
 710     WebBrowser *This = WEBBROWSER_THIS(iface);
 711     FIXME("(%p)->(%p %p %p)\n", This, pvaClsid, pvarShow, pvarSize);
 712     return E_NOTIMPL;
 713 }
 714
 715 static HRESULT WINAPI WebBrowser_get_ReadyState(IWebBrowser2 *iface, READYSTATE *lpReadyState)
 716 {
 717     WebBrowser *This = WEBBROWSER_THIS(iface);
 718     FIXME("(%p)->(%p)\n", This, lpReadyState);
 719     return E_NOTIMPL;
 720 }
 721
 722 static HRESULT WINAPI WebBrowser_get_Offline(IWebBrowser2 *iface, VARIANT_BOOL *pbOffline)
 723 {
 724     WebBrowser *This = WEBBROWSER_THIS(iface);
 725
 726     TRACE("(%p)->(%p)\n", This, pbOffline);
 727
 728     *pbOffline = This->doc_host.offline;
 729     return S_OK;
 730 }
 731
 732 static HRESULT WINAPI WebBrowser_put_Offline(IWebBrowser2 *iface, VARIANT_BOOL bOffline)
 733 {
 734     WebBrowser *This = WEBBROWSER_THIS(iface);
 735
 736     TRACE("(%p)->(%x)\n", This, bOffline);
 737
 738     This->doc_host.offline = bOffline ? VARIANT_TRUE : VARIANT_FALSE;
 739     return S_OK;
 740 }
 741
 742 static HRESULT WINAPI WebBrowser_get_Silent(IWebBrowser2 *iface, VARIANT_BOOL *pbSilent)
 743 {
 744     WebBrowser *This = WEBBROWSER_THIS(iface);
 745
 746     TRACE("(%p)->(%p)\n", This, pbSilent);
 747
 748     *pbSilent = This->doc_host.silent;
 749     return S_OK;
 750 }
 751
 752 static HRESULT WINAPI WebBrowser_put_Silent(IWebBrowser2 *iface, VARIANT_BOOL bSilent)
 753 {
 754     WebBrowser *This = WEBBROWSER_THIS(iface);
 755
 756     TRACE("(%p)->(%x)\n", This, bSilent);
 757
 758     This->doc_host.silent = bSilent ? VARIANT_TRUE : VARIANT_FALSE;
 759     return S_OK;
 760 }
 761
 762 static HRESULT WINAPI WebBrowser_get_RegisterAsBrowser(IWebBrowser2 *iface,
 763         VARIANT_BOOL *pbRegister)
 764 {
 765     WebBrowser *This = WEBBROWSER_THIS(iface);
 766     FIXME("(%p)->(%p)\n", This, pbRegister);
 767     return E_NOTIMPL;
 768 }
 769
 770 static HRESULT WINAPI WebBrowser_put_RegisterAsBrowser(IWebBrowser2 *iface,
 771         VARIANT_BOOL bRegister)
 772 {
 773     WebBrowser *This = WEBBROWSER_THIS(iface);
 774     FIXME("(%p)->(%x)\n", This, bRegister);
 775     return E_NOTIMPL;
 776 }
 777
 778 static HRESULT WINAPI WebBrowser_get_RegisterAsDropTarget(IWebBrowser2 *iface,
 779         VARIANT_BOOL *pbRegister)
 780 {
 781     WebBrowser *This = WEBBROWSER_THIS(iface);
 782     FIXME("(%p)->(%p)\n", This, pbRegister);
 783     return E_NOTIMPL;
 784 }
 785
 786 static HRESULT WINAPI WebBrowser_put_RegisterAsDropTarget(IWebBrowser2 *iface,
 787         VARIANT_BOOL bRegister)
 788 {
 789     WebBrowser *This = WEBBROWSER_THIS(iface);
 790     FIXME("(%p)->(%x)\n", This, bRegister);
 791     return S_OK;
 792 }
 793
 794 static HRESULT WINAPI WebBrowser_get_TheaterMode(IWebBrowser2 *iface, VARIANT_BOOL *pbRegister)
 795 {
 796     WebBrowser *This = WEBBROWSER_THIS(iface);
 797     FIXME("(%p)->(%p)\n", This, pbRegister);
 798     return E_NOTIMPL;
 799 }
 800
 801 static HRESULT WINAPI WebBrowser_put_TheaterMode(IWebBrowser2 *iface, VARIANT_BOOL bRegister)
 802 {
 803     WebBrowser *This = WEBBROWSER_THIS(iface);
 804     FIXME("(%p)->(%x)\n", This, bRegister);
 805     return E_NOTIMPL;
 806 }
 807
 808 static HRESULT WINAPI WebBrowser_get_AddressBar(IWebBrowser2 *iface, VARIANT_BOOL *Value)
 809 {
 810     WebBrowser *This = WEBBROWSER_THIS(iface);
 811
 812     TRACE("(%p)->(%p)\n", This, Value);
 813
 814     *Value = This->address_bar;
 815     return S_OK;
 816 }
 817
 818 static HRESULT WINAPI WebBrowser_put_AddressBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
 819 {
 820     WebBrowser *This = WEBBROWSER_THIS(iface);
 821     VARIANTARG arg;
 822     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 823
 824     TRACE("(%p)->(%x)\n", This, Value);
 825
 826     This->address_bar = Value ? VARIANT_TRUE : VARIANT_FALSE;
 827
 828     /* In opposition to InternetExplorer, all we should do here is
 829      * inform the embedder about the address bar change. */
 830
 831     V_VT(&arg) = VT_BOOL;
 832     V_BOOL(&arg) = Value;
 833     call_sink(This->doc_host.cps.wbe2, DISPID_ONADDRESSBAR, &dispparams);
 834
 835     return S_OK;
 836 }
 837
 838 static HRESULT WINAPI WebBrowser_get_Resizable(IWebBrowser2 *iface, VARIANT_BOOL *Value)
 839 {
 840     WebBrowser *This = WEBBROWSER_THIS(iface);
 841
 842     TRACE("(%p)->(%p)\n", This, Value);
 843
 844     /* It's InternetExplorer object's method. We have nothing to do here. */
 845     return E_NOTIMPL;
 846 }
 847
 848 static HRESULT WINAPI WebBrowser_put_Resizable(IWebBrowser2 *iface, VARIANT_BOOL Value)
 849 {
 850     WebBrowser *This = WEBBROWSER_THIS(iface);
 851
 852     TRACE("(%p)->(%x)\n", This, Value);
 853
 854     /* It's InternetExplorer object's method. We have nothing to do here. */
 855     return S_OK;
 856 }
 857
 858 #undef WEBBROWSER_THIS
 859
 860 static const IWebBrowser2Vtbl WebBrowser2Vtbl =
 861 {
 862     WebBrowser_QueryInterface,
 863     WebBrowser_AddRef,
 864     WebBrowser_Release,
 865     WebBrowser_GetTypeInfoCount,
 866     WebBrowser_GetTypeInfo,
 867     WebBrowser_GetIDsOfNames,
 868     WebBrowser_Invoke,
 869     WebBrowser_GoBack,
 870     WebBrowser_GoForward,
 871     WebBrowser_GoHome,
 872     WebBrowser_GoSearch,
 873     WebBrowser_Navigate,
 874     WebBrowser_Refresh,
 875     WebBrowser_Refresh2,
 876     WebBrowser_Stop,
 877     WebBrowser_get_Application,
 878     WebBrowser_get_Parent,
 879     WebBrowser_get_Container,
 880     WebBrowser_get_Document,
 881     WebBrowser_get_TopLevelContainer,
 882     WebBrowser_get_Type,
 883     WebBrowser_get_Left,
 884     WebBrowser_put_Left,
 885     WebBrowser_get_Top,
 886     WebBrowser_put_Top,
 887     WebBrowser_get_Width,
 888     WebBrowser_put_Width,
 889     WebBrowser_get_Height,
 890     WebBrowser_put_Height,
 891     WebBrowser_get_LocationName,
 892     WebBrowser_get_LocationURL,
 893     WebBrowser_get_Busy,
 894     WebBrowser_Quit,
 895     WebBrowser_ClientToWindow,
 896     WebBrowser_PutProperty,
 897     WebBrowser_GetProperty,
 898     WebBrowser_get_Name,
 899     WebBrowser_get_HWND,
 900     WebBrowser_get_FullName,
 901     WebBrowser_get_Path,
 902     WebBrowser_get_Visible,
 903     WebBrowser_put_Visible,
 904     WebBrowser_get_StatusBar,
 905     WebBrowser_put_StatusBar,
 906     WebBrowser_get_StatusText,
 907     WebBrowser_put_StatusText,
 908     WebBrowser_get_ToolBar,
 909     WebBrowser_put_ToolBar,
 910     WebBrowser_get_MenuBar,
 911     WebBrowser_put_MenuBar,
 912     WebBrowser_get_FullScreen,
 913     WebBrowser_put_FullScreen,
 914     WebBrowser_Navigate2,
 915     WebBrowser_QueryStatusWB,
 916     WebBrowser_ExecWB,
 917     WebBrowser_ShowBrowserBar,
 918     WebBrowser_get_ReadyState,
 919     WebBrowser_get_Offline,
 920     WebBrowser_put_Offline,
 921     WebBrowser_get_Silent,
 922     WebBrowser_put_Silent,
 923     WebBrowser_get_RegisterAsBrowser,
 924     WebBrowser_put_RegisterAsBrowser,
 925     WebBrowser_get_RegisterAsDropTarget,
 926     WebBrowser_put_RegisterAsDropTarget,
 927     WebBrowser_get_TheaterMode,
 928     WebBrowser_put_TheaterMode,
 929     WebBrowser_get_AddressBar,
 930     WebBrowser_put_AddressBar,
 931     WebBrowser_get_Resizable,
 932     WebBrowser_put_Resizable
 933 };
 934
 935 static HRESULT WebBrowser_Create(INT version, IUnknown *pOuter, REFIID riid, void **ppv)
 936 {
 937     WebBrowser *ret;
 938     HRESULT hres;
 939
 940     TRACE("(%p %s %p) version=%d\n", pOuter, debugstr_guid(riid), ppv, version);
 941
 942     ret = shdocvw_alloc(sizeof(WebBrowser));
 943
 944     ret->lpWebBrowser2Vtbl = &WebBrowser2Vtbl;
 945     ret->ref = 0;
 946     ret->version = version;
 947
 948     DocHost_Init(&ret->doc_host, (IDispatch*)WEBBROWSER2(ret));
 949
 950     ret->visible = VARIANT_TRUE;
 951     ret->menu_bar = VARIANT_TRUE;
 952     ret->address_bar = VARIANT_TRUE;
 953     ret->status_bar = VARIANT_TRUE;
 954     ret->tool_bar = VARIANT_TRUE;
 955     ret->full_screen = VARIANT_FALSE;
 956
 957     WebBrowser_OleObject_Init(ret);
 958     WebBrowser_ViewObject_Init(ret);
 959     WebBrowser_Persist_Init(ret);
 960     WebBrowser_ClassInfo_Init(ret);
 961     WebBrowser_HlinkFrame_Init(ret);
 962
 963     hres = IWebBrowser_QueryInterface(WEBBROWSER(ret), riid, ppv);
 964     if(SUCCEEDED(hres)) {
 965         SHDOCVW_LockModule();
 966     }else {
 967         shdocvw_free(ret);
 968         return hres;
 969     }
 970
 971     return hres;
 972 }
 973
 974 HRESULT WebBrowserV1_Create(IUnknown *pOuter, REFIID riid, void **ppv)
 975 {
 976     return WebBrowser_Create(1, pOuter, riid, ppv);
 977 }
 978
 979 HRESULT WebBrowserV2_Create(IUnknown *pOuter, REFIID riid, void **ppv)
 980 {
 981     return WebBrowser_Create(2, pOuter, riid, ppv);
 982 }