Release 1.4.1.
[wine] / 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_ie_funcs(IUnknown *unk)
1950 {
1951     IWebBrowser2 *wb;
1952     IDispatch *disp;
1953     VARIANT_BOOL b;
1954     int i;
1955     LONG hwnd;
1956     HRESULT hres;
1957     BSTR sName;
1958
1959     hres = IUnknown_QueryInterface(unk, &IID_IWebBrowser2, (void**)&wb);
1960     ok(hres == S_OK, "Could not get IWebBrowser2 interface: %08x\n", hres);
1961     if(FAILED(hres))
1962         return;
1963
1964     /* HWND */
1965
1966     hwnd = 0xdeadbeef;
1967     hres = IWebBrowser2_get_HWND(wb, &hwnd);
1968     ok(hres == E_FAIL, "get_HWND failed: %08x, expected E_FAIL\n", hres);
1969     ok(hwnd == 0, "unexpected hwnd %x\n", hwnd);
1970
1971     /* MenuBar */
1972
1973     hres = IWebBrowser2_get_MenuBar(wb, &b);
1974     ok(hres == S_OK, "get_MenuBar failed: %08x\n", hres);
1975     ok(b == VARIANT_TRUE, "b=%x\n", b);
1976
1977     SET_EXPECT(Invoke_ONMENUBAR);
1978     hres = IWebBrowser2_put_MenuBar(wb, (exvb = VARIANT_FALSE));
1979     ok(hres == S_OK, "put_MenuBar failed: %08x\n", hres);
1980     CHECK_CALLED(Invoke_ONMENUBAR);
1981
1982     hres = IWebBrowser2_get_MenuBar(wb, &b);
1983     ok(hres == S_OK, "get_MenuBar failed: %08x\n", hres);
1984     ok(b == VARIANT_FALSE, "b=%x\n", b);
1985
1986     SET_EXPECT(Invoke_ONMENUBAR);
1987     hres = IWebBrowser2_put_MenuBar(wb, (exvb = 100));
1988     ok(hres == S_OK, "put_MenuBar failed: %08x\n", hres);
1989     CHECK_CALLED(Invoke_ONMENUBAR);
1990
1991     hres = IWebBrowser2_get_MenuBar(wb, &b);
1992     ok(hres == S_OK, "get_MenuBar failed: %08x\n", hres);
1993     ok(b == VARIANT_TRUE, "b=%x\n", b);
1994
1995     /* AddressBar */
1996
1997     hres = IWebBrowser2_get_AddressBar(wb, &b);
1998     ok(hres == S_OK, "get_AddressBar failed: %08x\n", hres);
1999     ok(b == VARIANT_TRUE, "b=%x\n", b);
2000
2001     SET_EXPECT(Invoke_ONADDRESSBAR);
2002     hres = IWebBrowser2_put_AddressBar(wb, (exvb = VARIANT_FALSE));
2003     ok(hres == S_OK, "put_AddressBar failed: %08x\n", hres);
2004     CHECK_CALLED(Invoke_ONADDRESSBAR);
2005
2006     hres = IWebBrowser2_get_AddressBar(wb, &b);
2007     ok(hres == S_OK, "get_MenuBar failed: %08x\n", hres);
2008     ok(b == VARIANT_FALSE, "b=%x\n", b);
2009
2010     SET_EXPECT(Invoke_ONADDRESSBAR);
2011     hres = IWebBrowser2_put_AddressBar(wb, (exvb = 100));
2012     ok(hres == S_OK, "put_AddressBar failed: %08x\n", hres);
2013     CHECK_CALLED(Invoke_ONADDRESSBAR);
2014
2015     hres = IWebBrowser2_get_AddressBar(wb, &b);
2016     ok(hres == S_OK, "get_AddressBar failed: %08x\n", hres);
2017     ok(b == VARIANT_TRUE, "b=%x\n", b);
2018
2019     SET_EXPECT(Invoke_ONADDRESSBAR);
2020     hres = IWebBrowser2_put_AddressBar(wb, (exvb = VARIANT_TRUE));
2021     ok(hres == S_OK, "put_MenuBar failed: %08x\n", hres);
2022     CHECK_CALLED(Invoke_ONADDRESSBAR);
2023
2024     /* StatusBar */
2025
2026     hres = IWebBrowser2_get_StatusBar(wb, &b);
2027     ok(hres == S_OK, "get_StatusBar failed: %08x\n", hres);
2028     ok(b == VARIANT_TRUE, "b=%x\n", b);
2029
2030     SET_EXPECT(Invoke_ONSTATUSBAR);
2031     hres = IWebBrowser2_put_StatusBar(wb, (exvb = VARIANT_TRUE));
2032     ok(hres == S_OK, "put_StatusBar failed: %08x\n", hres);
2033     CHECK_CALLED(Invoke_ONSTATUSBAR);
2034
2035     hres = IWebBrowser2_get_StatusBar(wb, &b);
2036     ok(hres == S_OK, "get_StatusBar failed: %08x\n", hres);
2037     ok(b == VARIANT_TRUE, "b=%x\n", b);
2038
2039     SET_EXPECT(Invoke_ONSTATUSBAR);
2040     hres = IWebBrowser2_put_StatusBar(wb, (exvb = VARIANT_FALSE));
2041     ok(hres == S_OK, "put_StatusBar failed: %08x\n", hres);
2042     CHECK_CALLED(Invoke_ONSTATUSBAR);
2043
2044     hres = IWebBrowser2_get_StatusBar(wb, &b);
2045     ok(hres == S_OK, "get_StatusBar failed: %08x\n", hres);
2046     ok(b == VARIANT_FALSE, "b=%x\n", b);
2047
2048     SET_EXPECT(Invoke_ONSTATUSBAR);
2049     hres = IWebBrowser2_put_StatusBar(wb, (exvb = 100));
2050     ok(hres == S_OK, "put_StatusBar failed: %08x\n", hres);
2051     CHECK_CALLED(Invoke_ONSTATUSBAR);
2052
2053     hres = IWebBrowser2_get_StatusBar(wb, &b);
2054     ok(hres == S_OK, "get_StatusBar failed: %08x\n", hres);
2055     ok(b == VARIANT_TRUE, "b=%x\n", b);
2056
2057     /* ToolBar */
2058
2059     hres = IWebBrowser2_get_ToolBar(wb, &i);
2060     ok(hres == S_OK, "get_ToolBar failed: %08x\n", hres);
2061     ok(i, "i=%x\n", i);
2062
2063     SET_EXPECT(Invoke_ONTOOLBAR);
2064     hres = IWebBrowser2_put_ToolBar(wb, (exvb = VARIANT_FALSE));
2065     ok(hres == S_OK, "put_ToolBar failed: %08x\n", hres);
2066     CHECK_CALLED(Invoke_ONTOOLBAR);
2067
2068     hres = IWebBrowser2_get_ToolBar(wb, &i);
2069     ok(hres == S_OK, "get_ToolBar failed: %08x\n", hres);
2070     ok(i == VARIANT_FALSE, "b=%x\n", i);
2071
2072     SET_EXPECT(Invoke_ONTOOLBAR);
2073     hres = IWebBrowser2_put_ToolBar(wb, (exvb = 100));
2074     ok(hres == S_OK, "put_ToolBar failed: %08x\n", hres);
2075     CHECK_CALLED(Invoke_ONTOOLBAR);
2076
2077     hres = IWebBrowser2_get_ToolBar(wb, &i);
2078     ok(hres == S_OK, "get_ToolBar failed: %08x\n", hres);
2079     ok(i, "i=%x\n", i);
2080
2081     SET_EXPECT(Invoke_ONTOOLBAR);
2082     hres = IWebBrowser2_put_ToolBar(wb, (exvb = VARIANT_TRUE));
2083     ok(hres == S_OK, "put_ToolBar failed: %08x\n", hres);
2084     CHECK_CALLED(Invoke_ONTOOLBAR);
2085
2086     /* FullScreen */
2087
2088     hres = IWebBrowser2_get_FullScreen(wb, &b);
2089     ok(hres == S_OK, "get_FullScreen failed: %08x\n", hres);
2090     ok(b == VARIANT_FALSE, "b=%x\n", b);
2091
2092     SET_EXPECT(Invoke_ONFULLSCREEN);
2093     hres = IWebBrowser2_put_FullScreen(wb, (exvb = VARIANT_TRUE));
2094     ok(hres == S_OK, "put_FullScreen failed: %08x\n", hres);
2095     CHECK_CALLED(Invoke_ONFULLSCREEN);
2096
2097     hres = IWebBrowser2_get_FullScreen(wb, &b);
2098     ok(hres == S_OK, "get_FullScreen failed: %08x\n", hres);
2099     ok(b == VARIANT_TRUE, "b=%x\n", b);
2100
2101     SET_EXPECT(Invoke_ONFULLSCREEN);
2102     hres = IWebBrowser2_put_FullScreen(wb, (exvb = 100));
2103     ok(hres == S_OK, "put_FullScreen failed: %08x\n", hres);
2104     CHECK_CALLED(Invoke_ONFULLSCREEN);
2105
2106     hres = IWebBrowser2_get_FullScreen(wb, &b);
2107     ok(hres == S_OK, "get_FullScreen failed: %08x\n", hres);
2108     ok(b == VARIANT_TRUE, "b=%x\n", b);
2109
2110     SET_EXPECT(Invoke_ONFULLSCREEN);
2111     hres = IWebBrowser2_put_FullScreen(wb, (exvb = VARIANT_FALSE));
2112     ok(hres == S_OK, "put_FullScreen failed: %08x\n", hres);
2113     CHECK_CALLED(Invoke_ONFULLSCREEN);
2114
2115     /* TheaterMode */
2116
2117     hres = IWebBrowser2_get_TheaterMode(wb, &b);
2118     ok(hres == S_OK, "get_TheaterMode failed: %08x\n", hres);
2119     ok(b == VARIANT_FALSE, "b=%x\n", b);
2120
2121     SET_EXPECT(Invoke_ONTHEATERMODE);
2122     hres = IWebBrowser2_put_TheaterMode(wb, (exvb = VARIANT_TRUE));
2123     ok(hres == S_OK, "put_TheaterMode failed: %08x\n", hres);
2124     CHECK_CALLED(Invoke_ONTHEATERMODE);
2125
2126     hres = IWebBrowser2_get_TheaterMode(wb, &b);
2127     ok(hres == S_OK, "get_TheaterMode failed: %08x\n", hres);
2128     ok(b == VARIANT_TRUE, "b=%x\n", b);
2129
2130     SET_EXPECT(Invoke_ONTHEATERMODE);
2131     hres = IWebBrowser2_put_TheaterMode(wb, (exvb = 100));
2132     ok(hres == S_OK, "put_TheaterMode failed: %08x\n", hres);
2133     CHECK_CALLED(Invoke_ONTHEATERMODE);
2134
2135     hres = IWebBrowser2_get_TheaterMode(wb, &b);
2136     ok(hres == S_OK, "get_TheaterMode failed: %08x\n", hres);
2137     ok(b == VARIANT_TRUE, "b=%x\n", b);
2138
2139     SET_EXPECT(Invoke_ONTHEATERMODE);
2140     hres = IWebBrowser2_put_TheaterMode(wb, (exvb = VARIANT_FALSE));
2141     ok(hres == S_OK, "put_TheaterMode failed: %08x\n", hres);
2142     CHECK_CALLED(Invoke_ONTHEATERMODE);
2143
2144     /* Resizable */
2145
2146     b = 0x100;
2147     hres = IWebBrowser2_get_Resizable(wb, &b);
2148     ok(hres == E_NOTIMPL, "get_Resizable failed: %08x\n", hres);
2149     ok(b == 0x100, "b=%x\n", b);
2150
2151     SET_EXPECT(Invoke_WINDOWSETRESIZABLE);
2152     hres = IWebBrowser2_put_Resizable(wb, (exvb = VARIANT_TRUE));
2153     ok(hres == S_OK, "put_Resizable failed: %08x\n", hres);
2154     CHECK_CALLED(Invoke_WINDOWSETRESIZABLE);
2155
2156     SET_EXPECT(Invoke_WINDOWSETRESIZABLE);
2157     hres = IWebBrowser2_put_Resizable(wb, (exvb = VARIANT_FALSE));
2158     ok(hres == S_OK, "put_Resizable failed: %08x\n", hres);
2159     CHECK_CALLED(Invoke_WINDOWSETRESIZABLE);
2160
2161     hres = IWebBrowser2_get_Resizable(wb, &b);
2162     ok(hres == E_NOTIMPL, "get_Resizable failed: %08x\n", hres);
2163     ok(b == 0x100, "b=%x\n", b);
2164
2165     /* Application */
2166
2167     disp = NULL;
2168     hres = IWebBrowser2_get_Application(wb, &disp);
2169     ok(hres == S_OK, "get_Application failed: %08x\n", hres);
2170     ok(disp == (void*)wb, "disp=%p, expected %p\n", disp, wb);
2171     if(disp)
2172         IDispatch_Release(disp);
2173
2174     hres = IWebBrowser2_get_Application(wb, NULL);
2175     ok(hres == E_POINTER, "get_Application failed: %08x, expected E_POINTER\n", hres);
2176
2177     /* Name */
2178     hres = IWebBrowser2_get_Name(wb, &sName);
2179     ok(hres == S_OK, "getName failed: %08x, expected S_OK\n", hres);
2180     if (is_lang_english())
2181         ok(!strcmp_wa(sName, "Microsoft Web Browser Control"), "got '%s', expected 'Microsoft Web Browser Control'\n", wine_dbgstr_w(sName));
2182     else /* Non-English cannot be blank. */
2183         ok(sName!=NULL, "get_Name return a NULL string.\n");
2184     SysFreeString(sName);
2185
2186     /* Quit */
2187
2188     hres = IWebBrowser2_Quit(wb);
2189     ok(hres == E_FAIL, "Quit failed: %08x, expected E_FAIL\n", hres);
2190
2191     IWebBrowser2_Release(wb);
2192 }
2193
2194 static void test_Silent(IWebBrowser2 *wb, IOleControl *control, BOOL is_clientsite)
2195 {
2196     VARIANT_BOOL b;
2197     HRESULT hres;
2198
2199     b = 100;
2200     hres = IWebBrowser2_get_Silent(wb, &b);
2201     ok(hres == S_OK, "get_Silent failed: %08x\n", hres);
2202     ok(b == VARIANT_FALSE, "b=%x\n", b);
2203
2204     hres = IWebBrowser2_put_Silent(wb, VARIANT_TRUE);
2205     ok(hres == S_OK, "set_Silent failed: %08x\n", hres);
2206
2207     b = 100;
2208     hres = IWebBrowser2_get_Silent(wb, &b);
2209     ok(hres == S_OK, "get_Silent failed: %08x\n", hres);
2210     ok(b == VARIANT_TRUE, "b=%x\n", b);
2211
2212     hres = IWebBrowser2_put_Silent(wb, 100);
2213     ok(hres == S_OK, "set_Silent failed: %08x\n", hres);
2214
2215     b = 100;
2216     hres = IWebBrowser2_get_Silent(wb, &b);
2217     ok(hres == S_OK, "get_Silent failed: %08x\n", hres);
2218     ok(b == VARIANT_TRUE, "b=%x\n", b);
2219
2220     hres = IWebBrowser2_put_Silent(wb, VARIANT_FALSE);
2221     ok(hres == S_OK, "set_Silent failed: %08x\n", hres);
2222
2223     b = 100;
2224     hres = IWebBrowser2_get_Silent(wb, &b);
2225     ok(hres == S_OK, "get_Silent failed: %08x\n", hres);
2226     ok(b == VARIANT_FALSE, "b=%x\n", b);
2227
2228     if(is_clientsite) {
2229         hres = IWebBrowser2_put_Silent(wb, VARIANT_TRUE);
2230         ok(hres == S_OK, "set_Silent failed: %08x\n", hres);
2231
2232         SET_EXPECT(Invoke_AMBIENT_SILENT);
2233     }
2234
2235     hres = IOleControl_OnAmbientPropertyChange(control, DISPID_AMBIENT_SILENT);
2236     ok(hres == S_OK, "OnAmbientPropertyChange failed %08x\n", hres);
2237
2238     if(is_clientsite)
2239         CHECK_CALLED(Invoke_AMBIENT_SILENT);
2240
2241     b = 100;
2242     hres = IWebBrowser2_get_Silent(wb, &b);
2243     ok(hres == S_OK, "get_Silent failed: %08x\n", hres);
2244     ok(b == VARIANT_FALSE, "b=%x\n", b);
2245 }
2246
2247 static void test_Offline(IWebBrowser2 *wb, IOleControl *control, BOOL is_clientsite)
2248 {
2249     VARIANT_BOOL b;
2250     HRESULT hres;
2251
2252     b = 100;
2253     hres = IWebBrowser2_get_Offline(wb, &b);
2254     ok(hres == S_OK, "get_Offline failed: %08x\n", hres);
2255     ok(b == VARIANT_FALSE, "b=%x\n", b);
2256
2257     hres = IWebBrowser2_put_Offline(wb, VARIANT_TRUE);
2258     ok(hres == S_OK, "set_Offline failed: %08x\n", hres);
2259
2260     b = 100;
2261     hres = IWebBrowser2_get_Offline(wb, &b);
2262     ok(hres == S_OK, "get_Offline failed: %08x\n", hres);
2263     ok(b == VARIANT_TRUE, "b=%x\n", b);
2264
2265     hres = IWebBrowser2_put_Offline(wb, 100);
2266     ok(hres == S_OK, "set_Offline failed: %08x\n", hres);
2267
2268     b = 100;
2269     hres = IWebBrowser2_get_Offline(wb, &b);
2270     ok(hres == S_OK, "get_Offline failed: %08x\n", hres);
2271     ok(b == VARIANT_TRUE, "b=%x\n", b);
2272
2273     hres = IWebBrowser2_put_Offline(wb, VARIANT_FALSE);
2274     ok(hres == S_OK, "set_Offline failed: %08x\n", hres);
2275
2276     b = 100;
2277     hres = IWebBrowser2_get_Offline(wb, &b);
2278     ok(hres == S_OK, "get_Offline failed: %08x\n", hres);
2279     ok(b == VARIANT_FALSE, "b=%x\n", b);
2280
2281     if(is_clientsite) {
2282         hres = IWebBrowser2_put_Offline(wb, VARIANT_TRUE);
2283         ok(hres == S_OK, "set_Offline failed: %08x\n", hres);
2284
2285         SET_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
2286     }
2287
2288     hres = IOleControl_OnAmbientPropertyChange(control, DISPID_AMBIENT_OFFLINEIFNOTCONNECTED);
2289     ok(hres == S_OK, "OnAmbientPropertyChange failed %08x\n", hres);
2290
2291     if(is_clientsite)
2292         CHECK_CALLED(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
2293
2294     b = 100;
2295     hres = IWebBrowser2_get_Offline(wb, &b);
2296     ok(hres == S_OK, "get_Offline failed: %08x\n", hres);
2297     ok(b == VARIANT_FALSE, "b=%x\n", b);
2298 }
2299
2300 static void test_ambient_unknown(IWebBrowser2 *wb, IOleControl *control, BOOL is_clientsite)
2301 {
2302     HRESULT hres;
2303
2304     SET_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
2305     SET_EXPECT(Invoke_AMBIENT_SILENT);
2306     SET_EXPECT(Invoke_AMBIENT_USERMODE);
2307     SET_EXPECT(Invoke_AMBIENT_DLCONTROL);
2308     SET_EXPECT(Invoke_AMBIENT_USERAGENT);
2309     SET_EXPECT(Invoke_AMBIENT_PALETTE);
2310
2311     hres = IOleControl_OnAmbientPropertyChange(control, DISPID_UNKNOWN);
2312     ok(hres == S_OK, "OnAmbientPropertyChange failed %08x\n", hres);
2313
2314     CHECK_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
2315     CHECK_EXPECT(Invoke_AMBIENT_SILENT);
2316     CHECK_EXPECT(Invoke_AMBIENT_USERMODE);
2317     CHECK_EXPECT(Invoke_AMBIENT_DLCONTROL);
2318     CHECK_EXPECT(Invoke_AMBIENT_USERAGENT);
2319     CHECK_EXPECT(Invoke_AMBIENT_PALETTE);
2320
2321     CLEAR_CALLED(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
2322     CLEAR_CALLED(Invoke_AMBIENT_SILENT);
2323     CLEAR_CALLED(Invoke_AMBIENT_USERMODE);
2324     CLEAR_CALLED(Invoke_AMBIENT_DLCONTROL);
2325     CLEAR_CALLED(Invoke_AMBIENT_USERAGENT);
2326     CLEAR_CALLED(Invoke_AMBIENT_PALETTE);
2327 }
2328
2329 static void test_wb_funcs(IUnknown *unk, BOOL is_clientsite)
2330 {
2331     IWebBrowser2 *wb;
2332     IOleControl *control;
2333     HRESULT hres;
2334
2335     hres = IUnknown_QueryInterface(unk, &IID_IWebBrowser2, (void**)&wb);
2336     ok(hres == S_OK, "Could not get IWebBrowser2 interface: %08x\n", hres);
2337
2338     hres = IUnknown_QueryInterface(unk, &IID_IOleControl, (void**)&control);
2339     ok(hres == S_OK, "Could not get IOleControl interface: %08x\n", hres);
2340
2341     test_Silent(wb, control, is_clientsite);
2342     test_Offline(wb, control, is_clientsite);
2343     test_ambient_unknown(wb, control, is_clientsite);
2344
2345     IWebBrowser_Release(wb);
2346     IOleControl_Release(control);
2347 }
2348
2349 static void test_GetControlInfo(IUnknown *unk)
2350 {
2351     IOleControl *control;
2352     CONTROLINFO info;
2353     HRESULT hres;
2354
2355     hres = IUnknown_QueryInterface(unk, &IID_IOleControl, (void**)&control);
2356     ok(hres == S_OK, "Could not get IOleControl: %08x\n", hres);
2357     if(FAILED(hres))
2358         return;
2359
2360     hres = IOleControl_GetControlInfo(control, &info);
2361     ok(hres == E_NOTIMPL, "GetControlInfo failed: %08x, expected E_NOTIMPL\n", hres);
2362     hres = IOleControl_GetControlInfo(control, NULL);
2363     ok(hres == E_NOTIMPL, "GetControlInfo failed: %08x, expected E_NOTIMPL\n", hres);
2364
2365     IOleControl_Release(control);
2366 }
2367
2368 static void test_Extent(IUnknown *unk)
2369 {
2370     IOleObject *oleobj;
2371     SIZE size, expected;
2372     HRESULT hres;
2373     DWORD dpi_x;
2374     DWORD dpi_y;
2375     HDC hdc;
2376
2377     /* default aspect ratio is 96dpi / 96dpi */
2378     hdc = GetDC(0);
2379     dpi_x = GetDeviceCaps(hdc, LOGPIXELSX);
2380     dpi_y = GetDeviceCaps(hdc, LOGPIXELSY);
2381     ReleaseDC(0, hdc);
2382     if (dpi_x != 96 || dpi_y != 96)
2383         trace("dpi: %d / %d\n", dpi_y, dpi_y);
2384
2385     hres = IUnknown_QueryInterface(unk, &IID_IOleObject, (void**)&oleobj);
2386     ok(hres == S_OK, "Could not get IOleObkect: %08x\n", hres);
2387     if(FAILED(hres))
2388         return;
2389
2390     size.cx = size.cy = 0xdeadbeef;
2391     hres = IOleObject_GetExtent(oleobj, DVASPECT_CONTENT, &size);
2392     ok(hres == S_OK, "GetExtent failed: %08x\n", hres);
2393     /* Default size is 50x20 pixels, in himetric units */
2394     expected.cx = MulDiv( 50, 2540, dpi_x );
2395     expected.cy = MulDiv( 20, 2540, dpi_y );
2396     ok(size.cx == expected.cx && size.cy == expected.cy, "size = {%d %d} (expected %d %d)\n",
2397        size.cx, size.cy, expected.cx, expected.cy );
2398
2399     size.cx = 800;
2400     size.cy = 700;
2401     hres = IOleObject_SetExtent(oleobj, DVASPECT_CONTENT, &size);
2402     ok(hres == S_OK, "SetExtent failed: %08x\n", hres);
2403
2404     size.cx = size.cy = 0xdeadbeef;
2405     hres = IOleObject_GetExtent(oleobj, DVASPECT_CONTENT, &size);
2406     ok(hres == S_OK, "GetExtent failed: %08x\n", hres);
2407     ok(size.cx == 800 && size.cy == 700, "size = {%d %d}\n", size.cx, size.cy);
2408
2409     size.cx = size.cy = 0xdeadbeef;
2410     hres = IOleObject_GetExtent(oleobj, 0, &size);
2411     ok(hres == S_OK, "GetExtent failed: %08x\n", hres);
2412     ok(size.cx == 800 && size.cy == 700, "size = {%d %d}\n", size.cx, size.cy);
2413
2414     size.cx = 900;
2415     size.cy = 800;
2416     hres = IOleObject_SetExtent(oleobj, 0, &size);
2417     ok(hres == S_OK, "SetExtent failed: %08x\n", hres);
2418
2419     size.cx = size.cy = 0xdeadbeef;
2420     hres = IOleObject_GetExtent(oleobj, 0, &size);
2421     ok(hres == S_OK, "GetExtent failed: %08x\n", hres);
2422     ok(size.cx == 900 && size.cy == 800, "size = {%d %d}\n", size.cx, size.cy);
2423
2424     size.cx = size.cy = 0xdeadbeef;
2425     hres = IOleObject_GetExtent(oleobj, 0xdeadbeef, &size);
2426     ok(hres == S_OK, "GetExtent failed: %08x\n", hres);
2427     ok(size.cx == 900 && size.cy == 800, "size = {%d %d}\n", size.cx, size.cy);
2428
2429     size.cx = 1000;
2430     size.cy = 900;
2431     hres = IOleObject_SetExtent(oleobj, 0xdeadbeef, &size);
2432     ok(hres == S_OK, "SetExtent failed: %08x\n", hres);
2433
2434     size.cx = size.cy = 0xdeadbeef;
2435     hres = IOleObject_GetExtent(oleobj, 0xdeadbeef, &size);
2436     ok(hres == S_OK, "GetExtent failed: %08x\n", hres);
2437     ok(size.cx == 1000 && size.cy == 900, "size = {%d %d}\n", size.cx, size.cy);
2438
2439     size.cx = size.cy = 0xdeadbeef;
2440     hres = IOleObject_GetExtent(oleobj, DVASPECT_CONTENT, &size);
2441     ok(hres == S_OK, "GetExtent failed: %08x\n", hres);
2442     ok(size.cx == 1000 && size.cy == 900, "size = {%d %d}\n", size.cx, size.cy);
2443
2444     IOleObject_Release(oleobj);
2445 }
2446
2447 static void test_ConnectionPoint(IUnknown *unk, BOOL init)
2448 {
2449     IConnectionPointContainer *container;
2450     IConnectionPoint *point;
2451     HRESULT hres;
2452
2453     static DWORD dw = 100;
2454
2455     hres = IUnknown_QueryInterface(unk, &IID_IConnectionPointContainer, (void**)&container);
2456     ok(hres == S_OK, "QueryInterface(IID_IConnectionPointContainer) failed: %08x\n", hres);
2457     if(FAILED(hres))
2458         return;
2459
2460     hres = IConnectionPointContainer_FindConnectionPoint(container, &DIID_DWebBrowserEvents2, &point);
2461     IConnectionPointContainer_Release(container);
2462     ok(hres == S_OK, "FindConnectionPoint failed: %08x\n", hres);
2463     if(FAILED(hres))
2464         return;
2465
2466     if(init) {
2467         hres = IConnectionPoint_Advise(point, (IUnknown*)&WebBrowserEvents2, &dw);
2468         ok(hres == S_OK, "Advise failed: %08x\n", hres);
2469         ok(dw == 1, "dw=%d, expected 1\n", dw);
2470     }else {
2471         hres = IConnectionPoint_Unadvise(point, dw);
2472         ok(hres == S_OK, "Unadvise failed: %08x\n", hres);
2473     }
2474
2475     IConnectionPoint_Release(point);
2476 }
2477
2478 static void test_Navigate2(IUnknown *unk, const char *nav_url)
2479 {
2480     IWebBrowser2 *webbrowser;
2481     VARIANT url;
2482     HRESULT hres;
2483
2484     hres = IUnknown_QueryInterface(unk, &IID_IWebBrowser2, (void**)&webbrowser);
2485     ok(hres == S_OK, "QueryInterface(IID_IWebBrowser) failed: %08x\n", hres);
2486     if(FAILED(hres))
2487         return;
2488
2489     test_LocationURL(unk, is_first_load ? "" : current_url);
2490     test_ready_state(is_first_load ? READYSTATE_UNINITIALIZED : READYSTATE_COMPLETE);
2491
2492     is_http = !memcmp(nav_url, "http:", 5);
2493     V_VT(&url) = VT_BSTR;
2494     V_BSTR(&url) = a2bstr(current_url = nav_url);
2495
2496     if(is_first_load) {
2497         SET_EXPECT(Invoke_AMBIENT_USERMODE);
2498         SET_EXPECT(Invoke_PROPERTYCHANGE);
2499         SET_EXPECT(Invoke_BEFORENAVIGATE2);
2500         SET_EXPECT(Invoke_DOWNLOADBEGIN);
2501         if (use_container_olecmd) SET_EXPECT(Exec_SETDOWNLOADSTATE_1);
2502         SET_EXPECT(EnableModeless_FALSE);
2503         SET_EXPECT(Invoke_STATUSTEXTCHANGE);
2504         SET_EXPECT(SetStatusText);
2505         SET_EXPECT(GetHostInfo);
2506         SET_EXPECT(Invoke_AMBIENT_DLCONTROL);
2507         SET_EXPECT(Invoke_AMBIENT_USERAGENT);
2508         SET_EXPECT(Invoke_AMBIENT_PALETTE);
2509         SET_EXPECT(GetOptionKeyPath);
2510         SET_EXPECT(GetOverridesKeyPath);
2511         if (use_container_olecmd) SET_EXPECT(QueryStatus_SETPROGRESSTEXT);
2512         if (use_container_olecmd) SET_EXPECT(Exec_SETPROGRESSMAX);
2513         if (use_container_olecmd) SET_EXPECT(Exec_SETPROGRESSPOS);
2514         SET_EXPECT(Invoke_SETSECURELOCKICON);
2515         SET_EXPECT(Invoke_FILEDOWNLOAD);
2516         if (use_container_olecmd) SET_EXPECT(Exec_SETDOWNLOADSTATE_0);
2517         SET_EXPECT(Invoke_COMMANDSTATECHANGE);
2518         SET_EXPECT(EnableModeless_TRUE);
2519         if (!use_container_olecmd) SET_EXPECT(Invoke_DOWNLOADCOMPLETE);
2520     }
2521
2522     hres = IWebBrowser2_Navigate2(webbrowser, &url, NULL, NULL, NULL, NULL);
2523     ok(hres == S_OK, "Navigate2 failed: %08x\n", hres);
2524
2525     if(is_first_load) {
2526         CHECK_CALLED(Invoke_AMBIENT_USERMODE);
2527         todo_wine CHECK_CALLED(Invoke_PROPERTYCHANGE);
2528         CHECK_CALLED(Invoke_BEFORENAVIGATE2);
2529         todo_wine CHECK_CALLED(Invoke_DOWNLOADBEGIN);
2530         if (use_container_olecmd) todo_wine CHECK_CALLED(Exec_SETDOWNLOADSTATE_1);
2531         CHECK_CALLED(EnableModeless_FALSE);
2532         CHECK_CALLED(Invoke_STATUSTEXTCHANGE);
2533         CHECK_CALLED(SetStatusText);
2534         CHECK_CALLED(GetHostInfo);
2535         CHECK_CALLED(Invoke_AMBIENT_DLCONTROL);
2536         CHECK_CALLED(Invoke_AMBIENT_USERAGENT);
2537         CLEAR_CALLED(Invoke_AMBIENT_PALETTE); /* Not called by IE9 */
2538         CLEAR_CALLED(GetOptionKeyPath);
2539         CHECK_CALLED(GetOverridesKeyPath);
2540         if (use_container_olecmd) todo_wine CHECK_CALLED(QueryStatus_SETPROGRESSTEXT);
2541         if (use_container_olecmd) todo_wine CHECK_CALLED(Exec_SETPROGRESSMAX);
2542         if (use_container_olecmd) todo_wine CHECK_CALLED(Exec_SETPROGRESSPOS);
2543         todo_wine CHECK_CALLED(Invoke_SETSECURELOCKICON);
2544         todo_wine CHECK_CALLED(Invoke_FILEDOWNLOAD);
2545         todo_wine CHECK_CALLED(Invoke_COMMANDSTATECHANGE);
2546         if (use_container_olecmd) todo_wine CHECK_CALLED(Exec_SETDOWNLOADSTATE_0);
2547         CHECK_CALLED(EnableModeless_TRUE);
2548     }
2549
2550     VariantClear(&url);
2551     IWebBrowser2_Release(webbrowser);
2552
2553     test_ready_state(READYSTATE_LOADING);
2554 }
2555
2556 static void test_QueryStatusWB(IWebBrowser2 *webbrowser, BOOL use_custom_target, BOOL has_document)
2557 {
2558     HRESULT hres, success_state;
2559     OLECMDF success_flags;
2560     enum OLECMDF status;
2561
2562     /*
2563      * We can tell the difference between the custom container target and the built-in target
2564      * since the custom target returns OLECMDF_SUPPORTED instead of OLECMDF_ENABLED.
2565      */
2566     if (use_custom_target)
2567         success_flags = OLECMDF_SUPPORTED;
2568     else
2569         success_flags = OLECMDF_ENABLED;
2570
2571     /* When no target is available (no document or custom target) an error is returned */
2572     if (has_document)
2573         success_state = S_OK;
2574     else
2575         success_state = E_UNEXPECTED;
2576
2577     /*
2578      * Test a safe operation that exists as both a high-numbered MSHTML id and an OLECMDID.
2579      * These tests show that QueryStatusWB uses a NULL pguidCmdGroup, since OLECMDID_STOP
2580      * is enabled and IDM_STOP is not.
2581      */
2582     status = 0xdeadbeef;
2583     if (use_custom_target) SET_EXPECT(QueryStatus_STOP);
2584     hres = IWebBrowser2_QueryStatusWB(webbrowser, OLECMDID_STOP, &status);
2585     ok(hres == success_state, "QueryStatusWB failed: %08x %08x\n", hres, success_state);
2586     if (!use_custom_target && has_document)
2587         todo_wine ok((has_document && status == success_flags) || (!has_document && status == 0xdeadbeef),
2588                      "OLECMDID_STOP not enabled/supported: %08x %08x\n", status, success_flags);
2589     else
2590         ok((has_document && status == success_flags) || (!has_document && status == 0xdeadbeef),
2591            "OLECMDID_STOP not enabled/supported: %08x %08x\n", status, success_flags);
2592     status = 0xdeadbeef;
2593     if (use_custom_target) SET_EXPECT(QueryStatus_IDM_STOP);
2594     hres = IWebBrowser2_QueryStatusWB(webbrowser, IDM_STOP, &status);
2595     ok(hres == success_state, "QueryStatusWB failed: %08x %08x\n", hres, success_state);
2596     ok((has_document && status == 0) || (!has_document && status == 0xdeadbeef),
2597        "IDM_STOP is enabled/supported: %08x %d\n", status, has_document);
2598 }
2599
2600 static void test_ExecWB(IWebBrowser2 *webbrowser, BOOL use_custom_target, BOOL has_document)
2601 {
2602     HRESULT hres, olecmdid_state, idm_state;
2603
2604     /* When no target is available (no document or custom target) an error is returned */
2605     if (has_document)
2606     {
2607         olecmdid_state = S_OK;
2608         idm_state = OLECMDERR_E_NOTSUPPORTED;
2609     }
2610     else
2611     {
2612         olecmdid_state = E_UNEXPECTED;
2613         idm_state = E_UNEXPECTED;
2614     }
2615
2616     /*
2617      * Test a safe operation that exists as both a high-numbered MSHTML id and an OLECMDID.
2618      * These tests show that QueryStatusWB uses a NULL pguidCmdGroup, since OLECMDID_STOP
2619      * succeeds (S_OK) and IDM_STOP does not (OLECMDERR_E_NOTSUPPORTED).
2620      */
2621     if(use_custom_target) {
2622         SET_EXPECT(Exec_STOP);
2623     }else if(has_document) {
2624         SET_EXPECT(Invoke_STATUSTEXTCHANGE);
2625         SET_EXPECT(SetStatusText);
2626     }
2627     hres = IWebBrowser2_ExecWB(webbrowser, OLECMDID_STOP, OLECMDEXECOPT_DONTPROMPTUSER, 0, 0);
2628     if(!use_custom_target && has_document) {
2629         todo_wine ok(hres == olecmdid_state, "ExecWB failed: %08x %08x\n", hres, olecmdid_state);
2630         CLEAR_CALLED(Invoke_STATUSTEXTCHANGE); /* Called by IE9 */
2631         CLEAR_CALLED(SetStatusText); /* Called by IE9 */
2632     }else {
2633         ok(hres == olecmdid_state, "ExecWB failed: %08x %08x\n", hres, olecmdid_state);
2634     }
2635     if (use_custom_target)
2636         SET_EXPECT(Exec_IDM_STOP);
2637     hres = IWebBrowser2_ExecWB(webbrowser, IDM_STOP, OLECMDEXECOPT_DONTPROMPTUSER, 0, 0);
2638     ok(hres == idm_state, "ExecWB failed: %08x %08x\n", hres, idm_state);
2639 }
2640
2641 static void test_download(DWORD flags)
2642 {
2643     MSG msg;
2644
2645     is_downloading = TRUE;
2646     dwl_flags = flags;
2647
2648     test_ready_state((flags & (DWL_FROM_PUT_HREF|DWL_FROM_GOBACK)) ? READYSTATE_COMPLETE : READYSTATE_LOADING);
2649
2650     if((is_http && !(flags & DWL_FROM_GOBACK)) || (flags & DWL_EXPECT_BEFORE_NAVIGATE))
2651         SET_EXPECT(Invoke_PROPERTYCHANGE);
2652
2653     if(flags & DWL_EXPECT_BEFORE_NAVIGATE) {
2654         SET_EXPECT(Invoke_BEFORENAVIGATE2);
2655         SET_EXPECT(TranslateUrl);
2656     }
2657     SET_EXPECT(Exec_SETPROGRESSMAX);
2658     SET_EXPECT(Exec_SETPROGRESSPOS);
2659     SET_EXPECT(Exec_SETDOWNLOADSTATE_1);
2660     SET_EXPECT(DocHost_EnableModeless_FALSE);
2661     SET_EXPECT(DocHost_EnableModeless_TRUE);
2662     SET_EXPECT(Invoke_SETSECURELOCKICON);
2663     SET_EXPECT(Invoke_282);
2664     SET_EXPECT(EnableModeless_FALSE);
2665     SET_EXPECT(Invoke_COMMANDSTATECHANGE);
2666     SET_EXPECT(Invoke_STATUSTEXTCHANGE);
2667     SET_EXPECT(SetStatusText);
2668     SET_EXPECT(EnableModeless_TRUE);
2669     if(!is_first_load)
2670         SET_EXPECT(GetHostInfo);
2671     SET_EXPECT(Exec_SETDOWNLOADSTATE_0);
2672     SET_EXPECT(Invoke_TITLECHANGE);
2673     SET_EXPECT(Invoke_NAVIGATECOMPLETE2);
2674     if(is_first_load)
2675         SET_EXPECT(GetDropTarget);
2676     SET_EXPECT(Invoke_PROGRESSCHANGE);
2677     SET_EXPECT(Invoke_DOCUMENTCOMPLETE);
2678
2679     if(flags & DWL_HTTP)
2680         SET_EXPECT(Exec_SETTITLE);
2681     SET_EXPECT(UpdateUI);
2682     SET_EXPECT(Exec_UPDATECOMMANDS);
2683     SET_EXPECT(QueryStatus_STOP);
2684
2685     while(!called_Invoke_DOCUMENTCOMPLETE && GetMessage(&msg, NULL, 0, 0)) {
2686         TranslateMessage(&msg);
2687         DispatchMessage(&msg);
2688     }
2689
2690     if((is_http && !(flags & DWL_FROM_GOBACK)) || (flags & DWL_EXPECT_BEFORE_NAVIGATE))
2691         todo_wine CHECK_CALLED(Invoke_PROPERTYCHANGE);
2692
2693     if(flags & DWL_EXPECT_BEFORE_NAVIGATE) {
2694         CHECK_CALLED(Invoke_BEFORENAVIGATE2);
2695         CHECK_CALLED(TranslateUrl);
2696     }
2697     todo_wine CHECK_CALLED(Exec_SETPROGRESSMAX);
2698     todo_wine CHECK_CALLED(Exec_SETPROGRESSPOS);
2699     todo_wine CHECK_CALLED(Exec_SETDOWNLOADSTATE_1);
2700     CLEAR_CALLED(DocHost_EnableModeless_FALSE); /* IE 7 */
2701     CLEAR_CALLED(DocHost_EnableModeless_TRUE); /* IE 7 */
2702     todo_wine CHECK_CALLED(Invoke_SETSECURELOCKICON);
2703     CLEAR_CALLED(Invoke_282); /* IE 7 */
2704     if(is_first_load)
2705         todo_wine CHECK_CALLED(EnableModeless_FALSE);
2706     else
2707         CLEAR_CALLED(EnableModeless_FALSE); /* IE 8 */
2708     CLEAR_CALLED(Invoke_COMMANDSTATECHANGE);
2709     todo_wine CHECK_CALLED(Invoke_STATUSTEXTCHANGE);
2710     todo_wine CHECK_CALLED(SetStatusText);
2711     if(is_first_load)
2712         todo_wine CHECK_CALLED(EnableModeless_TRUE);
2713     else
2714         CLEAR_CALLED(EnableModeless_FALSE); /* IE 8 */
2715     if(!is_first_load)
2716         todo_wine CHECK_CALLED(GetHostInfo);
2717     todo_wine CHECK_CALLED(Exec_SETDOWNLOADSTATE_0);
2718     todo_wine CHECK_CALLED(Invoke_TITLECHANGE);
2719     CHECK_CALLED(Invoke_NAVIGATECOMPLETE2);
2720     if(is_first_load)
2721         todo_wine CHECK_CALLED(GetDropTarget);
2722     todo_wine CHECK_CALLED(Invoke_PROGRESSCHANGE);
2723     CHECK_CALLED(Invoke_DOCUMENTCOMPLETE);
2724
2725     is_downloading = FALSE;
2726
2727     test_ready_state(READYSTATE_COMPLETE);
2728
2729     while(!called_Exec_UPDATECOMMANDS && GetMessage(&msg, NULL, 0, 0)) {
2730         TranslateMessage(&msg);
2731         DispatchMessage(&msg);
2732     }
2733
2734     if(flags & DWL_HTTP)
2735         CLEAR_CALLED(Exec_SETTITLE); /* FIXME: make it more strict */
2736     CHECK_CALLED(UpdateUI);
2737     CHECK_CALLED(Exec_UPDATECOMMANDS);
2738     CLEAR_CALLED(QueryStatus_STOP);
2739 }
2740
2741 static void test_olecmd(IUnknown *unk, BOOL loaded)
2742 {
2743     IOleCommandTarget *cmdtrg;
2744     OLECMD cmds[3];
2745     HRESULT hres;
2746
2747     hres = IUnknown_QueryInterface(unk, &IID_IOleCommandTarget, (void**)&cmdtrg);
2748     ok(hres == S_OK, "Could not get IOleCommandTarget iface: %08x\n", hres);
2749     if(FAILED(hres))
2750         return;
2751
2752     cmds[0].cmdID = OLECMDID_SPELL;
2753     cmds[0].cmdf = 0xdeadbeef;
2754     cmds[1].cmdID = OLECMDID_REFRESH;
2755     cmds[1].cmdf = 0xdeadbeef;
2756     hres = IOleCommandTarget_QueryStatus(cmdtrg, NULL, 2, cmds, NULL);
2757     if(loaded) {
2758         ok(hres == S_OK, "QueryStatus failed: %08x\n", hres);
2759         ok(cmds[0].cmdf == OLECMDF_SUPPORTED, "OLECMDID_SPELL cmdf = %x\n", cmds[0].cmdf);
2760         ok(cmds[1].cmdf == (OLECMDF_ENABLED|OLECMDF_SUPPORTED),
2761            "OLECMDID_REFRESH cmdf = %x\n", cmds[1].cmdf);
2762     }else {
2763         ok(hres == 0x80040104, "QueryStatus failed: %08x\n", hres);
2764         ok(cmds[0].cmdf == 0xdeadbeef, "OLECMDID_SPELL cmdf = %x\n", cmds[0].cmdf);
2765         ok(cmds[1].cmdf == 0xdeadbeef, "OLECMDID_REFRESH cmdf = %x\n", cmds[0].cmdf);
2766     }
2767
2768     IOleCommandTarget_Release(cmdtrg);
2769 }
2770
2771 static void test_IServiceProvider(IUnknown *unk)
2772 {
2773     IServiceProvider *servprov = (void*)0xdeadbeef;
2774     IUnknown *iface;
2775     HRESULT hres;
2776
2777     hres = IUnknown_QueryInterface(unk, &IID_IServiceProvider, (void**)&servprov);
2778     ok(hres == S_OK, "QueryInterface returned %08x, expected S_OK\n", hres);
2779     if(FAILED(hres))
2780         return;
2781
2782     hres = IServiceProvider_QueryService(servprov, &SID_STopLevelBrowser, &IID_IBrowserService2, (LPVOID*)&iface);
2783     ok(hres == E_FAIL, "QueryService returned %08x, expected E_FAIL\n", hres);
2784     ok(!iface, "QueryService returned %p, expected NULL\n", iface);
2785     if(hres == S_OK)
2786         IUnknown_Release(iface);
2787
2788     hres = IServiceProvider_QueryService(servprov, &SID_SHTMLWindow, &IID_IHTMLWindow2, (LPVOID*)&iface);
2789     ok(hres == S_OK, "QueryService returned %08x, expected S_OK\n", hres);
2790     ok(iface != NULL, "QueryService returned NULL\n");
2791     if(hres == S_OK)
2792         IUnknown_Release(iface);
2793
2794     IServiceProvider_Release(servprov);
2795 }
2796
2797 static void test_put_href(IUnknown *unk, const char *url)
2798 {
2799     IHTMLLocation *location;
2800     IHTMLDocument2 *doc;
2801     IDispatch *doc_disp;
2802     BSTR str;
2803     HRESULT hres;
2804
2805     doc_disp = get_document(unk);
2806
2807     hres = IDispatch_QueryInterface(doc_disp, &IID_IHTMLDocument2, (void**)&doc);
2808     IDispatch_Release(doc_disp);
2809     ok(hres == S_OK, "QueryInterface(IID_IHTMLDocument2 failed: %08x\n", hres);
2810
2811     location = NULL;
2812     hres = IHTMLDocument2_get_location(doc, &location);
2813     IHTMLDocument2_Release(doc);
2814     ok(hres == S_OK, "get_location failed: %08x\n", hres);
2815     ok(location != NULL, "location == NULL\n");
2816
2817     SET_EXPECT(TranslateUrl);
2818     SET_EXPECT(Invoke_BEFORENAVIGATE2);
2819     if(!is_http)
2820         SET_EXPECT(Invoke_PROPERTYCHANGE);
2821
2822     dwl_flags = DWL_FROM_PUT_HREF;
2823
2824     is_http = !memcmp(url, "http:", 5);
2825     str = a2bstr(current_url = url);
2826     is_first_load = FALSE;
2827     hres = IHTMLLocation_put_href(location, str);
2828
2829     CHECK_CALLED(TranslateUrl);
2830     CHECK_CALLED(Invoke_BEFORENAVIGATE2);
2831     if(!is_http)
2832         todo_wine CHECK_CALLED(Invoke_PROPERTYCHANGE);
2833
2834     IHTMLLocation_Release(location);
2835     SysFreeString(str);
2836     ok(hres == S_OK, "put_href failed: %08x\n", hres);
2837
2838     test_ready_state(READYSTATE_COMPLETE);
2839 }
2840
2841 static void test_go_back(IUnknown *unk, const char *back_url)
2842 {
2843     IWebBrowser2 *wb;
2844     HRESULT hres;
2845
2846     current_url = back_url;
2847
2848     hres = IUnknown_QueryInterface(unk, &IID_IWebBrowser2, (void**)&wb);
2849     ok(hres == S_OK, "Could not get IWebBrowser2 iface: %08x\n", hres);
2850
2851     SET_EXPECT(Invoke_BEFORENAVIGATE2);
2852     SET_EXPECT(Invoke_COMMANDSTATECHANGE);
2853     hres = IWebBrowser2_GoBack(wb);
2854     ok(hres == S_OK, "GoBack failed: %08x\n", hres);
2855     CHECK_CALLED(Invoke_BEFORENAVIGATE2);
2856     todo_wine CHECK_CALLED(Invoke_COMMANDSTATECHANGE);
2857
2858     IWebBrowser2_Release(wb);
2859 }
2860
2861 static void test_QueryInterface(IUnknown *unk)
2862 {
2863     IQuickActivate *qa = (IQuickActivate*)0xdeadbeef;
2864     IRunnableObject *runnable = (IRunnableObject*)0xdeadbeef;
2865     IPerPropertyBrowsing *propbrowse = (void*)0xdeadbeef;
2866     IOleInPlaceSite *inplace = (void*)0xdeadbeef;
2867     IOleCache *cache = (void*)0xdeadbeef;
2868     IObjectWithSite *site = (void*)0xdeadbeef;
2869     IViewObjectEx *viewex = (void*)0xdeadbeef;
2870     IOleLink *link = (void*)0xdeadbeef;
2871     IMarshal *marshal = (void*)0xdeadbeef;
2872     IStdMarshalInfo *marshalinfo = (void*)0xdeadbeef;
2873     HRESULT hres;
2874
2875     hres = IUnknown_QueryInterface(unk, &IID_IQuickActivate, (void**)&qa);
2876     ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2877     ok(qa == NULL, "qa=%p, expected NULL\n", qa);
2878
2879     hres = IUnknown_QueryInterface(unk, &IID_IRunnableObject, (void**)&runnable);
2880     ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2881     ok(runnable == NULL, "runnable=%p, expected NULL\n", runnable);
2882
2883     hres = IUnknown_QueryInterface(unk, &IID_IPerPropertyBrowsing, (void**)&propbrowse);
2884     ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2885     ok(propbrowse == NULL, "propbrowse=%p, expected NULL\n", propbrowse);
2886
2887     hres = IUnknown_QueryInterface(unk, &IID_IOleCache, (void**)&cache);
2888     ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2889     ok(cache == NULL, "cache=%p, expected NULL\n", cache);
2890
2891     hres = IUnknown_QueryInterface(unk, &IID_IOleInPlaceSite, (void**)&inplace);
2892     ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2893     ok(inplace == NULL, "inplace=%p, expected NULL\n", inplace);
2894
2895     hres = IUnknown_QueryInterface(unk, &IID_IObjectWithSite, (void**)&site);
2896     ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2897     ok(site == NULL, "site=%p, expected NULL\n", site);
2898
2899     hres = IUnknown_QueryInterface(unk, &IID_IViewObjectEx, (void**)&viewex);
2900     ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2901     ok(viewex == NULL, "viewex=%p, expected NULL\n", viewex);
2902
2903     hres = IUnknown_QueryInterface(unk, &IID_IOleLink, (void**)&link);
2904     ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2905     ok(link == NULL, "link=%p, expected NULL\n", link);
2906
2907     hres = IUnknown_QueryInterface(unk, &IID_IMarshal, (void**)&marshal);
2908     ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2909     ok(marshal == NULL, "marshal=%p, expected NULL\n", marshal);
2910
2911     hres = IUnknown_QueryInterface(unk, &IID_IStdMarshalInfo, (void**)&marshalinfo);
2912     ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2913     ok(marshalinfo == NULL, "marshalinfo=%p, expected NULL\n", marshalinfo);
2914
2915 }
2916
2917 static void test_UIActivate(IUnknown *unk, BOOL activate)
2918 {
2919     IOleDocumentView *docview;
2920     IDispatch *disp;
2921     HRESULT hres;
2922
2923     disp = get_document(unk);
2924
2925     hres = IDispatch_QueryInterface(disp, &IID_IOleDocumentView, (void**)&docview);
2926     ok(hres == S_OK, "Got 0x%08x\n", hres);
2927     if(SUCCEEDED(hres)) {
2928         if(activate) {
2929             SET_EXPECT(RequestUIActivate);
2930             SET_EXPECT(ShowUI);
2931             SET_EXPECT(HideUI);
2932             SET_EXPECT(OnFocus);
2933         }
2934
2935         hres = IOleDocumentView_UIActivate(docview, activate);
2936         if(activate)
2937             todo_wine ok(hres == S_OK, "Got 0x%08x\n", hres);
2938         else
2939             ok(hres == S_OK, "Got 0x%08x\n", hres);
2940
2941         if(activate) {
2942             todo_wine {
2943                 CHECK_CALLED(RequestUIActivate);
2944                 CHECK_CALLED(ShowUI);
2945                 CHECK_CALLED(HideUI);
2946                 CHECK_CALLED(OnFocus);
2947             }
2948         }
2949
2950         IOleDocumentView_Release(docview);
2951     }
2952
2953     IDispatch_Release(disp);
2954 }
2955
2956 static void test_TranslateAccelerator(IUnknown *unk)
2957 {
2958     IOleClientSite *doc_clientsite;
2959     IOleInPlaceActiveObject *pao;
2960     HRESULT hres;
2961     DWORD keycode;
2962     MSG msg_a = {
2963         container_hwnd,
2964         0, 0, 0,
2965         GetTickCount(),
2966         {5, 5}
2967     };
2968
2969     test_Navigate2(unk, "about:blank");
2970
2971     hres = IUnknown_QueryInterface(unk, &IID_IOleInPlaceActiveObject, (void**)&pao);
2972     ok(hres == S_OK, "Got 0x%08x\n", hres);
2973     if(SUCCEEDED(hres)) {
2974         /* One accelerator that should be handled by mshtml */
2975         msg_a.message = WM_KEYDOWN;
2976         msg_a.wParam = VK_F1;
2977         hres = IOleInPlaceActiveObject_TranslateAccelerator(pao, &msg_a);
2978         ok(hres == S_FALSE, "Got 0x%08x (%04x::%02lx)\n", hres, msg_a.message, msg_a.wParam);
2979
2980         /* And one that should not */
2981         msg_a.message = WM_KEYDOWN;
2982         msg_a.wParam = VK_F5;
2983         hres = IOleInPlaceActiveObject_TranslateAccelerator(pao, &msg_a);
2984         ok(hres == S_FALSE, "Got 0x%08x (%04x::%02lx)\n", hres, msg_a.message, msg_a.wParam);
2985
2986         IOleInPlaceActiveObject_Release(pao);
2987     }
2988
2989     test_UIActivate(unk, TRUE);
2990
2991     /* Test again after UIActivate */
2992     hres = IUnknown_QueryInterface(unk, &IID_IOleInPlaceActiveObject, (void**)&pao);
2993     ok(hres == S_OK, "Got 0x%08x\n", hres);
2994     if(SUCCEEDED(hres)) {
2995         /* One accelerator that should be handled by mshtml */
2996         msg_a.message = WM_KEYDOWN;
2997         msg_a.wParam = VK_F1;
2998         SET_EXPECT(DocHost_TranslateAccelerator);
2999         SET_EXPECT(ControlSite_TranslateAccelerator);
3000         hres = IOleInPlaceActiveObject_TranslateAccelerator(pao, &msg_a);
3001         ok(hres == S_FALSE, "Got 0x%08x (%04x::%02lx)\n", hres, msg_a.message, msg_a.wParam);
3002         todo_wine CHECK_CALLED(DocHost_TranslateAccelerator);
3003         todo_wine CHECK_CALLED(ControlSite_TranslateAccelerator);
3004
3005         /* And one that should not */
3006         msg_a.message = WM_KEYDOWN;
3007         msg_a.wParam = VK_F5;
3008         SET_EXPECT(DocHost_TranslateAccelerator);
3009         hres = IOleInPlaceActiveObject_TranslateAccelerator(pao, &msg_a);
3010         todo_wine ok(hres == S_OK, "Got 0x%08x (%04x::%02lx)\n", hres, msg_a.message, msg_a.wParam);
3011         todo_wine CHECK_CALLED(DocHost_TranslateAccelerator);
3012
3013         IOleInPlaceActiveObject_Release(pao);
3014     }
3015
3016     doc_clientsite = get_dochost(unk);
3017     if(doc_clientsite) {
3018         IDocHostUIHandler2 *dochost;
3019         IOleControlSite *doc_controlsite;
3020         IUnknown *unk_test;
3021
3022         hres = IOleClientSite_QueryInterface(doc_clientsite, &IID_IOleInPlaceFrame, (void**)&unk_test);
3023         ok(hres == E_NOINTERFACE, "Got 0x%08x\n", hres);
3024         if(SUCCEEDED(hres)) IUnknown_Release(unk_test);
3025
3026         hres = IOleClientSite_QueryInterface(doc_clientsite, &IID_IDocHostShowUI, (void**)&unk_test);
3027         todo_wine ok(hres == S_OK, "Got 0x%08x\n", hres);
3028         if(SUCCEEDED(hres)) IUnknown_Release(unk_test);
3029
3030         hres = IOleClientSite_QueryInterface(doc_clientsite, &IID_IDocHostUIHandler, (void**)&unk_test);
3031         ok(hres == S_OK, "Got 0x%08x\n", hres);
3032         if(SUCCEEDED(hres)) IUnknown_Release(unk_test);
3033
3034         hres = IOleClientSite_QueryInterface(doc_clientsite, &IID_IDocHostUIHandler2, (void**)&dochost);
3035         ok(hres == S_OK, "Got 0x%08x\n", hres);
3036         if(SUCCEEDED(hres)) {
3037             msg_a.message = WM_KEYDOWN;
3038             hr_dochost_TranslateAccelerator = 0xdeadbeef;
3039             for(keycode = 0; keycode <= 0x100; keycode++) {
3040                 msg_a.wParam = keycode;
3041                 SET_EXPECT(DocHost_TranslateAccelerator);
3042                 hres = IDocHostUIHandler_TranslateAccelerator(dochost, &msg_a, &CGID_MSHTML, 1234);
3043                 ok(hres == 0xdeadbeef, "Got 0x%08x\n", hres);
3044                 CHECK_CALLED(DocHost_TranslateAccelerator);
3045             }
3046             hr_dochost_TranslateAccelerator = E_NOTIMPL;
3047
3048             SET_EXPECT(DocHost_TranslateAccelerator);
3049             hres = IDocHostUIHandler_TranslateAccelerator(dochost, &msg_a, &CGID_MSHTML, 1234);
3050             ok(hres == E_NOTIMPL, "Got 0x%08x\n", hres);
3051             CHECK_CALLED(DocHost_TranslateAccelerator);
3052
3053             IDocHostUIHandler2_Release(dochost);
3054         }
3055
3056         hres = IOleClientSite_QueryInterface(doc_clientsite, &IID_IOleControlSite, (void**)&doc_controlsite);
3057         ok(hres == S_OK, "Got 0x%08x\n", hres);
3058         if(SUCCEEDED(hres)) {
3059             msg_a.message = WM_KEYDOWN;
3060             hr_site_TranslateAccelerator = 0xdeadbeef;
3061             for(keycode = 0; keycode < 0x100; keycode++) {
3062                 msg_a.wParam = keycode;
3063                 SET_EXPECT(ControlSite_TranslateAccelerator);
3064                 hres = IOleControlSite_TranslateAccelerator(doc_controlsite, &msg_a, 0);
3065                 if(keycode == 0x9 || keycode == 0x75)
3066                     todo_wine ok(hres == S_OK, "Got 0x%08x (keycode: %04x)\n", hres, keycode);
3067                 else
3068                     ok(hres == S_FALSE, "Got 0x%08x (keycode: %04x)\n", hres, keycode);
3069
3070                 CHECK_CALLED(ControlSite_TranslateAccelerator);
3071             }
3072             msg_a.wParam = VK_LEFT;
3073             SET_EXPECT(ControlSite_TranslateAccelerator);
3074             hres = IOleControlSite_TranslateAccelerator(doc_controlsite, &msg_a, 0);
3075             ok(hres == S_FALSE, "Got 0x%08x (keycode: %04x)\n", hres, keycode);
3076             CHECK_CALLED(ControlSite_TranslateAccelerator);
3077
3078             hr_site_TranslateAccelerator = S_OK;
3079             SET_EXPECT(ControlSite_TranslateAccelerator);
3080             hres = IOleControlSite_TranslateAccelerator(doc_controlsite, &msg_a, 0);
3081             ok(hres == S_OK, "Got 0x%08x (keycode: %04x)\n", hres, keycode);
3082             CHECK_CALLED(ControlSite_TranslateAccelerator);
3083
3084             hr_site_TranslateAccelerator = E_NOTIMPL;
3085             SET_EXPECT(ControlSite_TranslateAccelerator);
3086             hres = IOleControlSite_TranslateAccelerator(doc_controlsite, &msg_a, 0);
3087             ok(hres == S_FALSE, "Got 0x%08x (keycode: %04x)\n", hres, keycode);
3088             CHECK_CALLED(ControlSite_TranslateAccelerator);
3089
3090             IOleControlSite_Release(doc_controlsite);
3091         }
3092
3093         IOleClientSite_Release(doc_clientsite);
3094     }
3095
3096     test_UIActivate(unk, FALSE);
3097 }
3098
3099 static void test_dochost_qs(IUnknown *unk)
3100 {
3101     IOleClientSite *client_site;
3102     IServiceProvider *serv_prov;
3103     IUnknown *service;
3104     HRESULT hres;
3105
3106     client_site = get_dochost(unk);
3107     hres = IOleClientSite_QueryInterface(client_site, &IID_IServiceProvider, (void**)&serv_prov);
3108     IOleClientSite_Release(client_site);
3109     ok(hres == S_OK, "Could not get IServiceProvider iface: %08x\n", hres);
3110
3111     hres = IServiceProvider_QueryService(serv_prov, &IID_IHlinkFrame, &IID_IHlinkFrame, (void**)&service);
3112     ok(hres == S_OK, "QueryService failed: %08x\n", hres);
3113     ok(iface_cmp(service, unk), "service != unk\n");
3114     IUnknown_Release(service);
3115
3116     hres = IServiceProvider_QueryService(serv_prov, &IID_IWebBrowserApp, &IID_IHlinkFrame, (void**)&service);
3117     ok(hres == S_OK, "QueryService failed: %08x\n", hres);
3118     ok(iface_cmp(service, unk), "service != unk\n");
3119     IUnknown_Release(service);
3120
3121     hres = IServiceProvider_QueryService(serv_prov, &IID_IShellBrowser, &IID_IShellBrowser, (void**)&service);
3122     ok(hres == S_OK, "QueryService failed: %08x\n", hres);
3123     IUnknown_Release(service);
3124
3125     hres = IServiceProvider_QueryService(serv_prov, &IID_IShellBrowser, &IID_IBrowserService, (void**)&service);
3126     ok(hres == S_OK, "QueryService failed: %08x\n", hres);
3127     IUnknown_Release(service);
3128
3129     hres = IServiceProvider_QueryService(serv_prov, &IID_IShellBrowser, &IID_IDocObjectService, (void**)&service);
3130     ok(hres == S_OK, "QueryService failed: %08x\n", hres);
3131     IUnknown_Release(service);
3132
3133     IServiceProvider_Release(serv_prov);
3134 }
3135
3136 static void test_Close(IWebBrowser2 *wb, BOOL do_download)
3137 {
3138     IOleObject *oo;
3139     IOleClientSite *ocs;
3140     HRESULT hres;
3141
3142     hres = IWebBrowser2_QueryInterface(wb, &IID_IOleObject, (void**)&oo);
3143     ok(hres == S_OK, "QueryInterface failed: %08x\n", hres);
3144     if(hres != S_OK)
3145         return;
3146
3147     test_close = TRUE;
3148
3149     SET_EXPECT(Frame_SetActiveObject);
3150     SET_EXPECT(UIWindow_SetActiveObject);
3151     SET_EXPECT(OnUIDeactivate);
3152     SET_EXPECT(OnFocus);
3153     SET_EXPECT(OnInPlaceDeactivate);
3154     SET_EXPECT(Invoke_STATUSTEXTCHANGE);
3155     if(!do_download) {
3156         SET_EXPECT(Invoke_COMMANDSTATECHANGE);
3157         SET_EXPECT(Invoke_DOWNLOADCOMPLETE);
3158     }
3159     hres = IOleObject_Close(oo, OLECLOSE_NOSAVE);
3160     ok(hres == S_OK, "OleObject_Close failed: %x\n", hres);
3161     CHECK_CALLED(Frame_SetActiveObject);
3162     CHECK_CALLED(UIWindow_SetActiveObject);
3163     CHECK_CALLED(OnUIDeactivate);
3164     todo_wine CHECK_CALLED(OnFocus);
3165     CHECK_CALLED(OnInPlaceDeactivate);
3166     CLEAR_CALLED(Invoke_STATUSTEXTCHANGE); /* Called by IE9 */
3167     if(!do_download) {
3168         todo_wine CHECK_CALLED(Invoke_COMMANDSTATECHANGE);
3169         todo_wine CHECK_CALLED(Invoke_DOWNLOADCOMPLETE);
3170     }
3171
3172     hres = IOleObject_GetClientSite(oo, &ocs);
3173     ok(hres == S_OK, "hres = %x\n", hres);
3174     ok(!ocs, "ocs != NULL\n");
3175
3176     hres = IOleObject_Close(oo, OLECLOSE_NOSAVE);
3177     ok(hres == S_OK, "OleObject_Close failed: %x\n", hres);
3178
3179     test_close = FALSE;
3180     IOleObject_Release(oo);
3181 }
3182
3183 static void test_WebBrowser(BOOL do_download, BOOL do_close)
3184 {
3185     IUnknown *unk = NULL;
3186     ULONG ref;
3187     HRESULT hres;
3188
3189     if (FAILED(create_WebBrowser(&unk)))
3190         return;
3191
3192     is_downloading = FALSE;
3193     is_first_load = TRUE;
3194     use_container_olecmd = TRUE;
3195
3196     hres = IUnknown_QueryInterface(unk, &IID_IWebBrowser2, (void**)&wb);
3197     ok(hres == S_OK, "Could not get IWebBrowser2 iface: %08x\n", hres);
3198
3199     test_QueryStatusWB(wb, FALSE, FALSE);
3200     test_ExecWB(wb, FALSE, FALSE);
3201     test_QueryInterface(unk);
3202     test_ready_state(READYSTATE_UNINITIALIZED);
3203     test_ClassInfo(unk);
3204     test_LocationURL(unk, "");
3205     test_ConnectionPoint(unk, TRUE);
3206     test_ClientSite(unk, &ClientSite, !do_download);
3207     test_Extent(unk);
3208     test_wb_funcs(unk, TRUE);
3209     test_DoVerb(unk);
3210     test_olecmd(unk, FALSE);
3211     test_Navigate2(unk, "about:blank");
3212     test_QueryStatusWB(wb, TRUE, TRUE);
3213     test_ExecWB(wb, TRUE, TRUE);
3214
3215     if(do_download) {
3216         IDispatch *doc, *doc2;
3217
3218         test_download(0);
3219         test_olecmd(unk, TRUE);
3220         doc = get_document(unk);
3221
3222         test_put_href(unk, "about:test");
3223         test_download(DWL_FROM_PUT_HREF);
3224         doc2 = get_document(unk);
3225         ok(doc == doc2, "doc != doc2\n");
3226         IDispatch_Release(doc2);
3227
3228         trace("Navigate2 repeated...\n");
3229         test_Navigate2(unk, "about:blank");
3230         test_download(DWL_EXPECT_BEFORE_NAVIGATE);
3231         doc2 = get_document(unk);
3232         ok(doc == doc2, "doc != doc2\n");
3233         IDispatch_Release(doc2);
3234         IDispatch_Release(doc);
3235
3236         if(!do_close) {
3237             trace("Navigate2 http URL...\n");
3238             test_ready_state(READYSTATE_COMPLETE);
3239             test_Navigate2(unk, "http://test.winehq.org/tests/hello.html");
3240             test_download(DWL_EXPECT_BEFORE_NAVIGATE|DWL_HTTP);
3241
3242             trace("put_href http URL...\n");
3243             test_put_href(unk, "http://www.winehq.org/");
3244             test_download(DWL_FROM_PUT_HREF|DWL_HTTP);
3245
3246             trace("GoBack...\n");
3247             test_go_back(unk, "http://test.winehq.org/tests/hello.html");
3248             test_download(DWL_FROM_GOBACK|DWL_HTTP);
3249         }
3250
3251         test_TranslateAccelerator(unk);
3252
3253         test_dochost_qs(unk);
3254     }
3255
3256     if(do_close)
3257         test_Close(wb, do_download);
3258     else
3259         test_ClientSite(unk, NULL, !do_download);
3260     test_ie_funcs(unk);
3261     test_GetControlInfo(unk);
3262     test_wb_funcs(unk, FALSE);
3263     test_ConnectionPoint(unk, FALSE);
3264     test_IServiceProvider(unk);
3265
3266     IWebBrowser2_Release(wb);
3267     ref = IUnknown_Release(unk);
3268     ok(ref == 0, "ref=%d, expected 0\n", ref);
3269 }
3270
3271 static void test_WebBrowserV1(void)
3272 {
3273     IWebBrowser2 *wb;
3274     ULONG ref;
3275     HRESULT hres;
3276
3277     wb_version = 1;
3278
3279     hres = CoCreateInstance(&CLSID_WebBrowser_V1, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
3280             &IID_IWebBrowser2, (void**)&wb);
3281     ok(hres == S_OK, "Could not get WebBrowserV1 instance: %08x\n", hres);
3282
3283     test_QueryStatusWB(wb, FALSE, FALSE);
3284     test_ExecWB(wb, FALSE, FALSE);
3285     test_QueryInterface((IUnknown*)wb);
3286     test_ready_state(READYSTATE_UNINITIALIZED);
3287     test_ClassInfo((IUnknown*)wb);
3288
3289     ref = IWebBrowser2_Release(wb);
3290     ok(ref == 0, "ref=%d, expected 0\n", ref);
3291 }
3292
3293 static void test_WebBrowser_NoContainerOlecmd(void)
3294 {
3295     IUnknown *unk = NULL;
3296     HRESULT hres;
3297     ULONG ref;
3298
3299     is_downloading = FALSE;
3300     is_first_load = TRUE;
3301     use_container_olecmd = FALSE;
3302
3303     /* Setup stage */
3304     if (FAILED(create_WebBrowser(&unk)))
3305         return;
3306     hres = IUnknown_QueryInterface(unk, &IID_IWebBrowser2, (void**)&wb);
3307     ok(hres == S_OK, "QueryInterface(IID_IWebBrowser) failed: %08x\n", hres);
3308     if(FAILED(hres))
3309         return;
3310     test_ConnectionPoint(unk, TRUE);
3311     test_ClientSite(unk, &ClientSite, TRUE);
3312     test_DoVerb(unk);
3313     test_Navigate2(unk, "about:blank");
3314
3315     /* Tests of interest */
3316     test_QueryStatusWB(wb, FALSE, TRUE);
3317     test_ExecWB(wb, FALSE, TRUE);
3318
3319     /* Cleanup stage */
3320     IWebBrowser2_Release(wb);
3321     test_ClientSite(unk, NULL, TRUE);
3322     test_ConnectionPoint(unk, FALSE);
3323     ref = IUnknown_Release(unk);
3324     ok(ref == 0, "ref=%d, expected 0\n", ref);
3325 }
3326
3327 /* Check if Internet Explorer is configured to run in "Enhanced Security Configuration" (aka hardened mode) */
3328 /* Note: this code is duplicated in dlls/mshtml/tests/mshtml_test.h and dlls/urlmon/tests/sec_mgr.c */
3329 static BOOL is_ie_hardened(void)
3330 {
3331     HKEY zone_map;
3332     DWORD ie_harden, type, size;
3333
3334     ie_harden = 0;
3335     if(RegOpenKeyEx(HKEY_CURRENT_USER, "Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\ZoneMap",
3336                     0, KEY_QUERY_VALUE, &zone_map) == ERROR_SUCCESS) {
3337         size = sizeof(DWORD);
3338         if (RegQueryValueEx(zone_map, "IEHarden", NULL, &type, (LPBYTE) &ie_harden, &size) != ERROR_SUCCESS ||
3339             type != REG_DWORD) {
3340             ie_harden = 0;
3341         }
3342     RegCloseKey(zone_map);
3343     }
3344
3345     return ie_harden != 0;
3346 }
3347
3348 START_TEST(webbrowser)
3349 {
3350     OleInitialize(NULL);
3351
3352     container_hwnd = create_container_window();
3353
3354     trace("Testing WebBrowser (no download)...\n");
3355     test_WebBrowser(FALSE, FALSE);
3356     test_WebBrowser(FALSE, TRUE);
3357
3358     if(!is_ie_hardened()) {
3359         trace("Testing WebBrowser...\n");
3360         test_WebBrowser(TRUE, FALSE);
3361     }else {
3362         win_skip("Skipping http tests in hardened mode\n");
3363     }
3364
3365     trace("Testing WebBrowser (with close)...\n");
3366     test_WebBrowser(TRUE, TRUE);
3367     trace("Testing WebBrowser w/o container-based olecmd...\n");
3368     test_WebBrowser_NoContainerOlecmd();
3369     trace("Testing WebBrowserV1...\n");
3370     test_WebBrowserV1();
3371
3372     OleUninitialize();
3373 }