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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  20  */
  21
  22 #include "wine/debug.h"
  23 #include "shdocvw.h"
  24 #include "mshtml.h"
  25
  26
  27 WINE_DEFAULT_DEBUG_CHANNEL(shdocvw);
  28
  29 /**********************************************************************
  30  * Implement the IWebBrowser interface
  31  */
  32
  33 #define WEBBROWSER_THIS(iface) DEFINE_THIS(WebBrowser, WebBrowser2, iface)
  34
  35 static HRESULT WINAPI WebBrowser_QueryInterface(IWebBrowser2 *iface, REFIID riid, LPVOID *ppv)
  36 {
  37     WebBrowser *This = WEBBROWSER_THIS(iface);
  38
  39     if (ppv == NULL)
  40         return E_POINTER;
  41     *ppv = NULL;
  42
  43     if(IsEqualGUID(&IID_IUnknown, riid)) {
  44         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
  45         *ppv = WEBBROWSER(This);
  46     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
  47         TRACE("(%p)->(IID_IDispatch %p)\n", This, ppv);
  48         *ppv = WEBBROWSER(This);
  49     }else if(IsEqualGUID(&IID_IWebBrowser, riid)) {
  50         TRACE("(%p)->(IID_IWebBrowser %p)\n", This, ppv);
  51         *ppv = WEBBROWSER(This);
  52     }else if(IsEqualGUID(&IID_IWebBrowserApp, riid)) {
  53         TRACE("(%p)->(IID_IWebBrowserApp %p)\n", This, ppv);
  54         *ppv = WEBBROWSER(This);
  55     }else if(IsEqualGUID(&IID_IWebBrowser2, riid)) {
  56         TRACE("(%p)->(IID_IWebBrowser2 %p)\n", This, ppv);
  57         *ppv = WEBBROWSER(This);
  58     }else if(IsEqualGUID(&IID_IOleObject, riid)) {
  59         TRACE("(%p)->(IID_IOleObject %p)\n", This, ppv);
  60         *ppv = OLEOBJ(This);
  61     }else if(IsEqualGUID(&IID_IOleWindow, riid)) {
  62         TRACE("(%p)->(IID_IOleWindow %p)\n", This, ppv);
  63         *ppv = INPLACEOBJ(This);
  64     }else if(IsEqualGUID (&IID_IOleInPlaceObject, riid)) {
  65         TRACE("(%p)->(IID_IOleInPlaceObject %p)\n", This, ppv);
  66         *ppv = INPLACEOBJ(This);
  67     }else if(IsEqualGUID(&IID_IOleControl, riid)) {
  68         TRACE("(%p)->(IID_IOleControl %p)\n", This, ppv);
  69         *ppv = CONTROL(This);
  70     }else if(IsEqualGUID(&IID_IPersist, riid)) {
  71         TRACE("(%p)->(IID_IPersist %p)\n", This, ppv);
  72         *ppv = PERSTORAGE(This);
  73     }else if(IsEqualGUID(&IID_IPersistStorage, riid)) {
  74         TRACE("(%p)->(IID_IPersistStorage %p)\n", This, ppv);
  75         *ppv = PERSTORAGE(This);
  76     }else if(IsEqualGUID (&IID_IPersistStreamInit, riid)) {
  77         TRACE("(%p)->(IID_IPersistStreamInit %p)\n", This, ppv);
  78         *ppv = PERSTRINIT(This);
  79     }else if(IsEqualGUID(&IID_IProvideClassInfo, riid)) {
  80         TRACE("(%p)->(IID_IProvideClassInfo %p)\n", This, ppv);
  81         *ppv = CLASSINFO(This);
  82     }else if(IsEqualGUID(&IID_IProvideClassInfo2, riid)) {
  83         TRACE("(%p)->(IID_IProvideClassInfo2 %p)\n", This, ppv);
  84         *ppv = CLASSINFO(This);
  85     }else if(IsEqualGUID(&IID_IQuickActivate, riid)) {
  86         TRACE("(%p)->(IID_IQuickActivate %p)\n", This, ppv);
  87         *ppv = QUICKACT(This);
  88     }else if(IsEqualGUID(&IID_IConnectionPointContainer, riid)) {
  89         TRACE("(%p)->(IID_IConnectionPointContainer %p)\n", This, ppv);
  90         *ppv = CONPTCONT(This);
  91     }else if(IsEqualGUID(&IID_IViewObject, riid)) {
  92         TRACE("(%p)->(IID_IViewObject %p)\n", This, ppv);
  93         *ppv = VIEWOBJ(This);
  94     }else if(IsEqualGUID(&IID_IViewObject2, riid)) {
  95         TRACE("(%p)->(IID_IViewObject2 %p)\n", This, ppv);
  96         *ppv = VIEWOBJ2(This);
  97     }
  98
  99     if(*ppv) {
 100         IUnknown_AddRef((IUnknown*)*ppv);
 101         return S_OK;
 102     }
 103
 104     FIXME("(%p)->(%s %p) interface not supported\n", This, debugstr_guid(riid), ppv);
 105     return E_NOINTERFACE;
 106 }
 107
 108 static ULONG WINAPI WebBrowser_AddRef(IWebBrowser2 *iface)
 109 {
 110     WebBrowser *This = WEBBROWSER_THIS(iface);
 111     LONG ref = InterlockedIncrement(&This->ref);
 112     TRACE("(%p) ref=%ld\n", This, ref);
 113     return ref;
 114 }
 115
 116 static ULONG WINAPI WebBrowser_Release(IWebBrowser2 *iface)
 117 {
 118     WebBrowser *This = WEBBROWSER_THIS(iface);
 119     LONG ref = InterlockedDecrement(&This->ref);
 120
 121     TRACE("(%p) ref=%ld\n", This, ref);
 122
 123     if(!ref) {
 124         if(This->document)
 125             IUnknown_Release(This->document);
 126
 127         WebBrowser_OleObject_Destroy(This);
 128
 129         HeapFree(GetProcessHeap(), 0, This);
 130         SHDOCVW_UnlockModule();
 131     }
 132
 133     return ref;
 134 }
 135
 136 /* IDispatch methods */
 137 static HRESULT WINAPI WebBrowser_GetTypeInfoCount(IWebBrowser2 *iface, UINT *pctinfo)
 138 {
 139     WebBrowser *This = WEBBROWSER_THIS(iface);
 140     FIXME("(%p)->(%p)\n", This, pctinfo);
 141     return E_NOTIMPL;
 142 }
 143
 144 static HRESULT WINAPI WebBrowser_GetTypeInfo(IWebBrowser2 *iface, UINT iTInfo, LCID lcid,
 145                                      LPTYPEINFO *ppTInfo)
 146 {
 147     WebBrowser *This = WEBBROWSER_THIS(iface);
 148     FIXME("(%p)->(%d %ld %p)\n", This, iTInfo, lcid, ppTInfo);
 149     return E_NOTIMPL;
 150 }
 151
 152 static HRESULT WINAPI WebBrowser_GetIDsOfNames(IWebBrowser2 *iface, REFIID riid,
 153                                        LPOLESTR *rgszNames, UINT cNames,
 154                                        LCID lcid, DISPID *rgDispId)
 155 {
 156     WebBrowser *This = WEBBROWSER_THIS(iface);
 157     FIXME("(%p)->(%s %p %d %ld %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
 158             lcid, rgDispId);
 159     return E_NOTIMPL;
 160 }
 161
 162 static HRESULT WINAPI WebBrowser_Invoke(IWebBrowser2 *iface, DISPID dispIdMember,
 163                                 REFIID riid, LCID lcid, WORD wFlags,
 164                                 DISPPARAMS *pDispParams, VARIANT *pVarResult,
 165                                 EXCEPINFO *pExepInfo, UINT *puArgErr)
 166 {
 167     WebBrowser *This = WEBBROWSER_THIS(iface);
 168     FIXME("(%p)->(%ld %s %ld %08x %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
 169             lcid, wFlags, pDispParams, pVarResult, pExepInfo, puArgErr);
 170     return E_NOTIMPL;
 171 }
 172
 173 /* IWebBrowser methods */
 174 static HRESULT WINAPI WebBrowser_GoBack(IWebBrowser2 *iface)
 175 {
 176     WebBrowser *This = WEBBROWSER_THIS(iface);
 177     FIXME("(%p)\n", This);
 178     return E_NOTIMPL;
 179 }
 180
 181 static HRESULT WINAPI WebBrowser_GoForward(IWebBrowser2 *iface)
 182 {
 183     WebBrowser *This = WEBBROWSER_THIS(iface);
 184     FIXME("(%p)\n", This);
 185     return E_NOTIMPL;
 186 }
 187
 188 static HRESULT WINAPI WebBrowser_GoHome(IWebBrowser2 *iface)
 189 {
 190     WebBrowser *This = WEBBROWSER_THIS(iface);
 191     FIXME("(%p)\n", This);
 192     return E_NOTIMPL;
 193 }
 194
 195 static HRESULT WINAPI WebBrowser_GoSearch(IWebBrowser2 *iface)
 196 {
 197     WebBrowser *This = WEBBROWSER_THIS(iface);
 198     FIXME("(%p)\n", This);
 199     return E_NOTIMPL;
 200 }
 201
 202 static HRESULT WINAPI WebBrowser_Navigate(IWebBrowser2 *iface, BSTR URL,
 203                                   VARIANT *Flags, VARIANT *TargetFrameName,
 204                                   VARIANT *PostData, VARIANT *Headers)
 205 {
 206     WebBrowser *This = WEBBROWSER_THIS(iface);
 207     FIXME("(%p)->(%s %p %p %p %p)\n", This, debugstr_w(URL), Flags, TargetFrameName,
 208           PostData, Headers);
 209     return E_NOTIMPL;
 210 }
 211
 212 static HRESULT WINAPI WebBrowser_Refresh(IWebBrowser2 *iface)
 213 {
 214     WebBrowser *This = WEBBROWSER_THIS(iface);
 215     FIXME("(%p)\n", This);
 216     return E_NOTIMPL;
 217 }
 218
 219 static HRESULT WINAPI WebBrowser_Refresh2(IWebBrowser2 *iface, VARIANT *Level)
 220 {
 221     WebBrowser *This = WEBBROWSER_THIS(iface);
 222     FIXME("(%p)->(%p)\n", This, Level);
 223     return E_NOTIMPL;
 224 }
 225
 226 static HRESULT WINAPI WebBrowser_Stop(IWebBrowser2 *iface)
 227 {
 228     WebBrowser *This = WEBBROWSER_THIS(iface);
 229     FIXME("(%p)\n", This);
 230     return E_NOTIMPL;
 231 }
 232
 233 static HRESULT WINAPI WebBrowser_get_Application(IWebBrowser2 *iface, IDispatch **ppDisp)
 234 {
 235     WebBrowser *This = WEBBROWSER_THIS(iface);
 236     FIXME("(%p)->(%p)\n", This, ppDisp);
 237     return E_NOTIMPL;
 238 }
 239
 240 static HRESULT WINAPI WebBrowser_get_Parent(IWebBrowser2 *iface, IDispatch **ppDisp)
 241 {
 242     WebBrowser *This = WEBBROWSER_THIS(iface);
 243     FIXME("(%p)->(%p)\n", This, ppDisp);
 244     return E_NOTIMPL;
 245 }
 246
 247 static HRESULT WINAPI WebBrowser_get_Container(IWebBrowser2 *iface, IDispatch **ppDisp)
 248 {
 249     WebBrowser *This = WEBBROWSER_THIS(iface);
 250     FIXME("(%p)->(%p)\n", This, ppDisp);
 251     return E_NOTIMPL;
 252 }
 253
 254 static HRESULT WINAPI WebBrowser_get_Document(IWebBrowser2 *iface, IDispatch **ppDisp)
 255 {
 256     WebBrowser *This = WEBBROWSER_THIS(iface);
 257     FIXME("(%p)->(%p)\n", This, ppDisp);
 258     return E_NOTIMPL;
 259 }
 260
 261 static HRESULT WINAPI WebBrowser_get_TopLevelContainer(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
 262 {
 263     WebBrowser *This = WEBBROWSER_THIS(iface);
 264     FIXME("(%p)->(%p)\n", This, pBool);
 265     return E_NOTIMPL;
 266 }
 267
 268 static HRESULT WINAPI WebBrowser_get_Type(IWebBrowser2 *iface, BSTR *Type)
 269 {
 270     WebBrowser *This = WEBBROWSER_THIS(iface);
 271     FIXME("(%p)->(%p)\n", This, Type);
 272     return E_NOTIMPL;
 273 }
 274
 275 static HRESULT WINAPI WebBrowser_get_Left(IWebBrowser2 *iface, long *pl)
 276 {
 277     WebBrowser *This = WEBBROWSER_THIS(iface);
 278     FIXME("(%p)->(%p)\n", This, pl);
 279     return E_NOTIMPL;
 280 }
 281
 282 static HRESULT WINAPI WebBrowser_put_Left(IWebBrowser2 *iface, long Left)
 283 {
 284     WebBrowser *This = WEBBROWSER_THIS(iface);
 285     FIXME("(%p)->(%ld)\n", This, Left);
 286     return E_NOTIMPL;
 287 }
 288
 289 static HRESULT WINAPI WebBrowser_get_Top(IWebBrowser2 *iface, long *pl)
 290 {
 291     WebBrowser *This = WEBBROWSER_THIS(iface);
 292     FIXME("(%p)->(%p)\n", This, pl);
 293     return E_NOTIMPL;
 294 }
 295
 296 static HRESULT WINAPI WebBrowser_put_Top(IWebBrowser2 *iface, long Top)
 297 {
 298     WebBrowser *This = WEBBROWSER_THIS(iface);
 299     FIXME("(%p)->(%ld)\n", This, Top);
 300     return E_NOTIMPL;
 301 }
 302
 303 static HRESULT WINAPI WebBrowser_get_Width(IWebBrowser2 *iface, long *pl)
 304 {
 305     WebBrowser *This = WEBBROWSER_THIS(iface);
 306     FIXME("(%p)->(%p)\n", This, pl);
 307     return E_NOTIMPL;
 308 }
 309
 310 static HRESULT WINAPI WebBrowser_put_Width(IWebBrowser2 *iface, long Width)
 311 {
 312     WebBrowser *This = WEBBROWSER_THIS(iface);
 313     FIXME("(%p)->(%ld)\n", This, Width);
 314     return E_NOTIMPL;
 315 }
 316
 317 static HRESULT WINAPI WebBrowser_get_Height(IWebBrowser2 *iface, long *pl)
 318 {
 319     WebBrowser *This = WEBBROWSER_THIS(iface);
 320     FIXME("(%p)->(%p)\n", This, pl);
 321     return E_NOTIMPL;
 322 }
 323
 324 static HRESULT WINAPI WebBrowser_put_Height(IWebBrowser2 *iface, long Height)
 325 {
 326     WebBrowser *This = WEBBROWSER_THIS(iface);
 327     FIXME("(%p)->(%ld)\n", This, Height);
 328     return E_NOTIMPL;
 329 }
 330
 331 static HRESULT WINAPI WebBrowser_get_LocationName(IWebBrowser2 *iface, BSTR *LocationName)
 332 {
 333     WebBrowser *This = WEBBROWSER_THIS(iface);
 334     FIXME("(%p)->(%p)\n", This, LocationName);
 335     return E_NOTIMPL;
 336 }
 337
 338 static HRESULT WINAPI WebBrowser_get_LocationURL(IWebBrowser2 *iface, BSTR *LocationURL)
 339 {
 340     WebBrowser *This = WEBBROWSER_THIS(iface);
 341     FIXME("(%p)->(%p)\n", This, LocationURL);
 342     return E_NOTIMPL;
 343 }
 344
 345 static HRESULT WINAPI WebBrowser_get_Busy(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
 346 {
 347     WebBrowser *This = WEBBROWSER_THIS(iface);
 348     FIXME("(%p)->(%p)\n", This, pBool);
 349     return E_NOTIMPL;
 350 }
 351
 352 static HRESULT WINAPI WebBrowser_Quit(IWebBrowser2 *iface)
 353 {
 354     WebBrowser *This = WEBBROWSER_THIS(iface);
 355     FIXME("(%p)\n", This);
 356     return E_NOTIMPL;
 357 }
 358
 359 static HRESULT WINAPI WebBrowser_ClientToWindow(IWebBrowser2 *iface, int *pcx, int *pcy)
 360 {
 361     WebBrowser *This = WEBBROWSER_THIS(iface);
 362     FIXME("(%p)->(%p %p)\n", This, pcx, pcy);
 363     return E_NOTIMPL;
 364 }
 365
 366 static HRESULT WINAPI WebBrowser_PutProperty(IWebBrowser2 *iface, BSTR szProperty, VARIANT vtValue)
 367 {
 368     WebBrowser *This = WEBBROWSER_THIS(iface);
 369     FIXME("(%p)->(%s)\n", This, debugstr_w(szProperty));
 370     return E_NOTIMPL;
 371 }
 372
 373 static HRESULT WINAPI WebBrowser_GetProperty(IWebBrowser2 *iface, BSTR szProperty, VARIANT *pvtValue)
 374 {
 375     WebBrowser *This = WEBBROWSER_THIS(iface);
 376     FIXME("(%p)->(%s %p)\n", This, debugstr_w(szProperty), pvtValue);
 377     return E_NOTIMPL;
 378 }
 379
 380 static HRESULT WINAPI WebBrowser_get_Name(IWebBrowser2 *iface, BSTR *Name)
 381 {
 382     WebBrowser *This = WEBBROWSER_THIS(iface);
 383     FIXME("(%p)->(%p)\n", This, Name);
 384     return E_NOTIMPL;
 385 }
 386
 387 static HRESULT WINAPI WebBrowser_get_HWND(IWebBrowser2 *iface, long *pHWND)
 388 {
 389     WebBrowser *This = WEBBROWSER_THIS(iface);
 390     FIXME("(%p)->(%p)\n", This, pHWND);
 391     return E_NOTIMPL;
 392 }
 393
 394 static HRESULT WINAPI WebBrowser_get_FullName(IWebBrowser2 *iface, BSTR *FullName)
 395 {
 396     WebBrowser *This = WEBBROWSER_THIS(iface);
 397     FIXME("(%p)->(%p)\n", This, FullName);
 398     return E_NOTIMPL;
 399 }
 400
 401 static HRESULT WINAPI WebBrowser_get_Path(IWebBrowser2 *iface, BSTR *Path)
 402 {
 403     WebBrowser *This = WEBBROWSER_THIS(iface);
 404     FIXME("(%p)->(%p)\n", This, Path);
 405     return E_NOTIMPL;
 406 }
 407
 408 static HRESULT WINAPI WebBrowser_get_Visible(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
 409 {
 410     WebBrowser *This = WEBBROWSER_THIS(iface);
 411     FIXME("(%p)->(%p)\n", This, pBool);
 412     return E_NOTIMPL;
 413 }
 414
 415 static HRESULT WINAPI WebBrowser_put_Visible(IWebBrowser2 *iface, VARIANT_BOOL Value)
 416 {
 417     WebBrowser *This = WEBBROWSER_THIS(iface);
 418     FIXME("(%p)->(%x)\n", This, Value);
 419     return E_NOTIMPL;
 420 }
 421
 422 static HRESULT WINAPI WebBrowser_get_StatusBar(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
 423 {
 424     WebBrowser *This = WEBBROWSER_THIS(iface);
 425     FIXME("(%p)->(%p)\n", This, pBool);
 426     return E_NOTIMPL;
 427 }
 428
 429 static HRESULT WINAPI WebBrowser_put_StatusBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
 430 {
 431     WebBrowser *This = WEBBROWSER_THIS(iface);
 432     FIXME("(%p)->(%x)\n", This, Value);
 433     return E_NOTIMPL;
 434 }
 435
 436 static HRESULT WINAPI WebBrowser_get_StatusText(IWebBrowser2 *iface, BSTR *StatusText)
 437 {
 438     WebBrowser *This = WEBBROWSER_THIS(iface);
 439     FIXME("(%p)->(%p)\n", This, StatusText);
 440     return E_NOTIMPL;
 441 }
 442
 443 static HRESULT WINAPI WebBrowser_put_StatusText(IWebBrowser2 *iface, BSTR StatusText)
 444 {
 445     WebBrowser *This = WEBBROWSER_THIS(iface);
 446     FIXME("(%p)->(%s)\n", This, debugstr_w(StatusText));
 447     return E_NOTIMPL;
 448 }
 449
 450 static HRESULT WINAPI WebBrowser_get_ToolBar(IWebBrowser2 *iface, int *Value)
 451 {
 452     WebBrowser *This = WEBBROWSER_THIS(iface);
 453     FIXME("(%p)->(%p)\n", This, Value);
 454     return E_NOTIMPL;
 455 }
 456
 457 static HRESULT WINAPI WebBrowser_put_ToolBar(IWebBrowser2 *iface, int Value)
 458 {
 459     WebBrowser *This = WEBBROWSER_THIS(iface);
 460     FIXME("(%p)->(%d)\n", This, Value);
 461     return E_NOTIMPL;
 462 }
 463
 464 static HRESULT WINAPI WebBrowser_get_MenuBar(IWebBrowser2 *iface, VARIANT_BOOL *Value)
 465 {
 466     WebBrowser *This = WEBBROWSER_THIS(iface);
 467     FIXME("(%p)->(%p)\n", This, Value);
 468     return E_NOTIMPL;
 469 }
 470
 471 static HRESULT WINAPI WebBrowser_put_MenuBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
 472 {
 473     WebBrowser *This = WEBBROWSER_THIS(iface);
 474     FIXME("(%p)->(%x)\n", This, Value);
 475     return E_NOTIMPL;
 476 }
 477
 478 static HRESULT WINAPI WebBrowser_get_FullScreen(IWebBrowser2 *iface, VARIANT_BOOL *pbFullScreen)
 479 {
 480     WebBrowser *This = WEBBROWSER_THIS(iface);
 481     FIXME("(%p)->(%p)\n", This, pbFullScreen);
 482     return E_NOTIMPL;
 483 }
 484
 485 static HRESULT WINAPI WebBrowser_put_FullScreen(IWebBrowser2 *iface, VARIANT_BOOL bFullScreen)
 486 {
 487     WebBrowser *This = WEBBROWSER_THIS(iface);
 488     FIXME("(%p)->(%x)\n", This, bFullScreen);
 489     return E_NOTIMPL;
 490 }
 491
 492 static HRESULT WINAPI WebBrowser_Navigate2(IWebBrowser2 *iface, VARIANT *URL, VARIANT *Flags,
 493         VARIANT *TargetFrameName, VARIANT *PostData, VARIANT *Headers)
 494 {
 495     WebBrowser *This = WEBBROWSER_THIS(iface);
 496     IPersistMoniker *persist;
 497     IOleObject *oleobj;
 498     IMoniker *mon;
 499     HRESULT hres;
 500
 501     TRACE("(%p)->(%p %p %p %p %p)\n", This, URL, Flags, TargetFrameName, PostData, Headers);
 502
 503     if(!This->client)
 504         return E_FAIL;
 505
 506     if(V_VT(Flags) != VT_EMPTY || V_VT(TargetFrameName) != VT_EMPTY
 507        || V_VT(PostData) != VT_EMPTY || V_VT(Headers) != VT_EMPTY)
 508         FIXME("Unsupported arguments\n");
 509
 510     if(V_VT(URL) != VT_BSTR)
 511         FIXME("V_VT(URL) != VT_BSTR\n");
 512
 513     /*
 514      * FIXME:
 515      * We should use URLMoniker's BindToObject instead creating HTMLDocument here.
 516      * This should be fixed when mshtml.dll and urlmon.dll will be good enough.
 517      */
 518
 519     if(!This->document) {
 520         hres = CoCreateInstance(&CLSID_HTMLDocument, NULL,
 521                                 CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
 522                                 &IID_IUnknown, (void**)&This->document);
 523         if(FAILED(hres))
 524             return hres;
 525     }
 526
 527     hres = IUnknown_QueryInterface(This->document, &IID_IPersistMoniker, (void**)&persist);
 528     if(FAILED(hres))
 529         return hres;
 530
 531     hres = CreateURLMoniker(NULL, V_BSTR(URL), &mon);
 532     if(FAILED(hres)) {
 533         IPersistMoniker_Release(persist);
 534         return hres;
 535     }
 536
 537     hres = IPersistMoniker_Load(persist, FALSE, mon, NULL /* FIXME */, 0);
 538     IMoniker_Release(mon);
 539     IPersistMoniker_Release(persist);
 540     if(FAILED(hres)) {
 541         WARN("Load failed: %08lx\n", hres);
 542         return hres;
 543     }
 544
 545     hres = IUnknown_QueryInterface(This->document, &IID_IOleObject, (void**)&oleobj);
 546     if(FAILED(hres))
 547         return hres;
 548
 549     hres = IOleObject_SetClientSite(oleobj, CLIENTSITE(This));
 550     IOleObject_Release(oleobj);
 551
 552     return hres;
 553 }
 554
 555 static HRESULT WINAPI WebBrowser_QueryStatusWB(IWebBrowser2 *iface, OLECMDID cmdID, OLECMDF *pcmdf)
 556 {
 557     WebBrowser *This = WEBBROWSER_THIS(iface);
 558     FIXME("(%p)->(%d %p)\n", This, cmdID, pcmdf);
 559     return E_NOTIMPL;
 560 }
 561
 562 static HRESULT WINAPI WebBrowser_ExecWB(IWebBrowser2 *iface, OLECMDID cmdID,
 563         OLECMDEXECOPT cmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
 564 {
 565     WebBrowser *This = WEBBROWSER_THIS(iface);
 566     FIXME("(%p)->(%d %d %p %p)\n", This, cmdID, cmdexecopt, pvaIn, pvaOut);
 567     return E_NOTIMPL;
 568 }
 569
 570 static HRESULT WINAPI WebBrowser_ShowBrowserBar(IWebBrowser2 *iface, VARIANT *pvaClsid,
 571         VARIANT *pvarShow, VARIANT *pvarSize)
 572 {
 573     WebBrowser *This = WEBBROWSER_THIS(iface);
 574     FIXME("(%p)->(%p %p %p)\n", This, pvaClsid, pvarShow, pvarSize);
 575     return E_NOTIMPL;
 576 }
 577
 578 static HRESULT WINAPI WebBrowser_get_ReadyState(IWebBrowser2 *iface, READYSTATE *lpReadyState)
 579 {
 580     WebBrowser *This = WEBBROWSER_THIS(iface);
 581     FIXME("(%p)->(%p)\n", This, lpReadyState);
 582     return E_NOTIMPL;
 583 }
 584
 585 static HRESULT WINAPI WebBrowser_get_Offline(IWebBrowser2 *iface, VARIANT_BOOL *pbOffline)
 586 {
 587     WebBrowser *This = WEBBROWSER_THIS(iface);
 588     FIXME("(%p)->(%p)\n", This, pbOffline);
 589     return E_NOTIMPL;
 590 }
 591
 592 static HRESULT WINAPI WebBrowser_put_Offline(IWebBrowser2 *iface, VARIANT_BOOL bOffline)
 593 {
 594     WebBrowser *This = WEBBROWSER_THIS(iface);
 595     FIXME("(%p)->(%x)\n", This, bOffline);
 596     return E_NOTIMPL;
 597 }
 598
 599 static HRESULT WINAPI WebBrowser_get_Silent(IWebBrowser2 *iface, VARIANT_BOOL *pbSilent)
 600 {
 601     WebBrowser *This = WEBBROWSER_THIS(iface);
 602     FIXME("(%p)->(%p)\n", This, pbSilent);
 603     return E_NOTIMPL;
 604 }
 605
 606 static HRESULT WINAPI WebBrowser_put_Silent(IWebBrowser2 *iface, VARIANT_BOOL bSilent)
 607 {
 608     WebBrowser *This = WEBBROWSER_THIS(iface);
 609     FIXME("(%p)->(%x)\n", This, bSilent);
 610     return E_NOTIMPL;
 611 }
 612
 613 static HRESULT WINAPI WebBrowser_get_RegisterAsBrowser(IWebBrowser2 *iface,
 614         VARIANT_BOOL *pbRegister)
 615 {
 616     WebBrowser *This = WEBBROWSER_THIS(iface);
 617     FIXME("(%p)->(%p)\n", This, pbRegister);
 618     return E_NOTIMPL;
 619 }
 620
 621 static HRESULT WINAPI WebBrowser_put_RegisterAsBrowser(IWebBrowser2 *iface,
 622         VARIANT_BOOL bRegister)
 623 {
 624     WebBrowser *This = WEBBROWSER_THIS(iface);
 625     FIXME("(%p)->(%x)\n", This, bRegister);
 626     return E_NOTIMPL;
 627 }
 628
 629 static HRESULT WINAPI WebBrowser_get_RegisterAsDropTarget(IWebBrowser2 *iface,
 630         VARIANT_BOOL *pbRegister)
 631 {
 632     WebBrowser *This = WEBBROWSER_THIS(iface);
 633     FIXME("(%p)->(%p)\n", This, pbRegister);
 634     return E_NOTIMPL;
 635 }
 636
 637 static HRESULT WINAPI WebBrowser_put_RegisterAsDropTarget(IWebBrowser2 *iface,
 638         VARIANT_BOOL bRegister)
 639 {
 640     WebBrowser *This = WEBBROWSER_THIS(iface);
 641     FIXME("(%p)->(%x)\n", This, bRegister);
 642     return E_NOTIMPL;
 643 }
 644
 645 static HRESULT WINAPI WebBrowser_get_TheaterMode(IWebBrowser2 *iface, VARIANT_BOOL *pbRegister)
 646 {
 647     WebBrowser *This = WEBBROWSER_THIS(iface);
 648     FIXME("(%p)->(%p)\n", This, pbRegister);
 649     return E_NOTIMPL;
 650 }
 651
 652 static HRESULT WINAPI WebBrowser_put_TheaterMode(IWebBrowser2 *iface, VARIANT_BOOL bRegister)
 653 {
 654     WebBrowser *This = WEBBROWSER_THIS(iface);
 655     FIXME("(%p)->(%x)\n", This, bRegister);
 656     return E_NOTIMPL;
 657 }
 658
 659 static HRESULT WINAPI WebBrowser_get_AddressBar(IWebBrowser2 *iface, VARIANT_BOOL *Value)
 660 {
 661     WebBrowser *This = WEBBROWSER_THIS(iface);
 662     FIXME("(%p)->(%p)\n", This, Value);
 663     return E_NOTIMPL;
 664 }
 665
 666 static HRESULT WINAPI WebBrowser_put_AddressBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
 667 {
 668     WebBrowser *This = WEBBROWSER_THIS(iface);
 669     FIXME("(%p)->(%x)\n", This, Value);
 670     return E_NOTIMPL;
 671 }
 672
 673 static HRESULT WINAPI WebBrowser_get_Resizable(IWebBrowser2 *iface, VARIANT_BOOL *Value)
 674 {
 675     WebBrowser *This = WEBBROWSER_THIS(iface);
 676     FIXME("(%p)->(%p)\n", This, Value);
 677     return E_NOTIMPL;
 678 }
 679
 680 static HRESULT WINAPI WebBrowser_put_Resizable(IWebBrowser2 *iface, VARIANT_BOOL Value)
 681 {
 682     WebBrowser *This = WEBBROWSER_THIS(iface);
 683     FIXME("(%p)->(%x)\n", This, Value);
 684     return E_NOTIMPL;
 685 }
 686
 687 #undef WEBBROWSER_THIS
 688
 689 static const IWebBrowser2Vtbl WebBrowser2Vtbl =
 690 {
 691     WebBrowser_QueryInterface,
 692     WebBrowser_AddRef,
 693     WebBrowser_Release,
 694     WebBrowser_GetTypeInfoCount,
 695     WebBrowser_GetTypeInfo,
 696     WebBrowser_GetIDsOfNames,
 697     WebBrowser_Invoke,
 698     WebBrowser_GoBack,
 699     WebBrowser_GoForward,
 700     WebBrowser_GoHome,
 701     WebBrowser_GoSearch,
 702     WebBrowser_Navigate,
 703     WebBrowser_Refresh,
 704     WebBrowser_Refresh2,
 705     WebBrowser_Stop,
 706     WebBrowser_get_Application,
 707     WebBrowser_get_Parent,
 708     WebBrowser_get_Container,
 709     WebBrowser_get_Document,
 710     WebBrowser_get_TopLevelContainer,
 711     WebBrowser_get_Type,
 712     WebBrowser_get_Left,
 713     WebBrowser_put_Left,
 714     WebBrowser_get_Top,
 715     WebBrowser_put_Top,
 716     WebBrowser_get_Width,
 717     WebBrowser_put_Width,
 718     WebBrowser_get_Height,
 719     WebBrowser_put_Height,
 720     WebBrowser_get_LocationName,
 721     WebBrowser_get_LocationURL,
 722     WebBrowser_get_Busy,
 723     WebBrowser_Quit,
 724     WebBrowser_ClientToWindow,
 725     WebBrowser_PutProperty,
 726     WebBrowser_GetProperty,
 727     WebBrowser_get_Name,
 728     WebBrowser_get_HWND,
 729     WebBrowser_get_FullName,
 730     WebBrowser_get_Path,
 731     WebBrowser_get_Visible,
 732     WebBrowser_put_Visible,
 733     WebBrowser_get_StatusBar,
 734     WebBrowser_put_StatusBar,
 735     WebBrowser_get_StatusText,
 736     WebBrowser_put_StatusText,
 737     WebBrowser_get_ToolBar,
 738     WebBrowser_put_ToolBar,
 739     WebBrowser_get_MenuBar,
 740     WebBrowser_put_MenuBar,
 741     WebBrowser_get_FullScreen,
 742     WebBrowser_put_FullScreen,
 743     WebBrowser_Navigate2,
 744     WebBrowser_QueryStatusWB,
 745     WebBrowser_ExecWB,
 746     WebBrowser_ShowBrowserBar,
 747     WebBrowser_get_ReadyState,
 748     WebBrowser_get_Offline,
 749     WebBrowser_put_Offline,
 750     WebBrowser_get_Silent,
 751     WebBrowser_put_Silent,
 752     WebBrowser_get_RegisterAsBrowser,
 753     WebBrowser_put_RegisterAsBrowser,
 754     WebBrowser_get_RegisterAsDropTarget,
 755     WebBrowser_put_RegisterAsDropTarget,
 756     WebBrowser_get_TheaterMode,
 757     WebBrowser_put_TheaterMode,
 758     WebBrowser_get_AddressBar,
 759     WebBrowser_put_AddressBar,
 760     WebBrowser_get_Resizable,
 761     WebBrowser_put_Resizable
 762 };
 763
 764 HRESULT WebBrowser_Create(IUnknown *pOuter, REFIID riid, void **ppv)
 765 {
 766     WebBrowser *ret;
 767     HRESULT hres;
 768
 769     TRACE("(%p %s %p)\n", pOuter, debugstr_guid(riid), ppv);
 770
 771     ret = HeapAlloc(GetProcessHeap(), 0, sizeof(WebBrowser));
 772
 773     ret->lpWebBrowser2Vtbl = &WebBrowser2Vtbl;
 774     ret->ref = 0;
 775
 776     ret->document = NULL;
 777
 778     WebBrowser_OleObject_Init(ret);
 779     WebBrowser_ViewObject_Init(ret);
 780     WebBrowser_Persist_Init(ret);
 781     WebBrowser_ClassInfo_Init(ret);
 782     WebBrowser_Misc_Init(ret);
 783     WebBrowser_Events_Init(ret);
 784     WebBrowser_ClientSite_Init(ret);
 785
 786     hres = IWebBrowser_QueryInterface(WEBBROWSER(ret), riid, ppv);
 787     if(SUCCEEDED(hres)) {
 788         SHDOCVW_LockModule();
 789     }else {
 790         HeapFree(GetProcessHeap(), 0, ret);
 791         return hres;
 792     }
 793
 794     return hres;
 795 }