dlls/ieframe/navigate.c

   1 /*
   2  * Copyright 2006-2007 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 "exdispid.h"
  22 #include "shellapi.h"
  23 #include "winreg.h"
  24 #include "shlwapi.h"
  25 #include "wininet.h"
  26 #include "mshtml.h"
  27 #include "perhist.h"
  28 #include "resource.h"
  29
  30 #include "wine/debug.h"
  31
  32 WINE_DEFAULT_DEBUG_CHANNEL(ieframe);
  33
  34 static const WCHAR emptyW[] = {0};
  35
  36 typedef struct {
  37     IBindStatusCallback  IBindStatusCallback_iface;
  38     IHttpNegotiate       IHttpNegotiate_iface;
  39     IHttpSecurity        IHttpSecurity_iface;
  40
  41     LONG ref;
  42
  43     DocHost *doc_host;
  44     IBinding *binding;
  45
  46     BSTR url;
  47     HGLOBAL post_data;
  48     BSTR headers;
  49     ULONG post_data_len;
  50 } BindStatusCallback;
  51
  52 static void dump_BINDINFO(BINDINFO *bi)
  53 {
  54     static const char * const BINDINFOF_str[] = {
  55         "#0",
  56         "BINDINFOF_URLENCODESTGMEDDATA",
  57         "BINDINFOF_URLENCODEDEXTRAINFO"
  58     };
  59
  60     static const char * const BINDVERB_str[] = {
  61         "BINDVERB_GET",
  62         "BINDVERB_POST",
  63         "BINDVERB_PUT",
  64         "BINDVERB_CUSTOM"
  65     };
  66
  67     TRACE("\n"
  68             "BINDINFO = {\n"
  69             "    %ld, %s,\n"
  70             "    {%ld, %p, %p},\n"
  71             "    %s,\n"
  72             "    %s,\n"
  73             "    %s,\n"
  74             "    %ld, %08lx, %ld, %ld\n"
  75             "    {%ld %p %x},\n"
  76             "    %s\n"
  77             "    %p, %ld\n"
  78             "}\n",
  79
  80             bi->cbSize, debugstr_w(bi->szExtraInfo),
  81             bi->stgmedData.tymed, bi->stgmedData.hGlobal, bi->stgmedData.pUnkForRelease,
  82             bi->grfBindInfoF > BINDINFOF_URLENCODEDEXTRAINFO
  83                 ? "unknown" : BINDINFOF_str[bi->grfBindInfoF],
  84             bi->dwBindVerb > BINDVERB_CUSTOM
  85                 ? "unknown" : BINDVERB_str[bi->dwBindVerb],
  86             debugstr_w(bi->szCustomVerb),
  87             bi->cbstgmedData, bi->dwOptions, bi->dwOptionsFlags, bi->dwCodePage,
  88             bi->securityAttributes.nLength,
  89             bi->securityAttributes.lpSecurityDescriptor,
  90             bi->securityAttributes.bInheritHandle,
  91             debugstr_guid(&bi->iid),
  92             bi->pUnk, bi->dwReserved
  93             );
  94 }
  95
  96 static void set_status_text(BindStatusCallback *This, ULONG statuscode, LPCWSTR str)
  97 {
  98     VARIANTARG arg;
  99     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 100     WCHAR fmt[IDS_STATUSFMT_MAXLEN];
 101     WCHAR buffer[IDS_STATUSFMT_MAXLEN + INTERNET_MAX_URL_LENGTH];
 102
 103     if(!This->doc_host)
 104         return;
 105
 106     TRACE("(%p, %ld, %s)\n", This, statuscode, debugstr_w(str));
 107     buffer[0] = 0;
 108     if (statuscode && str && *str) {
 109         fmt[0] = 0;
 110         /* the format string must have one "%s" for the str */
 111         LoadStringW(ieframe_instance, IDS_STATUSFMT_FIRST + statuscode, fmt, IDS_STATUSFMT_MAXLEN);
 112         swprintf(buffer, ARRAY_SIZE(buffer), fmt, str);
 113     }
 114
 115     V_VT(&arg) = VT_BSTR;
 116     V_BSTR(&arg) = str ? SysAllocString(buffer) : SysAllocString(emptyW);
 117     TRACE("=> %s\n", debugstr_w(V_BSTR(&arg)));
 118
 119     call_sink(This->doc_host->cps.wbe2, DISPID_STATUSTEXTCHANGE, &dispparams);
 120
 121     if(This->doc_host->frame)
 122         IOleInPlaceFrame_SetStatusText(This->doc_host->frame, buffer);
 123
 124     VariantClear(&arg);
 125
 126 }
 127
 128 HRESULT set_dochost_url(DocHost *This, const WCHAR *url)
 129 {
 130     WCHAR *new_url;
 131
 132     if(url) {
 133         new_url = wcsdup(url);
 134         if(!new_url)
 135             return E_OUTOFMEMORY;
 136     }else {
 137         new_url = NULL;
 138     }
 139
 140     free(This->url);
 141     This->url = new_url;
 142
 143     This->container_vtbl->set_url(This, This->url);
 144     return S_OK;
 145 }
 146
 147 void notify_download_state(DocHost *dochost, BOOL is_downloading)
 148 {
 149     DISPPARAMS dwl_dp = {NULL};
 150     TRACE("(%x)\n", is_downloading);
 151     dochost->busy = is_downloading ? VARIANT_TRUE : VARIANT_FALSE;
 152     call_sink(dochost->cps.wbe2, is_downloading ? DISPID_DOWNLOADBEGIN : DISPID_DOWNLOADCOMPLETE, &dwl_dp);
 153 }
 154
 155 static inline BindStatusCallback *impl_from_IBindStatusCallback(IBindStatusCallback *iface)
 156 {
 157     return CONTAINING_RECORD(iface, BindStatusCallback, IBindStatusCallback_iface);
 158 }
 159
 160 static HRESULT WINAPI BindStatusCallback_QueryInterface(IBindStatusCallback *iface,
 161                                                         REFIID riid, void **ppv)
 162 {
 163     BindStatusCallback *This = impl_from_IBindStatusCallback(iface);
 164
 165     if(IsEqualGUID(&IID_IUnknown, riid)) {
 166         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
 167         *ppv = &This->IBindStatusCallback_iface;
 168     }else if(IsEqualGUID(&IID_IBindStatusCallback, riid)) {
 169         TRACE("(%p)->(IID_IBindStatusCallback %p)\n", This, ppv);
 170         *ppv = &This->IBindStatusCallback_iface;
 171     }else if(IsEqualGUID(&IID_IHttpNegotiate, riid)) {
 172         TRACE("(%p)->(IID_IHttpNegotiate %p)\n", This, ppv);
 173         *ppv = &This->IHttpNegotiate_iface;
 174     }else if(IsEqualGUID(&IID_IWindowForBindingUI, riid)) {
 175         TRACE("(%p)->(IID_IWindowForBindingUI %p)\n", This, ppv);
 176         *ppv = &This->IHttpSecurity_iface;
 177     }else if(IsEqualGUID(&IID_IHttpSecurity, riid)) {
 178         TRACE("(%p)->(IID_IHttpSecurity %p)\n", This, ppv);
 179         *ppv = &This->IHttpSecurity_iface;
 180     }else {
 181         *ppv = NULL;
 182         WARN("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
 183         return E_NOINTERFACE;
 184     }
 185
 186     IUnknown_AddRef((IUnknown*)*ppv);
 187     return S_OK;
 188 }
 189
 190 static ULONG WINAPI BindStatusCallback_AddRef(IBindStatusCallback *iface)
 191 {
 192     BindStatusCallback *This = impl_from_IBindStatusCallback(iface);
 193     LONG ref = InterlockedIncrement(&This->ref);
 194
 195     TRACE("(%p) ref=%ld\n", This, ref);
 196
 197     return ref;
 198 }
 199
 200 static ULONG WINAPI BindStatusCallback_Release(IBindStatusCallback *iface)
 201 {
 202     BindStatusCallback *This = impl_from_IBindStatusCallback(iface);
 203     LONG ref = InterlockedDecrement(&This->ref);
 204
 205     TRACE("(%p) ref=%ld\n", This, ref);
 206
 207     if(!ref) {
 208         if(This->doc_host)
 209             IOleClientSite_Release(&This->doc_host->IOleClientSite_iface);
 210         if(This->binding)
 211             IBinding_Release(This->binding);
 212         if(This->post_data)
 213             GlobalFree(This->post_data);
 214         SysFreeString(This->headers);
 215         SysFreeString(This->url);
 216         free(This);
 217     }
 218
 219     return ref;
 220 }
 221
 222 static HRESULT WINAPI BindStatusCallback_OnStartBinding(IBindStatusCallback *iface,
 223        DWORD dwReserved, IBinding *pbind)
 224 {
 225     BindStatusCallback *This = impl_from_IBindStatusCallback(iface);
 226
 227     TRACE("(%p)->(%ld %p)\n", This, dwReserved, pbind);
 228
 229     This->binding = pbind;
 230     IBinding_AddRef(This->binding);
 231
 232     return S_OK;
 233 }
 234
 235 static HRESULT WINAPI BindStatusCallback_GetPriority(IBindStatusCallback *iface,
 236        LONG *pnPriority)
 237 {
 238     BindStatusCallback *This = impl_from_IBindStatusCallback(iface);
 239     FIXME("(%p)->(%p)\n", This, pnPriority);
 240     return E_NOTIMPL;
 241 }
 242
 243 static HRESULT WINAPI BindStatusCallback_OnLowResource(IBindStatusCallback *iface,
 244        DWORD reserved)
 245 {
 246     BindStatusCallback *This = impl_from_IBindStatusCallback(iface);
 247     FIXME("(%p)->(%ld)\n", This, reserved);
 248     return E_NOTIMPL;
 249 }
 250
 251 static DWORD get_http_status_code(IBinding *binding)
 252 {
 253     IWinInetHttpInfo *http_info;
 254     DWORD status, size = sizeof(DWORD);
 255     HRESULT hres;
 256
 257     hres = IBinding_QueryInterface(binding, &IID_IWinInetHttpInfo, (void**)&http_info);
 258     if(FAILED(hres))
 259         return HTTP_STATUS_OK;
 260
 261     hres = IWinInetHttpInfo_QueryInfo(http_info, HTTP_QUERY_STATUS_CODE|HTTP_QUERY_FLAG_NUMBER,
 262             &status, &size, NULL, NULL);
 263     IWinInetHttpInfo_Release(http_info);
 264
 265     if(FAILED(hres))
 266         return HTTP_STATUS_OK;
 267     return status;
 268 }
 269
 270 static HRESULT WINAPI BindStatusCallback_OnProgress(IBindStatusCallback *iface,
 271         ULONG ulProgress, ULONG ulProgressMax, ULONG ulStatusCode, LPCWSTR szStatusText)
 272 {
 273     BindStatusCallback *This = impl_from_IBindStatusCallback(iface);
 274     DWORD status_code;
 275
 276     TRACE("(%p)->(%ld %ld %ld %s)\n", This, ulProgress, ulProgressMax, ulStatusCode,
 277           debugstr_w(szStatusText));
 278
 279     switch(ulStatusCode) {
 280     case BINDSTATUS_REDIRECTING:
 281         return set_dochost_url(This->doc_host, szStatusText);
 282     case BINDSTATUS_BEGINDOWNLOADDATA:
 283         set_status_text(This, ulStatusCode, szStatusText);
 284         status_code = get_http_status_code(This->binding);
 285         if(status_code != HTTP_STATUS_OK)
 286             handle_navigation_error(This->doc_host, status_code, This->url, NULL);
 287         return S_OK;
 288
 289     case BINDSTATUS_FINDINGRESOURCE:
 290     case BINDSTATUS_ENDDOWNLOADDATA:
 291     case BINDSTATUS_SENDINGREQUEST:
 292         set_status_text(This, ulStatusCode, szStatusText);
 293         return S_OK;
 294
 295     case BINDSTATUS_CONNECTING:
 296     case BINDSTATUS_CACHEFILENAMEAVAILABLE:
 297     case BINDSTATUS_CLASSIDAVAILABLE:
 298     case BINDSTATUS_MIMETYPEAVAILABLE:
 299     case BINDSTATUS_BEGINSYNCOPERATION:
 300     case BINDSTATUS_ENDSYNCOPERATION:
 301         return S_OK;
 302     default:
 303         FIXME("status code %lu\n", ulStatusCode);
 304     }
 305
 306     return S_OK;
 307 }
 308
 309 void handle_navigation_error(DocHost* doc_host, HRESULT hres, BSTR url, IHTMLWindow2 *win2)
 310 {
 311     VARIANT var_status_code, var_frame_name, var_url;
 312     DISPPARAMS dispparams;
 313     VARIANTARG params[5];
 314     VARIANT_BOOL cancel = VARIANT_FALSE;
 315
 316     dispparams.cArgs = 5;
 317     dispparams.cNamedArgs = 0;
 318     dispparams.rgdispidNamedArgs = NULL;
 319     dispparams.rgvarg = params;
 320
 321     V_VT(params) = VT_BOOL|VT_BYREF;
 322     V_BOOLREF(params) = &cancel;
 323
 324     V_VT(params+1) = VT_VARIANT|VT_BYREF;
 325     V_VARIANTREF(params+1) = &var_status_code;
 326     V_VT(&var_status_code) = VT_I4;
 327     V_I4(&var_status_code) = hres;
 328
 329     V_VT(params+2) = VT_VARIANT|VT_BYREF;
 330     V_VARIANTREF(params+2) = &var_frame_name;
 331     V_VT(&var_frame_name) = VT_BSTR;
 332     if(win2) {
 333         hres = IHTMLWindow2_get_name(win2, &V_BSTR(&var_frame_name));
 334         if(FAILED(hres))
 335             V_BSTR(&var_frame_name) = NULL;
 336     } else
 337         V_BSTR(&var_frame_name) = NULL;
 338
 339     V_VT(params+3) = VT_VARIANT|VT_BYREF;
 340     V_VARIANTREF(params+3) = &var_url;
 341     V_VT(&var_url) = VT_BSTR;
 342     V_BSTR(&var_url) = url;
 343
 344     V_VT(params+4) = VT_DISPATCH;
 345     V_DISPATCH(params+4) = (IDispatch*)doc_host->wb;
 346
 347     call_sink(doc_host->cps.wbe2, DISPID_NAVIGATEERROR, &dispparams);
 348     SysFreeString(V_BSTR(&var_frame_name));
 349
 350     if(!cancel)
 351         FIXME("Navigate to error page\n");
 352 }
 353
 354 static HRESULT WINAPI BindStatusCallback_OnStopBinding(IBindStatusCallback *iface,
 355         HRESULT hresult, LPCWSTR szError)
 356 {
 357     BindStatusCallback *This = impl_from_IBindStatusCallback(iface);
 358
 359     TRACE("(%p)->(%08lx %s)\n", This, hresult, debugstr_w(szError));
 360
 361     set_status_text(This, 0, emptyW);
 362
 363     if(!This->doc_host)
 364         return S_OK;
 365
 366     if(!This->doc_host->olecmd)
 367         notify_download_state(This->doc_host, FALSE);
 368     if(FAILED(hresult))
 369         handle_navigation_error(This->doc_host, hresult, This->url, NULL);
 370
 371     IOleClientSite_Release(&This->doc_host->IOleClientSite_iface);
 372     This->doc_host = NULL;
 373
 374     IBinding_Release(This->binding);
 375     This->binding = NULL;
 376
 377     return S_OK;
 378 }
 379
 380 static HRESULT WINAPI BindStatusCallback_GetBindInfo(IBindStatusCallback *iface,
 381         DWORD *grfBINDF, BINDINFO *pbindinfo)
 382 {
 383     BindStatusCallback *This = impl_from_IBindStatusCallback(iface);
 384
 385     TRACE("(%p)->(%p %p)\n", This, grfBINDF, pbindinfo);
 386
 387     *grfBINDF = BINDF_ASYNCHRONOUS;
 388
 389     if(This->post_data) {
 390         pbindinfo->dwBindVerb = BINDVERB_POST;
 391
 392         pbindinfo->stgmedData.tymed = TYMED_HGLOBAL;
 393         pbindinfo->stgmedData.hGlobal = This->post_data;
 394         pbindinfo->cbstgmedData = This->post_data_len;
 395         pbindinfo->stgmedData.pUnkForRelease = (IUnknown*)&This->IBindStatusCallback_iface;
 396         IBindStatusCallback_AddRef(&This->IBindStatusCallback_iface);
 397     }
 398
 399     return S_OK;
 400 }
 401
 402 static HRESULT WINAPI BindStatusCallback_OnDataAvailable(IBindStatusCallback *iface,
 403         DWORD grfBSCF, DWORD dwSize, FORMATETC *pformatetc, STGMEDIUM *pstgmed)
 404 {
 405     BindStatusCallback *This = impl_from_IBindStatusCallback(iface);
 406     FIXME("(%p)->(%08lx %ld %p %p)\n", This, grfBSCF, dwSize, pformatetc, pstgmed);
 407     return E_NOTIMPL;
 408 }
 409
 410 static HRESULT WINAPI BindStatusCallback_OnObjectAvailable(IBindStatusCallback *iface,
 411         REFIID riid, IUnknown *punk)
 412 {
 413     BindStatusCallback *This = impl_from_IBindStatusCallback(iface);
 414
 415     TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), punk);
 416
 417     return dochost_object_available(This->doc_host, punk);
 418 }
 419
 420 static const IBindStatusCallbackVtbl BindStatusCallbackVtbl = {
 421     BindStatusCallback_QueryInterface,
 422     BindStatusCallback_AddRef,
 423     BindStatusCallback_Release,
 424     BindStatusCallback_OnStartBinding,
 425     BindStatusCallback_GetPriority,
 426     BindStatusCallback_OnLowResource,
 427     BindStatusCallback_OnProgress,
 428     BindStatusCallback_OnStopBinding,
 429     BindStatusCallback_GetBindInfo,
 430     BindStatusCallback_OnDataAvailable,
 431     BindStatusCallback_OnObjectAvailable
 432 };
 433
 434 static inline BindStatusCallback *impl_from_IHttpNegotiate(IHttpNegotiate *iface)
 435 {
 436     return CONTAINING_RECORD(iface, BindStatusCallback, IHttpNegotiate_iface);
 437 }
 438
 439 static HRESULT WINAPI HttpNegotiate_QueryInterface(IHttpNegotiate *iface,
 440                                                    REFIID riid, void **ppv)
 441 {
 442     BindStatusCallback *This = impl_from_IHttpNegotiate(iface);
 443     return IBindStatusCallback_QueryInterface(&This->IBindStatusCallback_iface, riid, ppv);
 444 }
 445
 446 static ULONG WINAPI HttpNegotiate_AddRef(IHttpNegotiate *iface)
 447 {
 448     BindStatusCallback *This = impl_from_IHttpNegotiate(iface);
 449     return IBindStatusCallback_AddRef(&This->IBindStatusCallback_iface);
 450 }
 451
 452 static ULONG WINAPI HttpNegotiate_Release(IHttpNegotiate *iface)
 453 {
 454     BindStatusCallback *This = impl_from_IHttpNegotiate(iface);
 455     return IBindStatusCallback_Release(&This->IBindStatusCallback_iface);
 456 }
 457
 458 static HRESULT WINAPI HttpNegotiate_BeginningTransaction(IHttpNegotiate *iface,
 459         LPCWSTR szURL, LPCWSTR szHeaders, DWORD dwReserved, LPWSTR *pszAdditionalHeaders)
 460 {
 461     BindStatusCallback *This = impl_from_IHttpNegotiate(iface);
 462
 463     TRACE("(%p)->(%s %s %ld %p)\n", This, debugstr_w(szURL), debugstr_w(szHeaders),
 464           dwReserved, pszAdditionalHeaders);
 465
 466     if(This->headers) {
 467         int size = (lstrlenW(This->headers)+1)*sizeof(WCHAR);
 468         *pszAdditionalHeaders = CoTaskMemAlloc(size);
 469         memcpy(*pszAdditionalHeaders, This->headers, size);
 470     }
 471
 472     return S_OK;
 473 }
 474
 475 static HRESULT WINAPI HttpNegotiate_OnResponse(IHttpNegotiate *iface,
 476         DWORD dwResponseCode, LPCWSTR szResponseHeaders, LPCWSTR szRequestHeaders,
 477         LPWSTR *pszAdditionalRequestHeaders)
 478 {
 479     BindStatusCallback *This = impl_from_IHttpNegotiate(iface);
 480     TRACE("(%p)->(%ld %s %s %p)\n", This, dwResponseCode, debugstr_w(szResponseHeaders),
 481           debugstr_w(szRequestHeaders), pszAdditionalRequestHeaders);
 482     return S_OK;
 483 }
 484
 485 static const IHttpNegotiateVtbl HttpNegotiateVtbl = {
 486     HttpNegotiate_QueryInterface,
 487     HttpNegotiate_AddRef,
 488     HttpNegotiate_Release,
 489     HttpNegotiate_BeginningTransaction,
 490     HttpNegotiate_OnResponse
 491 };
 492
 493 static inline BindStatusCallback *impl_from_IHttpSecurity(IHttpSecurity *iface)
 494 {
 495     return CONTAINING_RECORD(iface, BindStatusCallback, IHttpSecurity_iface);
 496 }
 497
 498 static HRESULT WINAPI HttpSecurity_QueryInterface(IHttpSecurity *iface, REFIID riid, void **ppv)
 499 {
 500     BindStatusCallback *This = impl_from_IHttpSecurity(iface);
 501     return IBindStatusCallback_QueryInterface(&This->IBindStatusCallback_iface, riid, ppv);
 502 }
 503
 504 static ULONG WINAPI HttpSecurity_AddRef(IHttpSecurity *iface)
 505 {
 506     BindStatusCallback *This = impl_from_IHttpSecurity(iface);
 507     return IBindStatusCallback_AddRef(&This->IBindStatusCallback_iface);
 508 }
 509
 510 static ULONG WINAPI HttpSecurity_Release(IHttpSecurity *iface)
 511 {
 512     BindStatusCallback *This = impl_from_IHttpSecurity(iface);
 513     return IBindStatusCallback_Release(&This->IBindStatusCallback_iface);
 514 }
 515
 516 static HRESULT WINAPI HttpSecurity_GetWindow(IHttpSecurity *iface, REFGUID rguidReason, HWND *phwnd)
 517 {
 518     BindStatusCallback *This = impl_from_IHttpSecurity(iface);
 519
 520     TRACE("(%p)->(%s %p)\n", This, debugstr_guid(rguidReason), phwnd);
 521
 522     if(!This->doc_host)
 523         return E_FAIL;
 524
 525     *phwnd = This->doc_host->frame_hwnd;
 526     return S_OK;
 527 }
 528
 529 static HRESULT WINAPI HttpSecurity_OnSecurityProblem(IHttpSecurity *iface, DWORD dwProblem)
 530 {
 531     BindStatusCallback *This = impl_from_IHttpSecurity(iface);
 532     FIXME("(%p)->(%lu)\n", This, dwProblem);
 533     return S_FALSE;
 534 }
 535
 536 static const IHttpSecurityVtbl HttpSecurityVtbl = {
 537     HttpSecurity_QueryInterface,
 538     HttpSecurity_AddRef,
 539     HttpSecurity_Release,
 540     HttpSecurity_GetWindow,
 541     HttpSecurity_OnSecurityProblem
 542 };
 543
 544 static BindStatusCallback *create_callback(DocHost *doc_host, LPCWSTR url, PBYTE post_data,
 545         ULONG post_data_len, LPCWSTR headers)
 546 {
 547     BindStatusCallback *ret = malloc(sizeof(BindStatusCallback));
 548
 549     ret->IBindStatusCallback_iface.lpVtbl = &BindStatusCallbackVtbl;
 550     ret->IHttpNegotiate_iface.lpVtbl      = &HttpNegotiateVtbl;
 551     ret->IHttpSecurity_iface.lpVtbl       = &HttpSecurityVtbl;
 552
 553     ret->ref = 1;
 554     ret->url = SysAllocString(url);
 555     ret->post_data = NULL;
 556     ret->post_data_len = post_data_len;
 557     ret->headers = headers ? SysAllocString(headers) : NULL;
 558
 559     ret->doc_host = doc_host;
 560     IOleClientSite_AddRef(&doc_host->IOleClientSite_iface);
 561
 562     ret->binding = NULL;
 563
 564     if(post_data) {
 565         ret->post_data = GlobalAlloc(0, post_data_len);
 566         memcpy(ret->post_data, post_data, post_data_len);
 567     }
 568
 569     return ret;
 570 }
 571
 572 static void on_before_navigate2(DocHost *This, LPCWSTR url, SAFEARRAY *post_data, LPWSTR headers, VARIANT_BOOL *cancel)
 573 {
 574     VARIANT var_url, var_flags, var_frame_name, var_post_data, var_post_data2, var_headers;
 575     DISPPARAMS dispparams;
 576     VARIANTARG params[7];
 577     WCHAR file_path[MAX_PATH];
 578     DWORD file_path_len = ARRAY_SIZE(file_path);
 579
 580     dispparams.cArgs = 7;
 581     dispparams.cNamedArgs = 0;
 582     dispparams.rgdispidNamedArgs = NULL;
 583     dispparams.rgvarg = params;
 584
 585     V_VT(params) = VT_BOOL|VT_BYREF;
 586     V_BOOLREF(params) = cancel;
 587
 588     V_VT(params+1) = (VT_BYREF|VT_VARIANT);
 589     V_VARIANTREF(params+1) = &var_headers;
 590     V_VT(&var_headers) = VT_BSTR;
 591     V_BSTR(&var_headers) = headers;
 592
 593     V_VT(params+2) = (VT_BYREF|VT_VARIANT);
 594     V_VARIANTREF(params+2) = &var_post_data2;
 595     V_VT(&var_post_data2) = (VT_BYREF|VT_VARIANT);
 596     V_VARIANTREF(&var_post_data2) = &var_post_data;
 597
 598     if(post_data) {
 599         V_VT(&var_post_data) = VT_UI1|VT_ARRAY;
 600         V_ARRAY(&var_post_data) = post_data;
 601     }else {
 602         V_VT(&var_post_data) = VT_EMPTY;
 603     }
 604
 605     V_VT(params+3) = (VT_BYREF|VT_VARIANT);
 606     V_VARIANTREF(params+3) = &var_frame_name;
 607     V_VT(&var_frame_name) = VT_BSTR;
 608     V_BSTR(&var_frame_name) = NULL;
 609
 610     V_VT(params+4) = (VT_BYREF|VT_VARIANT);
 611     V_VARIANTREF(params+4) = &var_flags;
 612     V_VT(&var_flags) = VT_I4;
 613     V_I4(&var_flags) = 0;
 614
 615     V_VT(params+5) = (VT_BYREF|VT_VARIANT);
 616     V_VARIANTREF(params+5) = &var_url;
 617     V_VT(&var_url) = VT_BSTR;
 618     if(PathCreateFromUrlW(url, file_path, &file_path_len, 0) == S_OK)
 619         V_BSTR(&var_url) = SysAllocString(file_path);
 620     else
 621         V_BSTR(&var_url) = SysAllocString(url);
 622
 623     V_VT(params+6) = (VT_DISPATCH);
 624     V_DISPATCH(params+6) = (IDispatch*)This->wb;
 625
 626     call_sink(This->cps.wbe2, DISPID_BEFORENAVIGATE2, &dispparams);
 627
 628     SysFreeString(V_BSTR(&var_url));
 629 }
 630
 631 /* FIXME: urlmon should handle it */
 632 static BOOL try_application_url(LPCWSTR url)
 633 {
 634     SHELLEXECUTEINFOW exec_info;
 635     WCHAR app[64];
 636     HKEY hkey;
 637     DWORD res, type;
 638     HRESULT hres;
 639
 640     static const WCHAR wszURLProtocol[] = {'U','R','L',' ','P','r','o','t','o','c','o','l',0};
 641
 642     hres = CoInternetParseUrl(url, PARSE_SCHEMA, 0, app, ARRAY_SIZE(app), NULL, 0);
 643     if(FAILED(hres))
 644         return FALSE;
 645
 646     res = RegOpenKeyW(HKEY_CLASSES_ROOT, app, &hkey);
 647     if(res != ERROR_SUCCESS)
 648         return FALSE;
 649
 650     res = RegQueryValueExW(hkey, wszURLProtocol, NULL, &type, NULL, NULL);
 651     RegCloseKey(hkey);
 652     if(res != ERROR_SUCCESS || type != REG_SZ)
 653         return FALSE;
 654
 655     TRACE("opening application %s\n", debugstr_w(app));
 656
 657     memset(&exec_info, 0, sizeof(exec_info));
 658     exec_info.cbSize = sizeof(exec_info);
 659     exec_info.lpFile = url;
 660     exec_info.nShow = SW_SHOW;
 661
 662     return ShellExecuteExW(&exec_info);
 663 }
 664
 665 static HRESULT create_moniker(LPCWSTR url, IMoniker **mon)
 666 {
 667     WCHAR new_url[INTERNET_MAX_URL_LENGTH];
 668     DWORD size;
 669     HRESULT hres;
 670
 671     if(PathIsURLW(url))
 672         return CreateURLMoniker(NULL, url, mon);
 673
 674     size = ARRAY_SIZE(new_url);
 675     hres = UrlApplySchemeW(url, new_url, &size, URL_APPLY_GUESSSCHEME | URL_APPLY_GUESSFILE | URL_APPLY_DEFAULT);
 676     TRACE("was %s got %s\n", debugstr_w(url), debugstr_w(new_url));
 677     if(FAILED(hres)) {
 678         WARN("UrlApplyScheme failed: %08lx\n", hres);
 679         return hres;
 680     }
 681
 682     return CreateURLMoniker(NULL, new_url, mon);
 683 }
 684
 685 static HRESULT bind_to_object(DocHost *This, IMoniker *mon, LPCWSTR url, IBindCtx *bindctx,
 686                               IBindStatusCallback *callback)
 687 {
 688     IUnknown *unk = NULL;
 689     WCHAR *display_name;
 690     HRESULT hres;
 691
 692     if(mon) {
 693         IMoniker_AddRef(mon);
 694     }else {
 695         hres = create_moniker(url, &mon);
 696         if(FAILED(hres))
 697             return hres;
 698     }
 699
 700     hres = IMoniker_GetDisplayName(mon, 0, NULL, &display_name);
 701     if(FAILED(hres)) {
 702         FIXME("GetDisplayName failed: %08lx\n", hres);
 703         IMoniker_Release(mon);
 704         return hres;
 705     }
 706
 707     hres = set_dochost_url(This, display_name);
 708     CoTaskMemFree(display_name);
 709     if(FAILED(hres)) {
 710         IMoniker_Release(mon);
 711         return hres;
 712     }
 713
 714     IBindCtx_RegisterObjectParam(bindctx, (LPOLESTR)SZ_HTML_CLIENTSITE_OBJECTPARAM,
 715                                  (IUnknown*)&This->IOleClientSite_iface);
 716
 717     hres = IMoniker_BindToObject(mon, bindctx, NULL, &IID_IUnknown, (void**)&unk);
 718     if(SUCCEEDED(hres)) {
 719         hres = S_OK;
 720         if(unk)
 721             IUnknown_Release(unk);
 722     }else if(try_application_url(url)) {
 723         hres = S_OK;
 724     }else {
 725         FIXME("BindToObject failed: %08lx\n", hres);
 726     }
 727
 728     IMoniker_Release(mon);
 729     return S_OK;
 730 }
 731
 732 static void html_window_navigate(DocHost *This, IHTMLPrivateWindow *window, BSTR url, BSTR headers, SAFEARRAY *post_data)
 733 {
 734     VARIANT headers_var, post_data_var;
 735     BSTR empty_str;
 736     HRESULT hres;
 737
 738     hres = set_dochost_url(This, url);
 739     if(FAILED(hres))
 740         return;
 741
 742     empty_str = SysAllocStringLen(NULL, 0);
 743
 744     if(headers) {
 745         V_VT(&headers_var) = VT_BSTR;
 746         V_BSTR(&headers_var) = headers;
 747     }else {
 748         V_VT(&headers_var) = VT_EMPTY;
 749     }
 750
 751     if(post_data) {
 752         V_VT(&post_data_var) = VT_UI1|VT_ARRAY;
 753         V_ARRAY(&post_data_var) = post_data;
 754     }else {
 755         V_VT(&post_data_var) = VT_EMPTY;
 756     }
 757
 758     set_doc_state(This, READYSTATE_LOADING);
 759     hres = IHTMLPrivateWindow_SuperNavigate(window, url, empty_str, NULL, NULL, &post_data_var, &headers_var, 0);
 760     SysFreeString(empty_str);
 761     if(FAILED(hres))
 762         WARN("SuprtNavigate failed: %08lx\n", hres);
 763 }
 764
 765 typedef struct {
 766     task_header_t header;
 767     BSTR url;
 768     BSTR headers;
 769     SAFEARRAY *post_data;
 770     BOOL async_notif;
 771 } task_doc_navigate_t;
 772
 773 static void doc_navigate_task_destr(task_header_t *t)
 774 {
 775     task_doc_navigate_t *task = (task_doc_navigate_t*)t;
 776
 777     SysFreeString(task->url);
 778     SysFreeString(task->headers);
 779     if(task->post_data)
 780         SafeArrayDestroy(task->post_data);
 781     free(task);
 782 }
 783
 784 static void doc_navigate_proc(DocHost *This, task_header_t *t)
 785 {
 786     task_doc_navigate_t *task = (task_doc_navigate_t*)t;
 787     IHTMLPrivateWindow *priv_window;
 788     HRESULT hres;
 789
 790     if(!This->doc_navigate) {
 791         ERR("Skip nav\n");
 792         return;
 793     }
 794
 795     if(task->async_notif) {
 796         VARIANT_BOOL cancel = VARIANT_FALSE;
 797         on_before_navigate2(This, task->url, task->post_data, task->headers, &cancel);
 798         if(cancel) {
 799             TRACE("Navigation canceled\n");
 800             return;
 801         }
 802     }
 803
 804     hres = IUnknown_QueryInterface(This->doc_navigate, &IID_IHTMLPrivateWindow, (void**)&priv_window);
 805     if(SUCCEEDED(hres)) {
 806         html_window_navigate(This, priv_window, task->url, task->headers, task->post_data);
 807         IHTMLPrivateWindow_Release(priv_window);
 808     }else {
 809         WARN("Could not get IHTMLPrivateWindow iface: %08lx\n", hres);
 810     }
 811 }
 812
 813 static HRESULT async_doc_navigate(DocHost *This, LPCWSTR url, LPCWSTR headers, PBYTE post_data, ULONG post_data_size,
 814         BOOL async_notif)
 815 {
 816     task_doc_navigate_t *task;
 817
 818     TRACE("%s\n", debugstr_w(url));
 819
 820     task = calloc(1, sizeof(*task));
 821     if(!task)
 822         return E_OUTOFMEMORY;
 823
 824     task->url = SysAllocString(url);
 825     if(!task->url) {
 826         doc_navigate_task_destr(&task->header);
 827         return E_OUTOFMEMORY;
 828     }
 829
 830     if(headers) {
 831         task->headers = SysAllocString(headers);
 832         if(!task->headers) {
 833             doc_navigate_task_destr(&task->header);
 834             return E_OUTOFMEMORY;
 835         }
 836     }
 837
 838     if(post_data) {
 839         task->post_data = SafeArrayCreateVector(VT_UI1, 0, post_data_size);
 840         if(!task->post_data) {
 841             doc_navigate_task_destr(&task->header);
 842             return E_OUTOFMEMORY;
 843         }
 844
 845         memcpy(task->post_data->pvData, post_data, post_data_size);
 846     }
 847
 848     if(!async_notif) {
 849         VARIANT_BOOL cancel = VARIANT_FALSE;
 850
 851         on_before_navigate2(This, task->url, task->post_data, task->headers, &cancel);
 852         if(cancel) {
 853             TRACE("Navigation canceled\n");
 854             doc_navigate_task_destr(&task->header);
 855             return S_OK;
 856         }
 857     }
 858
 859     task->async_notif = async_notif;
 860     abort_dochost_tasks(This, doc_navigate_proc);
 861     push_dochost_task(This, &task->header, doc_navigate_proc, doc_navigate_task_destr, FALSE);
 862     return S_OK;
 863 }
 864
 865 static HRESULT navigate_bsc(DocHost *This, BindStatusCallback *bsc, IMoniker *mon)
 866 {
 867     VARIANT_BOOL cancel = VARIANT_FALSE;
 868     SAFEARRAY *post_data = NULL;
 869     IBindCtx *bindctx;
 870     HRESULT hres;
 871
 872     set_doc_state(This, READYSTATE_LOADING);
 873
 874     if(bsc->post_data) {
 875         post_data = SafeArrayCreateVector(VT_UI1, 0, bsc->post_data_len);
 876         memcpy(post_data->pvData, post_data, bsc->post_data_len);
 877     }
 878
 879     on_before_navigate2(This, bsc->url, post_data, bsc->headers, &cancel);
 880     if(post_data)
 881         SafeArrayDestroy(post_data);
 882     if(cancel) {
 883         FIXME("Navigation canceled\n");
 884         return S_OK;
 885     }
 886
 887     notify_download_state(This, TRUE);
 888     This->busy = VARIANT_FALSE;
 889
 890     on_commandstate_change(This, CSC_NAVIGATEBACK, FALSE);
 891     on_commandstate_change(This, CSC_NAVIGATEFORWARD, FALSE);
 892
 893     if(This->document)
 894         deactivate_document(This);
 895
 896     CreateAsyncBindCtx(0, &bsc->IBindStatusCallback_iface, 0, &bindctx);
 897
 898     if(This->frame)
 899         IOleInPlaceFrame_EnableModeless(This->frame, FALSE);
 900
 901     hres = bind_to_object(This, mon, bsc->url, bindctx, &bsc->IBindStatusCallback_iface);
 902
 903     if(This->frame)
 904         IOleInPlaceFrame_EnableModeless(This->frame, TRUE);
 905
 906     IBindCtx_Release(bindctx);
 907
 908     return hres;
 909 }
 910
 911 typedef struct {
 912     task_header_t header;
 913     BindStatusCallback *bsc;
 914 } task_navigate_bsc_t;
 915
 916 static void navigate_bsc_task_destr(task_header_t *t)
 917 {
 918     task_navigate_bsc_t *task = (task_navigate_bsc_t*)t;
 919
 920     IBindStatusCallback_Release(&task->bsc->IBindStatusCallback_iface);
 921     free(task);
 922 }
 923
 924 static void navigate_bsc_proc(DocHost *This, task_header_t *t)
 925 {
 926     task_navigate_bsc_t *task = (task_navigate_bsc_t*)t;
 927
 928     if(!This->hwnd)
 929         create_doc_view_hwnd(This);
 930
 931     navigate_bsc(This, task->bsc, NULL);
 932 }
 933
 934
 935 HRESULT navigate_url(DocHost *This, LPCWSTR url, const VARIANT *Flags,
 936                      const VARIANT *TargetFrameName, VARIANT *PostData, VARIANT *Headers)
 937 {
 938     SAFEARRAY *post_array = NULL;
 939     PBYTE post_data = NULL;
 940     ULONG post_data_len = 0;
 941     LPWSTR headers = NULL;
 942     HRESULT hres = S_OK;
 943
 944     TRACE("navigating to %s\n", debugstr_w(url));
 945
 946     if((Flags && V_VT(Flags) != VT_EMPTY && V_VT(Flags) != VT_ERROR)
 947        || (TargetFrameName && V_VT(TargetFrameName) != VT_EMPTY && V_VT(TargetFrameName) != VT_ERROR))
 948         FIXME("Unsupported args (Flags %s; TargetFrameName %s)\n", debugstr_variant(Flags), debugstr_variant(TargetFrameName));
 949
 950     if(PostData) {
 951         if(V_VT(PostData) & VT_ARRAY)
 952             post_array = V_ISBYREF(PostData) ? *V_ARRAYREF(PostData) : V_ARRAY(PostData);
 953         else
 954             WARN("Invalid post data %s\n", debugstr_variant(PostData));
 955     }
 956
 957     if(post_array) {
 958         LONG elem_max;
 959         SafeArrayAccessData(post_array, (void**)&post_data);
 960         SafeArrayGetUBound(post_array, 1, &elem_max);
 961         post_data_len = (elem_max+1) * SafeArrayGetElemsize(post_array);
 962     }
 963
 964     if(Headers && V_VT(Headers) == VT_BSTR) {
 965         headers = V_BSTR(Headers);
 966         TRACE("Headers: %s\n", debugstr_w(headers));
 967     }
 968
 969     set_doc_state(This, READYSTATE_LOADING);
 970     This->ready_state = READYSTATE_LOADING;
 971
 972     if(This->doc_navigate) {
 973         WCHAR new_url[INTERNET_MAX_URL_LENGTH];
 974
 975         if(PathIsURLW(url)) {
 976             new_url[0] = 0;
 977         }else {
 978             DWORD size;
 979
 980             size = ARRAY_SIZE(new_url);
 981             hres = UrlApplySchemeW(url, new_url, &size,
 982                     URL_APPLY_GUESSSCHEME | URL_APPLY_GUESSFILE | URL_APPLY_DEFAULT);
 983             if(FAILED(hres)) {
 984                 WARN("UrlApplyScheme failed: %08lx\n", hres);
 985                 new_url[0] = 0;
 986             }
 987         }
 988
 989         hres = async_doc_navigate(This, *new_url ? new_url : url, headers, post_data,
 990                 post_data_len, TRUE);
 991     }else {
 992         task_navigate_bsc_t *task;
 993
 994         task = malloc(sizeof(*task));
 995         task->bsc = create_callback(This, url, post_data, post_data_len, headers);
 996         push_dochost_task(This, &task->header, navigate_bsc_proc, navigate_bsc_task_destr, This->url == NULL);
 997     }
 998
 999     if(post_data)
1000         SafeArrayUnaccessData(post_array);
1001
1002     return hres;
1003 }
1004
1005 static HRESULT navigate_hlink(DocHost *This, IMoniker *mon, IBindCtx *bindctx,
1006                               IBindStatusCallback *callback)
1007 {
1008     IHttpNegotiate *http_negotiate;
1009     BindStatusCallback *bsc;
1010     PBYTE post_data = NULL;
1011     ULONG post_data_len = 0;
1012     LPWSTR headers = NULL, url;
1013     BINDINFO bindinfo;
1014     DWORD bindf = 0;
1015     HRESULT hres;
1016
1017     TRACE("\n");
1018
1019     hres = IMoniker_GetDisplayName(mon, 0, NULL, &url);
1020     if(FAILED(hres))
1021         FIXME("GetDisplayName failed: %08lx\n", hres);
1022
1023     hres = IBindStatusCallback_QueryInterface(callback, &IID_IHttpNegotiate,
1024                                               (void**)&http_negotiate);
1025     if(SUCCEEDED(hres)) {
1026         static const WCHAR null_string[] = {0};
1027
1028         IHttpNegotiate_BeginningTransaction(http_negotiate, null_string, null_string, 0,
1029                                             &headers);
1030         IHttpNegotiate_Release(http_negotiate);
1031     }
1032
1033     memset(&bindinfo, 0, sizeof(bindinfo));
1034     bindinfo.cbSize = sizeof(bindinfo);
1035
1036     hres = IBindStatusCallback_GetBindInfo(callback, &bindf, &bindinfo);
1037     dump_BINDINFO(&bindinfo);
1038     if(bindinfo.dwBindVerb == BINDVERB_POST) {
1039         post_data_len = bindinfo.cbstgmedData;
1040         if(post_data_len)
1041             post_data = bindinfo.stgmedData.hGlobal;
1042     }
1043
1044     if(This->doc_navigate) {
1045         hres = async_doc_navigate(This, url, headers, post_data, post_data_len, FALSE);
1046     }else {
1047         bsc = create_callback(This, url, post_data, post_data_len, headers);
1048         hres = navigate_bsc(This, bsc, mon);
1049         IBindStatusCallback_Release(&bsc->IBindStatusCallback_iface);
1050     }
1051
1052     CoTaskMemFree(url);
1053     CoTaskMemFree(headers);
1054     ReleaseBindInfo(&bindinfo);
1055
1056     return hres;
1057 }
1058
1059 HRESULT go_home(DocHost *This)
1060 {
1061     HKEY hkey;
1062     DWORD res, type, size;
1063     WCHAR wszPageName[MAX_PATH];
1064     static const WCHAR wszAboutBlank[] = {'a','b','o','u','t',':','b','l','a','n','k',0};
1065     static const WCHAR wszStartPage[] = {'S','t','a','r','t',' ','P','a','g','e',0};
1066     static const WCHAR wszSubKey[] = {'S','o','f','t','w','a','r','e','\\',
1067                                       'M','i','c','r','o','s','o','f','t','\\',
1068                                       'I','n','t','e','r','n','e','t',' ','E','x','p','l','o','r','e','r','\\',
1069                                       'M','a','i','n',0};
1070
1071     res = RegOpenKeyW(HKEY_CURRENT_USER, wszSubKey, &hkey);
1072     if (res != ERROR_SUCCESS)
1073         return navigate_url(This, wszAboutBlank, NULL, NULL, NULL, NULL);
1074
1075     size = sizeof(wszPageName);
1076     res = RegQueryValueExW(hkey, wszStartPage, NULL, &type, (LPBYTE)wszPageName, &size);
1077     RegCloseKey(hkey);
1078     if (res != ERROR_SUCCESS || type != REG_SZ)
1079         return navigate_url(This, wszAboutBlank, NULL, NULL, NULL, NULL);
1080
1081     return navigate_url(This, wszPageName, NULL, NULL, NULL, NULL);
1082 }
1083
1084 static HRESULT navigate_history(DocHost *This, unsigned travellog_pos)
1085 {
1086     IPersistHistory *persist_history;
1087     travellog_entry_t *entry;
1088     LARGE_INTEGER li;
1089     HRESULT hres;
1090
1091     if(!This->doc_navigate) {
1092         FIXME("unsupported doc_navigate FALSE\n");
1093         return E_NOTIMPL;
1094     }
1095
1096     This->travellog.loading_pos = travellog_pos;
1097     entry = This->travellog.log + This->travellog.loading_pos;
1098
1099     update_navigation_commands(This);
1100
1101     if(!entry->stream)
1102         return async_doc_navigate(This, entry->url, NULL, NULL, 0, FALSE);
1103
1104     hres = IUnknown_QueryInterface(This->document, &IID_IPersistHistory, (void**)&persist_history);
1105     if(FAILED(hres))
1106         return hres;
1107
1108     li.QuadPart = 0;
1109     IStream_Seek(entry->stream, li, STREAM_SEEK_SET, NULL);
1110
1111     hres = IPersistHistory_LoadHistory(persist_history, entry->stream, NULL);
1112     IPersistHistory_Release(persist_history);
1113     return hres;
1114 }
1115
1116 HRESULT go_back(DocHost *This)
1117 {
1118     if(!This->travellog.position) {
1119         WARN("No history available\n");
1120         return E_FAIL;
1121     }
1122
1123     return navigate_history(This, This->travellog.position-1);
1124 }
1125
1126 HRESULT go_forward(DocHost *This)
1127 {
1128     if(This->travellog.position >= This->travellog.length) {
1129         WARN("No history available\n");
1130         return E_FAIL;
1131     }
1132
1133     return navigate_history(This, This->travellog.position+1);
1134 }
1135
1136 HRESULT get_location_url(DocHost *This, BSTR *ret)
1137 {
1138     FIXME("semi-stub\n");
1139
1140     *ret = This->url ? SysAllocString(This->url) : SysAllocStringLen(NULL, 0);
1141     if(!*ret)
1142         return E_OUTOFMEMORY;
1143
1144     return This->url ? S_OK : S_FALSE;
1145 }
1146
1147 static inline HlinkFrame *impl_from_IHlinkFrame(IHlinkFrame *iface)
1148 {
1149     return CONTAINING_RECORD(iface, HlinkFrame, IHlinkFrame_iface);
1150 }
1151
1152 static HRESULT WINAPI HlinkFrame_QueryInterface(IHlinkFrame *iface, REFIID riid, void **ppv)
1153 {
1154     HlinkFrame *This = impl_from_IHlinkFrame(iface);
1155     return IUnknown_QueryInterface(This->outer, riid, ppv);
1156 }
1157
1158 static ULONG WINAPI HlinkFrame_AddRef(IHlinkFrame *iface)
1159 {
1160     HlinkFrame *This = impl_from_IHlinkFrame(iface);
1161     return IUnknown_AddRef(This->outer);
1162 }
1163
1164 static ULONG WINAPI HlinkFrame_Release(IHlinkFrame *iface)
1165 {
1166     HlinkFrame *This = impl_from_IHlinkFrame(iface);
1167     return IUnknown_Release(This->outer);
1168 }
1169
1170 static HRESULT WINAPI HlinkFrame_SetBrowseContext(IHlinkFrame *iface,
1171                                                   IHlinkBrowseContext *pihlbc)
1172 {
1173     HlinkFrame *This = impl_from_IHlinkFrame(iface);
1174     FIXME("(%p)->(%p)\n", This, pihlbc);
1175     return E_NOTIMPL;
1176 }
1177
1178 static HRESULT WINAPI HlinkFrame_GetBrowseContext(IHlinkFrame *iface,
1179                                                   IHlinkBrowseContext **ppihlbc)
1180 {
1181     HlinkFrame *This = impl_from_IHlinkFrame(iface);
1182     FIXME("(%p)->(%p)\n", This, ppihlbc);
1183     return E_NOTIMPL;
1184 }
1185
1186 static HRESULT WINAPI HlinkFrame_Navigate(IHlinkFrame *iface, DWORD grfHLNF, LPBC pbc,
1187                                           IBindStatusCallback *pibsc, IHlink *pihlNavigate)
1188 {
1189     HlinkFrame *This = impl_from_IHlinkFrame(iface);
1190     IMoniker *mon;
1191     LPWSTR location = NULL;
1192
1193     TRACE("(%p)->(%08lx %p %p %p)\n", This, grfHLNF, pbc, pibsc, pihlNavigate);
1194
1195     if(grfHLNF)
1196         FIXME("unsupported grfHLNF=%08lx\n", grfHLNF);
1197
1198     /* Windows calls GetTargetFrameName here. */
1199
1200     IHlink_GetMonikerReference(pihlNavigate, 1, &mon, &location);
1201
1202     if(location) {
1203         FIXME("location = %s\n", debugstr_w(location));
1204         CoTaskMemFree(location);
1205     }
1206
1207     /* Windows calls GetHlinkSite here */
1208
1209     if(grfHLNF & HLNF_OPENINNEWWINDOW) {
1210         FIXME("Not supported HLNF_OPENINNEWWINDOW\n");
1211         return E_NOTIMPL;
1212     }
1213
1214     return navigate_hlink(This->doc_host, mon, pbc, pibsc);
1215 }
1216
1217 static HRESULT WINAPI HlinkFrame_OnNavigate(IHlinkFrame *iface, DWORD grfHLNF,
1218         IMoniker *pimkTarget, LPCWSTR pwzLocation, LPCWSTR pwzFriendlyName, DWORD dwreserved)
1219 {
1220     HlinkFrame *This = impl_from_IHlinkFrame(iface);
1221     FIXME("(%p)->(%08lx %p %s %s %ld)\n", This, grfHLNF, pimkTarget, debugstr_w(pwzLocation),
1222           debugstr_w(pwzFriendlyName), dwreserved);
1223     return E_NOTIMPL;
1224 }
1225
1226 static HRESULT WINAPI HlinkFrame_UpdateHlink(IHlinkFrame *iface, ULONG uHLID,
1227         IMoniker *pimkTarget, LPCWSTR pwzLocation, LPCWSTR pwzFriendlyName)
1228 {
1229     HlinkFrame *This = impl_from_IHlinkFrame(iface);
1230     FIXME("(%p)->(%lu %p %s %s)\n", This, uHLID, pimkTarget, debugstr_w(pwzLocation),
1231           debugstr_w(pwzFriendlyName));
1232     return E_NOTIMPL;
1233 }
1234
1235 static const IHlinkFrameVtbl HlinkFrameVtbl = {
1236     HlinkFrame_QueryInterface,
1237     HlinkFrame_AddRef,
1238     HlinkFrame_Release,
1239     HlinkFrame_SetBrowseContext,
1240     HlinkFrame_GetBrowseContext,
1241     HlinkFrame_Navigate,
1242     HlinkFrame_OnNavigate,
1243     HlinkFrame_UpdateHlink
1244 };
1245
1246 static inline HlinkFrame *impl_from_ITargetFrame(ITargetFrame *iface)
1247 {
1248     return CONTAINING_RECORD(iface, HlinkFrame, ITargetFrame_iface);
1249 }
1250
1251 static HRESULT WINAPI TargetFrame_QueryInterface(ITargetFrame *iface, REFIID riid, void **ppv)
1252 {
1253     HlinkFrame *This = impl_from_ITargetFrame(iface);
1254     return IUnknown_QueryInterface(This->outer, riid, ppv);
1255 }
1256
1257 static ULONG WINAPI TargetFrame_AddRef(ITargetFrame *iface)
1258 {
1259     HlinkFrame *This = impl_from_ITargetFrame(iface);
1260     return IUnknown_AddRef(This->outer);
1261 }
1262
1263 static ULONG WINAPI TargetFrame_Release(ITargetFrame *iface)
1264 {
1265     HlinkFrame *This = impl_from_ITargetFrame(iface);
1266     return IUnknown_Release(This->outer);
1267 }
1268
1269 static HRESULT WINAPI TargetFrame_SetFrameName(ITargetFrame *iface, LPCWSTR pszFrameName)
1270 {
1271     HlinkFrame *This = impl_from_ITargetFrame(iface);
1272     FIXME("(%p)->(%s)\n", This, debugstr_w(pszFrameName));
1273     return E_NOTIMPL;
1274 }
1275
1276 static HRESULT WINAPI TargetFrame_GetFrameName(ITargetFrame *iface, LPWSTR *ppszFrameName)
1277 {
1278     HlinkFrame *This = impl_from_ITargetFrame(iface);
1279     FIXME("(%p)->(%p)\n", This, ppszFrameName);
1280     return E_NOTIMPL;
1281 }
1282
1283 static HRESULT WINAPI TargetFrame_GetParentFrame(ITargetFrame *iface, IUnknown **ppunkParent)
1284 {
1285     HlinkFrame *This = impl_from_ITargetFrame(iface);
1286     FIXME("(%p)->(%p)\n", This, ppunkParent);
1287     return E_NOTIMPL;
1288 }
1289
1290 static HRESULT WINAPI TargetFrame_FindFrame(ITargetFrame *iface, LPCWSTR pszTargetName,
1291         IUnknown *ppunkContextFrame, DWORD dwFlags, IUnknown **ppunkTargetFrame)
1292 {
1293     HlinkFrame *This = impl_from_ITargetFrame(iface);
1294     FIXME("(%p)->(%s %p %lx %p)\n", This, debugstr_w(pszTargetName),
1295             ppunkContextFrame, dwFlags, ppunkTargetFrame);
1296     return E_NOTIMPL;
1297 }
1298
1299 static HRESULT WINAPI TargetFrame_SetFrameSrc(ITargetFrame *iface, LPCWSTR pszFrameSrc)
1300 {
1301     HlinkFrame *This = impl_from_ITargetFrame(iface);
1302     FIXME("(%p)->(%s)\n", This, debugstr_w(pszFrameSrc));
1303     return E_NOTIMPL;
1304 }
1305
1306 static HRESULT WINAPI TargetFrame_GetFrameSrc(ITargetFrame *iface, LPWSTR *ppszFrameSrc)
1307 {
1308     HlinkFrame *This = impl_from_ITargetFrame(iface);
1309     FIXME("(%p)->(%p)\n", This, ppszFrameSrc);
1310     return E_NOTIMPL;
1311 }
1312
1313 static HRESULT WINAPI TargetFrame_GetFramesContainer(ITargetFrame *iface, IOleContainer **ppContainer)
1314 {
1315     HlinkFrame *This = impl_from_ITargetFrame(iface);
1316     FIXME("(%p)->(%p)\n", This, ppContainer);
1317     return E_NOTIMPL;
1318 }
1319
1320 static HRESULT WINAPI TargetFrame_SetFrameOptions(ITargetFrame *iface, DWORD dwFlags)
1321 {
1322     HlinkFrame *This = impl_from_ITargetFrame(iface);
1323     FIXME("(%p)->(%lx)\n", This, dwFlags);
1324     return E_NOTIMPL;
1325 }
1326
1327 static HRESULT WINAPI TargetFrame_GetFrameOptions(ITargetFrame *iface, DWORD *pdwFlags)
1328 {
1329     HlinkFrame *This = impl_from_ITargetFrame(iface);
1330     FIXME("(%p)->(%p)\n", This, pdwFlags);
1331     return E_NOTIMPL;
1332 }
1333
1334 static HRESULT WINAPI TargetFrame_SetFrameMargins(ITargetFrame *iface, DWORD dwWidth, DWORD dwHeight)
1335 {
1336     HlinkFrame *This = impl_from_ITargetFrame(iface);
1337     FIXME("(%p)->(%ld %ld)\n", This, dwWidth, dwHeight);
1338     return E_NOTIMPL;
1339 }
1340
1341 static HRESULT WINAPI TargetFrame_GetFrameMargins(ITargetFrame *iface, DWORD *pdwWidth, DWORD *pdwHeight)
1342 {
1343     HlinkFrame *This = impl_from_ITargetFrame(iface);
1344     FIXME("(%p)->(%p %p)\n", This, pdwWidth, pdwHeight);
1345     return E_NOTIMPL;
1346 }
1347
1348 static HRESULT WINAPI TargetFrame_RemoteNavigate(ITargetFrame *iface, ULONG cLength, ULONG *pulData)
1349 {
1350     HlinkFrame *This = impl_from_ITargetFrame(iface);
1351     FIXME("(%p)->(%lu %p)\n", This, cLength, pulData);
1352     return E_NOTIMPL;
1353 }
1354
1355 static HRESULT WINAPI TargetFrame_OnChildFrameActivate(ITargetFrame *iface, IUnknown *pUnkChildFrame)
1356 {
1357     HlinkFrame *This = impl_from_ITargetFrame(iface);
1358     FIXME("(%p)->(%p)\n", This, pUnkChildFrame);
1359     return E_NOTIMPL;
1360 }
1361
1362 static HRESULT WINAPI TargetFrame_OnChildFrameDeactivate(ITargetFrame *iface, IUnknown *pUnkChildFrame)
1363 {
1364     HlinkFrame *This = impl_from_ITargetFrame(iface);
1365     FIXME("(%p)->(%p)\n", This, pUnkChildFrame);
1366     return E_NOTIMPL;
1367 }
1368
1369 static const ITargetFrameVtbl TargetFrameVtbl = {
1370     TargetFrame_QueryInterface,
1371     TargetFrame_AddRef,
1372     TargetFrame_Release,
1373     TargetFrame_SetFrameName,
1374     TargetFrame_GetFrameName,
1375     TargetFrame_GetParentFrame,
1376     TargetFrame_FindFrame,
1377     TargetFrame_SetFrameSrc,
1378     TargetFrame_GetFrameSrc,
1379     TargetFrame_GetFramesContainer,
1380     TargetFrame_SetFrameOptions,
1381     TargetFrame_GetFrameOptions,
1382     TargetFrame_SetFrameMargins,
1383     TargetFrame_GetFrameMargins,
1384     TargetFrame_RemoteNavigate,
1385     TargetFrame_OnChildFrameActivate,
1386     TargetFrame_OnChildFrameDeactivate
1387 };
1388
1389 static inline HlinkFrame *impl_from_ITargetFrame2(ITargetFrame2 *iface)
1390 {
1391     return CONTAINING_RECORD(iface, HlinkFrame, ITargetFrame2_iface);
1392 }
1393
1394 static HRESULT WINAPI TargetFrame2_QueryInterface(ITargetFrame2 *iface, REFIID riid, void **ppv)
1395 {
1396     HlinkFrame *This = impl_from_ITargetFrame2(iface);
1397     return IUnknown_QueryInterface(This->outer, riid, ppv);
1398 }
1399
1400 static ULONG WINAPI TargetFrame2_AddRef(ITargetFrame2 *iface)
1401 {
1402     HlinkFrame *This = impl_from_ITargetFrame2(iface);
1403     return IUnknown_AddRef(This->outer);
1404 }
1405
1406 static ULONG WINAPI TargetFrame2_Release(ITargetFrame2 *iface)
1407 {
1408     HlinkFrame *This = impl_from_ITargetFrame2(iface);
1409     return IUnknown_Release(This->outer);
1410 }
1411
1412 static HRESULT WINAPI TargetFrame2_SetFrameName(ITargetFrame2 *iface, LPCWSTR pszFrameName)
1413 {
1414     HlinkFrame *This = impl_from_ITargetFrame2(iface);
1415     FIXME("(%p)->(%s)\n", This, debugstr_w(pszFrameName));
1416     return E_NOTIMPL;
1417 }
1418
1419 static HRESULT WINAPI TargetFrame2_GetFrameName(ITargetFrame2 *iface, LPWSTR *ppszFrameName)
1420 {
1421     HlinkFrame *This = impl_from_ITargetFrame2(iface);
1422     FIXME("(%p)->(%p)\n", This, ppszFrameName);
1423     return E_NOTIMPL;
1424 }
1425
1426 static HRESULT WINAPI TargetFrame2_GetParentFrame(ITargetFrame2 *iface, IUnknown **ppunkParent)
1427 {
1428     HlinkFrame *This = impl_from_ITargetFrame2(iface);
1429     FIXME("(%p)->(%p)\n", This, ppunkParent);
1430     return E_NOTIMPL;
1431 }
1432
1433 static HRESULT WINAPI TargetFrame2_SetFrameSrc(ITargetFrame2 *iface, LPCWSTR pszFrameSrc)
1434 {
1435     HlinkFrame *This = impl_from_ITargetFrame2(iface);
1436     FIXME("(%p)->(%s)\n", This, debugstr_w(pszFrameSrc));
1437     return E_NOTIMPL;
1438 }
1439
1440 static HRESULT WINAPI TargetFrame2_GetFrameSrc(ITargetFrame2 *iface, LPWSTR *ppszFrameSrc)
1441 {
1442     HlinkFrame *This = impl_from_ITargetFrame2(iface);
1443     FIXME("(%p)->()\n", This);
1444     return E_NOTIMPL;
1445 }
1446
1447 static HRESULT WINAPI TargetFrame2_GetFramesContainer(ITargetFrame2 *iface, IOleContainer **ppContainer)
1448 {
1449     HlinkFrame *This = impl_from_ITargetFrame2(iface);
1450     FIXME("(%p)->(%p)\n", This, ppContainer);
1451     return E_NOTIMPL;
1452 }
1453
1454 static HRESULT WINAPI TargetFrame2_SetFrameOptions(ITargetFrame2 *iface, DWORD dwFlags)
1455 {
1456     HlinkFrame *This = impl_from_ITargetFrame2(iface);
1457     FIXME("(%p)->(%lx)\n", This, dwFlags);
1458     return E_NOTIMPL;
1459 }
1460
1461 static HRESULT WINAPI TargetFrame2_GetFrameOptions(ITargetFrame2 *iface, DWORD *pdwFlags)
1462 {
1463     HlinkFrame *This = impl_from_ITargetFrame2(iface);
1464     FIXME("(%p)->(%p)\n", This, pdwFlags);
1465     return E_NOTIMPL;
1466 }
1467
1468 static HRESULT WINAPI TargetFrame2_SetFrameMargins(ITargetFrame2 *iface, DWORD dwWidth, DWORD dwHeight)
1469 {
1470     HlinkFrame *This = impl_from_ITargetFrame2(iface);
1471     FIXME("(%p)->(%ld %ld)\n", This, dwWidth, dwHeight);
1472     return E_NOTIMPL;
1473 }
1474
1475 static HRESULT WINAPI TargetFrame2_GetFrameMargins(ITargetFrame2 *iface, DWORD *pdwWidth, DWORD *pdwHeight)
1476 {
1477     HlinkFrame *This = impl_from_ITargetFrame2(iface);
1478     FIXME("(%p)->(%p %p)\n", This, pdwWidth, pdwHeight);
1479     return E_NOTIMPL;
1480 }
1481
1482 static HRESULT WINAPI TargetFrame2_FindFrame(ITargetFrame2 *iface, LPCWSTR pszTargetName, DWORD dwFlags, IUnknown **ppunkTargetFrame)
1483 {
1484     HlinkFrame *This = impl_from_ITargetFrame2(iface);
1485     FIXME("(%p)->(%s %lx %p)\n", This, debugstr_w(pszTargetName), dwFlags, ppunkTargetFrame);
1486     return E_NOTIMPL;
1487 }
1488
1489 static HRESULT WINAPI TargetFrame2_GetTargetAlias(ITargetFrame2 *iface, LPCWSTR pszTargetName, LPWSTR *ppszTargetAlias)
1490 {
1491     HlinkFrame *This = impl_from_ITargetFrame2(iface);
1492     FIXME("(%p)->(%s %p)\n", This, debugstr_w(pszTargetName), ppszTargetAlias);
1493     return E_NOTIMPL;
1494 }
1495
1496 static const ITargetFrame2Vtbl TargetFrame2Vtbl = {
1497     TargetFrame2_QueryInterface,
1498     TargetFrame2_AddRef,
1499     TargetFrame2_Release,
1500     TargetFrame2_SetFrameName,
1501     TargetFrame2_GetFrameName,
1502     TargetFrame2_GetParentFrame,
1503     TargetFrame2_SetFrameSrc,
1504     TargetFrame2_GetFrameSrc,
1505     TargetFrame2_GetFramesContainer,
1506     TargetFrame2_SetFrameOptions,
1507     TargetFrame2_GetFrameOptions,
1508     TargetFrame2_SetFrameMargins,
1509     TargetFrame2_GetFrameMargins,
1510     TargetFrame2_FindFrame,
1511     TargetFrame2_GetTargetAlias
1512 };
1513
1514 static inline HlinkFrame *impl_from_ITargetFramePriv2(ITargetFramePriv2 *iface)
1515 {
1516     return CONTAINING_RECORD(iface, HlinkFrame, ITargetFramePriv2_iface);
1517 }
1518
1519 static HRESULT WINAPI TargetFramePriv2_QueryInterface(ITargetFramePriv2 *iface, REFIID riid, void **ppv)
1520 {
1521     HlinkFrame *This = impl_from_ITargetFramePriv2(iface);
1522     return IUnknown_QueryInterface(This->outer, riid, ppv);
1523 }
1524
1525 static ULONG WINAPI TargetFramePriv2_AddRef(ITargetFramePriv2 *iface)
1526 {
1527     HlinkFrame *This = impl_from_ITargetFramePriv2(iface);
1528     return IUnknown_AddRef(This->outer);
1529 }
1530
1531 static ULONG WINAPI TargetFramePriv2_Release(ITargetFramePriv2 *iface)
1532 {
1533     HlinkFrame *This = impl_from_ITargetFramePriv2(iface);
1534     return IUnknown_Release(This->outer);
1535 }
1536
1537 static HRESULT WINAPI TargetFramePriv2_FindFrameDownwards(ITargetFramePriv2 *iface,
1538         LPCWSTR pszTargetName, DWORD dwFlags, IUnknown **ppunkTargetFrame)
1539 {
1540     HlinkFrame *This = impl_from_ITargetFramePriv2(iface);
1541     FIXME("(%p)->(%s %lx %p)\n", This, debugstr_w(pszTargetName), dwFlags, ppunkTargetFrame);
1542     return E_NOTIMPL;
1543 }
1544
1545 static HRESULT WINAPI TargetFramePriv2_FindFrameInContext(ITargetFramePriv2 *iface,
1546         LPCWSTR pszTargetName, IUnknown *punkContextFrame, DWORD dwFlags, IUnknown **ppunkTargetFrame)
1547 {
1548     HlinkFrame *This = impl_from_ITargetFramePriv2(iface);
1549     FIXME("(%p)->(%s %p %lx %p)\n", This, debugstr_w(pszTargetName), punkContextFrame, dwFlags, ppunkTargetFrame);
1550     return E_NOTIMPL;
1551 }
1552
1553 static HRESULT WINAPI TargetFramePriv2_OnChildFrameActivate(ITargetFramePriv2 *iface, IUnknown *pUnkChildFrame)
1554 {
1555     HlinkFrame *This = impl_from_ITargetFramePriv2(iface);
1556     FIXME("(%p)->(%p)\n", This, pUnkChildFrame);
1557     return E_NOTIMPL;
1558 }
1559
1560 static HRESULT WINAPI TargetFramePriv2_OnChildFrameDeactivate(ITargetFramePriv2 *iface, IUnknown *pUnkChildFrame)
1561 {
1562     HlinkFrame *This = impl_from_ITargetFramePriv2(iface);
1563     FIXME("(%p)->(%p)\n", This, pUnkChildFrame);
1564     return E_NOTIMPL;
1565 }
1566
1567 static HRESULT WINAPI TargetFramePriv2_NavigateHack(ITargetFramePriv2 *iface, DWORD grfHLNF, LPBC pbc,
1568         IBindStatusCallback *pibsc, LPCWSTR pszTargetName, LPCWSTR pszUrl, LPCWSTR pszLocation)
1569 {
1570     HlinkFrame *This = impl_from_ITargetFramePriv2(iface);
1571     FIXME("(%p)->(%lx %p %p %s %s %s)\n", This, grfHLNF, pbc, pibsc, debugstr_w(pszTargetName),
1572           debugstr_w(pszUrl), debugstr_w(pszLocation));
1573     return E_NOTIMPL;
1574 }
1575
1576 static HRESULT WINAPI TargetFramePriv2_FindBrowserByIndex(ITargetFramePriv2 *iface, DWORD dwID, IUnknown **ppunkBrowser)
1577 {
1578     HlinkFrame *This = impl_from_ITargetFramePriv2(iface);
1579     FIXME("(%p)->(%ld %p)\n", This, dwID, ppunkBrowser);
1580     return E_NOTIMPL;
1581 }
1582
1583 static HRESULT WINAPI TargetFramePriv2_AggregatedNavigation2(ITargetFramePriv2 *iface, DWORD grfHLNF, LPBC pbc,
1584         IBindStatusCallback *pibsc, LPCWSTR pszTargetName, IUri *pUri, LPCWSTR pszLocation)
1585 {
1586     HlinkFrame *This = impl_from_ITargetFramePriv2(iface);
1587     IMoniker *mon;
1588     HRESULT hres;
1589
1590     TRACE("(%p)->(%lx %p %p %s %p %s)\n", This, grfHLNF, pbc, pibsc, debugstr_w(pszTargetName),
1591           pUri, debugstr_w(pszLocation));
1592
1593     /*
1594      * NOTE: This is an undocumented function. It seems to be working the way it's implemented,
1595      * but I couldn't get its tests working. It's used by mshtml to load content in a new
1596      * instance of browser.
1597      */
1598
1599     hres = CreateURLMonikerEx2(NULL, pUri, &mon, 0);
1600     if(FAILED(hres))
1601         return hres;
1602
1603     hres = navigate_hlink(This->doc_host, mon, pbc, pibsc);
1604     IMoniker_Release(mon);
1605     return hres;
1606 }
1607
1608 static const ITargetFramePriv2Vtbl TargetFramePriv2Vtbl = {
1609     TargetFramePriv2_QueryInterface,
1610     TargetFramePriv2_AddRef,
1611     TargetFramePriv2_Release,
1612     TargetFramePriv2_FindFrameDownwards,
1613     TargetFramePriv2_FindFrameInContext,
1614     TargetFramePriv2_OnChildFrameActivate,
1615     TargetFramePriv2_OnChildFrameDeactivate,
1616     TargetFramePriv2_NavigateHack,
1617     TargetFramePriv2_FindBrowserByIndex,
1618     TargetFramePriv2_AggregatedNavigation2
1619 };
1620
1621 static inline HlinkFrame *impl_from_IWebBrowserPriv2IE9(IWebBrowserPriv2IE9 *iface)
1622 {
1623     return CONTAINING_RECORD(iface, HlinkFrame, IWebBrowserPriv2IE9_iface);
1624 }
1625
1626 static HRESULT WINAPI WebBrowserPriv2IE9_QueryInterface(IWebBrowserPriv2IE9 *iface, REFIID riid, void **ppv)
1627 {
1628     HlinkFrame *This = impl_from_IWebBrowserPriv2IE9(iface);
1629     return IUnknown_QueryInterface(This->outer, riid, ppv);
1630 }
1631
1632 static ULONG WINAPI WebBrowserPriv2IE9_AddRef(IWebBrowserPriv2IE9 *iface)
1633 {
1634     HlinkFrame *This = impl_from_IWebBrowserPriv2IE9(iface);
1635     return IUnknown_AddRef(This->outer);
1636 }
1637
1638 static ULONG WINAPI WebBrowserPriv2IE9_Release(IWebBrowserPriv2IE9 *iface)
1639 {
1640     HlinkFrame *This = impl_from_IWebBrowserPriv2IE9(iface);
1641     return IUnknown_Release(This->outer);
1642 }
1643
1644 static HRESULT WINAPI WebBrowserPriv2IE9_NavigateWithBindCtx2(IWebBrowserPriv2IE9 *iface, IUri *uri, VARIANT *flags,
1645         VARIANT *target_frame, VARIANT *post_data, VARIANT *headers, IBindCtx *bind_ctx, LPOLESTR url_fragment, DWORD unused)
1646 {
1647     HlinkFrame *This = impl_from_IWebBrowserPriv2IE9(iface);
1648     FIXME("(%p)->(%p %s %s %s %s %p %s)\n", This, uri, debugstr_variant(flags), debugstr_variant(target_frame),
1649           debugstr_variant(post_data), debugstr_variant(headers), bind_ctx, debugstr_w(url_fragment));
1650     return E_NOTIMPL;
1651 }
1652
1653 static const IWebBrowserPriv2IE9Vtbl WebBrowserPriv2IE9Vtbl = {
1654     WebBrowserPriv2IE9_QueryInterface,
1655     WebBrowserPriv2IE9_AddRef,
1656     WebBrowserPriv2IE9_Release,
1657     WebBrowserPriv2IE9_NavigateWithBindCtx2
1658 };
1659
1660 BOOL HlinkFrame_QI(HlinkFrame *This, REFIID riid, void **ppv)
1661 {
1662     if(IsEqualGUID(&IID_IHlinkFrame, riid)) {
1663         TRACE("(%p)->(IID_IHlinkFrame %p)\n", This, ppv);
1664         *ppv = &This->IHlinkFrame_iface;
1665     }else if(IsEqualGUID(&IID_ITargetFrame, riid)) {
1666         TRACE("(%p)->(IID_ITargetFrame %p)\n", This, ppv);
1667         *ppv = &This->ITargetFrame_iface;
1668     }else if(IsEqualGUID(&IID_ITargetFrame2, riid)) {
1669         TRACE("(%p)->(IID_ITargetFrame2 %p)\n", This, ppv);
1670         *ppv = &This->ITargetFrame2_iface;
1671     }else if(IsEqualGUID(&IID_ITargetFramePriv, riid)) {
1672         TRACE("(%p)->(IID_ITargetFramePriv %p)\n", This, ppv);
1673         *ppv = &This->ITargetFramePriv2_iface;
1674     }else if(IsEqualGUID(&IID_ITargetFramePriv2, riid)) {
1675         TRACE("(%p)->(IID_ITargetFramePriv2 %p)\n", This, ppv);
1676         *ppv = &This->ITargetFramePriv2_iface;
1677     }else if(IsEqualGUID(&IID_IWebBrowserPriv2IE9, riid)) {
1678         TRACE("(%p)->(IID_IWebBrowserPriv2IE9 %p)\n", This, ppv);
1679         *ppv = &This->IWebBrowserPriv2IE9_iface;
1680     }else {
1681         return FALSE;
1682     }
1683
1684     IUnknown_AddRef((IUnknown*)*ppv);
1685     return TRUE;
1686 }
1687
1688 void HlinkFrame_Init(HlinkFrame *This, IUnknown *outer, DocHost *doc_host)
1689 {
1690     This->IHlinkFrame_iface.lpVtbl = &HlinkFrameVtbl;
1691     This->ITargetFrame_iface.lpVtbl = &TargetFrameVtbl;
1692     This->ITargetFrame2_iface.lpVtbl = &TargetFrame2Vtbl;
1693     This->ITargetFramePriv2_iface.lpVtbl = &TargetFramePriv2Vtbl;
1694     This->IWebBrowserPriv2IE9_iface.lpVtbl = &WebBrowserPriv2IE9Vtbl;
1695
1696     This->outer = outer;
1697     This->doc_host = doc_host;
1698 }