dlls/ieframe/ie.c

   1 /*
   2  * Copyright 2006 Jacek Caban for CodeWeavers
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2.1 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this library; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17  */
  18
  19 #include "ieframe.h"
  20
  21 #include "wine/debug.h"
  22
  23 WINE_DEFAULT_DEBUG_CHANNEL(ieframe);
  24
  25 static inline InternetExplorer *impl_from_IWebBrowser2(IWebBrowser2 *iface)
  26 {
  27     return CONTAINING_RECORD(iface, InternetExplorer, IWebBrowser2_iface);
  28 }
  29
  30 static HRESULT WINAPI InternetExplorer_QueryInterface(IWebBrowser2 *iface, REFIID riid, LPVOID *ppv)
  31 {
  32     InternetExplorer *This = impl_from_IWebBrowser2(iface);
  33
  34     *ppv = NULL;
  35
  36     if(IsEqualGUID(&IID_IUnknown, riid)) {
  37         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
  38         *ppv = &This->IWebBrowser2_iface;
  39     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
  40         TRACE("(%p)->(IID_IDispatch %p)\n", This, ppv);
  41         *ppv = &This->IWebBrowser2_iface;
  42     }else if(IsEqualGUID(&IID_IWebBrowser, riid)) {
  43         TRACE("(%p)->(IID_IWebBrowser %p)\n", This, ppv);
  44         *ppv = &This->IWebBrowser2_iface;
  45     }else if(IsEqualGUID(&IID_IWebBrowserApp, riid)) {
  46         TRACE("(%p)->(IID_IWebBrowserApp %p)\n", This, ppv);
  47         *ppv = &This->IWebBrowser2_iface;
  48     }else if(IsEqualGUID(&IID_IWebBrowser2, riid)) {
  49         TRACE("(%p)->(IID_IWebBrowser2 %p)\n", This, ppv);
  50         *ppv = &This->IWebBrowser2_iface;
  51     }else if(IsEqualGUID(&IID_IConnectionPointContainer, riid)) {
  52         TRACE("(%p)->(IID_IConnectionPointContainer %p)\n", This, ppv);
  53         *ppv = &This->doc_host.cps.IConnectionPointContainer_iface;
  54     }else if(IsEqualGUID(&IID_IExternalConnection, riid)) {
  55         TRACE("(%p)->(IID_IExternalConnection %p)\n", This, ppv);
  56         *ppv = &This->IExternalConnection_iface;
  57     }else if(IsEqualGUID(&IID_IServiceProvider, riid)) {
  58         TRACE("(%p)->(IID_IServiceProvider %p)\n", This, ppv);
  59         *ppv = &This->IServiceProvider_iface;
  60     }else if(HlinkFrame_QI(&This->hlink_frame, riid, ppv)) {
  61         return S_OK;
  62     }
  63
  64     if(*ppv) {
  65         IUnknown_AddRef((IUnknown*)*ppv);
  66         return S_OK;
  67     }
  68
  69     WARN("(%p)->(%s %p) interface not supported\n", This, debugstr_guid(riid), ppv);
  70     return E_NOINTERFACE;
  71 }
  72
  73 static ULONG WINAPI InternetExplorer_AddRef(IWebBrowser2 *iface)
  74 {
  75     InternetExplorer *This = impl_from_IWebBrowser2(iface);
  76     LONG ref = InterlockedIncrement(&This->ref);
  77     TRACE("(%p) ref=%d\n", This, ref);
  78     return ref;
  79 }
  80
  81 static ULONG WINAPI InternetExplorer_Release(IWebBrowser2 *iface)
  82 {
  83     InternetExplorer *This = impl_from_IWebBrowser2(iface);
  84     LONG ref = InterlockedDecrement(&This->ref);
  85
  86     TRACE("(%p) ref=%d\n", This, ref);
  87
  88     if(!ref) {
  89         deactivate_document(&This->doc_host);
  90         DocHost_Release(&This->doc_host);
  91
  92         if(This->frame_hwnd)
  93             DestroyWindow(This->frame_hwnd);
  94         list_remove(&This->entry);
  95         heap_free(This);
  96
  97         released_obj();
  98     }
  99
 100     return ref;
 101 }
 102
 103 static HRESULT WINAPI InternetExplorer_GetTypeInfoCount(IWebBrowser2 *iface, UINT *pctinfo)
 104 {
 105     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 106     FIXME("(%p)->(%p)\n", This, pctinfo);
 107     return E_NOTIMPL;
 108 }
 109
 110 static HRESULT WINAPI InternetExplorer_GetTypeInfo(IWebBrowser2 *iface, UINT iTInfo, LCID lcid,
 111                                      LPTYPEINFO *ppTInfo)
 112 {
 113     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 114     FIXME("(%p)->(%d %d %p)\n", This, iTInfo, lcid, ppTInfo);
 115     return E_NOTIMPL;
 116 }
 117
 118 static HRESULT WINAPI InternetExplorer_GetIDsOfNames(IWebBrowser2 *iface, REFIID riid,
 119                                        LPOLESTR *rgszNames, UINT cNames,
 120                                        LCID lcid, DISPID *rgDispId)
 121 {
 122     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 123     FIXME("(%p)->(%s %p %d %d %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
 124             lcid, rgDispId);
 125     return E_NOTIMPL;
 126 }
 127
 128 static HRESULT WINAPI InternetExplorer_Invoke(IWebBrowser2 *iface, DISPID dispIdMember,
 129                                 REFIID riid, LCID lcid, WORD wFlags,
 130                                 DISPPARAMS *pDispParams, VARIANT *pVarResult,
 131                                 EXCEPINFO *pExepInfo, UINT *puArgErr)
 132 {
 133     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 134     FIXME("(%p)->(%d %s %d %08x %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
 135             lcid, wFlags, pDispParams, pVarResult, pExepInfo, puArgErr);
 136     return E_NOTIMPL;
 137 }
 138
 139 static HRESULT WINAPI InternetExplorer_GoBack(IWebBrowser2 *iface)
 140 {
 141     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 142     TRACE("(%p)\n", This);
 143     return go_back(&This->doc_host);
 144 }
 145
 146 static HRESULT WINAPI InternetExplorer_GoForward(IWebBrowser2 *iface)
 147 {
 148     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 149     TRACE("(%p)\n", This);
 150     return go_forward(&This->doc_host);
 151 }
 152
 153 static HRESULT WINAPI InternetExplorer_GoHome(IWebBrowser2 *iface)
 154 {
 155     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 156     TRACE("(%p)\n", This);
 157     return go_home(&This->doc_host);
 158 }
 159
 160 static HRESULT WINAPI InternetExplorer_GoSearch(IWebBrowser2 *iface)
 161 {
 162     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 163     FIXME("(%p)\n", This);
 164     return E_NOTIMPL;
 165 }
 166
 167 static HRESULT WINAPI InternetExplorer_Navigate(IWebBrowser2 *iface, BSTR szUrl,
 168                                   VARIANT *Flags, VARIANT *TargetFrameName,
 169                                   VARIANT *PostData, VARIANT *Headers)
 170 {
 171     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 172
 173     TRACE("(%p)->(%s %p %p %p %p)\n", This, debugstr_w(szUrl), Flags, TargetFrameName,
 174           PostData, Headers);
 175
 176     return navigate_url(&This->doc_host, szUrl, Flags, TargetFrameName, PostData, Headers);
 177 }
 178
 179 static HRESULT WINAPI InternetExplorer_Refresh(IWebBrowser2 *iface)
 180 {
 181     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 182
 183     TRACE("(%p)\n", This);
 184
 185     return refresh_document(&This->doc_host);
 186 }
 187
 188 static HRESULT WINAPI InternetExplorer_Refresh2(IWebBrowser2 *iface, VARIANT *Level)
 189 {
 190     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 191     FIXME("(%p)->(%p)\n", This, Level);
 192     return E_NOTIMPL;
 193 }
 194
 195 static HRESULT WINAPI InternetExplorer_Stop(IWebBrowser2 *iface)
 196 {
 197     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 198     FIXME("(%p)\n", This);
 199     return E_NOTIMPL;
 200 }
 201
 202 static HRESULT WINAPI InternetExplorer_get_Application(IWebBrowser2 *iface, IDispatch **ppDisp)
 203 {
 204     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 205     FIXME("(%p)->(%p)\n", This, ppDisp);
 206     return E_NOTIMPL;
 207 }
 208
 209 static HRESULT WINAPI InternetExplorer_get_Parent(IWebBrowser2 *iface, IDispatch **ppDisp)
 210 {
 211     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 212     FIXME("(%p)->(%p)\n", This, ppDisp);
 213     return E_NOTIMPL;
 214 }
 215
 216 static HRESULT WINAPI InternetExplorer_get_Container(IWebBrowser2 *iface, IDispatch **ppDisp)
 217 {
 218     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 219     FIXME("(%p)->(%p)\n", This, ppDisp);
 220     return E_NOTIMPL;
 221 }
 222
 223 static HRESULT WINAPI InternetExplorer_get_Document(IWebBrowser2 *iface, IDispatch **ppDisp)
 224 {
 225     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 226     FIXME("(%p)->(%p)\n", This, ppDisp);
 227     return E_NOTIMPL;
 228 }
 229
 230 static HRESULT WINAPI InternetExplorer_get_TopLevelContainer(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
 231 {
 232     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 233     FIXME("(%p)->(%p)\n", This, pBool);
 234     return E_NOTIMPL;
 235 }
 236
 237 static HRESULT WINAPI InternetExplorer_get_Type(IWebBrowser2 *iface, BSTR *Type)
 238 {
 239     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 240     FIXME("(%p)->(%p)\n", This, Type);
 241     return E_NOTIMPL;
 242 }
 243
 244 static HRESULT WINAPI InternetExplorer_get_Left(IWebBrowser2 *iface, LONG *pl)
 245 {
 246     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 247     FIXME("(%p)->(%p)\n", This, pl);
 248     return E_NOTIMPL;
 249 }
 250
 251 static HRESULT WINAPI InternetExplorer_put_Left(IWebBrowser2 *iface, LONG Left)
 252 {
 253     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 254     FIXME("(%p)->(%d)\n", This, Left);
 255     return E_NOTIMPL;
 256 }
 257
 258 static HRESULT WINAPI InternetExplorer_get_Top(IWebBrowser2 *iface, LONG *pl)
 259 {
 260     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 261     FIXME("(%p)->(%p)\n", This, pl);
 262     return E_NOTIMPL;
 263 }
 264
 265 static HRESULT WINAPI InternetExplorer_put_Top(IWebBrowser2 *iface, LONG Top)
 266 {
 267     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 268     FIXME("(%p)->(%d)\n", This, Top);
 269     return E_NOTIMPL;
 270 }
 271
 272 static HRESULT WINAPI InternetExplorer_get_Width(IWebBrowser2 *iface, LONG *pl)
 273 {
 274     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 275     FIXME("(%p)->(%p)\n", This, pl);
 276     return E_NOTIMPL;
 277 }
 278
 279 static HRESULT WINAPI InternetExplorer_put_Width(IWebBrowser2 *iface, LONG Width)
 280 {
 281     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 282     FIXME("(%p)->(%d)\n", This, Width);
 283     return E_NOTIMPL;
 284 }
 285
 286 static HRESULT WINAPI InternetExplorer_get_Height(IWebBrowser2 *iface, LONG *pl)
 287 {
 288     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 289     FIXME("(%p)->(%p)\n", This, pl);
 290     return E_NOTIMPL;
 291 }
 292
 293 static HRESULT WINAPI InternetExplorer_put_Height(IWebBrowser2 *iface, LONG Height)
 294 {
 295     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 296     FIXME("(%p)->(%d)\n", This, Height);
 297     return E_NOTIMPL;
 298 }
 299
 300 static HRESULT WINAPI InternetExplorer_get_LocationName(IWebBrowser2 *iface, BSTR *LocationName)
 301 {
 302     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 303     FIXME("(%p)->(%p)\n", This, LocationName);
 304     return E_NOTIMPL;
 305 }
 306
 307 static HRESULT WINAPI InternetExplorer_get_LocationURL(IWebBrowser2 *iface, BSTR *LocationURL)
 308 {
 309     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 310
 311     TRACE("(%p)->(%p)\n", This, LocationURL);
 312
 313     return get_location_url(&This->doc_host, LocationURL);
 314 }
 315
 316 static HRESULT WINAPI InternetExplorer_get_Busy(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
 317 {
 318     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 319     FIXME("(%p)->(%p)\n", This, pBool);
 320     return E_NOTIMPL;
 321 }
 322
 323 static HRESULT WINAPI InternetExplorer_Quit(IWebBrowser2 *iface)
 324 {
 325     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 326     FIXME("(%p)\n", This);
 327     return E_NOTIMPL;
 328 }
 329
 330 static HRESULT WINAPI InternetExplorer_ClientToWindow(IWebBrowser2 *iface, int *pcx, int *pcy)
 331 {
 332     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 333     FIXME("(%p)->(%p %p)\n", This, pcx, pcy);
 334     return E_NOTIMPL;
 335 }
 336
 337 static HRESULT WINAPI InternetExplorer_PutProperty(IWebBrowser2 *iface, BSTR szProperty, VARIANT vtValue)
 338 {
 339     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 340     FIXME("(%p)->(%s)\n", This, debugstr_w(szProperty));
 341     return E_NOTIMPL;
 342 }
 343
 344 static HRESULT WINAPI InternetExplorer_GetProperty(IWebBrowser2 *iface, BSTR szProperty, VARIANT *pvtValue)
 345 {
 346     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 347     FIXME("(%p)->(%s %p)\n", This, debugstr_w(szProperty), pvtValue);
 348     return E_NOTIMPL;
 349 }
 350
 351 static HRESULT WINAPI InternetExplorer_get_Name(IWebBrowser2 *iface, BSTR *Name)
 352 {
 353     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 354     FIXME("(%p)->(%p)\n", This, Name);
 355     return E_NOTIMPL;
 356 }
 357
 358 static HRESULT WINAPI InternetExplorer_get_HWND(IWebBrowser2 *iface, SHANDLE_PTR *pHWND)
 359 {
 360     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 361
 362     TRACE("(%p)->(%p)\n", This, pHWND);
 363
 364     *pHWND = (SHANDLE_PTR)This->frame_hwnd;
 365     return S_OK;
 366 }
 367
 368 static HRESULT WINAPI InternetExplorer_get_FullName(IWebBrowser2 *iface, BSTR *FullName)
 369 {
 370     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 371     FIXME("(%p)->(%p)\n", This, FullName);
 372     return E_NOTIMPL;
 373 }
 374
 375 static HRESULT WINAPI InternetExplorer_get_Path(IWebBrowser2 *iface, BSTR *Path)
 376 {
 377     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 378     FIXME("(%p)->(%p)\n", This, Path);
 379     return E_NOTIMPL;
 380 }
 381
 382 static HRESULT WINAPI InternetExplorer_get_Visible(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
 383 {
 384     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 385
 386     TRACE("(%p)->(%p)\n", This, pBool);
 387
 388     *pBool = IsWindowVisible(This->frame_hwnd) ? VARIANT_TRUE : VARIANT_FALSE;
 389     return S_OK;
 390 }
 391
 392 static HRESULT WINAPI InternetExplorer_put_Visible(IWebBrowser2 *iface, VARIANT_BOOL Value)
 393 {
 394     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 395     TRACE("(%p)->(%x)\n", This, Value);
 396
 397     ShowWindow(This->frame_hwnd, Value ? SW_SHOW : SW_HIDE);
 398
 399     return S_OK;
 400 }
 401
 402 static HRESULT WINAPI InternetExplorer_get_StatusBar(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
 403 {
 404     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 405     FIXME("(%p)->(%p)\n", This, pBool);
 406     return E_NOTIMPL;
 407 }
 408
 409 static HRESULT WINAPI InternetExplorer_put_StatusBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
 410 {
 411     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 412     FIXME("(%p)->(%x)\n", This, Value);
 413     return E_NOTIMPL;
 414 }
 415
 416 static HRESULT WINAPI InternetExplorer_get_StatusText(IWebBrowser2 *iface, BSTR *StatusText)
 417 {
 418     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 419     FIXME("(%p)->(%p)\n", This, StatusText);
 420     return E_NOTIMPL;
 421 }
 422
 423 static HRESULT WINAPI InternetExplorer_put_StatusText(IWebBrowser2 *iface, BSTR StatusText)
 424 {
 425     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 426
 427     TRACE("(%p)->(%s)\n", This, debugstr_w(StatusText));
 428
 429     return update_ie_statustext(This, StatusText);
 430 }
 431
 432 static HRESULT WINAPI InternetExplorer_get_ToolBar(IWebBrowser2 *iface, int *Value)
 433 {
 434     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 435     FIXME("(%p)->(%p)\n", This, Value);
 436     return E_NOTIMPL;
 437 }
 438
 439 static HRESULT WINAPI InternetExplorer_put_ToolBar(IWebBrowser2 *iface, int Value)
 440 {
 441     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 442     FIXME("(%p)->(%d)\n", This, Value);
 443     return E_NOTIMPL;
 444 }
 445
 446 static HRESULT WINAPI InternetExplorer_get_MenuBar(IWebBrowser2 *iface, VARIANT_BOOL *Value)
 447 {
 448     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 449     FIXME("(%p)->(%p)\n", This, Value);
 450     return E_NOTIMPL;
 451 }
 452
 453 static HRESULT WINAPI InternetExplorer_put_MenuBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
 454 {
 455     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 456     HMENU menu = NULL;
 457
 458     TRACE("(%p)->(%x)\n", This, Value);
 459
 460     if(Value)
 461         menu = This->menu;
 462
 463     if(!SetMenu(This->frame_hwnd, menu))
 464         return HRESULT_FROM_WIN32(GetLastError());
 465
 466     return S_OK;
 467 }
 468
 469 static HRESULT WINAPI InternetExplorer_get_FullScreen(IWebBrowser2 *iface, VARIANT_BOOL *pbFullScreen)
 470 {
 471     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 472     FIXME("(%p)->(%p)\n", This, pbFullScreen);
 473     return E_NOTIMPL;
 474 }
 475
 476 static HRESULT WINAPI InternetExplorer_put_FullScreen(IWebBrowser2 *iface, VARIANT_BOOL bFullScreen)
 477 {
 478     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 479     FIXME("(%p)->(%x)\n", This, bFullScreen);
 480     return E_NOTIMPL;
 481 }
 482
 483 static HRESULT WINAPI InternetExplorer_Navigate2(IWebBrowser2 *iface, VARIANT *URL, VARIANT *Flags,
 484         VARIANT *TargetFrameName, VARIANT *PostData, VARIANT *Headers)
 485 {
 486     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 487
 488     TRACE("(%p)->(%p %p %p %p %p)\n", This, URL, Flags, TargetFrameName, PostData, Headers);
 489
 490     if(!URL)
 491         return S_OK;
 492
 493     if(V_VT(URL) != VT_BSTR) {
 494         FIXME("Unsupported V_VT(URL) %d\n", V_VT(URL));
 495         return E_INVALIDARG;
 496     }
 497
 498     return navigate_url(&This->doc_host, V_BSTR(URL), Flags, TargetFrameName, PostData, Headers);
 499 }
 500
 501 static HRESULT WINAPI InternetExplorer_QueryStatusWB(IWebBrowser2 *iface, OLECMDID cmdID, OLECMDF *pcmdf)
 502 {
 503     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 504     FIXME("(%p)->(%d %p)\n", This, cmdID, pcmdf);
 505     return E_NOTIMPL;
 506 }
 507
 508 static HRESULT WINAPI InternetExplorer_ExecWB(IWebBrowser2 *iface, OLECMDID cmdID,
 509         OLECMDEXECOPT cmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
 510 {
 511     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 512     FIXME("(%p)->(%d %d %p %p)\n", This, cmdID, cmdexecopt, pvaIn, pvaOut);
 513     return E_NOTIMPL;
 514 }
 515
 516 static HRESULT WINAPI InternetExplorer_ShowBrowserBar(IWebBrowser2 *iface, VARIANT *pvaClsid,
 517         VARIANT *pvarShow, VARIANT *pvarSize)
 518 {
 519     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 520     FIXME("(%p)->(%p %p %p)\n", This, pvaClsid, pvarShow, pvarSize);
 521     return E_NOTIMPL;
 522 }
 523
 524 static HRESULT WINAPI InternetExplorer_get_ReadyState(IWebBrowser2 *iface, READYSTATE *lpReadyState)
 525 {
 526     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 527     FIXME("(%p)->(%p)\n", This, lpReadyState);
 528     return E_NOTIMPL;
 529 }
 530
 531 static HRESULT WINAPI InternetExplorer_get_Offline(IWebBrowser2 *iface, VARIANT_BOOL *pbOffline)
 532 {
 533     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 534     FIXME("(%p)->(%p)\n", This, pbOffline);
 535     return E_NOTIMPL;
 536 }
 537
 538 static HRESULT WINAPI InternetExplorer_put_Offline(IWebBrowser2 *iface, VARIANT_BOOL bOffline)
 539 {
 540     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 541     FIXME("(%p)->(%x)\n", This, bOffline);
 542     return E_NOTIMPL;
 543 }
 544
 545 static HRESULT WINAPI InternetExplorer_get_Silent(IWebBrowser2 *iface, VARIANT_BOOL *pbSilent)
 546 {
 547     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 548     FIXME("(%p)->(%p)\n", This, pbSilent);
 549     return E_NOTIMPL;
 550 }
 551
 552 static HRESULT WINAPI InternetExplorer_put_Silent(IWebBrowser2 *iface, VARIANT_BOOL bSilent)
 553 {
 554     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 555     FIXME("(%p)->(%x)\n", This, bSilent);
 556     return E_NOTIMPL;
 557 }
 558
 559 static HRESULT WINAPI InternetExplorer_get_RegisterAsBrowser(IWebBrowser2 *iface,
 560         VARIANT_BOOL *pbRegister)
 561 {
 562     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 563     FIXME("(%p)->(%p)\n", This, pbRegister);
 564     return E_NOTIMPL;
 565 }
 566
 567 static HRESULT WINAPI InternetExplorer_put_RegisterAsBrowser(IWebBrowser2 *iface,
 568         VARIANT_BOOL bRegister)
 569 {
 570     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 571     FIXME("(%p)->(%x)\n", This, bRegister);
 572     return E_NOTIMPL;
 573 }
 574
 575 static HRESULT WINAPI InternetExplorer_get_RegisterAsDropTarget(IWebBrowser2 *iface,
 576         VARIANT_BOOL *pbRegister)
 577 {
 578     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 579     FIXME("(%p)->(%p)\n", This, pbRegister);
 580     return E_NOTIMPL;
 581 }
 582
 583 static HRESULT WINAPI InternetExplorer_put_RegisterAsDropTarget(IWebBrowser2 *iface,
 584         VARIANT_BOOL bRegister)
 585 {
 586     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 587     FIXME("(%p)->(%x)\n", This, bRegister);
 588     return E_NOTIMPL;
 589 }
 590
 591 static HRESULT WINAPI InternetExplorer_get_TheaterMode(IWebBrowser2 *iface, VARIANT_BOOL *pbRegister)
 592 {
 593     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 594     FIXME("(%p)->(%p)\n", This, pbRegister);
 595     return E_NOTIMPL;
 596 }
 597
 598 static HRESULT WINAPI InternetExplorer_put_TheaterMode(IWebBrowser2 *iface, VARIANT_BOOL bRegister)
 599 {
 600     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 601     FIXME("(%p)->(%x)\n", This, bRegister);
 602     return E_NOTIMPL;
 603 }
 604
 605 static HRESULT WINAPI InternetExplorer_get_AddressBar(IWebBrowser2 *iface, VARIANT_BOOL *Value)
 606 {
 607     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 608     FIXME("(%p)->(%p)\n", This, Value);
 609     return E_NOTIMPL;
 610 }
 611
 612 static HRESULT WINAPI InternetExplorer_put_AddressBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
 613 {
 614     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 615     FIXME("(%p)->(%x)\n", This, Value);
 616     return E_NOTIMPL;
 617 }
 618
 619 static HRESULT WINAPI InternetExplorer_get_Resizable(IWebBrowser2 *iface, VARIANT_BOOL *Value)
 620 {
 621     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 622     FIXME("(%p)->(%p)\n", This, Value);
 623     return E_NOTIMPL;
 624 }
 625
 626 static HRESULT WINAPI InternetExplorer_put_Resizable(IWebBrowser2 *iface, VARIANT_BOOL Value)
 627 {
 628     InternetExplorer *This = impl_from_IWebBrowser2(iface);
 629     FIXME("(%p)->(%x)\n", This, Value);
 630     return E_NOTIMPL;
 631 }
 632
 633 static const IWebBrowser2Vtbl InternetExplorerVtbl =
 634 {
 635     InternetExplorer_QueryInterface,
 636     InternetExplorer_AddRef,
 637     InternetExplorer_Release,
 638     InternetExplorer_GetTypeInfoCount,
 639     InternetExplorer_GetTypeInfo,
 640     InternetExplorer_GetIDsOfNames,
 641     InternetExplorer_Invoke,
 642     InternetExplorer_GoBack,
 643     InternetExplorer_GoForward,
 644     InternetExplorer_GoHome,
 645     InternetExplorer_GoSearch,
 646     InternetExplorer_Navigate,
 647     InternetExplorer_Refresh,
 648     InternetExplorer_Refresh2,
 649     InternetExplorer_Stop,
 650     InternetExplorer_get_Application,
 651     InternetExplorer_get_Parent,
 652     InternetExplorer_get_Container,
 653     InternetExplorer_get_Document,
 654     InternetExplorer_get_TopLevelContainer,
 655     InternetExplorer_get_Type,
 656     InternetExplorer_get_Left,
 657     InternetExplorer_put_Left,
 658     InternetExplorer_get_Top,
 659     InternetExplorer_put_Top,
 660     InternetExplorer_get_Width,
 661     InternetExplorer_put_Width,
 662     InternetExplorer_get_Height,
 663     InternetExplorer_put_Height,
 664     InternetExplorer_get_LocationName,
 665     InternetExplorer_get_LocationURL,
 666     InternetExplorer_get_Busy,
 667     InternetExplorer_Quit,
 668     InternetExplorer_ClientToWindow,
 669     InternetExplorer_PutProperty,
 670     InternetExplorer_GetProperty,
 671     InternetExplorer_get_Name,
 672     InternetExplorer_get_HWND,
 673     InternetExplorer_get_FullName,
 674     InternetExplorer_get_Path,
 675     InternetExplorer_get_Visible,
 676     InternetExplorer_put_Visible,
 677     InternetExplorer_get_StatusBar,
 678     InternetExplorer_put_StatusBar,
 679     InternetExplorer_get_StatusText,
 680     InternetExplorer_put_StatusText,
 681     InternetExplorer_get_ToolBar,
 682     InternetExplorer_put_ToolBar,
 683     InternetExplorer_get_MenuBar,
 684     InternetExplorer_put_MenuBar,
 685     InternetExplorer_get_FullScreen,
 686     InternetExplorer_put_FullScreen,
 687     InternetExplorer_Navigate2,
 688     InternetExplorer_QueryStatusWB,
 689     InternetExplorer_ExecWB,
 690     InternetExplorer_ShowBrowserBar,
 691     InternetExplorer_get_ReadyState,
 692     InternetExplorer_get_Offline,
 693     InternetExplorer_put_Offline,
 694     InternetExplorer_get_Silent,
 695     InternetExplorer_put_Silent,
 696     InternetExplorer_get_RegisterAsBrowser,
 697     InternetExplorer_put_RegisterAsBrowser,
 698     InternetExplorer_get_RegisterAsDropTarget,
 699     InternetExplorer_put_RegisterAsDropTarget,
 700     InternetExplorer_get_TheaterMode,
 701     InternetExplorer_put_TheaterMode,
 702     InternetExplorer_get_AddressBar,
 703     InternetExplorer_put_AddressBar,
 704     InternetExplorer_get_Resizable,
 705     InternetExplorer_put_Resizable
 706 };
 707
 708 static inline InternetExplorer *impl_from_IExternalConnection(IExternalConnection *iface)
 709 {
 710     return CONTAINING_RECORD(iface, InternetExplorer, IExternalConnection_iface);
 711 }
 712
 713 /*
 714  * Document may keep references to InternetExplorer object causing circular references.
 715  * We keep track of external references and release the document object when all
 716  * external references are released. A visible main window is also considered as
 717  * an external reference.
 718  */
 719 DWORD release_extern_ref(InternetExplorer *This, BOOL last_closes)
 720 {
 721     LONG ref = InterlockedDecrement(&This->extern_ref);
 722
 723     TRACE("ref = %d\n", ref);
 724
 725     if(ref)
 726         return ref;
 727
 728     if(!last_closes) {
 729         WARN("Last external connection released with FALSE last_closes.\n");
 730         return ref;
 731     }
 732
 733     deactivate_document(&This->doc_host);
 734     return ref;
 735 }
 736
 737 static HRESULT WINAPI ExternalConnection_QueryInterface(IExternalConnection *iface, REFIID riid, void **ppv)
 738 {
 739     InternetExplorer *This = impl_from_IExternalConnection(iface);
 740     return IWebBrowser2_QueryInterface(&This->IWebBrowser2_iface, riid, ppv);
 741 }
 742
 743 static ULONG WINAPI ExternalConnection_AddRef(IExternalConnection *iface)
 744 {
 745     InternetExplorer *This = impl_from_IExternalConnection(iface);
 746     return IWebBrowser2_AddRef(&This->IWebBrowser2_iface);
 747 }
 748
 749 static ULONG WINAPI ExternalConnection_Release(IExternalConnection *iface)
 750 {
 751     InternetExplorer *This = impl_from_IExternalConnection(iface);
 752     return IWebBrowser2_Release(&This->IWebBrowser2_iface);
 753 }
 754
 755 static DWORD WINAPI ExternalConnection_AddConnection(IExternalConnection *iface, DWORD extconn, DWORD reserved)
 756 {
 757     InternetExplorer *This = impl_from_IExternalConnection(iface);
 758
 759     TRACE("(%p)->(%x %x)\n", This, extconn, reserved);
 760
 761     if(extconn != EXTCONN_STRONG)
 762         return 0;
 763
 764     return InterlockedIncrement(&This->extern_ref);
 765 }
 766
 767 static DWORD WINAPI ExternalConnection_ReleaseConnection(IExternalConnection *iface, DWORD extconn,
 768         DWORD reserved, BOOL fLastReleaseCloses)
 769 {
 770     InternetExplorer *This = impl_from_IExternalConnection(iface);
 771
 772     TRACE("(%p)->(%x %x %x)\n", This, extconn, reserved, fLastReleaseCloses);
 773
 774     if(extconn != EXTCONN_STRONG)
 775         return 0;
 776
 777     return release_extern_ref(This, fLastReleaseCloses);
 778 }
 779
 780 static const IExternalConnectionVtbl ExternalConnectionVtbl = {
 781     ExternalConnection_QueryInterface,
 782     ExternalConnection_AddRef,
 783     ExternalConnection_Release,
 784     ExternalConnection_AddConnection,
 785     ExternalConnection_ReleaseConnection
 786 };
 787
 788 static inline InternetExplorer *impl_from_IServiceProvider(IServiceProvider *iface)
 789 {
 790     return CONTAINING_RECORD(iface, InternetExplorer, IServiceProvider_iface);
 791 }
 792
 793 static HRESULT WINAPI IEServiceProvider_QueryInterface(IServiceProvider *iface,
 794             REFIID riid, LPVOID *ppv)
 795 {
 796     InternetExplorer *This = impl_from_IServiceProvider(iface);
 797     return IWebBrowser2_QueryInterface(&This->IWebBrowser2_iface, riid, ppv);
 798 }
 799
 800 static ULONG WINAPI IEServiceProvider_AddRef(IServiceProvider *iface)
 801 {
 802     InternetExplorer *This = impl_from_IServiceProvider(iface);
 803     return IWebBrowser2_AddRef(&This->IWebBrowser2_iface);
 804 }
 805
 806 static ULONG WINAPI IEServiceProvider_Release(IServiceProvider *iface)
 807 {
 808     InternetExplorer *This = impl_from_IServiceProvider(iface);
 809     return IWebBrowser2_Release(&This->IWebBrowser2_iface);
 810 }
 811
 812 static HRESULT WINAPI IEServiceProvider_QueryService(IServiceProvider *iface,
 813         REFGUID guidService, REFIID riid, void **ppv)
 814 {
 815     InternetExplorer *This = impl_from_IServiceProvider(iface);
 816
 817     if(IsEqualGUID(&SID_SHTMLWindow, riid)) {
 818         TRACE("(%p)->(SID_SHTMLWindow)\n", This);
 819         return IHTMLWindow2_QueryInterface(&This->doc_host.html_window.IHTMLWindow2_iface, riid, ppv);
 820     }
 821
 822     FIXME("(%p)->(%s, %s %p)\n", This, debugstr_guid(guidService), debugstr_guid(riid), ppv);
 823     *ppv = NULL;
 824     return E_NOINTERFACE;
 825 }
 826
 827 static const IServiceProviderVtbl ServiceProviderVtbl =
 828 {
 829     IEServiceProvider_QueryInterface,
 830     IEServiceProvider_AddRef,
 831     IEServiceProvider_Release,
 832     IEServiceProvider_QueryService
 833 };
 834
 835 void InternetExplorer_WebBrowser_Init(InternetExplorer *This)
 836 {
 837     This->IWebBrowser2_iface.lpVtbl = &InternetExplorerVtbl;
 838     This->IExternalConnection_iface.lpVtbl = &ExternalConnectionVtbl;
 839     This->IServiceProvider_iface.lpVtbl = &ServiceProviderVtbl;
 840 }