git.oblomov.eu Git - wine/blob - dlls/ieframe/tests/webbrowser.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 #define COBJMACROS
  20 #define CONST_VTABLE
  21
  22 #include <wine/test.h>
  23 #include <stdarg.h>
  24 #include <stdio.h>
  25
  26 #include "windef.h"
  27 #include "winbase.h"
  28 #include "initguid.h"
  29 #include "ole2.h"
  30 #include "exdisp.h"
  31 #include "htiframe.h"
  32 #include "mshtmhst.h"
  33 #include "mshtmcid.h"
  34 #include "mshtml.h"
  35 #include "idispids.h"
  36 #include "olectl.h"
  37 #include "mshtmdid.h"
  38 #include "shobjidl.h"
  39 #include "shdeprecated.h"
  40 #include "shlguid.h"
  41 #include "exdispid.h"
  42 #include "mimeinfo.h"
  43 #include "hlink.h"
  44 #include "docobjectservice.h"
  45
  46 DEFINE_GUID(GUID_NULL,0,0,0,0,0,0,0,0,0,0,0);
  47 DEFINE_OLEGUID(CGID_DocHostCmdPriv, 0x000214D4L, 0, 0);
  48
  49 #define DEFINE_EXPECT(func) \
  50     static BOOL expect_ ## func = FALSE, called_ ## func = FALSE
  51
  52 #define SET_EXPECT(func) \
  53     expect_ ## func = TRUE
  54
  55 #define CHECK_EXPECT2(func) \
  56     do { \
  57         ok(expect_ ##func, "unexpected call " #func "\n"); \
  58         called_ ## func = TRUE; \
  59     }while(0)
  60
  61 #define CHECK_EXPECT(func) \
  62     do { \
  63         CHECK_EXPECT2(func); \
  64         expect_ ## func = FALSE; \
  65     }while(0)
  66
  67 #define CHECK_CALLED(func) \
  68     do { \
  69         ok(called_ ## func, "expected " #func "\n"); \
  70         expect_ ## func = called_ ## func = FALSE; \
  71     }while(0)
  72
  73 #define CLEAR_CALLED(func) \
  74     expect_ ## func = called_ ## func = FALSE
  75
  76 DEFINE_EXPECT(GetContainer);
  77 DEFINE_EXPECT(Site_GetWindow);
  78 DEFINE_EXPECT(ShowObject);
  79 DEFINE_EXPECT(CanInPlaceActivate);
  80 DEFINE_EXPECT(OnInPlaceActivate);
  81 DEFINE_EXPECT(OnUIActivate);
  82 DEFINE_EXPECT(GetWindowContext);
  83 DEFINE_EXPECT(Frame_GetWindow);
  84 DEFINE_EXPECT(Frame_SetActiveObject);
  85 DEFINE_EXPECT(UIWindow_SetActiveObject);
  86 DEFINE_EXPECT(SetMenu);
  87 DEFINE_EXPECT(Invoke_AMBIENT_USERMODE);
  88 DEFINE_EXPECT(Invoke_AMBIENT_DLCONTROL);
  89 DEFINE_EXPECT(Invoke_AMBIENT_USERAGENT);
  90 DEFINE_EXPECT(Invoke_AMBIENT_PALETTE);
  91 DEFINE_EXPECT(Invoke_AMBIENT_SILENT);
  92 DEFINE_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
  93 DEFINE_EXPECT(Invoke_STATUSTEXTCHANGE);
  94 DEFINE_EXPECT(Invoke_PROPERTYCHANGE);
  95 DEFINE_EXPECT(Invoke_DOWNLOADBEGIN);
  96 DEFINE_EXPECT(Invoke_BEFORENAVIGATE2);
  97 DEFINE_EXPECT(Invoke_SETSECURELOCKICON);
  98 DEFINE_EXPECT(Invoke_FILEDOWNLOAD);
  99 DEFINE_EXPECT(Invoke_COMMANDSTATECHANGE);
 100 DEFINE_EXPECT(Invoke_DOWNLOADCOMPLETE);
 101 DEFINE_EXPECT(Invoke_ONMENUBAR);
 102 DEFINE_EXPECT(Invoke_ONADDRESSBAR);
 103 DEFINE_EXPECT(Invoke_ONSTATUSBAR);
 104 DEFINE_EXPECT(Invoke_ONTOOLBAR);
 105 DEFINE_EXPECT(Invoke_ONFULLSCREEN);
 106 DEFINE_EXPECT(Invoke_ONTHEATERMODE);
 107 DEFINE_EXPECT(Invoke_WINDOWSETRESIZABLE);
 108 DEFINE_EXPECT(Invoke_TITLECHANGE);
 109 DEFINE_EXPECT(Invoke_NAVIGATECOMPLETE2);
 110 DEFINE_EXPECT(Invoke_PROGRESSCHANGE);
 111 DEFINE_EXPECT(Invoke_DOCUMENTCOMPLETE);
 112 DEFINE_EXPECT(Invoke_282);
 113 DEFINE_EXPECT(EnableModeless_TRUE);
 114 DEFINE_EXPECT(EnableModeless_FALSE);
 115 DEFINE_EXPECT(GetHostInfo);
 116 DEFINE_EXPECT(GetOptionKeyPath);
 117 DEFINE_EXPECT(GetOverridesKeyPath);
 118 DEFINE_EXPECT(SetStatusText);
 119 DEFINE_EXPECT(UpdateUI);
 120 DEFINE_EXPECT(Exec_SETDOWNLOADSTATE_0);
 121 DEFINE_EXPECT(Exec_SETDOWNLOADSTATE_1);
 122 DEFINE_EXPECT(Exec_SETPROGRESSMAX);
 123 DEFINE_EXPECT(Exec_SETPROGRESSPOS);
 124 DEFINE_EXPECT(Exec_UPDATECOMMANDS);
 125 DEFINE_EXPECT(Exec_SETTITLE);
 126 DEFINE_EXPECT(QueryStatus_SETPROGRESSTEXT);
 127 DEFINE_EXPECT(Exec_STOP);
 128 DEFINE_EXPECT(Exec_IDM_STOP);
 129 DEFINE_EXPECT(QueryStatus_STOP);
 130 DEFINE_EXPECT(QueryStatus_IDM_STOP);
 131 DEFINE_EXPECT(DocHost_EnableModeless_TRUE);
 132 DEFINE_EXPECT(DocHost_EnableModeless_FALSE);
 133 DEFINE_EXPECT(DocHost_TranslateAccelerator);
 134 DEFINE_EXPECT(GetDropTarget);
 135 DEFINE_EXPECT(TranslateUrl);
 136 DEFINE_EXPECT(ShowUI);
 137 DEFINE_EXPECT(HideUI);
 138 DEFINE_EXPECT(OnUIDeactivate);
 139 DEFINE_EXPECT(OnInPlaceDeactivate);
 140 DEFINE_EXPECT(RequestUIActivate);
 141 DEFINE_EXPECT(ControlSite_TranslateAccelerator);
 142 DEFINE_EXPECT(OnFocus);
 143
 144 static const WCHAR wszItem[] = {'i','t','e','m',0};
 145 static const WCHAR emptyW[] = {0};
 146
 147 static VARIANT_BOOL exvb;
 148
 149 static IWebBrowser2 *wb;
 150
 151 static HWND container_hwnd, shell_embedding_hwnd;
 152 static BOOL is_downloading, is_first_load, use_container_olecmd, test_close, is_http;
 153 static HRESULT hr_dochost_TranslateAccelerator = E_NOTIMPL;
 154 static HRESULT hr_site_TranslateAccelerator = E_NOTIMPL;
 155 static const char *current_url;
 156 static int wb_version;
 157
 158 #define DWL_EXPECT_BEFORE_NAVIGATE  0x01
 159 #define DWL_FROM_PUT_HREF           0x02
 160 #define DWL_FROM_GOBACK             0x04
 161 #define DWL_HTTP                    0x08
 162
 163 static DWORD dwl_flags;
 164
 165
 166 /* Returns true if the user interface is in English. Note that this does not
 167  * presume of the formatting of dates, numbers, etc.
 168  */
 169 static BOOL is_lang_english(void)
 170 {
 171     static HMODULE hkernel32 = NULL;
 172     static LANGID (WINAPI *pGetThreadUILanguage)(void) = NULL;
 173     static LANGID (WINAPI *pGetUserDefaultUILanguage)(void) = NULL;
 174
 175     if (!hkernel32)
 176     {
 177         hkernel32 = GetModuleHandleA("kernel32.dll");
 178         pGetThreadUILanguage = (void*)GetProcAddress(hkernel32, "GetThreadUILanguage");
 179         pGetUserDefaultUILanguage = (void*)GetProcAddress(hkernel32, "GetUserDefaultUILanguage");
 180     }
 181     if (pGetThreadUILanguage)
 182         return PRIMARYLANGID(pGetThreadUILanguage()) == LANG_ENGLISH;
 183     if (pGetUserDefaultUILanguage)
 184         return PRIMARYLANGID(pGetUserDefaultUILanguage()) == LANG_ENGLISH;
 185
 186     return PRIMARYLANGID(GetUserDefaultLangID()) == LANG_ENGLISH;
 187 }
 188
 189 static int strcmp_wa(LPCWSTR strw, const char *stra)
 190 {
 191     CHAR buf[512];
 192     WideCharToMultiByte(CP_ACP, 0, strw, -1, buf, sizeof(buf), NULL, NULL);
 193     return lstrcmpA(stra, buf);
 194 }
 195
 196 static BOOL iface_cmp(IUnknown *iface1, IUnknown *iface2)
 197 {
 198     IUnknown *unk1, *unk2;
 199
 200     if(iface1 == iface2)
 201         return TRUE;
 202
 203     IUnknown_QueryInterface(iface1, &IID_IUnknown, (void**)&unk1);
 204     IUnknown_Release(unk1);
 205     IUnknown_QueryInterface(iface2, &IID_IUnknown, (void**)&unk2);
 206     IUnknown_Release(unk2);
 207
 208     return unk1 == unk2;
 209 }
 210
 211 static const char *debugstr_guid(REFIID riid)
 212 {
 213     static char buf[50];
 214
 215     sprintf(buf, "{%08X-%04X-%04X-%02X%02X-%02X%02X%02X%02X%02X%02X}",
 216             riid->Data1, riid->Data2, riid->Data3, riid->Data4[0],
 217             riid->Data4[1], riid->Data4[2], riid->Data4[3], riid->Data4[4],
 218             riid->Data4[5], riid->Data4[6], riid->Data4[7]);
 219
 220     return buf;
 221 }
 222
 223 static BSTR a2bstr(const char *str)
 224 {
 225     BSTR ret;
 226     int len;
 227
 228     len = MultiByteToWideChar(CP_ACP, 0, str, -1, NULL, 0);
 229     ret = SysAllocStringLen(NULL, len);
 230     MultiByteToWideChar(CP_ACP, 0, str, -1, ret, len);
 231
 232     return ret;
 233 }
 234
 235 #define create_WebBrowser(a) _create_WebBrowser(__LINE__,a)
 236 static HRESULT _create_WebBrowser(unsigned line, IUnknown **unk)
 237 {
 238     HRESULT hres;
 239
 240     wb_version = 2;
 241
 242     hres = CoCreateInstance(&CLSID_WebBrowser, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
 243             &IID_IUnknown, (void**)unk);
 244     ok_(__FILE__,line)(hres == S_OK, "Creating WebBrowser object failed: %08x\n", hres);
 245     return hres;
 246 }
 247
 248 #define test_LocationURL(a,b) _test_LocationURL(__LINE__,a,b)
 249 static void _test_LocationURL(unsigned line, IUnknown *unk, const char *exurl)
 250 {
 251     IWebBrowser2 *wb;
 252     BSTR url = (void*)0xdeadbeef;
 253     HRESULT hres;
 254
 255     hres = IUnknown_QueryInterface(unk, &IID_IWebBrowser2, (void**)&wb);
 256     ok(hres == S_OK, "Could not get IWebBrowser2 interface: %08x\n", hres);
 257     if(FAILED(hres))
 258         return;
 259
 260     hres = IWebBrowser2_get_LocationURL(wb, &url);
 261     ok_(__FILE__,line) (hres == (*exurl ? S_OK : S_FALSE), "get_LocationURL failed: %08x\n", hres);
 262     if (hres == S_OK)
 263     {
 264         ok_(__FILE__,line) (!strcmp_wa(url, exurl), "unexpected URL: %s\n", wine_dbgstr_w(url));
 265         SysFreeString(url);
 266     }
 267
 268     IWebBrowser2_Release(wb);
 269 }
 270
 271 #define test_ready_state(ex) _test_ready_state(__LINE__,ex);
 272 static void _test_ready_state(unsigned line, READYSTATE exstate)
 273 {
 274     READYSTATE state;
 275     HRESULT hres;
 276
 277     hres = IWebBrowser2_get_ReadyState(wb, &state);
 278     ok_(__FILE__,line)(hres == S_OK, "get_ReadyState failed: %08x\n", hres);
 279     ok_(__FILE__,line)(state == exstate, "ReadyState = %d, expected %d\n", state, exstate);
 280 }
 281
 282 #define get_document(u) _get_document(__LINE__,u)
 283 static IDispatch *_get_document(unsigned line, IUnknown *unk)
 284 {
 285     IHTMLDocument2 *html_doc;
 286     IWebBrowser2 *wb;
 287     IDispatch *disp;
 288     HRESULT hres;
 289
 290     hres = IUnknown_QueryInterface(unk, &IID_IWebBrowser2, (void**)&wb);
 291     ok_(__FILE__,line)(hres == S_OK, "QueryInterface(IID_IWebBrowser2) failed: %08x\n", hres);
 292
 293     disp = NULL;
 294     hres = IWebBrowser2_get_Document(wb, &disp);
 295     IWebBrowser2_Release(wb);
 296     ok_(__FILE__,line)(hres == S_OK, "get_Document failed: %08x\n", hres);
 297     ok_(__FILE__,line)(disp != NULL, "doc_disp == NULL\n");
 298
 299     hres = IDispatch_QueryInterface(disp, &IID_IHTMLDocument2, (void**)&html_doc);
 300     ok_(__FILE__,line)(hres == S_OK, "Could not get IHTMLDocument iface: %08x\n", hres);
 301     ok(disp == (IDispatch*)html_doc, "disp != html_doc\n");
 302     IHTMLDocument_Release(html_doc);
 303
 304     return disp;
 305 }
 306
 307 #define get_dochost(u) _get_dochost(__LINE__,u)
 308 static IOleClientSite *_get_dochost(unsigned line, IUnknown *unk)
 309 {
 310     IOleClientSite *client_site;
 311     IOleObject *oleobj;
 312     IDispatch *doc;
 313     HRESULT hres;
 314
 315     doc = _get_document(line, unk);
 316     hres = IDispatch_QueryInterface(doc, &IID_IOleObject, (void**)&oleobj);
 317     IDispatch_Release(doc);
 318     ok_(__FILE__,line)(hres == S_OK, "Got 0x%08x\n", hres);
 319
 320     hres = IOleObject_GetClientSite(oleobj, &client_site);
 321     IOleObject_Release(oleobj);
 322     ok_(__FILE__,line)(hres == S_OK, "Got 0x%08x\n", hres);
 323
 324     return client_site;
 325 }
 326
 327 static HRESULT QueryInterface(REFIID,void**);
 328
 329 static HRESULT WINAPI OleCommandTarget_QueryInterface(IOleCommandTarget *iface,
 330         REFIID riid, void **ppv)
 331 {
 332     ok(0, "unexpected call\n");
 333     return E_NOINTERFACE;
 334 }
 335
 336 static ULONG WINAPI OleCommandTarget_AddRef(IOleCommandTarget *iface)
 337 {
 338     return 2;
 339 }
 340
 341 static ULONG WINAPI OleCommandTarget_Release(IOleCommandTarget *iface)
 342 {
 343     return 1;
 344 }
 345
 346 static HRESULT WINAPI OleCommandTarget_QueryStatus(IOleCommandTarget *iface, const GUID *pguidCmdGroup,
 347         ULONG cCmds, OLECMD prgCmds[], OLECMDTEXT *pCmdText)
 348 {
 349     ok(!pguidCmdGroup, "pguidCmdGroup != MULL\n");
 350     ok(cCmds == 1, "cCmds=%d, expected 1\n", cCmds);
 351     ok(!pCmdText, "pCmdText != NULL\n");
 352
 353     switch(prgCmds[0].cmdID) {
 354     case OLECMDID_STOP:
 355         CHECK_EXPECT2(QueryStatus_STOP);
 356         prgCmds[0].cmdf = OLECMDF_SUPPORTED;
 357         return S_OK;
 358     case OLECMDID_SETPROGRESSTEXT:
 359         CHECK_EXPECT(QueryStatus_SETPROGRESSTEXT);
 360         prgCmds[0].cmdf = OLECMDF_ENABLED;
 361         return S_OK;
 362     case IDM_STOP:
 363         /* Note:
 364          *  IDM_STOP is a command specific to CGID_MSHTML (not an OLECMDID command).
 365          *  This command appears here for the ExecWB and QueryStatusWB tests in order
 366          *  to help demonstrate that these routines use a NULL pguidCmdGroup.
 367          */
 368         CHECK_EXPECT(QueryStatus_IDM_STOP);
 369         prgCmds[0].cmdf = 0;
 370         return S_OK;
 371     default:
 372         ok(0, "unexpected command %d\n", prgCmds[0].cmdID);
 373     }
 374
 375     return E_FAIL;
 376 }
 377
 378 static HRESULT WINAPI OleCommandTarget_Exec(IOleCommandTarget *iface, const GUID *pguidCmdGroup,
 379         DWORD nCmdID, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
 380 {
 381     if(!pguidCmdGroup) {
 382         switch(nCmdID) {
 383         case OLECMDID_SETPROGRESSMAX:
 384             CHECK_EXPECT2(Exec_SETPROGRESSMAX);
 385             ok(nCmdexecopt == OLECMDEXECOPT_DONTPROMPTUSER, "nCmdexecopts=%08x\n", nCmdexecopt);
 386             ok(pvaIn != NULL, "pvaIn == NULL\n");
 387             if(pvaIn)
 388                 ok(V_VT(pvaIn) == VT_I4, "V_VT(pvaIn)=%d, expected VT_I4\n", V_VT(pvaIn));
 389             ok(pvaOut == NULL, "pvaOut=%p, expected NULL\n", pvaOut);
 390             return S_OK;
 391         case OLECMDID_SETPROGRESSPOS:
 392             CHECK_EXPECT2(Exec_SETPROGRESSPOS);
 393             ok(nCmdexecopt == OLECMDEXECOPT_DONTPROMPTUSER, "nCmdexecopts=%08x\n", nCmdexecopt);
 394             ok(pvaIn != NULL, "pvaIn == NULL\n");
 395             if(pvaIn)
 396                 ok(V_VT(pvaIn) == VT_I4, "V_VT(pvaIn)=%d, expected VT_I4\n", V_VT(pvaIn));
 397             ok(pvaOut == NULL, "pvaOut=%p, expected NULL\n", pvaOut);
 398             return S_OK;
 399         case OLECMDID_SETDOWNLOADSTATE:
 400             if(is_downloading)
 401                 ok(nCmdexecopt == OLECMDEXECOPT_DONTPROMPTUSER || !nCmdexecopt,
 402                    "nCmdexecopts=%08x\n", nCmdexecopt);
 403             else
 404                 ok(!nCmdexecopt, "nCmdexecopts=%08x\n", nCmdexecopt);
 405             ok(pvaOut == NULL, "pvaOut=%p\n", pvaOut);
 406             ok(pvaIn != NULL, "pvaIn == NULL\n");
 407             ok(V_VT(pvaIn) == VT_I4, "V_VT(pvaIn)=%d\n", V_VT(pvaIn));
 408             switch(V_I4(pvaIn)) {
 409             case 0:
 410                 CHECK_EXPECT2(Exec_SETDOWNLOADSTATE_0);
 411                 break;
 412             case 1:
 413                 CHECK_EXPECT2(Exec_SETDOWNLOADSTATE_1);
 414                 break;
 415             default:
 416                 ok(0, "unexpevted V_I4(pvaIn)=%d\n", V_I4(pvaIn));
 417             }
 418             return S_OK;
 419         case OLECMDID_UPDATECOMMANDS:
 420             CHECK_EXPECT2(Exec_UPDATECOMMANDS);
 421             ok(nCmdexecopt == OLECMDEXECOPT_DONTPROMPTUSER, "nCmdexecopts=%08x\n", nCmdexecopt);
 422             ok(!pvaIn, "pvaIn != NULL\n");
 423             ok(!pvaOut, "pvaOut=%p, expected NULL\n", pvaOut);
 424             return S_OK;
 425         case OLECMDID_SETTITLE:
 426             CHECK_EXPECT(Exec_SETTITLE);
 427             /* TODO: test args */
 428             return S_OK;
 429         case OLECMDID_STOP:
 430             CHECK_EXPECT(Exec_STOP);
 431             return S_OK;
 432         case IDM_STOP:
 433             /* Note:
 434              *  IDM_STOP is a command specific to CGID_MSHTML (not an OLECMDID command).
 435              *  This command appears here for the ExecWB and QueryStatusWB tests in order
 436              *  to help demonstrate that these routines use a NULL pguidCmdGroup.
 437              */
 438             CHECK_EXPECT(Exec_IDM_STOP);
 439             return OLECMDERR_E_NOTSUPPORTED;
 440         case OLECMDID_UPDATETRAVELENTRY_DATARECOVERY:
 441         case 6058: /* TODO */
 442             return E_NOTIMPL;
 443         default:
 444             ok(0, "unexpected nsCmdID %d\n", nCmdID);
 445         }
 446     }else if(IsEqualGUID(&CGID_Explorer, pguidCmdGroup)) {
 447         switch(nCmdID) {
 448         case 20: /* TODO */
 449         case 24: /* TODO */
 450         case 25: /* IE5 */
 451         case 37: /* TODO */
 452         case 39: /* TODO */
 453         case 66: /* TODO */
 454         case 67: /* TODO */
 455         case 69: /* TODO */
 456         case 101: /* TODO (IE8) */
 457         case 109: /* TODO (IE9) */
 458             return E_FAIL;
 459         default:
 460             ok(0, "unexpected nCmdID %d\n", nCmdID);
 461         }
 462     }else if(IsEqualGUID(&CGID_ShellDocView, pguidCmdGroup)) {
 463         switch(nCmdID) {
 464         case 105: /* TODO */
 465         case 138: /* TODO */
 466         case 140: /* TODO (Win7) */
 467             return E_FAIL;
 468         default:
 469             ok(0, "unexpected nCmdID %d\n", nCmdID);
 470         }
 471     }else if(IsEqualGUID(&CGID_DocHostCmdPriv, pguidCmdGroup)) {
 472         switch(nCmdID) {
 473         case 11: /* TODO */
 474             break;
 475         default:
 476             ok(0, "unexpected nCmdID %d of CGID_DocHostCmdPriv\n", nCmdID);
 477         }
 478     }else if(IsEqualGUID(&CGID_DocHostCommandHandler, pguidCmdGroup)) {
 479         switch(nCmdID) {
 480         case 6041: /* TODO */
 481             break;
 482         default:
 483             ok(0, "unexpected nCmdID %d of CGID_DocHostCommandHandler\n", nCmdID);
 484         }
 485     }else {
 486         ok(0, "unexpected pguidCmdGroup %s\n", debugstr_guid(pguidCmdGroup));
 487     }
 488
 489     return E_FAIL;
 490 }
 491
 492 static IOleCommandTargetVtbl OleCommandTargetVtbl = {
 493     OleCommandTarget_QueryInterface,
 494     OleCommandTarget_AddRef,
 495     OleCommandTarget_Release,
 496     OleCommandTarget_QueryStatus,
 497     OleCommandTarget_Exec
 498 };
 499
 500 static IOleCommandTarget OleCommandTarget = { &OleCommandTargetVtbl };
 501
 502 static HRESULT WINAPI OleContainer_QueryInterface(IOleContainer *iface, REFIID riid, void **ppv)
 503 {
 504     if(IsEqualGUID(&IID_ITargetContainer, riid))
 505         return E_NOINTERFACE; /* TODO */
 506
 507     if(IsEqualGUID(&IID_IOleCommandTarget, riid)) {
 508         if(use_container_olecmd)
 509         {
 510             *ppv = &OleCommandTarget;
 511             return S_OK;
 512         }
 513         else
 514             return E_NOINTERFACE;
 515     }
 516
 517     ok(0, "unexpected call\n");
 518     return E_NOINTERFACE;
 519 }
 520
 521 static ULONG WINAPI OleContainer_AddRef(IOleContainer *iface)
 522 {
 523     return 2;
 524 }
 525
 526 static ULONG WINAPI OleContainer_Release(IOleContainer *iface)
 527 {
 528     return 1;
 529 }
 530
 531 static HRESULT WINAPI OleContainer_ParseDisplayName(IOleContainer *iface, IBindCtx *pbc,
 532         LPOLESTR pszDiaplayName, ULONG *pchEaten, IMoniker **ppmkOut)
 533 {
 534     ok(0, "unexpected call\n");
 535     return E_NOTIMPL;
 536 }
 537
 538 static HRESULT WINAPI OleContainer_EnumObjects(IOleContainer *iface, DWORD grfFlags,
 539         IEnumUnknown **ppenum)
 540 {
 541     ok(0, "unexpected call\n");
 542     return E_NOTIMPL;
 543 }
 544
 545 static HRESULT WINAPI OleContainer_LockContainer(IOleContainer *iface, BOOL fLock)
 546 {
 547     ok(0, "unexpected call\n");
 548     return E_NOTIMPL;
 549 }
 550
 551 static const IOleContainerVtbl OleContainerVtbl = {
 552     OleContainer_QueryInterface,
 553     OleContainer_AddRef,
 554     OleContainer_Release,
 555     OleContainer_ParseDisplayName,
 556     OleContainer_EnumObjects,
 557     OleContainer_LockContainer
 558 };
 559
 560 static IOleContainer OleContainer = { &OleContainerVtbl };
 561
 562 static HRESULT WINAPI Dispatch_QueryInterface(IDispatch *iface, REFIID riid, void **ppv)
 563 {
 564     return QueryInterface(riid, ppv);
 565 }
 566
 567 static ULONG WINAPI Dispatch_AddRef(IDispatch *iface)
 568 {
 569     return 2;
 570 }
 571
 572 static ULONG WINAPI Dispatch_Release(IDispatch *iface)
 573 {
 574     return 1;
 575 }
 576
 577 static HRESULT WINAPI Dispatch_GetTypeInfoCount(IDispatch *iface, UINT *pctinfo)
 578 {
 579     ok(0, "unexpected call\n");
 580     return E_NOTIMPL;
 581 }
 582
 583 static HRESULT WINAPI Dispatch_GetTypeInfo(IDispatch *iface, UINT iTInfo, LCID lcid,
 584         ITypeInfo **ppTInfo)
 585 {
 586     ok(0, "unexpected call\n");
 587     return E_NOTIMPL;
 588 }
 589
 590 static HRESULT WINAPI Dispatch_GetIDsOfNames(IDispatch *iface, REFIID riid, LPOLESTR *rgszNames,
 591         UINT cNames, LCID lcid, DISPID *rgDispId)
 592 {
 593     ok(0, "unexpected call\n");
 594     return E_NOTIMPL;
 595 }
 596
 597 static HRESULT WINAPI Dispatch_Invoke(IDispatch *iface, DISPID dispIdMember, REFIID riid,
 598         LCID lcid, WORD wFlags, DISPPARAMS *pDispParams, VARIANT *pVarResult,
 599         EXCEPINFO *pExcepInfo, UINT *puArgErr)
 600 {
 601     ok(IsEqualGUID(&IID_NULL, riid), "riid != IID_NULL\n");
 602     ok(pDispParams != NULL, "pDispParams == NULL\n");
 603     ok(pExcepInfo == NULL, "pExcepInfo=%p, expected NULL\n", pExcepInfo);
 604     ok(V_VT(pVarResult) == VT_EMPTY, "V_VT(pVarResult)=%d\n", V_VT(pVarResult));
 605     ok(wFlags == DISPATCH_PROPERTYGET, "wFlags=%08x, expected DISPATCH_PROPERTYGET\n", wFlags);
 606     ok(pDispParams->rgvarg == NULL, "pDispParams->rgvarg = %p\n", pDispParams->rgvarg);
 607     ok(pDispParams->rgdispidNamedArgs == NULL,
 608        "pDispParams->rgdispidNamedArgs = %p\n", pDispParams->rgdispidNamedArgs);
 609     ok(pDispParams->cArgs == 0, "pDispParams->cArgs = %d\n", pDispParams->cArgs);
 610     ok(pDispParams->cNamedArgs == 0, "pDispParams->cNamedArgs = %d\n", pDispParams->cNamedArgs);
 611
 612     switch(dispIdMember) {
 613     case DISPID_AMBIENT_USERMODE:
 614         CHECK_EXPECT2(Invoke_AMBIENT_USERMODE);
 615         return E_FAIL;
 616     case DISPID_AMBIENT_DLCONTROL:
 617         CHECK_EXPECT(Invoke_AMBIENT_DLCONTROL);
 618         ok(puArgErr != NULL, "puArgErr=%p\n", puArgErr);
 619         return E_FAIL;
 620     case DISPID_AMBIENT_USERAGENT:
 621        CHECK_EXPECT(Invoke_AMBIENT_USERAGENT);
 622         ok(puArgErr != NULL, "puArgErr=%p\n", puArgErr);
 623         return E_FAIL;
 624     case DISPID_AMBIENT_PALETTE:
 625         CHECK_EXPECT(Invoke_AMBIENT_PALETTE);
 626         ok(puArgErr != NULL, "puArgErr=%p\n", puArgErr);
 627         return E_FAIL;
 628     case DISPID_AMBIENT_OFFLINEIFNOTCONNECTED:
 629         CHECK_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
 630         ok(puArgErr == NULL, "puArgErr=%p\n", puArgErr);
 631         V_VT(pVarResult) = VT_BOOL;
 632         V_BOOL(pVarResult) = VARIANT_FALSE;
 633         return S_OK;
 634     case DISPID_AMBIENT_SILENT:
 635         CHECK_EXPECT(Invoke_AMBIENT_SILENT);
 636         ok(puArgErr == NULL, "puArgErr=%p\n", puArgErr);
 637         V_VT(pVarResult) = VT_BOOL;
 638         V_BOOL(pVarResult) = VARIANT_FALSE;
 639         return S_OK;
 640     }
 641
 642     ok(0, "unexpected dispIdMember %d\n", dispIdMember);
 643     return E_NOTIMPL;
 644 }
 645
 646 static IDispatchVtbl DispatchVtbl = {
 647     Dispatch_QueryInterface,
 648     Dispatch_AddRef,
 649     Dispatch_Release,
 650     Dispatch_GetTypeInfoCount,
 651     Dispatch_GetTypeInfo,
 652     Dispatch_GetIDsOfNames,
 653     Dispatch_Invoke
 654 };
 655
 656 static IDispatch Dispatch = { &DispatchVtbl };
 657
 658 static HRESULT WINAPI WebBrowserEvents2_QueryInterface(IDispatch *iface, REFIID riid, void **ppv)
 659 {
 660     *ppv = NULL;
 661
 662     if(IsEqualGUID(&DIID_DWebBrowserEvents2, riid)) {
 663         *ppv = iface;
 664         return S_OK;
 665     }
 666
 667     ok(0, "unexpected riid %s\n", debugstr_guid(riid));
 668     return E_NOINTERFACE;
 669 }
 670
 671 #define test_invoke_bool(p,s) _test_invoke_bool(__LINE__,p,s)
 672 static void _test_invoke_bool(unsigned line, const DISPPARAMS *params, BOOL strict)
 673 {
 674     ok_(__FILE__,line) (params->rgvarg != NULL, "rgvarg == NULL\n");
 675     ok_(__FILE__,line) (params->cArgs == 1, "cArgs=%d, expected 1\n", params->cArgs);
 676     ok_(__FILE__,line) (V_VT(params->rgvarg) == VT_BOOL, "V_VT(arg)=%d\n", V_VT(params->rgvarg));
 677     if(strict)
 678         ok_(__FILE__,line) (V_BOOL(params->rgvarg) == exvb, "V_VT(arg)=%x, expected %x\n",
 679                             V_BOOL(params->rgvarg), exvb);
 680     else
 681         ok_(__FILE__,line) (!V_BOOL(params->rgvarg) == !exvb, "V_VT(arg)=%x, expected %x\n",
 682                             V_BOOL(params->rgvarg), exvb);
 683 }
 684
 685 static void test_OnBeforeNavigate(const VARIANT *disp, const VARIANT *url, const VARIANT *flags,
 686         const VARIANT *frame, const VARIANT *post_data, const VARIANT *headers, const VARIANT *cancel)
 687 {
 688     ok(V_VT(disp) == VT_DISPATCH, "V_VT(disp)=%d, expected VT_DISPATCH\n", V_VT(disp));
 689     ok(V_DISPATCH(disp) != NULL, "V_DISPATCH(disp) == NULL\n");
 690     ok(V_DISPATCH(disp) == (IDispatch*)wb, "V_DISPATCH(disp)=%p, wb=%p\n", V_DISPATCH(disp), wb);
 691
 692     ok(V_VT(url) == (VT_BYREF|VT_VARIANT), "V_VT(url)=%x, expected VT_BYREF|VT_VARIANT\n", V_VT(url));
 693     ok(V_VARIANTREF(url) != NULL, "V_VARIANTREF(url) == NULL)\n");
 694     if(V_VARIANTREF(url)) {
 695         ok(V_VT(V_VARIANTREF(url)) == VT_BSTR, "V_VT(V_VARIANTREF(url))=%d, expected VT_BSTR\n",
 696            V_VT(V_VARIANTREF(url)));
 697         ok(V_BSTR(V_VARIANTREF(url)) != NULL, "V_BSTR(V_VARIANTREF(url)) == NULL\n");
 698         ok(!strcmp_wa(V_BSTR(V_VARIANTREF(url)), current_url), "unexpected url %s, expected %s\n",
 699            wine_dbgstr_w(V_BSTR(V_VARIANTREF(url))), current_url);
 700     }
 701
 702     ok(V_VT(flags) == (VT_BYREF|VT_VARIANT), "V_VT(flags)=%x, expected VT_BYREF|VT_VARIANT\n",
 703        V_VT(flags));
 704     ok(V_VT(flags) == (VT_BYREF|VT_VARIANT), "V_VT(flags)=%x, expected VT_BYREF|VT_VARIANT\n",
 705        V_VT(flags));
 706     ok(V_VARIANTREF(flags) != NULL, "V_VARIANTREF(flags) == NULL)\n");
 707     if(V_VARIANTREF(flags)) {
 708         ok(V_VT(V_VARIANTREF(flags)) == VT_I4, "V_VT(V_VARIANTREF(flags))=%d, expected VT_I4\n",
 709            V_VT(V_VARIANTREF(flags)));
 710         if(is_first_load) {
 711             ok(V_I4(V_VARIANTREF(flags)) == 0, "V_I4(V_VARIANTREF(flags)) = %x, expected 0\n",
 712                V_I4(V_VARIANTREF(flags)));
 713         }else {
 714             ok((V_I4(V_VARIANTREF(flags)) & ~0x40) == 0, "V_I4(V_VARIANTREF(flags)) = %x, expected 0x40 or 0\n",
 715                V_I4(V_VARIANTREF(flags)));
 716         }
 717     }
 718
 719     ok(V_VT(frame) == (VT_BYREF|VT_VARIANT), "V_VT(frame)=%x, expected VT_BYREF|VT_VARIANT\n",
 720        V_VT(frame));
 721     ok(V_VT(frame) == (VT_BYREF|VT_VARIANT), "V_VT(frame)=%x, expected VT_BYREF|VT_VARIANT\n",
 722        V_VT(frame));
 723     ok(V_VARIANTREF(frame) != NULL, "V_VARIANTREF(frame) == NULL)\n");
 724     if(V_VARIANTREF(frame)) {
 725         ok(V_VT(V_VARIANTREF(frame)) == VT_BSTR, "V_VT(V_VARIANTREF(frame))=%d, expected VT_BSTR\n",
 726            V_VT(V_VARIANTREF(frame)));
 727         ok(V_BSTR(V_VARIANTREF(frame)) == NULL, "V_BSTR(V_VARIANTREF(frame)) = %p, expected NULL\n",
 728            V_BSTR(V_VARIANTREF(frame)));
 729     }
 730
 731     ok(V_VT(post_data) == (VT_BYREF|VT_VARIANT), "V_VT(post_data)=%x, expected VT_BYREF|VT_VARIANT\n",
 732        V_VT(post_data));
 733     ok(V_VT(post_data) == (VT_BYREF|VT_VARIANT), "V_VT(post_data)=%x, expected VT_BYREF|VT_VARIANT\n",
 734        V_VT(post_data));
 735     ok(V_VARIANTREF(post_data) != NULL, "V_VARIANTREF(post_data) == NULL)\n");
 736     if(V_VARIANTREF(post_data)) {
 737         ok(V_VT(V_VARIANTREF(post_data)) == (VT_VARIANT|VT_BYREF),
 738            "V_VT(V_VARIANTREF(post_data))=%d, expected VT_VARIANT|VT_BYREF\n",
 739            V_VT(V_VARIANTREF(post_data)));
 740         ok(V_VARIANTREF(V_VARIANTREF(post_data)) != NULL,
 741            "V_VARIANTREF(V_VARIANTREF(post_data)) == NULL\n");
 742         if(V_VARIANTREF(V_VARIANTREF(post_data))) {
 743             ok(V_VT(V_VARIANTREF(V_VARIANTREF(post_data))) == VT_EMPTY,
 744                "V_VT(V_VARIANTREF(V_VARIANTREF(post_data))) = %d, expected VT_EMPTY\n",
 745                V_VT(V_VARIANTREF(V_VARIANTREF(post_data))));
 746
 747             if(V_VT(V_VARIANTREF(V_VARIANTREF(post_data))) == (VT_UI1|VT_ARRAY)) {
 748                 const SAFEARRAY *sa = V_ARRAY(V_VARIANTREF(V_VARIANTREF(post_data)));
 749
 750                 ok(sa->cDims == 1, "sa->cDims = %d, expected 1\n", sa->cDims);
 751                 ok(sa->fFeatures == 0, "sa->fFeatures = %d, expected 0\n", sa->fFeatures);
 752             }
 753         }
 754     }
 755
 756     ok(V_VT(headers) == (VT_BYREF|VT_VARIANT), "V_VT(headers)=%x, expected VT_BYREF|VT_VARIANT\n",
 757        V_VT(headers));
 758     ok(V_VARIANTREF(headers) != NULL, "V_VARIANTREF(headers) == NULL)\n");
 759     if(V_VARIANTREF(headers)) {
 760         ok(V_VT(V_VARIANTREF(headers)) == VT_BSTR, "V_VT(V_VARIANTREF(headers))=%d, expected VT_BSTR\n",
 761            V_VT(V_VARIANTREF(headers)));
 762         ok(V_BSTR(V_VARIANTREF(headers)) == NULL, "V_BSTR(V_VARIANTREF(headers)) = %p, expected NULL\n",
 763            V_BSTR(V_VARIANTREF(headers)));
 764     }
 765
 766     ok(V_VT(cancel) == (VT_BYREF|VT_BOOL), "V_VT(cancel)=%x, expected VT_BYREF|VT_BOOL\n",
 767        V_VT(cancel));
 768     ok(V_BOOLREF(cancel) != NULL, "V_BOOLREF(pDispParams->rgvarg[0] == NULL)\n");
 769     if(V_BOOLREF(cancel))
 770         ok(*V_BOOLREF(cancel) == VARIANT_FALSE, "*V_BOOLREF(cancel) = %x, expected VARIANT_FALSE\n",
 771            *V_BOOLREF(cancel));
 772 }
 773
 774 static void test_navigatecomplete2(DISPPARAMS *dp)
 775 {
 776     VARIANT *v;
 777
 778     CHECK_EXPECT(Invoke_NAVIGATECOMPLETE2);
 779
 780     ok(dp->rgvarg != NULL, "rgvarg == NULL\n");
 781     ok(dp->cArgs == 2, "cArgs=%d, expected 2\n", dp->cArgs);
 782
 783     ok(V_VT(dp->rgvarg) == (VT_BYREF|VT_VARIANT), "V_VT(dp->rgvarg) = %d\n", V_VT(dp->rgvarg));
 784     v = V_VARIANTREF(dp->rgvarg);
 785     ok(V_VT(v) == VT_BSTR, "V_VT(url) = %d\n", V_VT(v));
 786     ok(!strcmp_wa(V_BSTR(v), current_url), "url=%s, expected %s\n", wine_dbgstr_w(V_BSTR(v)), current_url);
 787
 788     ok(V_VT(dp->rgvarg+1) == VT_DISPATCH, "V_VT(dp->rgvarg+1) = %d\n", V_VT(dp->rgvarg+1));
 789     ok(V_DISPATCH(dp->rgvarg+1) == (IDispatch*)wb, "V_DISPATCH=%p, wb=%p\n", V_DISPATCH(dp->rgvarg+1), wb);
 790
 791     test_ready_state((dwl_flags & (DWL_FROM_PUT_HREF|DWL_FROM_GOBACK)) ? READYSTATE_COMPLETE : READYSTATE_LOADING);
 792 }
 793
 794 static void test_documentcomplete(DISPPARAMS *dp)
 795 {
 796     VARIANT *v;
 797
 798     CHECK_EXPECT(Invoke_DOCUMENTCOMPLETE);
 799
 800     ok(dp->rgvarg != NULL, "rgvarg == NULL\n");
 801     ok(dp->cArgs == 2, "cArgs=%d, expected 2\n", dp->cArgs);
 802
 803     ok(V_VT(dp->rgvarg) == (VT_BYREF|VT_VARIANT), "V_VT(dp->rgvarg) = %d\n", V_VT(dp->rgvarg));
 804     v = V_VARIANTREF(dp->rgvarg);
 805     ok(V_VT(v) == VT_BSTR, "V_VT(url) = %d\n", V_VT(v));
 806     ok(!strcmp_wa(V_BSTR(v), current_url), "url=%s, expected %s\n", wine_dbgstr_w(V_BSTR(v)), current_url);
 807
 808     ok(V_VT(dp->rgvarg+1) == VT_DISPATCH, "V_VT(dp->rgvarg+1) = %d\n", V_VT(dp->rgvarg+1));
 809     ok(V_DISPATCH(dp->rgvarg+1) == (IDispatch*)wb, "V_DISPATCH=%p, wb=%p\n", V_DISPATCH(dp->rgvarg+1), wb);
 810
 811     test_ready_state(READYSTATE_COMPLETE);
 812 }
 813
 814 static HRESULT WINAPI WebBrowserEvents2_Invoke(IDispatch *iface, DISPID dispIdMember, REFIID riid,
 815         LCID lcid, WORD wFlags, DISPPARAMS *pDispParams, VARIANT *pVarResult,
 816         EXCEPINFO *pExcepInfo, UINT *puArgErr)
 817 {
 818     ok(IsEqualGUID(&IID_NULL, riid), "riid != IID_NULL\n");
 819     ok(pDispParams != NULL, "pDispParams == NULL\n");
 820     ok(pExcepInfo == NULL, "pExcepInfo=%p, expected NULL\n", pExcepInfo);
 821     ok(pVarResult == NULL, "pVarResult=%p\n", pVarResult);
 822     ok(wFlags == DISPATCH_METHOD, "wFlags=%08x, expected DISPATCH_METHOD\n", wFlags);
 823     ok(pDispParams->rgdispidNamedArgs == NULL,
 824        "pDispParams->rgdispidNamedArgs = %p\n", pDispParams->rgdispidNamedArgs);
 825     ok(pDispParams->cNamedArgs == 0, "pDispParams->cNamedArgs = %d\n", pDispParams->cNamedArgs);
 826
 827     switch(dispIdMember) {
 828     case DISPID_STATUSTEXTCHANGE:
 829         CHECK_EXPECT2(Invoke_STATUSTEXTCHANGE);
 830
 831         ok(pDispParams->rgvarg != NULL, "rgvarg == NULL\n");
 832         ok(pDispParams->cArgs == 1, "cArgs=%d, expected 1\n", pDispParams->cArgs);
 833         ok(V_VT(pDispParams->rgvarg) == VT_BSTR, "V_VT(pDispParams->rgvarg)=%d, expected VT_BSTR\n",
 834            V_VT(pDispParams->rgvarg));
 835         /* TODO: Check text */
 836         break;
 837
 838     case DISPID_PROPERTYCHANGE:
 839         CHECK_EXPECT2(Invoke_PROPERTYCHANGE);
 840
 841         ok(pDispParams->rgvarg != NULL, "rgvarg == NULL\n");
 842         ok(pDispParams->cArgs == 1, "cArgs=%d, expected 1\n", pDispParams->cArgs);
 843         /* TODO: Check args */
 844         break;
 845
 846     case DISPID_DOWNLOADBEGIN:
 847         CHECK_EXPECT(Invoke_DOWNLOADBEGIN);
 848
 849         ok(pDispParams->rgvarg == NULL, "rgvarg=%p, expected NULL\n", pDispParams->rgvarg);
 850         ok(pDispParams->cArgs == 0, "cArgs=%d, expected 0\n", pDispParams->cArgs);
 851         test_ready_state(READYSTATE_LOADING);
 852         break;
 853
 854     case DISPID_BEFORENAVIGATE2:
 855         CHECK_EXPECT(Invoke_BEFORENAVIGATE2);
 856
 857         ok(pDispParams->rgvarg != NULL, "rgvarg == NULL\n");
 858         ok(pDispParams->cArgs == 7, "cArgs=%d, expected 7\n", pDispParams->cArgs);
 859         test_OnBeforeNavigate(pDispParams->rgvarg+6, pDispParams->rgvarg+5, pDispParams->rgvarg+4,
 860                               pDispParams->rgvarg+3, pDispParams->rgvarg+2, pDispParams->rgvarg+1,
 861                               pDispParams->rgvarg);
 862         test_ready_state((dwl_flags & DWL_FROM_PUT_HREF) ? READYSTATE_COMPLETE : READYSTATE_LOADING);
 863         break;
 864
 865     case DISPID_SETSECURELOCKICON:
 866         CHECK_EXPECT2(Invoke_SETSECURELOCKICON);
 867
 868         ok(pDispParams->rgvarg != NULL, "rgvarg == NULL\n");
 869         ok(pDispParams->cArgs == 1, "cArgs=%d, expected 1\n", pDispParams->cArgs);
 870         /* TODO: Check args */
 871         break;
 872
 873     case DISPID_FILEDOWNLOAD:
 874         CHECK_EXPECT(Invoke_FILEDOWNLOAD);
 875
 876         ok(pDispParams->rgvarg != NULL, "rgvarg == NULL\n");
 877         ok(pDispParams->cArgs == 2, "cArgs=%d, expected 2\n", pDispParams->cArgs);
 878         /* TODO: Check args */
 879         break;
 880
 881     case DISPID_COMMANDSTATECHANGE:
 882         CHECK_EXPECT2(Invoke_COMMANDSTATECHANGE);
 883
 884         ok(pDispParams->rgvarg != NULL, "rgvarg == NULL\n");
 885         ok(pDispParams->cArgs == 2, "cArgs=%d, expected 2\n", pDispParams->cArgs);
 886
 887         ok(V_VT(pDispParams->rgvarg) == VT_BOOL, "V_VT(pDispParams->rgvarg) = %d\n", V_VT(pDispParams->rgvarg));
 888         ok(V_VT(pDispParams->rgvarg+1) == VT_I4, "V_VT(pDispParams->rgvarg+1) = %d\n", V_VT(pDispParams->rgvarg+1));
 889
 890         /* TODO: Check args */
 891         break;
 892
 893     case DISPID_DOWNLOADCOMPLETE:
 894         CHECK_EXPECT(Invoke_DOWNLOADCOMPLETE);
 895
 896         ok(pDispParams->rgvarg == NULL, "rgvarg=%p, expected NULL\n", pDispParams->rgvarg);
 897         ok(pDispParams->cArgs == 0, "cArgs=%d, expected 0\n", pDispParams->cArgs);
 898         test_ready_state(READYSTATE_LOADING);
 899         break;
 900
 901     case DISPID_ONMENUBAR:
 902         CHECK_EXPECT(Invoke_ONMENUBAR);
 903         test_invoke_bool(pDispParams, TRUE);
 904         break;
 905
 906     case DISPID_ONADDRESSBAR:
 907         CHECK_EXPECT(Invoke_ONADDRESSBAR);
 908         test_invoke_bool(pDispParams, TRUE);
 909         break;
 910
 911     case DISPID_ONSTATUSBAR:
 912         CHECK_EXPECT(Invoke_ONSTATUSBAR);
 913         test_invoke_bool(pDispParams, TRUE);
 914         break;
 915
 916     case DISPID_ONTOOLBAR:
 917         CHECK_EXPECT(Invoke_ONTOOLBAR);
 918         test_invoke_bool(pDispParams, FALSE);
 919         break;
 920
 921     case DISPID_ONFULLSCREEN:
 922         CHECK_EXPECT(Invoke_ONFULLSCREEN);
 923         test_invoke_bool(pDispParams, TRUE);
 924         break;
 925
 926     case DISPID_ONTHEATERMODE:
 927         CHECK_EXPECT(Invoke_ONTHEATERMODE);
 928         test_invoke_bool(pDispParams, TRUE);
 929         break;
 930
 931     case DISPID_WINDOWSETRESIZABLE:
 932         CHECK_EXPECT(Invoke_WINDOWSETRESIZABLE);
 933         test_invoke_bool(pDispParams, TRUE);
 934         break;
 935
 936     case DISPID_TITLECHANGE:
 937         CHECK_EXPECT2(Invoke_TITLECHANGE);
 938         /* FIXME */
 939         break;
 940
 941     case DISPID_NAVIGATECOMPLETE2:
 942         test_navigatecomplete2(pDispParams);
 943         break;
 944
 945     case DISPID_PROGRESSCHANGE:
 946         CHECK_EXPECT2(Invoke_PROGRESSCHANGE);
 947         /* FIXME */
 948         break;
 949
 950     case DISPID_DOCUMENTCOMPLETE:
 951         test_documentcomplete(pDispParams);
 952         break;
 953
 954     case 282: /* FIXME */
 955         CHECK_EXPECT2(Invoke_282);
 956         break;
 957
 958     default:
 959         ok(0, "unexpected dispIdMember %d\n", dispIdMember);
 960     }
 961
 962     return S_OK;
 963 }
 964
 965 static IDispatchVtbl WebBrowserEvents2Vtbl = {
 966     WebBrowserEvents2_QueryInterface,
 967     Dispatch_AddRef,
 968     Dispatch_Release,
 969     Dispatch_GetTypeInfoCount,
 970     Dispatch_GetTypeInfo,
 971     Dispatch_GetIDsOfNames,
 972     WebBrowserEvents2_Invoke
 973 };
 974
 975 static IDispatch WebBrowserEvents2 = { &WebBrowserEvents2Vtbl };
 976
 977 static HRESULT WINAPI ClientSite_QueryInterface(IOleClientSite *iface, REFIID riid, void **ppv)
 978 {
 979     return QueryInterface(riid, ppv);
 980 }
 981
 982 static ULONG WINAPI ClientSite_AddRef(IOleClientSite *iface)
 983 {
 984     return 2;
 985 }
 986
 987 static ULONG WINAPI ClientSite_Release(IOleClientSite *iface)
 988 {
 989     return 1;
 990 }
 991
 992 static HRESULT WINAPI ClientSite_SaveObject(IOleClientSite *iface)
 993 {
 994     ok(0, "unexpected call\n");
 995     return E_NOTIMPL;
 996 }
 997
 998 static HRESULT WINAPI ClientSite_GetMoniker(IOleClientSite *iface, DWORD dwAssign, DWORD dwWhichMoniker,
 999         IMoniker **ppmon)
1000 {
1001     ok(0, "unexpected call\n");
1002     return E_NOTIMPL;
1003 }
1004
1005 static HRESULT WINAPI ClientSite_GetContainer(IOleClientSite *iface, IOleContainer **ppContainer)
1006 {
1007     CHECK_EXPECT(GetContainer);
1008
1009     ok(ppContainer != NULL, "ppContainer == NULL\n");
1010     if(ppContainer)
1011         *ppContainer = &OleContainer;
1012
1013     return S_OK;
1014 }
1015
1016 static HRESULT WINAPI ClientSite_ShowObject(IOleClientSite *iface)
1017 {
1018     CHECK_EXPECT(ShowObject);
1019     return S_OK;
1020 }
1021
1022 static HRESULT WINAPI ClientSite_OnShowWindow(IOleClientSite *iface, BOOL fShow)
1023 {
1024     ok(0, "unexpected call\n");
1025     return E_NOTIMPL;
1026 }
1027
1028 static HRESULT WINAPI ClientSite_RequestNewObjectLayout(IOleClientSite *iface)
1029 {
1030     ok(0, "unexpected call\n");
1031     return E_NOTIMPL;
1032 }
1033
1034 static const IOleClientSiteVtbl ClientSiteVtbl = {
1035     ClientSite_QueryInterface,
1036     ClientSite_AddRef,
1037     ClientSite_Release,
1038     ClientSite_SaveObject,
1039     ClientSite_GetMoniker,
1040     ClientSite_GetContainer,
1041     ClientSite_ShowObject,
1042     ClientSite_OnShowWindow,
1043     ClientSite_RequestNewObjectLayout
1044 };
1045
1046 static IOleClientSite ClientSite = { &ClientSiteVtbl };
1047
1048 static HRESULT WINAPI IOleControlSite_fnQueryInterface(IOleControlSite *iface, REFIID riid, void **ppv)
1049 {
1050     *ppv = NULL;
1051     return E_NOINTERFACE;
1052 }
1053
1054 static ULONG WINAPI IOleControlSite_fnAddRef(IOleControlSite *iface)
1055 {
1056     return 2;
1057 }
1058
1059 static ULONG WINAPI IOleControlSite_fnRelease(IOleControlSite *iface)
1060 {
1061     return 1;
1062 }
1063
1064 static HRESULT WINAPI IOleControlSite_fnOnControlInfoChanged(IOleControlSite* This)
1065 {
1066     ok(0, "unexpected call\n");
1067     return E_NOTIMPL;
1068 }
1069
1070 static HRESULT WINAPI IOleControlSite_fnLockInPlaceActive(IOleControlSite* This,
1071                                                           BOOL fLock)
1072 {
1073     ok(0, "unexpected call\n");
1074     return E_NOTIMPL;
1075 }
1076
1077 static HRESULT WINAPI IOleControlSite_fnGetExtendedControl(IOleControlSite* This,
1078                                                            IDispatch **ppDisp)
1079 {
1080     ok(0, "unexpected call\n");
1081     return E_NOTIMPL;
1082 }
1083
1084 static HRESULT WINAPI IOleControlSite_fnTransformCoords(IOleControlSite* This,
1085                                                         POINTL *pPtlHimetric,
1086                                                         POINTF *pPtfContainer,
1087                                                         DWORD dwFlags)
1088 {
1089     ok(0, "unexpected call\n");
1090     return E_NOTIMPL;
1091 }
1092
1093 static HRESULT WINAPI IOleControlSite_fnTranslateAccelerator(IOleControlSite* This, MSG *pMsg,
1094                                                              DWORD grfModifiers)
1095 {
1096     CHECK_EXPECT(ControlSite_TranslateAccelerator);
1097     return hr_site_TranslateAccelerator;
1098 }
1099
1100 static HRESULT WINAPI IOleControlSite_fnOnFocus(IOleControlSite* This, BOOL fGotFocus)
1101 {
1102     CHECK_EXPECT2(OnFocus);
1103     return E_NOTIMPL;
1104 }
1105
1106 static HRESULT WINAPI IOleControlSite_fnShowPropertyFrame(IOleControlSite* This)
1107 {
1108     ok(0, "unexpected call\n");
1109     return E_NOTIMPL;
1110 }
1111
1112 static IOleControlSiteVtbl ControlSiteVtbl = {
1113     IOleControlSite_fnQueryInterface,
1114     IOleControlSite_fnAddRef,
1115     IOleControlSite_fnRelease,
1116     IOleControlSite_fnOnControlInfoChanged,
1117     IOleControlSite_fnLockInPlaceActive,
1118     IOleControlSite_fnGetExtendedControl,
1119     IOleControlSite_fnTransformCoords,
1120     IOleControlSite_fnTranslateAccelerator,
1121     IOleControlSite_fnOnFocus,
1122     IOleControlSite_fnShowPropertyFrame
1123 };
1124
1125 static IOleControlSite ControlSite = { &ControlSiteVtbl };
1126
1127 static HRESULT WINAPI InPlaceUIWindow_QueryInterface(IOleInPlaceFrame *iface,
1128                                                      REFIID riid, void **ppv)
1129 {
1130     ok(0, "unexpected call\n");
1131     return E_NOINTERFACE;
1132 }
1133
1134 static ULONG WINAPI InPlaceUIWindow_AddRef(IOleInPlaceFrame *iface)
1135 {
1136     return 2;
1137 }
1138
1139 static ULONG WINAPI InPlaceUIWindow_Release(IOleInPlaceFrame *iface)
1140 {
1141     return 1;
1142 }
1143
1144 static HRESULT WINAPI InPlaceUIWindow_GetWindow(IOleInPlaceFrame *iface, HWND *phwnd)
1145 {
1146     ok(0, "unexpected call\n");
1147     return E_NOTIMPL;
1148 }
1149
1150 static HRESULT WINAPI InPlaceFrame_GetWindow(IOleInPlaceFrame *iface, HWND *phwnd)
1151 {
1152     CHECK_EXPECT(Frame_GetWindow);
1153     ok(phwnd != NULL, "phwnd == NULL\n");
1154     if(phwnd)
1155         *phwnd = container_hwnd;
1156     return S_OK;
1157 }
1158
1159 static HRESULT WINAPI InPlaceUIWindow_ContextSensitiveHelp(IOleInPlaceFrame *iface, BOOL fEnterMode)
1160 {
1161     ok(0, "unexpected call\n");
1162     return E_NOTIMPL;
1163 }
1164
1165 static HRESULT WINAPI InPlaceUIWindow_GetBorder(IOleInPlaceFrame *iface, LPRECT lprectBorder)
1166 {
1167     ok(0, "unexpected call\n");
1168     return E_NOTIMPL;
1169 }
1170
1171 static HRESULT WINAPI InPlaceUIWindow_RequestBorderSpace(IOleInPlaceFrame *iface,
1172         LPCBORDERWIDTHS pborderwidths)
1173 {
1174     ok(0, "unexpected call\n");
1175     return E_NOTIMPL;
1176 }
1177
1178 static HRESULT WINAPI InPlaceUIWindow_SetBorderSpace(IOleInPlaceFrame *iface,
1179         LPCBORDERWIDTHS pborderwidths)
1180 {
1181     ok(0, "unexpected call\n");
1182     return E_NOTIMPL;
1183 }
1184
1185 static HRESULT WINAPI InPlaceUIWindow_SetActiveObject(IOleInPlaceFrame *iface,
1186         IOleInPlaceActiveObject *pActiveObject, LPCOLESTR pszObjName)
1187 {
1188     CHECK_EXPECT(UIWindow_SetActiveObject);
1189     if(!test_close) {
1190         ok(pActiveObject != NULL, "pActiveObject = NULL\n");
1191         ok(!lstrcmpW(pszObjName, wszItem), "unexpected pszObjName\n");
1192     } else {
1193         ok(!pActiveObject, "pActiveObject != NULL\n");
1194         ok(!pszObjName, "pszObjName != NULL\n");
1195     }
1196     return S_OK;
1197 }
1198
1199 static HRESULT WINAPI InPlaceFrame_SetActiveObject(IOleInPlaceFrame *iface,
1200         IOleInPlaceActiveObject *pActiveObject, LPCOLESTR pszObjName)
1201 {
1202     CHECK_EXPECT(Frame_SetActiveObject);
1203     if(!test_close) {
1204         ok(pActiveObject != NULL, "pActiveObject = NULL\n");
1205         ok(!lstrcmpW(pszObjName, wszItem), "unexpected pszObjName\n");
1206     } else {
1207         ok(!pActiveObject, "pActiveObject != NULL\n");
1208         ok(!pszObjName, "pszObjName != NULL\n");
1209     }
1210     return S_OK;
1211 }
1212
1213 static HRESULT WINAPI InPlaceFrame_InsertMenus(IOleInPlaceFrame *iface, HMENU hmenuShared,
1214         LPOLEMENUGROUPWIDTHS lpMenuWidths)
1215 {
1216     ok(0, "unexpected call\n");
1217     return E_NOTIMPL;
1218 }
1219
1220 static HRESULT WINAPI InPlaceFrame_SetMenu(IOleInPlaceFrame *iface, HMENU hmenuShared,
1221         HOLEMENU holemenu, HWND hwndActiveObject)
1222 {
1223     CHECK_EXPECT(SetMenu);
1224     ok(hmenuShared == NULL, "hmenuShared=%p\n", hmenuShared);
1225     ok(holemenu == NULL, "holemenu=%p\n", holemenu);
1226     ok(hwndActiveObject == shell_embedding_hwnd, "hwndActiveObject=%p, expected %p\n",
1227        hwndActiveObject, shell_embedding_hwnd);
1228     return S_OK;
1229 }
1230
1231 static HRESULT WINAPI InPlaceFrame_RemoveMenus(IOleInPlaceFrame *iface, HMENU hmenuShared)
1232 {
1233     ok(0, "unexpected call\n");
1234     return E_NOTIMPL;
1235 }
1236
1237 static HRESULT WINAPI InPlaceFrame_SetStatusText(IOleInPlaceFrame *iface, LPCOLESTR pszStatusText)
1238 {
1239     CHECK_EXPECT2(SetStatusText);
1240     /* FIXME: Check pszStatusText */
1241     return S_OK;
1242 }
1243
1244 static HRESULT WINAPI InPlaceFrame_EnableModeless(IOleInPlaceFrame *iface, BOOL fEnable)
1245 {
1246     if(fEnable)
1247         CHECK_EXPECT2(EnableModeless_TRUE);
1248     else
1249         CHECK_EXPECT2(EnableModeless_FALSE);
1250     return S_OK;
1251 }
1252
1253 static HRESULT WINAPI InPlaceFrame_TranslateAccelerator(IOleInPlaceFrame *iface, LPMSG lpmsg, WORD wID)
1254 {
1255     ok(0, "unexpected call\n");
1256     return E_NOTIMPL;
1257 }
1258
1259 static const IOleInPlaceFrameVtbl InPlaceUIWindowVtbl = {
1260     InPlaceUIWindow_QueryInterface,
1261     InPlaceUIWindow_AddRef,
1262     InPlaceUIWindow_Release,
1263     InPlaceUIWindow_GetWindow,
1264     InPlaceUIWindow_ContextSensitiveHelp,
1265     InPlaceUIWindow_GetBorder,
1266     InPlaceUIWindow_RequestBorderSpace,
1267     InPlaceUIWindow_SetBorderSpace,
1268     InPlaceUIWindow_SetActiveObject,
1269 };
1270
1271 static IOleInPlaceUIWindow InPlaceUIWindow = { (IOleInPlaceUIWindowVtbl*)&InPlaceUIWindowVtbl };
1272
1273 static const IOleInPlaceFrameVtbl InPlaceFrameVtbl = {
1274     InPlaceUIWindow_QueryInterface,
1275     InPlaceUIWindow_AddRef,
1276     InPlaceUIWindow_Release,
1277     InPlaceFrame_GetWindow,
1278     InPlaceUIWindow_ContextSensitiveHelp,
1279     InPlaceUIWindow_GetBorder,
1280     InPlaceUIWindow_RequestBorderSpace,
1281     InPlaceUIWindow_SetBorderSpace,
1282     InPlaceFrame_SetActiveObject,
1283     InPlaceFrame_InsertMenus,
1284     InPlaceFrame_SetMenu,
1285     InPlaceFrame_RemoveMenus,
1286     InPlaceFrame_SetStatusText,
1287     InPlaceFrame_EnableModeless,
1288     InPlaceFrame_TranslateAccelerator
1289 };
1290
1291 static IOleInPlaceFrame InPlaceFrame = { &InPlaceFrameVtbl };
1292
1293 static HRESULT WINAPI InPlaceSite_QueryInterface(IOleInPlaceSiteEx *iface, REFIID riid, void **ppv)
1294 {
1295     return QueryInterface(riid, ppv);
1296 }
1297
1298 static ULONG WINAPI InPlaceSite_AddRef(IOleInPlaceSiteEx *iface)
1299 {
1300     return 2;
1301 }
1302
1303 static ULONG WINAPI InPlaceSite_Release(IOleInPlaceSiteEx *iface)
1304 {
1305     return 1;
1306 }
1307
1308 static HRESULT WINAPI InPlaceSite_GetWindow(IOleInPlaceSiteEx *iface, HWND *phwnd)
1309 {
1310     CHECK_EXPECT(Site_GetWindow);
1311     ok(phwnd != NULL, "phwnd == NULL\n");
1312     if(phwnd)
1313         *phwnd = container_hwnd;
1314     return S_OK;
1315 }
1316
1317 static HRESULT WINAPI InPlaceSite_ContextSensitiveHelp(IOleInPlaceSiteEx *iface, BOOL fEnterMode)
1318 {
1319     ok(0, "unexpected call\n");
1320     return E_NOTIMPL;
1321 }
1322
1323 static HRESULT WINAPI InPlaceSite_CanInPlaceActivate(IOleInPlaceSiteEx *iface)
1324 {
1325     CHECK_EXPECT(CanInPlaceActivate);
1326     return S_OK;
1327 }
1328
1329 static HRESULT WINAPI InPlaceSite_OnInPlaceActivate(IOleInPlaceSiteEx *iface)
1330 {
1331     CHECK_EXPECT(OnInPlaceActivate);
1332     return S_OK;
1333 }
1334
1335 static HRESULT WINAPI InPlaceSite_OnUIActivate(IOleInPlaceSiteEx *iface)
1336 {
1337     CHECK_EXPECT(OnUIActivate);
1338     return S_OK;
1339 }
1340
1341 static HRESULT WINAPI InPlaceSite_GetWindowContext(IOleInPlaceSiteEx *iface,
1342         IOleInPlaceFrame **ppFrame, IOleInPlaceUIWindow **ppDoc, LPRECT lprcPosRect,
1343         LPRECT lprcClipRect, LPOLEINPLACEFRAMEINFO lpFrameInfo)
1344 {
1345     static const RECT pos_rect = {2,1,1002,901};
1346     static const RECT clip_rect = {10,10,990,890};
1347
1348     CHECK_EXPECT(GetWindowContext);
1349
1350     ok(ppFrame != NULL, "ppFrame = NULL\n");
1351     if(ppFrame)
1352         *ppFrame = &InPlaceFrame;
1353
1354     ok(ppDoc != NULL, "ppDoc = NULL\n");
1355     if(ppDoc)
1356         *ppDoc = &InPlaceUIWindow;
1357
1358     ok(lprcPosRect != NULL, "lprcPosRect = NULL\n");
1359     if(lprcPosRect)
1360         memcpy(lprcPosRect, &pos_rect, sizeof(RECT));
1361
1362     ok(lprcClipRect != NULL, "lprcClipRect = NULL\n");
1363     if(lprcClipRect)
1364         memcpy(lprcClipRect, &clip_rect, sizeof(RECT));
1365
1366     ok(lpFrameInfo != NULL, "lpFrameInfo = NULL\n");
1367     if(lpFrameInfo) {
1368         ok(lpFrameInfo->cb == sizeof(*lpFrameInfo), "lpFrameInfo->cb = %u, expected %u\n", lpFrameInfo->cb, (unsigned)sizeof(*lpFrameInfo));
1369         lpFrameInfo->fMDIApp = FALSE;
1370         lpFrameInfo->hwndFrame = container_hwnd;
1371         lpFrameInfo->haccel = NULL;
1372         lpFrameInfo->cAccelEntries = 0;
1373     }
1374
1375     return S_OK;
1376 }
1377
1378 static HRESULT WINAPI InPlaceSite_Scroll(IOleInPlaceSiteEx *iface, SIZE scrollExtant)
1379 {
1380     ok(0, "unexpected call\n");
1381     return E_NOTIMPL;
1382 }
1383
1384 static HRESULT WINAPI InPlaceSite_OnUIDeactivate(IOleInPlaceSiteEx *iface, BOOL fUndoable)
1385 {
1386     CHECK_EXPECT(OnUIDeactivate);
1387     ok(!fUndoable, "fUndoable should be FALSE\n");
1388     return S_OK;
1389 }
1390
1391 static HRESULT WINAPI InPlaceSite_OnInPlaceDeactivate(IOleInPlaceSiteEx *iface)
1392 {
1393     CHECK_EXPECT(OnInPlaceDeactivate);
1394     return S_OK;
1395 }
1396
1397 static HRESULT WINAPI InPlaceSite_DiscardUndoState(IOleInPlaceSiteEx *iface)
1398 {
1399     ok(0, "unexpected call\n");
1400     return E_NOTIMPL;
1401 }
1402
1403 static HRESULT WINAPI InPlaceSite_DeactivateAndUndo(IOleInPlaceSiteEx *iface)
1404 {
1405     ok(0, "unexpected call\n");
1406     return E_NOTIMPL;
1407 }
1408
1409 static HRESULT WINAPI InPlaceSite_OnPosRectChange(IOleInPlaceSiteEx *iface, LPCRECT lprcPosRect)
1410 {
1411     ok(0, "unexpected call\n");
1412     return E_NOTIMPL;
1413 }
1414
1415 static HRESULT WINAPI InPlaceSite_OnInPlaceActivateEx(IOleInPlaceSiteEx *iface,
1416                                                       BOOL *pNoRedraw, DWORD dwFlags)
1417 {
1418     ok(0, "unexpected call\n");
1419     return E_NOTIMPL;
1420 }
1421
1422 static HRESULT WINAPI InPlaceSite_OnInPlaceDeactivateEx(IOleInPlaceSiteEx *iface,
1423                                                         BOOL fNoRedraw)
1424 {
1425     ok(0, "unexpected call\n");
1426     return E_NOTIMPL;
1427 }
1428
1429 static HRESULT WINAPI InPlaceSite_RequestUIActivate(IOleInPlaceSiteEx *iface)
1430 {
1431     CHECK_EXPECT2(RequestUIActivate);
1432     return S_OK;
1433 }
1434
1435 static const IOleInPlaceSiteExVtbl InPlaceSiteExVtbl = {
1436     InPlaceSite_QueryInterface,
1437     InPlaceSite_AddRef,
1438     InPlaceSite_Release,
1439     InPlaceSite_GetWindow,
1440     InPlaceSite_ContextSensitiveHelp,
1441     InPlaceSite_CanInPlaceActivate,
1442     InPlaceSite_OnInPlaceActivate,
1443     InPlaceSite_OnUIActivate,
1444     InPlaceSite_GetWindowContext,
1445     InPlaceSite_Scroll,
1446     InPlaceSite_OnUIDeactivate,
1447     InPlaceSite_OnInPlaceDeactivate,
1448     InPlaceSite_DiscardUndoState,
1449     InPlaceSite_DeactivateAndUndo,
1450     InPlaceSite_OnPosRectChange,
1451     InPlaceSite_OnInPlaceActivateEx,
1452     InPlaceSite_OnInPlaceDeactivateEx,
1453     InPlaceSite_RequestUIActivate
1454 };
1455
1456 static IOleInPlaceSiteEx InPlaceSite = { &InPlaceSiteExVtbl };
1457
1458 static HRESULT WINAPI DocHostUIHandler_QueryInterface(IDocHostUIHandler2 *iface, REFIID riid, void **ppv)
1459 {
1460     return QueryInterface(riid, ppv);
1461 }
1462
1463 static ULONG WINAPI DocHostUIHandler_AddRef(IDocHostUIHandler2 *iface)
1464 {
1465     return 2;
1466 }
1467
1468 static ULONG WINAPI DocHostUIHandler_Release(IDocHostUIHandler2 *iface)
1469 {
1470     return 1;
1471 }
1472
1473 static HRESULT WINAPI DocHostUIHandler_ShowContextMenu(IDocHostUIHandler2 *iface, DWORD dwID, POINT *ppt,
1474         IUnknown *pcmdtReserved, IDispatch *pdicpReserved)
1475 {
1476     ok(0, "unexpected call %d %p %p %p\n", dwID, ppt, pcmdtReserved, pdicpReserved);
1477     return S_FALSE;
1478 }
1479
1480 static HRESULT WINAPI DocHostUIHandler_GetHostInfo(IDocHostUIHandler2 *iface, DOCHOSTUIINFO *pInfo)
1481 {
1482     CHECK_EXPECT2(GetHostInfo);
1483     ok(pInfo != NULL, "pInfo=NULL\n");
1484     if(pInfo) {
1485         ok(pInfo->cbSize == sizeof(DOCHOSTUIINFO) || broken(!pInfo->cbSize), "pInfo->cbSize=%u\n", pInfo->cbSize);
1486         ok(!pInfo->dwFlags, "pInfo->dwFlags=%08x, expected 0\n", pInfo->dwFlags);
1487         ok(!pInfo->dwDoubleClick, "pInfo->dwDoubleClick=%08x, expected 0\n", pInfo->dwDoubleClick);
1488         ok(!pInfo->pchHostCss, "pInfo->pchHostCss=%p, expected NULL\n", pInfo->pchHostCss);
1489         ok(!pInfo->pchHostNS, "pInfo->pchhostNS=%p, expected NULL\n", pInfo->pchHostNS);
1490     }
1491     return E_FAIL;
1492 }
1493
1494 static HRESULT WINAPI DocHostUIHandler_ShowUI(IDocHostUIHandler2 *iface, DWORD dwID,
1495         IOleInPlaceActiveObject *pActiveObject, IOleCommandTarget *pCommandTarget,
1496         IOleInPlaceFrame *pFrame, IOleInPlaceUIWindow *pDoc)
1497 {
1498     CHECK_EXPECT(ShowUI);
1499     return E_NOTIMPL;
1500 }
1501
1502 static HRESULT WINAPI DocHostUIHandler_HideUI(IDocHostUIHandler2 *iface)
1503 {
1504     CHECK_EXPECT(HideUI);
1505     return E_NOTIMPL;
1506 }
1507
1508 static HRESULT WINAPI DocHostUIHandler_UpdateUI(IDocHostUIHandler2 *iface)
1509 {
1510     CHECK_EXPECT2(UpdateUI);
1511     return E_NOTIMPL;
1512 }
1513
1514 static HRESULT WINAPI DocHostUIHandler_EnableModeless(IDocHostUIHandler2 *iface, BOOL fEnable)
1515 {
1516     if(fEnable)
1517         CHECK_EXPECT(DocHost_EnableModeless_TRUE);
1518     else
1519         CHECK_EXPECT(DocHost_EnableModeless_FALSE);
1520
1521     return S_OK;
1522 }
1523
1524 static HRESULT WINAPI DocHostUIHandler_OnDocWindowActivate(IDocHostUIHandler2 *iface, BOOL fActivate)
1525 {
1526     ok(0, "unexpected call\n");
1527     return E_NOTIMPL;
1528 }
1529
1530 static HRESULT WINAPI DocHostUIHandler_OnFrameWindowActivate(IDocHostUIHandler2 *iface, BOOL fActivate)
1531 {
1532     ok(0, "unexpected call\n");
1533     return E_NOTIMPL;
1534 }
1535
1536 static HRESULT WINAPI DocHostUIHandler_ResizeBorder(IDocHostUIHandler2 *iface, LPCRECT prcBorder,
1537         IOleInPlaceUIWindow *pUIWindow, BOOL fRameWindow)
1538 {
1539     ok(0, "unexpected call\n");
1540     return E_NOTIMPL;
1541 }
1542
1543 static HRESULT WINAPI DocHostUIHandler_TranslateAccelerator(IDocHostUIHandler2 *iface, LPMSG lpMsg,
1544         const GUID *pguidCmdGroup, DWORD nCmdID)
1545 {
1546     CHECK_EXPECT(DocHost_TranslateAccelerator);
1547     ok(pguidCmdGroup != NULL, "Got NULL pguidCmdGroup.\n");
1548     if(pguidCmdGroup)
1549         ok(IsEqualGUID(pguidCmdGroup, &CGID_MSHTML), "Unexpected pguidCmdGroup\n");
1550     ok(lpMsg != NULL, "Got NULL lpMsg.\n");
1551     return hr_dochost_TranslateAccelerator;
1552 }
1553
1554 static HRESULT WINAPI DocHostUIHandler_GetOptionKeyPath(IDocHostUIHandler2 *iface,
1555         LPOLESTR *pchKey, DWORD dw)
1556 {
1557     CHECK_EXPECT(GetOptionKeyPath);
1558     ok(pchKey != NULL, "pchKey==NULL\n");
1559     if(pchKey)
1560         ok(*pchKey == NULL, "*pchKey=%p\n", *pchKey);
1561     ok(!dw, "dw=%x\n", dw);
1562     return E_NOTIMPL;
1563 }
1564
1565 static HRESULT WINAPI DocHostUIHandler_GetDropTarget(IDocHostUIHandler2 *iface,
1566         IDropTarget *pDropTarget, IDropTarget **ppDropTarget)
1567 {
1568     CHECK_EXPECT(GetDropTarget);
1569     return E_NOTIMPL;
1570 }
1571
1572 static HRESULT WINAPI DocHostUIHandler_GetExternal(IDocHostUIHandler2 *iface, IDispatch **ppDispatch)
1573 {
1574     ok(0, "unexpected call\n");
1575     return E_NOTIMPL;
1576 }
1577
1578 static HRESULT WINAPI DocHostUIHandler_TranslateUrl(IDocHostUIHandler2 *iface, DWORD dwTranslate,
1579         OLECHAR *pchURLIn, OLECHAR **ppchURLOut)
1580 {
1581     if(is_downloading && !(dwl_flags & DWL_EXPECT_BEFORE_NAVIGATE))
1582         todo_wine CHECK_EXPECT(TranslateUrl);
1583     else
1584         CHECK_EXPECT(TranslateUrl);
1585     return E_NOTIMPL;
1586 }
1587
1588 static HRESULT WINAPI DocHostUIHandler_FilterDataObject(IDocHostUIHandler2 *iface, IDataObject *pDO,
1589         IDataObject **ppPORet)
1590 {
1591     ok(0, "unexpected call\n");
1592     return E_NOTIMPL;
1593 }
1594
1595 static HRESULT WINAPI DocHostUIHandler_GetOverrideKeyPath(IDocHostUIHandler2 *iface,
1596         LPOLESTR *pchKey, DWORD dw)
1597 {
1598     CHECK_EXPECT(GetOverridesKeyPath);
1599     ok(pchKey != NULL, "pchKey==NULL\n");
1600     if(pchKey)
1601         ok(*pchKey == NULL, "*pchKey=%p\n", *pchKey);
1602     ok(!dw, "dw=%x\n", dw);
1603     return E_NOTIMPL;
1604 }
1605
1606 static const IDocHostUIHandler2Vtbl DocHostUIHandlerVtbl = {
1607     DocHostUIHandler_QueryInterface,
1608     DocHostUIHandler_AddRef,
1609     DocHostUIHandler_Release,
1610     DocHostUIHandler_ShowContextMenu,
1611     DocHostUIHandler_GetHostInfo,
1612     DocHostUIHandler_ShowUI,
1613     DocHostUIHandler_HideUI,
1614     DocHostUIHandler_UpdateUI,
1615     DocHostUIHandler_EnableModeless,
1616     DocHostUIHandler_OnDocWindowActivate,
1617     DocHostUIHandler_OnFrameWindowActivate,
1618     DocHostUIHandler_ResizeBorder,
1619     DocHostUIHandler_TranslateAccelerator,
1620     DocHostUIHandler_GetOptionKeyPath,
1621     DocHostUIHandler_GetDropTarget,
1622     DocHostUIHandler_GetExternal,
1623     DocHostUIHandler_TranslateUrl,
1624     DocHostUIHandler_FilterDataObject,
1625     DocHostUIHandler_GetOverrideKeyPath
1626 };
1627
1628 static IDocHostUIHandler2 DocHostUIHandler = { &DocHostUIHandlerVtbl };
1629
1630
1631 static HRESULT WINAPI ServiceProvider_QueryInterface(IServiceProvider *iface, REFIID riid, void **ppv)
1632 {
1633     return QueryInterface(riid, ppv);
1634 }
1635
1636 static ULONG WINAPI ServiceProvider_AddRef(IServiceProvider *iface)
1637 {
1638     return 2;
1639 }
1640
1641 static ULONG WINAPI ServiceProvider_Release(IServiceProvider *iface)
1642 {
1643     return 1;
1644 }
1645
1646 static HRESULT WINAPI ServiceProvider_QueryService(IServiceProvider *iface,
1647                                     REFGUID guidService, REFIID riid, void **ppv)
1648 {
1649     *ppv = NULL;
1650
1651     if(!winetest_interactive)
1652         return E_NOINTERFACE;
1653
1654     if (IsEqualGUID(&SID_STopLevelBrowser, guidService))
1655         trace("Service SID_STopLevelBrowser\n");
1656     else if (IsEqualGUID(&SID_SEditCommandTarget, guidService))
1657         trace("Service SID_SEditCommandTarget\n");
1658     else if (IsEqualGUID(&IID_ITargetFrame2, guidService))
1659         trace("Service IID_ITargetFrame2\n");
1660     else if (IsEqualGUID(&SID_SInternetSecurityManager, guidService))
1661         trace("Service SID_SInternetSecurityManager\n");
1662     else if (IsEqualGUID(&SID_SOleUndoManager, guidService))
1663         trace("Service SID_SOleUndoManager\n");
1664     else if (IsEqualGUID(&SID_IMimeInfo, guidService))
1665         trace("Service SID_IMimeInfo\n");
1666     else if (IsEqualGUID(&SID_STopWindow, guidService))
1667         trace("Service SID_STopWindow\n");
1668
1669     /* 30D02401-6A81-11D0-8274-00C04FD5AE38 Explorer Bar: Search */
1670     /* D1E7AFEC-6A2E-11D0-8C78-00C04FD918B4 no info */
1671     /* A9227C3C-7F8E-11D0-8CB0-00A0C92DBFE8 no info */
1672     /* 371EA634-DC5C-11D1-BA57-00C04FC2040E one reference to IVersionHost */
1673     /* 3050F429-98B5-11CF-BB82-00AA00BDCE0B IID_IElementBehaviorFactory */
1674     /* 6D12FE80-7911-11CF-9534-0000C05BAE0B SID_DefView */
1675     /* AD7F6C62-F6BD-11D2-959B-006097C553C8 no info */
1676     /* 53A2D5B1-D2FC-11D0-84E0-006097C9987D no info */
1677     /* 3050F312-98B5-11CF-BB82-00AA00BDCE0B HTMLFrameBaseClass */
1678     /* 639447BD-B2D3-44B9-9FB0-510F23CB45E4 no info */
1679     /* 20C46561-8491-11CF-960C-0080C7F4EE85 no info */
1680
1681     else
1682         trace("Service %s not supported\n", debugstr_guid(guidService));
1683
1684     return E_NOINTERFACE;
1685 }
1686
1687
1688 static const IServiceProviderVtbl ServiceProviderVtbl = {
1689     ServiceProvider_QueryInterface,
1690     ServiceProvider_AddRef,
1691     ServiceProvider_Release,
1692     ServiceProvider_QueryService
1693 };
1694
1695 static IServiceProvider ServiceProvider = { &ServiceProviderVtbl };
1696
1697
1698 static HRESULT QueryInterface(REFIID riid, void **ppv)
1699 {
1700     *ppv = NULL;
1701
1702     if(IsEqualGUID(&IID_IUnknown, riid)
1703             || IsEqualGUID(&IID_IOleClientSite, riid))
1704         *ppv = &ClientSite;
1705     else if(IsEqualGUID(&IID_IOleWindow, riid)
1706             || IsEqualGUID(&IID_IOleInPlaceSite, riid)
1707             || IsEqualGUID(&IID_IOleInPlaceSiteEx, riid))
1708         *ppv = &InPlaceSite;
1709     else if(IsEqualGUID(&IID_IDocHostUIHandler, riid)
1710             || IsEqualGUID(&IID_IDocHostUIHandler2, riid))
1711         *ppv = &DocHostUIHandler;
1712     else if(IsEqualGUID(&IID_IDispatch, riid))
1713         *ppv = &Dispatch;
1714     else if(IsEqualGUID(&IID_IServiceProvider, riid))
1715         *ppv = &ServiceProvider;
1716     else if(IsEqualGUID(&IID_IDocHostShowUI, riid))
1717         trace("interface IID_IDocHostShowUI\n");
1718     else if(IsEqualGUID(&IID_IOleControlSite, riid))
1719         *ppv = &ControlSite;
1720     else if(IsEqualGUID(&IID_IOleCommandTarget, riid))
1721         trace("interface IID_IOleCommandTarget\n");
1722
1723     /* B6EA2050-048A-11D1-82B9-00C04FB9942E IAxWinHostWindow */
1724
1725     else
1726     {
1727         /* are there more interfaces, that a host can support? */
1728         trace("%s: interface not supported\n", debugstr_guid(riid));
1729     }
1730
1731     return (*ppv) ? S_OK : E_NOINTERFACE;
1732 }
1733
1734 static LRESULT WINAPI wnd_proc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
1735 {
1736     return DefWindowProcW(hwnd, msg, wParam, lParam);
1737 }
1738
1739 static HWND create_container_window(void)
1740 {
1741     static const WCHAR wszWebBrowserContainer[] =
1742         {'W','e','b','B','r','o','w','s','e','r','C','o','n','t','a','i','n','e','r',0};
1743     static WNDCLASSEXW wndclass = {
1744         sizeof(WNDCLASSEXW),
1745         0,
1746         wnd_proc,
1747         0, 0, NULL, NULL, NULL, NULL, NULL,
1748         wszWebBrowserContainer,
1749         NULL
1750     };
1751
1752     RegisterClassExW(&wndclass);
1753     return CreateWindowW(wszWebBrowserContainer, wszWebBrowserContainer,
1754             WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,
1755             CW_USEDEFAULT, NULL, NULL, NULL, NULL);
1756 }
1757
1758 static void test_DoVerb(IUnknown *unk)
1759 {
1760     IOleObject *oleobj;
1761     RECT rect = {0,0,1000,1000};
1762     HRESULT hres;
1763
1764     hres = IUnknown_QueryInterface(unk, &IID_IOleObject, (void**)&oleobj);
1765     ok(hres == S_OK, "QueryInterface(IID_OleObject) failed: %08x\n", hres);
1766     if(FAILED(hres))
1767         return;
1768
1769     SET_EXPECT(CanInPlaceActivate);
1770     SET_EXPECT(Site_GetWindow);
1771     SET_EXPECT(OnInPlaceActivate);
1772     SET_EXPECT(GetWindowContext);
1773     SET_EXPECT(ShowObject);
1774     SET_EXPECT(GetContainer);
1775     SET_EXPECT(Frame_GetWindow);
1776     SET_EXPECT(OnUIActivate);
1777     SET_EXPECT(Frame_SetActiveObject);
1778     SET_EXPECT(UIWindow_SetActiveObject);
1779     SET_EXPECT(SetMenu);
1780     SET_EXPECT(OnFocus);
1781
1782     hres = IOleObject_DoVerb(oleobj, OLEIVERB_SHOW, NULL, &ClientSite,
1783                              0, (HWND)0xdeadbeef, &rect);
1784     ok(hres == S_OK, "DoVerb failed: %08x\n", hres);
1785
1786     CHECK_CALLED(CanInPlaceActivate);
1787     CHECK_CALLED(Site_GetWindow);
1788     CHECK_CALLED(OnInPlaceActivate);
1789     CHECK_CALLED(GetWindowContext);
1790     CHECK_CALLED(ShowObject);
1791     CHECK_CALLED(GetContainer);
1792     CHECK_CALLED(Frame_GetWindow);
1793     CHECK_CALLED(OnUIActivate);
1794     CHECK_CALLED(Frame_SetActiveObject);
1795     CHECK_CALLED(UIWindow_SetActiveObject);
1796     CHECK_CALLED(SetMenu);
1797     todo_wine CHECK_CALLED(OnFocus);
1798
1799     hres = IOleObject_DoVerb(oleobj, OLEIVERB_SHOW, NULL, &ClientSite,
1800                            0, (HWND)0xdeadbeef, &rect);
1801     ok(hres == S_OK, "DoVerb failed: %08x\n", hres);
1802
1803     IOleObject_Release(oleobj);
1804 }
1805
1806 static void test_GetMiscStatus(IOleObject *oleobj)
1807 {
1808     DWORD st, i;
1809     HRESULT hres;
1810
1811     for(i=0; i<10; i++) {
1812         st = 0xdeadbeef;
1813         hres = IOleObject_GetMiscStatus(oleobj, i, &st);
1814         ok(hres == S_OK, "GetMiscStatus failed: %08x\n", hres);
1815         ok(st == (OLEMISC_SETCLIENTSITEFIRST|OLEMISC_ACTIVATEWHENVISIBLE|OLEMISC_INSIDEOUT
1816                   |OLEMISC_CANTLINKINSIDE|OLEMISC_RECOMPOSEONRESIZE),
1817            "st=%08x, expected OLEMISC_SETCLIENTSITEFIRST|OLEMISC_ACTIVATEWHENVISIBLE|"
1818            "OLEMISC_INSIDEOUT|OLEMISC_CANTLINKINSIDE|OLEMISC_RECOMPOSEONRESIZE)\n", st);
1819     }
1820 }
1821
1822 static void test_SetHostNames(IOleObject *oleobj)
1823 {
1824     HRESULT hres;
1825
1826     static const WCHAR test_appW[] =  {'t','e','s','t',' ','a','p','p',0};
1827
1828     hres = IOleObject_SetHostNames(oleobj, test_appW, (void*)0xdeadbeef);
1829     ok(hres == S_OK, "SetHostNames failed: %08x\n", hres);
1830 }
1831
1832 static void test_ClientSite(IUnknown *unk, IOleClientSite *client, BOOL stop_download)
1833 {
1834     IOleObject *oleobj;
1835     IOleInPlaceObject *inplace;
1836     HWND hwnd;
1837     HRESULT hres;
1838
1839     hres = IUnknown_QueryInterface(unk, &IID_IOleObject, (void**)&oleobj);
1840     ok(hres == S_OK, "QueryInterface(IID_OleObject) failed: %08x\n", hres);
1841     if(FAILED(hres))
1842         return;
1843
1844     test_GetMiscStatus(oleobj);
1845     test_SetHostNames(oleobj);
1846
1847     hres = IUnknown_QueryInterface(unk, &IID_IOleInPlaceObject, (void**)&inplace);
1848     ok(hres == S_OK, "QueryInterface(IID_OleInPlaceObject) failed: %08x\n", hres);
1849     if(FAILED(hres)) {
1850         IOleObject_Release(oleobj);
1851         return;
1852     }
1853
1854     hres = IOleInPlaceObject_GetWindow(inplace, &hwnd);
1855     ok(hres == S_OK, "GetWindow failed: %08x\n", hres);
1856     ok((hwnd == NULL) ^ (client == NULL), "unexpected hwnd %p\n", hwnd);
1857
1858     if(client) {
1859         SET_EXPECT(GetContainer);
1860         SET_EXPECT(Site_GetWindow);
1861         SET_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
1862         SET_EXPECT(Invoke_AMBIENT_SILENT);
1863     }else if(stop_download) {
1864         SET_EXPECT(Invoke_DOWNLOADCOMPLETE);
1865         if (use_container_olecmd) SET_EXPECT(Exec_SETDOWNLOADSTATE_0);
1866         SET_EXPECT(Invoke_COMMANDSTATECHANGE);
1867     }else {
1868         SET_EXPECT(Invoke_STATUSTEXTCHANGE);
1869         SET_EXPECT(Invoke_PROGRESSCHANGE);
1870     }
1871
1872     hres = IOleObject_SetClientSite(oleobj, client);
1873     ok(hres == S_OK, "SetClientSite failed: %08x\n", hres);
1874
1875     if(client) {
1876         CHECK_CALLED(GetContainer);
1877         CHECK_CALLED(Site_GetWindow);
1878         CHECK_CALLED(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
1879         CHECK_CALLED(Invoke_AMBIENT_SILENT);
1880     }else if(stop_download) {
1881         todo_wine CHECK_CALLED(Invoke_DOWNLOADCOMPLETE);
1882         if (use_container_olecmd) todo_wine CHECK_CALLED(Exec_SETDOWNLOADSTATE_0);
1883         todo_wine CHECK_CALLED(Invoke_COMMANDSTATECHANGE);
1884     }else {
1885         CLEAR_CALLED(Invoke_STATUSTEXTCHANGE); /* Called by IE9 */
1886         CLEAR_CALLED(Invoke_PROGRESSCHANGE);
1887     }
1888
1889     hres = IOleInPlaceObject_GetWindow(inplace, &hwnd);
1890     ok(hres == S_OK, "GetWindow failed: %08x\n", hres);
1891     ok((hwnd == NULL) == (client == NULL), "unexpected hwnd %p\n", hwnd);
1892
1893     shell_embedding_hwnd = hwnd;
1894
1895     test_SetHostNames(oleobj);
1896
1897     IOleInPlaceObject_Release(inplace);
1898     IOleObject_Release(oleobj);
1899 }
1900
1901 static void test_ClassInfo(IUnknown *unk)
1902 {
1903     IProvideClassInfo2 *class_info;
1904     TYPEATTR *type_attr;
1905     ITypeInfo *typeinfo;
1906     GUID guid;
1907     HRESULT hres;
1908
1909     hres = IUnknown_QueryInterface(unk, &IID_IProvideClassInfo2, (void**)&class_info);
1910     ok(hres == S_OK, "QueryInterface(IID_IProvideClassInfo)  failed: %08x\n", hres);
1911     if(FAILED(hres))
1912         return;
1913
1914     hres = IProvideClassInfo2_GetGUID(class_info, GUIDKIND_DEFAULT_SOURCE_DISP_IID, &guid);
1915     ok(hres == S_OK, "GetGUID failed: %08x\n", hres);
1916     ok(IsEqualGUID(wb_version > 1 ? &DIID_DWebBrowserEvents2 : &DIID_DWebBrowserEvents, &guid), "wrong guid\n");
1917
1918     hres = IProvideClassInfo2_GetGUID(class_info, 0, &guid);
1919     ok(hres == E_FAIL, "GetGUID failed: %08x, expected E_FAIL\n", hres);
1920     ok(IsEqualGUID(&IID_NULL, &guid), "wrong guid\n");
1921
1922     hres = IProvideClassInfo2_GetGUID(class_info, 2, &guid);
1923     ok(hres == E_FAIL, "GetGUID failed: %08x, expected E_FAIL\n", hres);
1924     ok(IsEqualGUID(&IID_NULL, &guid), "wrong guid\n");
1925
1926     hres = IProvideClassInfo2_GetGUID(class_info, GUIDKIND_DEFAULT_SOURCE_DISP_IID, NULL);
1927     ok(hres == E_POINTER, "GetGUID failed: %08x, expected E_POINTER\n", hres);
1928
1929     hres = IProvideClassInfo2_GetGUID(class_info, 0, NULL);
1930     ok(hres == E_POINTER, "GetGUID failed: %08x, expected E_POINTER\n", hres);
1931
1932     typeinfo = NULL;
1933     hres = IProvideClassInfo2_GetClassInfo(class_info, &typeinfo);
1934     ok(hres == S_OK, "GetClassInfo failed: %08x\n", hres);
1935     ok(typeinfo != NULL, "typeinfo == NULL\n");
1936
1937     hres = ITypeInfo_GetTypeAttr(typeinfo, &type_attr);
1938     ok(hres == S_OK, "GetTypeAtr failed: %08x\n", hres);
1939
1940     ok(IsEqualGUID(&type_attr->guid, wb_version > 1 ? &CLSID_WebBrowser : &CLSID_WebBrowser_V1),
1941        "guid = %s\n", debugstr_guid(&type_attr->guid));
1942
1943     ITypeInfo_ReleaseTypeAttr(typeinfo, type_attr);
1944     ITypeInfo_Release(typeinfo);
1945
1946     IProvideClassInfo2_Release(class_info);
1947 }
1948
1949 static void test_EnumVerbs(IWebBrowser2 *wb)
1950 {
1951     IEnumOLEVERB *enum_verbs;
1952     IOleObject *oleobj;
1953     OLEVERB verbs[20];
1954     ULONG fetched;
1955     HRESULT hres;
1956
1957     hres = IWebBrowser2_QueryInterface(wb, &IID_IOleObject, (void**)&oleobj);
1958     ok(hres == S_OK, "QueryInterface(IID_IOleObject) failed: %08x\n", hres);
1959
1960     hres = IOleObject_EnumVerbs(oleobj, &enum_verbs);
1961     IOleObject_Release(oleobj);
1962     ok(hres == S_OK, "EnumVerbs failed: %08x\n", hres);
1963     ok(enum_verbs != NULL, "enum_verbs == NULL\n");
1964
1965     fetched = 0xdeadbeef;
1966     hres = IEnumOLEVERB_Next(enum_verbs, sizeof(verbs)/sizeof(*verbs), verbs, &fetched);
1967     ok(hres == S_OK, "Next failed: %08x\n", hres);
1968     ok(!fetched, "fetched = %d\n", fetched);
1969
1970     fetched = 0xdeadbeef;
1971     hres = IEnumOLEVERB_Next(enum_verbs, 1, verbs, &fetched);
1972     ok(hres == S_OK, "Next failed: %08x\n", hres);
1973     ok(!fetched, "fetched = %d\n", fetched);
1974
1975     hres = IEnumOLEVERB_Reset(enum_verbs);
1976     ok(hres == S_OK, "Reset failed: %08x\n", hres);
1977
1978     fetched = 0xdeadbeef;
1979     hres = IEnumOLEVERB_Next(enum_verbs, 1, verbs, &fetched);
1980     ok(hres == S_OK, "Next failed: %08x\n", hres);
1981     ok(!fetched, "fetched = %d\n", fetched);
1982
1983     hres = IEnumOLEVERB_Next(enum_verbs, 1, verbs, NULL);
1984     ok(hres == S_OK, "Next failed: %08x\n", hres);
1985
1986     hres = IEnumOLEVERB_Skip(enum_verbs, 20);
1987     ok(hres == S_OK, "Reset failed: %08x\n", hres);
1988
1989     fetched = 0xdeadbeef;
1990     hres = IEnumOLEVERB_Next(enum_verbs, 1, verbs, &fetched);
1991     ok(hres == S_OK, "Next failed: %08x\n", hres);
1992     ok(!fetched, "fetched = %d\n", fetched);
1993
1994     IEnumOLEVERB_Release(enum_verbs);
1995 }
1996
1997 static void test_ie_funcs(IUnknown *unk)
1998 {
1999     IWebBrowser2 *wb;
2000     IDispatch *disp;
2001     VARIANT_BOOL b;
2002     int i;
2003     LONG hwnd;
2004     HRESULT hres;
2005     BSTR sName;
2006
2007     hres = IUnknown_QueryInterface(unk, &IID_IWebBrowser2, (void**)&wb);
2008     ok(hres == S_OK, "Could not get IWebBrowser2 interface: %08x\n", hres);
2009     if(FAILED(hres))
2010         return;
2011
2012     /* HWND */
2013
2014     hwnd = 0xdeadbeef;
2015     hres = IWebBrowser2_get_HWND(wb, &hwnd);
2016     ok(hres == E_FAIL, "get_HWND failed: %08x, expected E_FAIL\n", hres);
2017     ok(hwnd == 0, "unexpected hwnd %x\n", hwnd);
2018
2019     /* MenuBar */
2020
2021     hres = IWebBrowser2_get_MenuBar(wb, &b);
2022     ok(hres == S_OK, "get_MenuBar failed: %08x\n", hres);
2023     ok(b == VARIANT_TRUE, "b=%x\n", b);
2024
2025     SET_EXPECT(Invoke_ONMENUBAR);
2026     hres = IWebBrowser2_put_MenuBar(wb, (exvb = VARIANT_FALSE));
2027     ok(hres == S_OK, "put_MenuBar failed: %08x\n", hres);
2028     CHECK_CALLED(Invoke_ONMENUBAR);
2029
2030     hres = IWebBrowser2_get_MenuBar(wb, &b);
2031     ok(hres == S_OK, "get_MenuBar failed: %08x\n", hres);
2032     ok(b == VARIANT_FALSE, "b=%x\n", b);
2033
2034     SET_EXPECT(Invoke_ONMENUBAR);
2035     hres = IWebBrowser2_put_MenuBar(wb, (exvb = 100));
2036     ok(hres == S_OK, "put_MenuBar failed: %08x\n", hres);
2037     CHECK_CALLED(Invoke_ONMENUBAR);
2038
2039     hres = IWebBrowser2_get_MenuBar(wb, &b);
2040     ok(hres == S_OK, "get_MenuBar failed: %08x\n", hres);
2041     ok(b == VARIANT_TRUE, "b=%x\n", b);
2042
2043     /* AddressBar */
2044
2045     hres = IWebBrowser2_get_AddressBar(wb, &b);
2046     ok(hres == S_OK, "get_AddressBar failed: %08x\n", hres);
2047     ok(b == VARIANT_TRUE, "b=%x\n", b);
2048
2049     SET_EXPECT(Invoke_ONADDRESSBAR);
2050     hres = IWebBrowser2_put_AddressBar(wb, (exvb = VARIANT_FALSE));
2051     ok(hres == S_OK, "put_AddressBar failed: %08x\n", hres);
2052     CHECK_CALLED(Invoke_ONADDRESSBAR);
2053
2054     hres = IWebBrowser2_get_AddressBar(wb, &b);
2055     ok(hres == S_OK, "get_MenuBar failed: %08x\n", hres);
2056     ok(b == VARIANT_FALSE, "b=%x\n", b);
2057
2058     SET_EXPECT(Invoke_ONADDRESSBAR);
2059     hres = IWebBrowser2_put_AddressBar(wb, (exvb = 100));
2060     ok(hres == S_OK, "put_AddressBar failed: %08x\n", hres);
2061     CHECK_CALLED(Invoke_ONADDRESSBAR);
2062
2063     hres = IWebBrowser2_get_AddressBar(wb, &b);
2064     ok(hres == S_OK, "get_AddressBar failed: %08x\n", hres);
2065     ok(b == VARIANT_TRUE, "b=%x\n", b);
2066
2067     SET_EXPECT(Invoke_ONADDRESSBAR);
2068     hres = IWebBrowser2_put_AddressBar(wb, (exvb = VARIANT_TRUE));
2069     ok(hres == S_OK, "put_MenuBar failed: %08x\n", hres);
2070     CHECK_CALLED(Invoke_ONADDRESSBAR);
2071
2072     /* StatusBar */
2073
2074     hres = IWebBrowser2_get_StatusBar(wb, &b);
2075     ok(hres == S_OK, "get_StatusBar failed: %08x\n", hres);
2076     ok(b == VARIANT_TRUE, "b=%x\n", b);
2077
2078     SET_EXPECT(Invoke_ONSTATUSBAR);
2079     hres = IWebBrowser2_put_StatusBar(wb, (exvb = VARIANT_TRUE));
2080     ok(hres == S_OK, "put_StatusBar failed: %08x\n", hres);
2081     CHECK_CALLED(Invoke_ONSTATUSBAR);
2082
2083     hres = IWebBrowser2_get_StatusBar(wb, &b);
2084     ok(hres == S_OK, "get_StatusBar failed: %08x\n", hres);
2085     ok(b == VARIANT_TRUE, "b=%x\n", b);
2086
2087     SET_EXPECT(Invoke_ONSTATUSBAR);
2088     hres = IWebBrowser2_put_StatusBar(wb, (exvb = VARIANT_FALSE));
2089     ok(hres == S_OK, "put_StatusBar failed: %08x\n", hres);
2090     CHECK_CALLED(Invoke_ONSTATUSBAR);
2091
2092     hres = IWebBrowser2_get_StatusBar(wb, &b);
2093     ok(hres == S_OK, "get_StatusBar failed: %08x\n", hres);
2094     ok(b == VARIANT_FALSE, "b=%x\n", b);
2095
2096     SET_EXPECT(Invoke_ONSTATUSBAR);
2097     hres = IWebBrowser2_put_StatusBar(wb, (exvb = 100));
2098     ok(hres == S_OK, "put_StatusBar failed: %08x\n", hres);
2099     CHECK_CALLED(Invoke_ONSTATUSBAR);
2100
2101     hres = IWebBrowser2_get_StatusBar(wb, &b);
2102     ok(hres == S_OK, "get_StatusBar failed: %08x\n", hres);
2103     ok(b == VARIANT_TRUE, "b=%x\n", b);
2104
2105     /* ToolBar */
2106
2107     hres = IWebBrowser2_get_ToolBar(wb, &i);
2108     ok(hres == S_OK, "get_ToolBar failed: %08x\n", hres);
2109     ok(i, "i=%x\n", i);
2110
2111     SET_EXPECT(Invoke_ONTOOLBAR);
2112     hres = IWebBrowser2_put_ToolBar(wb, (exvb = VARIANT_FALSE));
2113     ok(hres == S_OK, "put_ToolBar failed: %08x\n", hres);
2114     CHECK_CALLED(Invoke_ONTOOLBAR);
2115
2116     hres = IWebBrowser2_get_ToolBar(wb, &i);
2117     ok(hres == S_OK, "get_ToolBar failed: %08x\n", hres);
2118     ok(i == VARIANT_FALSE, "b=%x\n", i);
2119
2120     SET_EXPECT(Invoke_ONTOOLBAR);
2121     hres = IWebBrowser2_put_ToolBar(wb, (exvb = 100));
2122     ok(hres == S_OK, "put_ToolBar failed: %08x\n", hres);
2123     CHECK_CALLED(Invoke_ONTOOLBAR);
2124
2125     hres = IWebBrowser2_get_ToolBar(wb, &i);
2126     ok(hres == S_OK, "get_ToolBar failed: %08x\n", hres);
2127     ok(i, "i=%x\n", i);
2128
2129     SET_EXPECT(Invoke_ONTOOLBAR);
2130     hres = IWebBrowser2_put_ToolBar(wb, (exvb = VARIANT_TRUE));
2131     ok(hres == S_OK, "put_ToolBar failed: %08x\n", hres);
2132     CHECK_CALLED(Invoke_ONTOOLBAR);
2133
2134     /* FullScreen */
2135
2136     hres = IWebBrowser2_get_FullScreen(wb, &b);
2137     ok(hres == S_OK, "get_FullScreen failed: %08x\n", hres);
2138     ok(b == VARIANT_FALSE, "b=%x\n", b);
2139
2140     SET_EXPECT(Invoke_ONFULLSCREEN);
2141     hres = IWebBrowser2_put_FullScreen(wb, (exvb = VARIANT_TRUE));
2142     ok(hres == S_OK, "put_FullScreen failed: %08x\n", hres);
2143     CHECK_CALLED(Invoke_ONFULLSCREEN);
2144
2145     hres = IWebBrowser2_get_FullScreen(wb, &b);
2146     ok(hres == S_OK, "get_FullScreen failed: %08x\n", hres);
2147     ok(b == VARIANT_TRUE, "b=%x\n", b);
2148
2149     SET_EXPECT(Invoke_ONFULLSCREEN);
2150     hres = IWebBrowser2_put_FullScreen(wb, (exvb = 100));
2151     ok(hres == S_OK, "put_FullScreen failed: %08x\n", hres);
2152     CHECK_CALLED(Invoke_ONFULLSCREEN);
2153
2154     hres = IWebBrowser2_get_FullScreen(wb, &b);
2155     ok(hres == S_OK, "get_FullScreen failed: %08x\n", hres);
2156     ok(b == VARIANT_TRUE, "b=%x\n", b);
2157
2158     SET_EXPECT(Invoke_ONFULLSCREEN);
2159     hres = IWebBrowser2_put_FullScreen(wb, (exvb = VARIANT_FALSE));
2160     ok(hres == S_OK, "put_FullScreen failed: %08x\n", hres);
2161     CHECK_CALLED(Invoke_ONFULLSCREEN);
2162
2163     /* TheaterMode */
2164
2165     hres = IWebBrowser2_get_TheaterMode(wb, &b);
2166     ok(hres == S_OK, "get_TheaterMode failed: %08x\n", hres);
2167     ok(b == VARIANT_FALSE, "b=%x\n", b);
2168
2169     SET_EXPECT(Invoke_ONTHEATERMODE);
2170     hres = IWebBrowser2_put_TheaterMode(wb, (exvb = VARIANT_TRUE));
2171     ok(hres == S_OK, "put_TheaterMode failed: %08x\n", hres);
2172     CHECK_CALLED(Invoke_ONTHEATERMODE);
2173
2174     hres = IWebBrowser2_get_TheaterMode(wb, &b);
2175     ok(hres == S_OK, "get_TheaterMode failed: %08x\n", hres);
2176     ok(b == VARIANT_TRUE, "b=%x\n", b);
2177
2178     SET_EXPECT(Invoke_ONTHEATERMODE);
2179     hres = IWebBrowser2_put_TheaterMode(wb, (exvb = 100));
2180     ok(hres == S_OK, "put_TheaterMode failed: %08x\n", hres);
2181     CHECK_CALLED(Invoke_ONTHEATERMODE);
2182
2183     hres = IWebBrowser2_get_TheaterMode(wb, &b);
2184     ok(hres == S_OK, "get_TheaterMode failed: %08x\n", hres);
2185     ok(b == VARIANT_TRUE, "b=%x\n", b);
2186
2187     SET_EXPECT(Invoke_ONTHEATERMODE);
2188     hres = IWebBrowser2_put_TheaterMode(wb, (exvb = VARIANT_FALSE));
2189     ok(hres == S_OK, "put_TheaterMode failed: %08x\n", hres);
2190     CHECK_CALLED(Invoke_ONTHEATERMODE);
2191
2192     /* Resizable */
2193
2194     b = 0x100;
2195     hres = IWebBrowser2_get_Resizable(wb, &b);
2196     ok(hres == E_NOTIMPL, "get_Resizable failed: %08x\n", hres);
2197     ok(b == 0x100, "b=%x\n", b);
2198
2199     SET_EXPECT(Invoke_WINDOWSETRESIZABLE);
2200     hres = IWebBrowser2_put_Resizable(wb, (exvb = VARIANT_TRUE));
2201     ok(hres == S_OK, "put_Resizable failed: %08x\n", hres);
2202     CHECK_CALLED(Invoke_WINDOWSETRESIZABLE);
2203
2204     SET_EXPECT(Invoke_WINDOWSETRESIZABLE);
2205     hres = IWebBrowser2_put_Resizable(wb, (exvb = VARIANT_FALSE));
2206     ok(hres == S_OK, "put_Resizable failed: %08x\n", hres);
2207     CHECK_CALLED(Invoke_WINDOWSETRESIZABLE);
2208
2209     hres = IWebBrowser2_get_Resizable(wb, &b);
2210     ok(hres == E_NOTIMPL, "get_Resizable failed: %08x\n", hres);
2211     ok(b == 0x100, "b=%x\n", b);
2212
2213     /* Application */
2214
2215     disp = NULL;
2216     hres = IWebBrowser2_get_Application(wb, &disp);
2217     ok(hres == S_OK, "get_Application failed: %08x\n", hres);
2218     ok(disp == (void*)wb, "disp=%p, expected %p\n", disp, wb);
2219     if(disp)
2220         IDispatch_Release(disp);
2221
2222     hres = IWebBrowser2_get_Application(wb, NULL);
2223     ok(hres == E_POINTER, "get_Application failed: %08x, expected E_POINTER\n", hres);
2224
2225     /* Name */
2226     hres = IWebBrowser2_get_Name(wb, &sName);
2227     ok(hres == S_OK, "getName failed: %08x, expected S_OK\n", hres);
2228     if (is_lang_english())
2229         ok(!strcmp_wa(sName, "Microsoft Web Browser Control"), "got '%s', expected 'Microsoft Web Browser Control'\n", wine_dbgstr_w(sName));
2230     else /* Non-English cannot be blank. */
2231         ok(sName!=NULL, "get_Name return a NULL string.\n");
2232     SysFreeString(sName);
2233
2234     /* Quit */
2235
2236     hres = IWebBrowser2_Quit(wb);
2237     ok(hres == E_FAIL, "Quit failed: %08x, expected E_FAIL\n", hres);
2238
2239     IWebBrowser2_Release(wb);
2240 }
2241
2242 static void test_Silent(IWebBrowser2 *wb, IOleControl *control, BOOL is_clientsite)
2243 {
2244     VARIANT_BOOL b;
2245     HRESULT hres;
2246
2247     b = 100;
2248     hres = IWebBrowser2_get_Silent(wb, &b);
2249     ok(hres == S_OK, "get_Silent failed: %08x\n", hres);
2250     ok(b == VARIANT_FALSE, "b=%x\n", b);
2251
2252     hres = IWebBrowser2_put_Silent(wb, VARIANT_TRUE);
2253     ok(hres == S_OK, "set_Silent failed: %08x\n", hres);
2254
2255     b = 100;
2256     hres = IWebBrowser2_get_Silent(wb, &b);
2257     ok(hres == S_OK, "get_Silent failed: %08x\n", hres);
2258     ok(b == VARIANT_TRUE, "b=%x\n", b);
2259
2260     hres = IWebBrowser2_put_Silent(wb, 100);
2261     ok(hres == S_OK, "set_Silent failed: %08x\n", hres);
2262
2263     b = 100;
2264     hres = IWebBrowser2_get_Silent(wb, &b);
2265     ok(hres == S_OK, "get_Silent failed: %08x\n", hres);
2266     ok(b == VARIANT_TRUE, "b=%x\n", b);
2267
2268     hres = IWebBrowser2_put_Silent(wb, VARIANT_FALSE);
2269     ok(hres == S_OK, "set_Silent failed: %08x\n", hres);
2270
2271     b = 100;
2272     hres = IWebBrowser2_get_Silent(wb, &b);
2273     ok(hres == S_OK, "get_Silent failed: %08x\n", hres);
2274     ok(b == VARIANT_FALSE, "b=%x\n", b);
2275
2276     if(is_clientsite) {
2277         hres = IWebBrowser2_put_Silent(wb, VARIANT_TRUE);
2278         ok(hres == S_OK, "set_Silent failed: %08x\n", hres);
2279
2280         SET_EXPECT(Invoke_AMBIENT_SILENT);
2281     }
2282
2283     hres = IOleControl_OnAmbientPropertyChange(control, DISPID_AMBIENT_SILENT);
2284     ok(hres == S_OK, "OnAmbientPropertyChange failed %08x\n", hres);
2285
2286     if(is_clientsite)
2287         CHECK_CALLED(Invoke_AMBIENT_SILENT);
2288
2289     b = 100;
2290     hres = IWebBrowser2_get_Silent(wb, &b);
2291     ok(hres == S_OK, "get_Silent failed: %08x\n", hres);
2292     ok(b == VARIANT_FALSE, "b=%x\n", b);
2293 }
2294
2295 static void test_Offline(IWebBrowser2 *wb, IOleControl *control, BOOL is_clientsite)
2296 {
2297     VARIANT_BOOL b;
2298     HRESULT hres;
2299
2300     b = 100;
2301     hres = IWebBrowser2_get_Offline(wb, &b);
2302     ok(hres == S_OK, "get_Offline failed: %08x\n", hres);
2303     ok(b == VARIANT_FALSE, "b=%x\n", b);
2304
2305     hres = IWebBrowser2_put_Offline(wb, VARIANT_TRUE);
2306     ok(hres == S_OK, "set_Offline failed: %08x\n", hres);
2307
2308     b = 100;
2309     hres = IWebBrowser2_get_Offline(wb, &b);
2310     ok(hres == S_OK, "get_Offline failed: %08x\n", hres);
2311     ok(b == VARIANT_TRUE, "b=%x\n", b);
2312
2313     hres = IWebBrowser2_put_Offline(wb, 100);
2314     ok(hres == S_OK, "set_Offline failed: %08x\n", hres);
2315
2316     b = 100;
2317     hres = IWebBrowser2_get_Offline(wb, &b);
2318     ok(hres == S_OK, "get_Offline failed: %08x\n", hres);
2319     ok(b == VARIANT_TRUE, "b=%x\n", b);
2320
2321     hres = IWebBrowser2_put_Offline(wb, VARIANT_FALSE);
2322     ok(hres == S_OK, "set_Offline failed: %08x\n", hres);
2323
2324     b = 100;
2325     hres = IWebBrowser2_get_Offline(wb, &b);
2326     ok(hres == S_OK, "get_Offline failed: %08x\n", hres);
2327     ok(b == VARIANT_FALSE, "b=%x\n", b);
2328
2329     if(is_clientsite) {
2330         hres = IWebBrowser2_put_Offline(wb, VARIANT_TRUE);
2331         ok(hres == S_OK, "set_Offline failed: %08x\n", hres);
2332
2333         SET_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
2334     }
2335
2336     hres = IOleControl_OnAmbientPropertyChange(control, DISPID_AMBIENT_OFFLINEIFNOTCONNECTED);
2337     ok(hres == S_OK, "OnAmbientPropertyChange failed %08x\n", hres);
2338
2339     if(is_clientsite)
2340         CHECK_CALLED(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
2341
2342     b = 100;
2343     hres = IWebBrowser2_get_Offline(wb, &b);
2344     ok(hres == S_OK, "get_Offline failed: %08x\n", hres);
2345     ok(b == VARIANT_FALSE, "b=%x\n", b);
2346 }
2347
2348 static void test_ambient_unknown(IWebBrowser2 *wb, IOleControl *control, BOOL is_clientsite)
2349 {
2350     HRESULT hres;
2351
2352     SET_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
2353     SET_EXPECT(Invoke_AMBIENT_SILENT);
2354     SET_EXPECT(Invoke_AMBIENT_USERMODE);
2355     SET_EXPECT(Invoke_AMBIENT_DLCONTROL);
2356     SET_EXPECT(Invoke_AMBIENT_USERAGENT);
2357     SET_EXPECT(Invoke_AMBIENT_PALETTE);
2358
2359     hres = IOleControl_OnAmbientPropertyChange(control, DISPID_UNKNOWN);
2360     ok(hres == S_OK, "OnAmbientPropertyChange failed %08x\n", hres);
2361
2362     CHECK_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
2363     CHECK_EXPECT(Invoke_AMBIENT_SILENT);
2364     CHECK_EXPECT(Invoke_AMBIENT_USERMODE);
2365     CHECK_EXPECT(Invoke_AMBIENT_DLCONTROL);
2366     CHECK_EXPECT(Invoke_AMBIENT_USERAGENT);
2367     CHECK_EXPECT(Invoke_AMBIENT_PALETTE);
2368
2369     CLEAR_CALLED(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
2370     CLEAR_CALLED(Invoke_AMBIENT_SILENT);
2371     CLEAR_CALLED(Invoke_AMBIENT_USERMODE);
2372     CLEAR_CALLED(Invoke_AMBIENT_DLCONTROL);
2373     CLEAR_CALLED(Invoke_AMBIENT_USERAGENT);
2374     CLEAR_CALLED(Invoke_AMBIENT_PALETTE);
2375 }
2376
2377 static void test_wb_funcs(IUnknown *unk, BOOL is_clientsite)
2378 {
2379     IWebBrowser2 *wb;
2380     IOleControl *control;
2381     HRESULT hres;
2382
2383     hres = IUnknown_QueryInterface(unk, &IID_IWebBrowser2, (void**)&wb);
2384     ok(hres == S_OK, "Could not get IWebBrowser2 interface: %08x\n", hres);
2385
2386     hres = IUnknown_QueryInterface(unk, &IID_IOleControl, (void**)&control);
2387     ok(hres == S_OK, "Could not get IOleControl interface: %08x\n", hres);
2388
2389     test_Silent(wb, control, is_clientsite);
2390     test_Offline(wb, control, is_clientsite);
2391     test_ambient_unknown(wb, control, is_clientsite);
2392
2393     IWebBrowser_Release(wb);
2394     IOleControl_Release(control);
2395 }
2396
2397 static void test_GetControlInfo(IUnknown *unk)
2398 {
2399     IOleControl *control;
2400     CONTROLINFO info;
2401     HRESULT hres;
2402
2403     hres = IUnknown_QueryInterface(unk, &IID_IOleControl, (void**)&control);
2404     ok(hres == S_OK, "Could not get IOleControl: %08x\n", hres);
2405     if(FAILED(hres))
2406         return;
2407
2408     hres = IOleControl_GetControlInfo(control, &info);
2409     ok(hres == E_NOTIMPL, "GetControlInfo failed: %08x, expected E_NOTIMPL\n", hres);
2410     hres = IOleControl_GetControlInfo(control, NULL);
2411     ok(hres == E_NOTIMPL, "GetControlInfo failed: %08x, expected E_NOTIMPL\n", hres);
2412
2413     IOleControl_Release(control);
2414 }
2415
2416 static void test_Extent(IUnknown *unk)
2417 {
2418     IOleObject *oleobj;
2419     SIZE size, expected;
2420     HRESULT hres;
2421     DWORD dpi_x;
2422     DWORD dpi_y;
2423     HDC hdc;
2424
2425     /* default aspect ratio is 96dpi / 96dpi */
2426     hdc = GetDC(0);
2427     dpi_x = GetDeviceCaps(hdc, LOGPIXELSX);
2428     dpi_y = GetDeviceCaps(hdc, LOGPIXELSY);
2429     ReleaseDC(0, hdc);
2430     if (dpi_x != 96 || dpi_y != 96)
2431         trace("dpi: %d / %d\n", dpi_y, dpi_y);
2432
2433     hres = IUnknown_QueryInterface(unk, &IID_IOleObject, (void**)&oleobj);
2434     ok(hres == S_OK, "Could not get IOleObkect: %08x\n", hres);
2435     if(FAILED(hres))
2436         return;
2437
2438     size.cx = size.cy = 0xdeadbeef;
2439     hres = IOleObject_GetExtent(oleobj, DVASPECT_CONTENT, &size);
2440     ok(hres == S_OK, "GetExtent failed: %08x\n", hres);
2441     /* Default size is 50x20 pixels, in himetric units */
2442     expected.cx = MulDiv( 50, 2540, dpi_x );
2443     expected.cy = MulDiv( 20, 2540, dpi_y );
2444     ok(size.cx == expected.cx && size.cy == expected.cy, "size = {%d %d} (expected %d %d)\n",
2445        size.cx, size.cy, expected.cx, expected.cy );
2446
2447     size.cx = 800;
2448     size.cy = 700;
2449     hres = IOleObject_SetExtent(oleobj, DVASPECT_CONTENT, &size);
2450     ok(hres == S_OK, "SetExtent failed: %08x\n", hres);
2451
2452     size.cx = size.cy = 0xdeadbeef;
2453     hres = IOleObject_GetExtent(oleobj, DVASPECT_CONTENT, &size);
2454     ok(hres == S_OK, "GetExtent failed: %08x\n", hres);
2455     ok(size.cx == 800 && size.cy == 700, "size = {%d %d}\n", size.cx, size.cy);
2456
2457     size.cx = size.cy = 0xdeadbeef;
2458     hres = IOleObject_GetExtent(oleobj, 0, &size);
2459     ok(hres == S_OK, "GetExtent failed: %08x\n", hres);
2460     ok(size.cx == 800 && size.cy == 700, "size = {%d %d}\n", size.cx, size.cy);
2461
2462     size.cx = 900;
2463     size.cy = 800;
2464     hres = IOleObject_SetExtent(oleobj, 0, &size);
2465     ok(hres == S_OK, "SetExtent failed: %08x\n", hres);
2466
2467     size.cx = size.cy = 0xdeadbeef;
2468     hres = IOleObject_GetExtent(oleobj, 0, &size);
2469     ok(hres == S_OK, "GetExtent failed: %08x\n", hres);
2470     ok(size.cx == 900 && size.cy == 800, "size = {%d %d}\n", size.cx, size.cy);
2471
2472     size.cx = size.cy = 0xdeadbeef;
2473     hres = IOleObject_GetExtent(oleobj, 0xdeadbeef, &size);
2474     ok(hres == S_OK, "GetExtent failed: %08x\n", hres);
2475     ok(size.cx == 900 && size.cy == 800, "size = {%d %d}\n", size.cx, size.cy);
2476
2477     size.cx = 1000;
2478     size.cy = 900;
2479     hres = IOleObject_SetExtent(oleobj, 0xdeadbeef, &size);
2480     ok(hres == S_OK, "SetExtent failed: %08x\n", hres);
2481
2482     size.cx = size.cy = 0xdeadbeef;
2483     hres = IOleObject_GetExtent(oleobj, 0xdeadbeef, &size);
2484     ok(hres == S_OK, "GetExtent failed: %08x\n", hres);
2485     ok(size.cx == 1000 && size.cy == 900, "size = {%d %d}\n", size.cx, size.cy);
2486
2487     size.cx = size.cy = 0xdeadbeef;
2488     hres = IOleObject_GetExtent(oleobj, DVASPECT_CONTENT, &size);
2489     ok(hres == S_OK, "GetExtent failed: %08x\n", hres);
2490     ok(size.cx == 1000 && size.cy == 900, "size = {%d %d}\n", size.cx, size.cy);
2491
2492     IOleObject_Release(oleobj);
2493 }
2494
2495 static void test_ConnectionPoint(IUnknown *unk, BOOL init)
2496 {
2497     IConnectionPointContainer *container;
2498     IConnectionPoint *point;
2499     HRESULT hres;
2500
2501     static DWORD dw = 100;
2502
2503     hres = IUnknown_QueryInterface(unk, &IID_IConnectionPointContainer, (void**)&container);
2504     ok(hres == S_OK, "QueryInterface(IID_IConnectionPointContainer) failed: %08x\n", hres);
2505     if(FAILED(hres))
2506         return;
2507
2508     hres = IConnectionPointContainer_FindConnectionPoint(container, &DIID_DWebBrowserEvents2, &point);
2509     IConnectionPointContainer_Release(container);
2510     ok(hres == S_OK, "FindConnectionPoint failed: %08x\n", hres);
2511     if(FAILED(hres))
2512         return;
2513
2514     if(init) {
2515         hres = IConnectionPoint_Advise(point, (IUnknown*)&WebBrowserEvents2, &dw);
2516         ok(hres == S_OK, "Advise failed: %08x\n", hres);
2517         ok(dw == 1, "dw=%d, expected 1\n", dw);
2518     }else {
2519         hres = IConnectionPoint_Unadvise(point, dw);
2520         ok(hres == S_OK, "Unadvise failed: %08x\n", hres);
2521     }
2522
2523     IConnectionPoint_Release(point);
2524 }
2525
2526 static void test_Navigate2(IUnknown *unk, const char *nav_url)
2527 {
2528     IWebBrowser2 *webbrowser;
2529     VARIANT url;
2530     HRESULT hres;
2531
2532     hres = IUnknown_QueryInterface(unk, &IID_IWebBrowser2, (void**)&webbrowser);
2533     ok(hres == S_OK, "QueryInterface(IID_IWebBrowser) failed: %08x\n", hres);
2534     if(FAILED(hres))
2535         return;
2536
2537     test_LocationURL(unk, is_first_load ? "" : current_url);
2538     test_ready_state(is_first_load ? READYSTATE_UNINITIALIZED : READYSTATE_COMPLETE);
2539
2540     is_http = !memcmp(nav_url, "http:", 5);
2541     V_VT(&url) = VT_BSTR;
2542     V_BSTR(&url) = a2bstr(current_url = nav_url);
2543
2544     if(is_first_load) {
2545         SET_EXPECT(Invoke_AMBIENT_USERMODE);
2546         SET_EXPECT(Invoke_PROPERTYCHANGE);
2547         SET_EXPECT(Invoke_BEFORENAVIGATE2);
2548         SET_EXPECT(Invoke_DOWNLOADBEGIN);
2549         if (use_container_olecmd) SET_EXPECT(Exec_SETDOWNLOADSTATE_1);
2550         SET_EXPECT(EnableModeless_FALSE);
2551         SET_EXPECT(Invoke_STATUSTEXTCHANGE);
2552         SET_EXPECT(SetStatusText);
2553         SET_EXPECT(GetHostInfo);
2554         SET_EXPECT(Invoke_AMBIENT_DLCONTROL);
2555         SET_EXPECT(Invoke_AMBIENT_USERAGENT);
2556         SET_EXPECT(Invoke_AMBIENT_PALETTE);
2557         SET_EXPECT(GetOptionKeyPath);
2558         SET_EXPECT(GetOverridesKeyPath);
2559         if (use_container_olecmd) SET_EXPECT(QueryStatus_SETPROGRESSTEXT);
2560         if (use_container_olecmd) SET_EXPECT(Exec_SETPROGRESSMAX);
2561         if (use_container_olecmd) SET_EXPECT(Exec_SETPROGRESSPOS);
2562         SET_EXPECT(Invoke_SETSECURELOCKICON);
2563         SET_EXPECT(Invoke_FILEDOWNLOAD);
2564         if (use_container_olecmd) SET_EXPECT(Exec_SETDOWNLOADSTATE_0);
2565         SET_EXPECT(Invoke_COMMANDSTATECHANGE);
2566         SET_EXPECT(EnableModeless_TRUE);
2567         if (!use_container_olecmd) SET_EXPECT(Invoke_DOWNLOADCOMPLETE);
2568     }
2569
2570     hres = IWebBrowser2_Navigate2(webbrowser, &url, NULL, NULL, NULL, NULL);
2571     ok(hres == S_OK, "Navigate2 failed: %08x\n", hres);
2572
2573     if(is_first_load) {
2574         CHECK_CALLED(Invoke_AMBIENT_USERMODE);
2575         todo_wine CHECK_CALLED(Invoke_PROPERTYCHANGE);
2576         CHECK_CALLED(Invoke_BEFORENAVIGATE2);
2577         todo_wine CHECK_CALLED(Invoke_DOWNLOADBEGIN);
2578         if (use_container_olecmd) todo_wine CHECK_CALLED(Exec_SETDOWNLOADSTATE_1);
2579         CHECK_CALLED(EnableModeless_FALSE);
2580         CHECK_CALLED(Invoke_STATUSTEXTCHANGE);
2581         CHECK_CALLED(SetStatusText);
2582         CHECK_CALLED(GetHostInfo);
2583         CHECK_CALLED(Invoke_AMBIENT_DLCONTROL);
2584         CHECK_CALLED(Invoke_AMBIENT_USERAGENT);
2585         CLEAR_CALLED(Invoke_AMBIENT_PALETTE); /* Not called by IE9 */
2586         CLEAR_CALLED(GetOptionKeyPath);
2587         CHECK_CALLED(GetOverridesKeyPath);
2588         if (use_container_olecmd) todo_wine CHECK_CALLED(QueryStatus_SETPROGRESSTEXT);
2589         if (use_container_olecmd) todo_wine CHECK_CALLED(Exec_SETPROGRESSMAX);
2590         if (use_container_olecmd) todo_wine CHECK_CALLED(Exec_SETPROGRESSPOS);
2591         todo_wine CHECK_CALLED(Invoke_SETSECURELOCKICON);
2592         todo_wine CHECK_CALLED(Invoke_FILEDOWNLOAD);
2593         todo_wine CHECK_CALLED(Invoke_COMMANDSTATECHANGE);
2594         if (use_container_olecmd) todo_wine CHECK_CALLED(Exec_SETDOWNLOADSTATE_0);
2595         CHECK_CALLED(EnableModeless_TRUE);
2596     }
2597
2598     VariantClear(&url);
2599     IWebBrowser2_Release(webbrowser);
2600
2601     test_ready_state(READYSTATE_LOADING);
2602 }
2603
2604 static void test_QueryStatusWB(IWebBrowser2 *webbrowser, BOOL use_custom_target, BOOL has_document)
2605 {
2606     HRESULT hres, success_state;
2607     OLECMDF success_flags;
2608     enum OLECMDF status;
2609
2610     /*
2611      * We can tell the difference between the custom container target and the built-in target
2612      * since the custom target returns OLECMDF_SUPPORTED instead of OLECMDF_ENABLED.
2613      */
2614     if (use_custom_target)
2615         success_flags = OLECMDF_SUPPORTED;
2616     else
2617         success_flags = OLECMDF_ENABLED;
2618
2619     /* When no target is available (no document or custom target) an error is returned */
2620     if (has_document)
2621         success_state = S_OK;
2622     else
2623         success_state = E_UNEXPECTED;
2624
2625     /*
2626      * Test a safe operation that exists as both a high-numbered MSHTML id and an OLECMDID.
2627      * These tests show that QueryStatusWB uses a NULL pguidCmdGroup, since OLECMDID_STOP
2628      * is enabled and IDM_STOP is not.
2629      */
2630     status = 0xdeadbeef;
2631     if (use_custom_target) SET_EXPECT(QueryStatus_STOP);
2632     hres = IWebBrowser2_QueryStatusWB(webbrowser, OLECMDID_STOP, &status);
2633     ok(hres == success_state, "QueryStatusWB failed: %08x %08x\n", hres, success_state);
2634     if (!use_custom_target && has_document)
2635         todo_wine ok((has_document && status == success_flags) || (!has_document && status == 0xdeadbeef),
2636                      "OLECMDID_STOP not enabled/supported: %08x %08x\n", status, success_flags);
2637     else
2638         ok((has_document && status == success_flags) || (!has_document && status == 0xdeadbeef),
2639            "OLECMDID_STOP not enabled/supported: %08x %08x\n", status, success_flags);
2640     status = 0xdeadbeef;
2641     if (use_custom_target) SET_EXPECT(QueryStatus_IDM_STOP);
2642     hres = IWebBrowser2_QueryStatusWB(webbrowser, IDM_STOP, &status);
2643     ok(hres == success_state, "QueryStatusWB failed: %08x %08x\n", hres, success_state);
2644     ok((has_document && status == 0) || (!has_document && status == 0xdeadbeef),
2645        "IDM_STOP is enabled/supported: %08x %d\n", status, has_document);
2646 }
2647
2648 static void test_ExecWB(IWebBrowser2 *webbrowser, BOOL use_custom_target, BOOL has_document)
2649 {
2650     HRESULT hres, olecmdid_state, idm_state;
2651
2652     /* When no target is available (no document or custom target) an error is returned */
2653     if (has_document)
2654     {
2655         olecmdid_state = S_OK;
2656         idm_state = OLECMDERR_E_NOTSUPPORTED;
2657     }
2658     else
2659     {
2660         olecmdid_state = E_UNEXPECTED;
2661         idm_state = E_UNEXPECTED;
2662     }
2663
2664     /*
2665      * Test a safe operation that exists as both a high-numbered MSHTML id and an OLECMDID.
2666      * These tests show that QueryStatusWB uses a NULL pguidCmdGroup, since OLECMDID_STOP
2667      * succeeds (S_OK) and IDM_STOP does not (OLECMDERR_E_NOTSUPPORTED).
2668      */
2669     if(use_custom_target) {
2670         SET_EXPECT(Exec_STOP);
2671     }else if(has_document) {
2672         SET_EXPECT(Invoke_STATUSTEXTCHANGE);
2673         SET_EXPECT(SetStatusText);
2674     }
2675     hres = IWebBrowser2_ExecWB(webbrowser, OLECMDID_STOP, OLECMDEXECOPT_DONTPROMPTUSER, 0, 0);
2676     if(!use_custom_target && has_document) {
2677         todo_wine ok(hres == olecmdid_state, "ExecWB failed: %08x %08x\n", hres, olecmdid_state);
2678         CLEAR_CALLED(Invoke_STATUSTEXTCHANGE); /* Called by IE9 */
2679         CLEAR_CALLED(SetStatusText); /* Called by IE9 */
2680     }else {
2681         ok(hres == olecmdid_state, "ExecWB failed: %08x %08x\n", hres, olecmdid_state);
2682     }
2683     if (use_custom_target)
2684         SET_EXPECT(Exec_IDM_STOP);
2685     hres = IWebBrowser2_ExecWB(webbrowser, IDM_STOP, OLECMDEXECOPT_DONTPROMPTUSER, 0, 0);
2686     ok(hres == idm_state, "ExecWB failed: %08x %08x\n", hres, idm_state);
2687 }
2688
2689 static void test_download(DWORD flags)
2690 {
2691     MSG msg;
2692
2693     is_downloading = TRUE;
2694     dwl_flags = flags;
2695
2696     test_ready_state((flags & (DWL_FROM_PUT_HREF|DWL_FROM_GOBACK)) ? READYSTATE_COMPLETE : READYSTATE_LOADING);
2697
2698     if((is_http && !(flags & DWL_FROM_GOBACK)) || (flags & DWL_EXPECT_BEFORE_NAVIGATE))
2699         SET_EXPECT(Invoke_PROPERTYCHANGE);
2700
2701     if(flags & DWL_EXPECT_BEFORE_NAVIGATE) {
2702         SET_EXPECT(Invoke_BEFORENAVIGATE2);
2703         SET_EXPECT(TranslateUrl);
2704     }
2705     SET_EXPECT(Exec_SETPROGRESSMAX);
2706     SET_EXPECT(Exec_SETPROGRESSPOS);
2707     SET_EXPECT(Exec_SETDOWNLOADSTATE_1);
2708     SET_EXPECT(DocHost_EnableModeless_FALSE);
2709     SET_EXPECT(DocHost_EnableModeless_TRUE);
2710     SET_EXPECT(Invoke_SETSECURELOCKICON);
2711     SET_EXPECT(Invoke_282);
2712     SET_EXPECT(EnableModeless_FALSE);
2713     SET_EXPECT(Invoke_COMMANDSTATECHANGE);
2714     SET_EXPECT(Invoke_STATUSTEXTCHANGE);
2715     SET_EXPECT(SetStatusText);
2716     SET_EXPECT(EnableModeless_TRUE);
2717     if(!is_first_load)
2718         SET_EXPECT(GetHostInfo);
2719     SET_EXPECT(Exec_SETDOWNLOADSTATE_0);
2720     SET_EXPECT(Invoke_TITLECHANGE);
2721     SET_EXPECT(Invoke_NAVIGATECOMPLETE2);
2722     if(is_first_load)
2723         SET_EXPECT(GetDropTarget);
2724     SET_EXPECT(Invoke_PROGRESSCHANGE);
2725     SET_EXPECT(Invoke_DOCUMENTCOMPLETE);
2726
2727     if(flags & DWL_HTTP)
2728         SET_EXPECT(Exec_SETTITLE);
2729     SET_EXPECT(UpdateUI);
2730     SET_EXPECT(Exec_UPDATECOMMANDS);
2731     SET_EXPECT(QueryStatus_STOP);
2732
2733     while(!called_Invoke_DOCUMENTCOMPLETE && GetMessage(&msg, NULL, 0, 0)) {
2734         TranslateMessage(&msg);
2735         DispatchMessage(&msg);
2736     }
2737
2738     if((is_http && !(flags & DWL_FROM_GOBACK)) || (flags & DWL_EXPECT_BEFORE_NAVIGATE))
2739         todo_wine CHECK_CALLED(Invoke_PROPERTYCHANGE);
2740
2741     if(flags & DWL_EXPECT_BEFORE_NAVIGATE) {
2742         CHECK_CALLED(Invoke_BEFORENAVIGATE2);
2743         CHECK_CALLED(TranslateUrl);
2744     }
2745     todo_wine CHECK_CALLED(Exec_SETPROGRESSMAX);
2746     todo_wine CHECK_CALLED(Exec_SETPROGRESSPOS);
2747     todo_wine CHECK_CALLED(Exec_SETDOWNLOADSTATE_1);
2748     CLEAR_CALLED(DocHost_EnableModeless_FALSE); /* IE 7 */
2749     CLEAR_CALLED(DocHost_EnableModeless_TRUE); /* IE 7 */
2750     todo_wine CHECK_CALLED(Invoke_SETSECURELOCKICON);
2751     CLEAR_CALLED(Invoke_282); /* IE 7 */
2752     if(is_first_load)
2753         todo_wine CHECK_CALLED(EnableModeless_FALSE);
2754     else
2755         CLEAR_CALLED(EnableModeless_FALSE); /* IE 8 */
2756     CLEAR_CALLED(Invoke_COMMANDSTATECHANGE);
2757     todo_wine CHECK_CALLED(Invoke_STATUSTEXTCHANGE);
2758     todo_wine CHECK_CALLED(SetStatusText);
2759     if(is_first_load)
2760         todo_wine CHECK_CALLED(EnableModeless_TRUE);
2761     else
2762         CLEAR_CALLED(EnableModeless_FALSE); /* IE 8 */
2763     if(!is_first_load)
2764         todo_wine CHECK_CALLED(GetHostInfo);
2765     todo_wine CHECK_CALLED(Exec_SETDOWNLOADSTATE_0);
2766     todo_wine CHECK_CALLED(Invoke_TITLECHANGE);
2767     CHECK_CALLED(Invoke_NAVIGATECOMPLETE2);
2768     if(is_first_load)
2769         todo_wine CHECK_CALLED(GetDropTarget);
2770     todo_wine CHECK_CALLED(Invoke_PROGRESSCHANGE);
2771     CHECK_CALLED(Invoke_DOCUMENTCOMPLETE);
2772
2773     is_downloading = FALSE;
2774
2775     test_ready_state(READYSTATE_COMPLETE);
2776
2777     while(!called_Exec_UPDATECOMMANDS && GetMessage(&msg, NULL, 0, 0)) {
2778         TranslateMessage(&msg);
2779         DispatchMessage(&msg);
2780     }
2781
2782     if(flags & DWL_HTTP)
2783         CLEAR_CALLED(Exec_SETTITLE); /* FIXME: make it more strict */
2784     CHECK_CALLED(UpdateUI);
2785     CHECK_CALLED(Exec_UPDATECOMMANDS);
2786     CLEAR_CALLED(QueryStatus_STOP);
2787 }
2788
2789 static void test_olecmd(IUnknown *unk, BOOL loaded)
2790 {
2791     IOleCommandTarget *cmdtrg;
2792     OLECMD cmds[3];
2793     HRESULT hres;
2794
2795     hres = IUnknown_QueryInterface(unk, &IID_IOleCommandTarget, (void**)&cmdtrg);
2796     ok(hres == S_OK, "Could not get IOleCommandTarget iface: %08x\n", hres);
2797     if(FAILED(hres))
2798         return;
2799
2800     cmds[0].cmdID = OLECMDID_SPELL;
2801     cmds[0].cmdf = 0xdeadbeef;
2802     cmds[1].cmdID = OLECMDID_REFRESH;
2803     cmds[1].cmdf = 0xdeadbeef;
2804     hres = IOleCommandTarget_QueryStatus(cmdtrg, NULL, 2, cmds, NULL);
2805     if(loaded) {
2806         ok(hres == S_OK, "QueryStatus failed: %08x\n", hres);
2807         ok(cmds[0].cmdf == OLECMDF_SUPPORTED, "OLECMDID_SPELL cmdf = %x\n", cmds[0].cmdf);
2808         ok(cmds[1].cmdf == (OLECMDF_ENABLED|OLECMDF_SUPPORTED),
2809            "OLECMDID_REFRESH cmdf = %x\n", cmds[1].cmdf);
2810     }else {
2811         ok(hres == 0x80040104, "QueryStatus failed: %08x\n", hres);
2812         ok(cmds[0].cmdf == 0xdeadbeef, "OLECMDID_SPELL cmdf = %x\n", cmds[0].cmdf);
2813         ok(cmds[1].cmdf == 0xdeadbeef, "OLECMDID_REFRESH cmdf = %x\n", cmds[0].cmdf);
2814     }
2815
2816     IOleCommandTarget_Release(cmdtrg);
2817 }
2818
2819 static void test_IServiceProvider(IUnknown *unk)
2820 {
2821     IServiceProvider *servprov = (void*)0xdeadbeef;
2822     IUnknown *iface;
2823     HRESULT hres;
2824
2825     hres = IUnknown_QueryInterface(unk, &IID_IServiceProvider, (void**)&servprov);
2826     ok(hres == S_OK, "QueryInterface returned %08x, expected S_OK\n", hres);
2827     if(FAILED(hres))
2828         return;
2829
2830     hres = IServiceProvider_QueryService(servprov, &SID_STopLevelBrowser, &IID_IBrowserService2, (LPVOID*)&iface);
2831     ok(hres == E_FAIL, "QueryService returned %08x, expected E_FAIL\n", hres);
2832     ok(!iface, "QueryService returned %p, expected NULL\n", iface);
2833     if(hres == S_OK)
2834         IUnknown_Release(iface);
2835
2836     hres = IServiceProvider_QueryService(servprov, &SID_SHTMLWindow, &IID_IHTMLWindow2, (LPVOID*)&iface);
2837     ok(hres == S_OK, "QueryService returned %08x, expected S_OK\n", hres);
2838     ok(iface != NULL, "QueryService returned NULL\n");
2839     if(hres == S_OK)
2840         IUnknown_Release(iface);
2841
2842     IServiceProvider_Release(servprov);
2843 }
2844
2845 static void test_put_href(IUnknown *unk, const char *url)
2846 {
2847     IHTMLLocation *location;
2848     IHTMLDocument2 *doc;
2849     IDispatch *doc_disp;
2850     BSTR str;
2851     HRESULT hres;
2852
2853     doc_disp = get_document(unk);
2854
2855     hres = IDispatch_QueryInterface(doc_disp, &IID_IHTMLDocument2, (void**)&doc);
2856     IDispatch_Release(doc_disp);
2857     ok(hres == S_OK, "QueryInterface(IID_IHTMLDocument2 failed: %08x\n", hres);
2858
2859     location = NULL;
2860     hres = IHTMLDocument2_get_location(doc, &location);
2861     IHTMLDocument2_Release(doc);
2862     ok(hres == S_OK, "get_location failed: %08x\n", hres);
2863     ok(location != NULL, "location == NULL\n");
2864
2865     SET_EXPECT(TranslateUrl);
2866     SET_EXPECT(Invoke_BEFORENAVIGATE2);
2867     if(!is_http)
2868         SET_EXPECT(Invoke_PROPERTYCHANGE);
2869
2870     dwl_flags = DWL_FROM_PUT_HREF;
2871
2872     is_http = !memcmp(url, "http:", 5);
2873     str = a2bstr(current_url = url);
2874     is_first_load = FALSE;
2875     hres = IHTMLLocation_put_href(location, str);
2876
2877     CHECK_CALLED(TranslateUrl);
2878     CHECK_CALLED(Invoke_BEFORENAVIGATE2);
2879     if(!is_http)
2880         todo_wine CHECK_CALLED(Invoke_PROPERTYCHANGE);
2881
2882     IHTMLLocation_Release(location);
2883     SysFreeString(str);
2884     ok(hres == S_OK, "put_href failed: %08x\n", hres);
2885
2886     test_ready_state(READYSTATE_COMPLETE);
2887 }
2888
2889 static void test_go_back(IUnknown *unk, const char *back_url)
2890 {
2891     IWebBrowser2 *wb;
2892     HRESULT hres;
2893
2894     current_url = back_url;
2895
2896     hres = IUnknown_QueryInterface(unk, &IID_IWebBrowser2, (void**)&wb);
2897     ok(hres == S_OK, "Could not get IWebBrowser2 iface: %08x\n", hres);
2898
2899     SET_EXPECT(Invoke_BEFORENAVIGATE2);
2900     SET_EXPECT(Invoke_COMMANDSTATECHANGE);
2901     hres = IWebBrowser2_GoBack(wb);
2902     ok(hres == S_OK, "GoBack failed: %08x\n", hres);
2903     CHECK_CALLED(Invoke_BEFORENAVIGATE2);
2904     todo_wine CHECK_CALLED(Invoke_COMMANDSTATECHANGE);
2905
2906     IWebBrowser2_Release(wb);
2907 }
2908
2909 static void test_QueryInterface(IUnknown *unk)
2910 {
2911     IQuickActivate *qa = (IQuickActivate*)0xdeadbeef;
2912     IRunnableObject *runnable = (IRunnableObject*)0xdeadbeef;
2913     IPerPropertyBrowsing *propbrowse = (void*)0xdeadbeef;
2914     IOleInPlaceSite *inplace = (void*)0xdeadbeef;
2915     IOleCache *cache = (void*)0xdeadbeef;
2916     IObjectWithSite *site = (void*)0xdeadbeef;
2917     IViewObjectEx *viewex = (void*)0xdeadbeef;
2918     IOleLink *link = (void*)0xdeadbeef;
2919     IMarshal *marshal = (void*)0xdeadbeef;
2920     IStdMarshalInfo *marshalinfo = (void*)0xdeadbeef;
2921     HRESULT hres;
2922
2923     hres = IUnknown_QueryInterface(unk, &IID_IQuickActivate, (void**)&qa);
2924     ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2925     ok(qa == NULL, "qa=%p, expected NULL\n", qa);
2926
2927     hres = IUnknown_QueryInterface(unk, &IID_IRunnableObject, (void**)&runnable);
2928     ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2929     ok(runnable == NULL, "runnable=%p, expected NULL\n", runnable);
2930
2931     hres = IUnknown_QueryInterface(unk, &IID_IPerPropertyBrowsing, (void**)&propbrowse);
2932     ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2933     ok(propbrowse == NULL, "propbrowse=%p, expected NULL\n", propbrowse);
2934
2935     hres = IUnknown_QueryInterface(unk, &IID_IOleCache, (void**)&cache);
2936     ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2937     ok(cache == NULL, "cache=%p, expected NULL\n", cache);
2938
2939     hres = IUnknown_QueryInterface(unk, &IID_IOleInPlaceSite, (void**)&inplace);
2940     ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2941     ok(inplace == NULL, "inplace=%p, expected NULL\n", inplace);
2942
2943     hres = IUnknown_QueryInterface(unk, &IID_IObjectWithSite, (void**)&site);
2944     ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2945     ok(site == NULL, "site=%p, expected NULL\n", site);
2946
2947     hres = IUnknown_QueryInterface(unk, &IID_IViewObjectEx, (void**)&viewex);
2948     ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2949     ok(viewex == NULL, "viewex=%p, expected NULL\n", viewex);
2950
2951     hres = IUnknown_QueryInterface(unk, &IID_IOleLink, (void**)&link);
2952     ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2953     ok(link == NULL, "link=%p, expected NULL\n", link);
2954
2955     hres = IUnknown_QueryInterface(unk, &IID_IMarshal, (void**)&marshal);
2956     ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2957     ok(marshal == NULL, "marshal=%p, expected NULL\n", marshal);
2958
2959     hres = IUnknown_QueryInterface(unk, &IID_IStdMarshalInfo, (void**)&marshalinfo);
2960     ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2961     ok(marshalinfo == NULL, "marshalinfo=%p, expected NULL\n", marshalinfo);
2962
2963 }
2964
2965 static void test_UIActivate(IUnknown *unk, BOOL activate)
2966 {
2967     IOleDocumentView *docview;
2968     IDispatch *disp;
2969     HRESULT hres;
2970
2971     disp = get_document(unk);
2972
2973     hres = IDispatch_QueryInterface(disp, &IID_IOleDocumentView, (void**)&docview);
2974     ok(hres == S_OK, "Got 0x%08x\n", hres);
2975     if(SUCCEEDED(hres)) {
2976         if(activate) {
2977             SET_EXPECT(RequestUIActivate);
2978             SET_EXPECT(ShowUI);
2979             SET_EXPECT(HideUI);
2980             SET_EXPECT(OnFocus);
2981         }
2982
2983         hres = IOleDocumentView_UIActivate(docview, activate);
2984         if(activate)
2985             todo_wine ok(hres == S_OK, "Got 0x%08x\n", hres);
2986         else
2987             ok(hres == S_OK, "Got 0x%08x\n", hres);
2988
2989         if(activate) {
2990             todo_wine {
2991                 CHECK_CALLED(RequestUIActivate);
2992                 CHECK_CALLED(ShowUI);
2993                 CHECK_CALLED(HideUI);
2994                 CHECK_CALLED(OnFocus);
2995             }
2996         }
2997
2998         IOleDocumentView_Release(docview);
2999     }
3000
3001     IDispatch_Release(disp);
3002 }
3003
3004 static void test_TranslateAccelerator(IUnknown *unk)
3005 {
3006     IOleClientSite *doc_clientsite;
3007     IOleInPlaceActiveObject *pao;
3008     HRESULT hres;
3009     DWORD keycode;
3010     MSG msg_a = {
3011         container_hwnd,
3012         0, 0, 0,
3013         GetTickCount(),
3014         {5, 5}
3015     };
3016
3017     test_Navigate2(unk, "about:blank");
3018
3019     hres = IUnknown_QueryInterface(unk, &IID_IOleInPlaceActiveObject, (void**)&pao);
3020     ok(hres == S_OK, "Got 0x%08x\n", hres);
3021     if(SUCCEEDED(hres)) {
3022         /* One accelerator that should be handled by mshtml */
3023         msg_a.message = WM_KEYDOWN;
3024         msg_a.wParam = VK_F1;
3025         hres = IOleInPlaceActiveObject_TranslateAccelerator(pao, &msg_a);
3026         ok(hres == S_FALSE, "Got 0x%08x (%04x::%02lx)\n", hres, msg_a.message, msg_a.wParam);
3027
3028         /* And one that should not */
3029         msg_a.message = WM_KEYDOWN;
3030         msg_a.wParam = VK_F5;
3031         hres = IOleInPlaceActiveObject_TranslateAccelerator(pao, &msg_a);
3032         ok(hres == S_FALSE, "Got 0x%08x (%04x::%02lx)\n", hres, msg_a.message, msg_a.wParam);
3033
3034         IOleInPlaceActiveObject_Release(pao);
3035     }
3036
3037     test_UIActivate(unk, TRUE);
3038
3039     /* Test again after UIActivate */
3040     hres = IUnknown_QueryInterface(unk, &IID_IOleInPlaceActiveObject, (void**)&pao);
3041     ok(hres == S_OK, "Got 0x%08x\n", hres);
3042     if(SUCCEEDED(hres)) {
3043         /* One accelerator that should be handled by mshtml */
3044         msg_a.message = WM_KEYDOWN;
3045         msg_a.wParam = VK_F1;
3046         SET_EXPECT(DocHost_TranslateAccelerator);
3047         SET_EXPECT(ControlSite_TranslateAccelerator);
3048         hres = IOleInPlaceActiveObject_TranslateAccelerator(pao, &msg_a);
3049         ok(hres == S_FALSE, "Got 0x%08x (%04x::%02lx)\n", hres, msg_a.message, msg_a.wParam);
3050         todo_wine CHECK_CALLED(DocHost_TranslateAccelerator);
3051         todo_wine CHECK_CALLED(ControlSite_TranslateAccelerator);
3052
3053         /* And one that should not */
3054         msg_a.message = WM_KEYDOWN;
3055         msg_a.wParam = VK_F5;
3056         SET_EXPECT(DocHost_TranslateAccelerator);
3057         hres = IOleInPlaceActiveObject_TranslateAccelerator(pao, &msg_a);
3058         todo_wine ok(hres == S_OK, "Got 0x%08x (%04x::%02lx)\n", hres, msg_a.message, msg_a.wParam);
3059         todo_wine CHECK_CALLED(DocHost_TranslateAccelerator);
3060
3061         IOleInPlaceActiveObject_Release(pao);
3062     }
3063
3064     doc_clientsite = get_dochost(unk);
3065     if(doc_clientsite) {
3066         IDocHostUIHandler2 *dochost;
3067         IOleControlSite *doc_controlsite;
3068         IUnknown *unk_test;
3069
3070         hres = IOleClientSite_QueryInterface(doc_clientsite, &IID_IOleInPlaceFrame, (void**)&unk_test);
3071         ok(hres == E_NOINTERFACE, "Got 0x%08x\n", hres);
3072         if(SUCCEEDED(hres)) IUnknown_Release(unk_test);
3073
3074         hres = IOleClientSite_QueryInterface(doc_clientsite, &IID_IDocHostShowUI, (void**)&unk_test);
3075         todo_wine ok(hres == S_OK, "Got 0x%08x\n", hres);
3076         if(SUCCEEDED(hres)) IUnknown_Release(unk_test);
3077
3078         hres = IOleClientSite_QueryInterface(doc_clientsite, &IID_IDocHostUIHandler, (void**)&unk_test);
3079         ok(hres == S_OK, "Got 0x%08x\n", hres);
3080         if(SUCCEEDED(hres)) IUnknown_Release(unk_test);
3081
3082         hres = IOleClientSite_QueryInterface(doc_clientsite, &IID_IDocHostUIHandler2, (void**)&dochost);
3083         ok(hres == S_OK, "Got 0x%08x\n", hres);
3084         if(SUCCEEDED(hres)) {
3085             msg_a.message = WM_KEYDOWN;
3086             hr_dochost_TranslateAccelerator = 0xdeadbeef;
3087             for(keycode = 0; keycode <= 0x100; keycode++) {
3088                 msg_a.wParam = keycode;
3089                 SET_EXPECT(DocHost_TranslateAccelerator);
3090                 hres = IDocHostUIHandler_TranslateAccelerator(dochost, &msg_a, &CGID_MSHTML, 1234);
3091                 ok(hres == 0xdeadbeef, "Got 0x%08x\n", hres);
3092                 CHECK_CALLED(DocHost_TranslateAccelerator);
3093             }
3094             hr_dochost_TranslateAccelerator = E_NOTIMPL;
3095
3096             SET_EXPECT(DocHost_TranslateAccelerator);
3097             hres = IDocHostUIHandler_TranslateAccelerator(dochost, &msg_a, &CGID_MSHTML, 1234);
3098             ok(hres == E_NOTIMPL, "Got 0x%08x\n", hres);
3099             CHECK_CALLED(DocHost_TranslateAccelerator);
3100
3101             IDocHostUIHandler2_Release(dochost);
3102         }
3103
3104         hres = IOleClientSite_QueryInterface(doc_clientsite, &IID_IOleControlSite, (void**)&doc_controlsite);
3105         ok(hres == S_OK, "Got 0x%08x\n", hres);
3106         if(SUCCEEDED(hres)) {
3107             msg_a.message = WM_KEYDOWN;
3108             hr_site_TranslateAccelerator = 0xdeadbeef;
3109             for(keycode = 0; keycode < 0x100; keycode++) {
3110                 msg_a.wParam = keycode;
3111                 SET_EXPECT(ControlSite_TranslateAccelerator);
3112                 hres = IOleControlSite_TranslateAccelerator(doc_controlsite, &msg_a, 0);
3113                 if(keycode == 0x9 || keycode == 0x75)
3114                     todo_wine ok(hres == S_OK, "Got 0x%08x (keycode: %04x)\n", hres, keycode);
3115                 else
3116                     ok(hres == S_FALSE, "Got 0x%08x (keycode: %04x)\n", hres, keycode);
3117
3118                 CHECK_CALLED(ControlSite_TranslateAccelerator);
3119             }
3120             msg_a.wParam = VK_LEFT;
3121             SET_EXPECT(ControlSite_TranslateAccelerator);
3122             hres = IOleControlSite_TranslateAccelerator(doc_controlsite, &msg_a, 0);
3123             ok(hres == S_FALSE, "Got 0x%08x (keycode: %04x)\n", hres, keycode);
3124             CHECK_CALLED(ControlSite_TranslateAccelerator);
3125
3126             hr_site_TranslateAccelerator = S_OK;
3127             SET_EXPECT(ControlSite_TranslateAccelerator);
3128             hres = IOleControlSite_TranslateAccelerator(doc_controlsite, &msg_a, 0);
3129             ok(hres == S_OK, "Got 0x%08x (keycode: %04x)\n", hres, keycode);
3130             CHECK_CALLED(ControlSite_TranslateAccelerator);
3131
3132             hr_site_TranslateAccelerator = E_NOTIMPL;
3133             SET_EXPECT(ControlSite_TranslateAccelerator);
3134             hres = IOleControlSite_TranslateAccelerator(doc_controlsite, &msg_a, 0);
3135             ok(hres == S_FALSE, "Got 0x%08x (keycode: %04x)\n", hres, keycode);
3136             CHECK_CALLED(ControlSite_TranslateAccelerator);
3137
3138             IOleControlSite_Release(doc_controlsite);
3139         }
3140
3141         IOleClientSite_Release(doc_clientsite);
3142     }
3143
3144     test_UIActivate(unk, FALSE);
3145 }
3146
3147 static void test_dochost_qs(IUnknown *unk)
3148 {
3149     IOleClientSite *client_site;
3150     IServiceProvider *serv_prov;
3151     IUnknown *service;
3152     HRESULT hres;
3153
3154     client_site = get_dochost(unk);
3155     hres = IOleClientSite_QueryInterface(client_site, &IID_IServiceProvider, (void**)&serv_prov);
3156     IOleClientSite_Release(client_site);
3157     ok(hres == S_OK, "Could not get IServiceProvider iface: %08x\n", hres);
3158
3159     hres = IServiceProvider_QueryService(serv_prov, &IID_IHlinkFrame, &IID_IHlinkFrame, (void**)&service);
3160     ok(hres == S_OK, "QueryService failed: %08x\n", hres);
3161     ok(iface_cmp(service, unk), "service != unk\n");
3162     IUnknown_Release(service);
3163
3164     hres = IServiceProvider_QueryService(serv_prov, &IID_IWebBrowserApp, &IID_IHlinkFrame, (void**)&service);
3165     ok(hres == S_OK, "QueryService failed: %08x\n", hres);
3166     ok(iface_cmp(service, unk), "service != unk\n");
3167     IUnknown_Release(service);
3168
3169     hres = IServiceProvider_QueryService(serv_prov, &IID_IShellBrowser, &IID_IShellBrowser, (void**)&service);
3170     ok(hres == S_OK, "QueryService failed: %08x\n", hres);
3171     IUnknown_Release(service);
3172
3173     hres = IServiceProvider_QueryService(serv_prov, &IID_IShellBrowser, &IID_IBrowserService, (void**)&service);
3174     ok(hres == S_OK, "QueryService failed: %08x\n", hres);
3175     IUnknown_Release(service);
3176
3177     hres = IServiceProvider_QueryService(serv_prov, &IID_IShellBrowser, &IID_IDocObjectService, (void**)&service);
3178     ok(hres == S_OK, "QueryService failed: %08x\n", hres);
3179     IUnknown_Release(service);
3180
3181     IServiceProvider_Release(serv_prov);
3182 }
3183
3184 static void test_Close(IWebBrowser2 *wb, BOOL do_download)
3185 {
3186     IOleObject *oo;
3187     IOleClientSite *ocs;
3188     HRESULT hres;
3189
3190     hres = IWebBrowser2_QueryInterface(wb, &IID_IOleObject, (void**)&oo);
3191     ok(hres == S_OK, "QueryInterface failed: %08x\n", hres);
3192     if(hres != S_OK)
3193         return;
3194
3195     test_close = TRUE;
3196
3197     SET_EXPECT(Frame_SetActiveObject);
3198     SET_EXPECT(UIWindow_SetActiveObject);
3199     SET_EXPECT(OnUIDeactivate);
3200     SET_EXPECT(OnFocus);
3201     SET_EXPECT(OnInPlaceDeactivate);
3202     SET_EXPECT(Invoke_STATUSTEXTCHANGE);
3203     if(!do_download) {
3204         SET_EXPECT(Invoke_COMMANDSTATECHANGE);
3205         SET_EXPECT(Invoke_DOWNLOADCOMPLETE);
3206     }
3207     hres = IOleObject_Close(oo, OLECLOSE_NOSAVE);
3208     ok(hres == S_OK, "OleObject_Close failed: %x\n", hres);
3209     CHECK_CALLED(Frame_SetActiveObject);
3210     CHECK_CALLED(UIWindow_SetActiveObject);
3211     CHECK_CALLED(OnUIDeactivate);
3212     todo_wine CHECK_CALLED(OnFocus);
3213     CHECK_CALLED(OnInPlaceDeactivate);
3214     CLEAR_CALLED(Invoke_STATUSTEXTCHANGE); /* Called by IE9 */
3215     if(!do_download) {
3216         todo_wine CHECK_CALLED(Invoke_COMMANDSTATECHANGE);
3217         todo_wine CHECK_CALLED(Invoke_DOWNLOADCOMPLETE);
3218     }
3219
3220     hres = IOleObject_GetClientSite(oo, &ocs);
3221     ok(hres == S_OK, "hres = %x\n", hres);
3222     ok(!ocs, "ocs != NULL\n");
3223
3224     hres = IOleObject_Close(oo, OLECLOSE_NOSAVE);
3225     ok(hres == S_OK, "OleObject_Close failed: %x\n", hres);
3226
3227     test_close = FALSE;
3228     IOleObject_Release(oo);
3229 }
3230
3231 static void test_WebBrowser(BOOL do_download, BOOL do_close)
3232 {
3233     IUnknown *unk = NULL;
3234     ULONG ref;
3235     HRESULT hres;
3236
3237     if (FAILED(create_WebBrowser(&unk)))
3238         return;
3239
3240     is_downloading = FALSE;
3241     is_first_load = TRUE;
3242     use_container_olecmd = TRUE;
3243
3244     hres = IUnknown_QueryInterface(unk, &IID_IWebBrowser2, (void**)&wb);
3245     ok(hres == S_OK, "Could not get IWebBrowser2 iface: %08x\n", hres);
3246
3247     test_QueryStatusWB(wb, FALSE, FALSE);
3248     test_ExecWB(wb, FALSE, FALSE);
3249     test_QueryInterface(unk);
3250     test_ready_state(READYSTATE_UNINITIALIZED);
3251     test_ClassInfo(unk);
3252     test_EnumVerbs(wb);
3253     test_LocationURL(unk, "");
3254     test_ConnectionPoint(unk, TRUE);
3255     test_ClientSite(unk, &ClientSite, !do_download);
3256     test_Extent(unk);
3257     test_wb_funcs(unk, TRUE);
3258     test_DoVerb(unk);
3259     test_olecmd(unk, FALSE);
3260     test_Navigate2(unk, "about:blank");
3261     test_QueryStatusWB(wb, TRUE, TRUE);
3262     test_ExecWB(wb, TRUE, TRUE);
3263
3264     if(do_download) {
3265         IDispatch *doc, *doc2;
3266
3267         test_download(0);
3268         test_olecmd(unk, TRUE);
3269         doc = get_document(unk);
3270
3271         test_put_href(unk, "about:test");
3272         test_download(DWL_FROM_PUT_HREF);
3273         doc2 = get_document(unk);
3274         ok(doc == doc2, "doc != doc2\n");
3275         IDispatch_Release(doc2);
3276
3277         trace("Navigate2 repeated...\n");
3278         test_Navigate2(unk, "about:blank");
3279         test_download(DWL_EXPECT_BEFORE_NAVIGATE);
3280         doc2 = get_document(unk);
3281         ok(doc == doc2, "doc != doc2\n");
3282         IDispatch_Release(doc2);
3283         IDispatch_Release(doc);
3284
3285         if(!do_close) {
3286             trace("Navigate2 http URL...\n");
3287             test_ready_state(READYSTATE_COMPLETE);
3288             test_Navigate2(unk, "http://test.winehq.org/tests/hello.html");
3289             test_download(DWL_EXPECT_BEFORE_NAVIGATE|DWL_HTTP);
3290
3291             trace("put_href http URL...\n");
3292             test_put_href(unk, "http://www.winehq.org/");
3293             test_download(DWL_FROM_PUT_HREF|DWL_HTTP);
3294
3295             trace("GoBack...\n");
3296             test_go_back(unk, "http://test.winehq.org/tests/hello.html");
3297             test_download(DWL_FROM_GOBACK|DWL_HTTP);
3298         }
3299
3300         test_EnumVerbs(wb);
3301         test_TranslateAccelerator(unk);
3302
3303         test_dochost_qs(unk);
3304     }
3305
3306     if(do_close)
3307         test_Close(wb, do_download);
3308     else
3309         test_ClientSite(unk, NULL, !do_download);
3310     test_ie_funcs(unk);
3311     test_GetControlInfo(unk);
3312     test_wb_funcs(unk, FALSE);
3313     test_ConnectionPoint(unk, FALSE);
3314     test_IServiceProvider(unk);
3315
3316     IWebBrowser2_Release(wb);
3317     ref = IUnknown_Release(unk);
3318     ok(ref == 0 || broken(do_download && !do_close && ref == 1), "ref=%d, expected 0\n", ref);
3319 }
3320
3321 static void test_WebBrowserV1(void)
3322 {
3323     IWebBrowser2 *wb;
3324     ULONG ref;
3325     HRESULT hres;
3326
3327     wb_version = 1;
3328
3329     hres = CoCreateInstance(&CLSID_WebBrowser_V1, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
3330             &IID_IWebBrowser2, (void**)&wb);
3331     ok(hres == S_OK, "Could not get WebBrowserV1 instance: %08x\n", hres);
3332     trace("%08x %p\n", hres, wb);
3333
3334     test_QueryStatusWB(wb, FALSE, FALSE);
3335     test_ExecWB(wb, FALSE, FALSE);
3336     test_QueryInterface((IUnknown*)wb);
3337     test_ready_state(READYSTATE_UNINITIALIZED);
3338     test_ClassInfo((IUnknown*)wb);
3339     test_EnumVerbs(wb);
3340
3341     ref = IWebBrowser2_Release(wb);
3342     ok(ref == 0, "ref=%d, expected 0\n", ref);
3343 }
3344
3345 static void test_WebBrowser_NoContainerOlecmd(void)
3346 {
3347     IUnknown *unk = NULL;
3348     HRESULT hres;
3349     ULONG ref;
3350
3351     is_downloading = FALSE;
3352     is_first_load = TRUE;
3353     use_container_olecmd = FALSE;
3354
3355     /* Setup stage */
3356     if (FAILED(create_WebBrowser(&unk)))
3357         return;
3358     hres = IUnknown_QueryInterface(unk, &IID_IWebBrowser2, (void**)&wb);
3359     ok(hres == S_OK, "QueryInterface(IID_IWebBrowser) failed: %08x\n", hres);
3360     if(FAILED(hres))
3361         return;
3362     test_ConnectionPoint(unk, TRUE);
3363     test_ClientSite(unk, &ClientSite, TRUE);
3364     test_DoVerb(unk);
3365     test_Navigate2(unk, "about:blank");
3366
3367     /* Tests of interest */
3368     test_QueryStatusWB(wb, FALSE, TRUE);
3369     test_ExecWB(wb, FALSE, TRUE);
3370
3371     /* Cleanup stage */
3372     IWebBrowser2_Release(wb);
3373     test_ClientSite(unk, NULL, TRUE);
3374     test_ConnectionPoint(unk, FALSE);
3375     ref = IUnknown_Release(unk);
3376     ok(ref == 0, "ref=%d, expected 0\n", ref);
3377 }
3378
3379 /* Check if Internet Explorer is configured to run in "Enhanced Security Configuration" (aka hardened mode) */
3380 /* Note: this code is duplicated in dlls/mshtml/tests/mshtml_test.h and dlls/urlmon/tests/sec_mgr.c */
3381 static BOOL is_ie_hardened(void)
3382 {
3383     HKEY zone_map;
3384     DWORD ie_harden, type, size;
3385
3386     ie_harden = 0;
3387     if(RegOpenKeyEx(HKEY_CURRENT_USER, "Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\ZoneMap",
3388                     0, KEY_QUERY_VALUE, &zone_map) == ERROR_SUCCESS) {
3389         size = sizeof(DWORD);
3390         if (RegQueryValueEx(zone_map, "IEHarden", NULL, &type, (LPBYTE) &ie_harden, &size) != ERROR_SUCCESS ||
3391             type != REG_DWORD) {
3392             ie_harden = 0;
3393         }
3394     RegCloseKey(zone_map);
3395     }
3396
3397     return ie_harden != 0;
3398 }
3399
3400 START_TEST(webbrowser)
3401 {
3402     OleInitialize(NULL);
3403
3404     container_hwnd = create_container_window();
3405
3406     trace("Testing WebBrowser (no download)...\n");
3407     test_WebBrowser(FALSE, FALSE);
3408     test_WebBrowser(FALSE, TRUE);
3409
3410     if(!is_ie_hardened()) {
3411         trace("Testing WebBrowser...\n");
3412         test_WebBrowser(TRUE, FALSE);
3413     }else {
3414         win_skip("Skipping http tests in hardened mode\n");
3415     }
3416
3417     trace("Testing WebBrowser (with close)...\n");
3418     test_WebBrowser(TRUE, TRUE);
3419     trace("Testing WebBrowser w/o container-based olecmd...\n");
3420     test_WebBrowser_NoContainerOlecmd();
3421     trace("Testing WebBrowserV1...\n");
3422     test_WebBrowserV1();
3423
3424     OleUninitialize();
3425 }