cryptui: Validate input file in CryptUIWizImport.
[wine] / dlls / shdocvw / webbrowser.c
1 /*
2  * Implementation of IWebBrowser interface for WebBrowser control
3  *
4  * Copyright 2001 John R. Sheets (for CodeWeavers)
5  * Copyright 2005 Jacek Caban
6  *
7  * This library is free software; you can redistribute it and/or
8  * modify it under the terms of the GNU Lesser General Public
9  * License as published by the Free Software Foundation; either
10  * version 2.1 of the License, or (at your option) any later version.
11  *
12  * This library is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15  * Lesser General Public License for more details.
16  *
17  * You should have received a copy of the GNU Lesser General Public
18  * License along with this library; if not, write to the Free Software
19  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
20  */
21
22 #include "wine/debug.h"
23 #include "shdocvw.h"
24 #include "exdispid.h"
25
26 WINE_DEFAULT_DEBUG_CHANNEL(shdocvw);
27
28 /**********************************************************************
29  * Implement the IWebBrowser interface
30  */
31
32 #define WEBBROWSER_THIS(iface) DEFINE_THIS(WebBrowser, WebBrowser2, iface)
33
34 static HRESULT WINAPI WebBrowser_QueryInterface(IWebBrowser2 *iface, REFIID riid, LPVOID *ppv)
35 {
36     WebBrowser *This = WEBBROWSER_THIS(iface);
37
38     if (ppv == NULL)
39         return E_POINTER;
40     *ppv = NULL;
41
42     if(IsEqualGUID(&IID_IUnknown, riid)) {
43         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
44         *ppv = WEBBROWSER(This);
45     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
46         TRACE("(%p)->(IID_IDispatch %p)\n", This, ppv);
47         *ppv = WEBBROWSER(This);
48     }else if(IsEqualGUID(&IID_IWebBrowser, riid)) {
49         TRACE("(%p)->(IID_IWebBrowser %p)\n", This, ppv);
50         *ppv = WEBBROWSER(This);
51     }else if(IsEqualGUID(&IID_IWebBrowserApp, riid)) {
52         TRACE("(%p)->(IID_IWebBrowserApp %p)\n", This, ppv);
53         *ppv = WEBBROWSER(This);
54     }else if(IsEqualGUID(&IID_IWebBrowser2, riid)) {
55         TRACE("(%p)->(IID_IWebBrowser2 %p)\n", This, ppv);
56         *ppv = WEBBROWSER(This);
57     }else if(IsEqualGUID(&IID_IOleObject, riid)) {
58         TRACE("(%p)->(IID_IOleObject %p)\n", This, ppv);
59         *ppv = OLEOBJ(This);
60     }else if(IsEqualGUID(&IID_IOleWindow, riid)) {
61         TRACE("(%p)->(IID_IOleWindow %p)\n", This, ppv);
62         *ppv = INPLACEOBJ(This);
63     }else if(IsEqualGUID (&IID_IOleInPlaceObject, riid)) {
64         TRACE("(%p)->(IID_IOleInPlaceObject %p)\n", This, ppv);
65         *ppv = INPLACEOBJ(This);
66     }else if(IsEqualGUID(&IID_IOleControl, riid)) {
67         TRACE("(%p)->(IID_IOleControl %p)\n", This, ppv);
68         *ppv = CONTROL(This);
69     }else if(IsEqualGUID(&IID_IPersist, riid)) {
70         TRACE("(%p)->(IID_IPersist %p)\n", This, ppv);
71         *ppv = PERSTORAGE(This);
72     }else if(IsEqualGUID(&IID_IPersistStorage, riid)) {
73         TRACE("(%p)->(IID_IPersistStorage %p)\n", This, ppv);
74         *ppv = PERSTORAGE(This);
75     }else if(IsEqualGUID(&IID_IPersistMemory, riid)) {
76         TRACE("(%p)->(IID_IPersistStorage %p)\n", This, ppv);
77         *ppv = PERMEMORY(This);
78     }else if(IsEqualGUID (&IID_IPersistStreamInit, riid)) {
79         TRACE("(%p)->(IID_IPersistStreamInit %p)\n", This, ppv);
80         *ppv = PERSTRINIT(This);
81     }else if(IsEqualGUID(&IID_IProvideClassInfo, riid)) {
82         TRACE("(%p)->(IID_IProvideClassInfo %p)\n", This, ppv);
83         *ppv = CLASSINFO(This);
84     }else if(IsEqualGUID(&IID_IProvideClassInfo2, riid)) {
85         TRACE("(%p)->(IID_IProvideClassInfo2 %p)\n", This, ppv);
86         *ppv = CLASSINFO(This);
87     }else if(IsEqualGUID(&IID_IConnectionPointContainer, riid)) {
88         TRACE("(%p)->(IID_IConnectionPointContainer %p)\n", This, ppv);
89         *ppv = CONPTCONT(&This->doc_host.cps);
90     }else if(IsEqualGUID(&IID_IViewObject, riid)) {
91         TRACE("(%p)->(IID_IViewObject %p)\n", This, ppv);
92         *ppv = VIEWOBJ(This);
93     }else if(IsEqualGUID(&IID_IViewObject2, riid)) {
94         TRACE("(%p)->(IID_IViewObject2 %p)\n", This, ppv);
95         *ppv = VIEWOBJ2(This);
96     }else if(IsEqualGUID(&IID_IOleInPlaceActiveObject, riid)) {
97         TRACE("(%p)->(IID_IOleInPlaceActiveObject %p)\n", This, ppv);
98         *ppv = ACTIVEOBJ(This);
99     }else if(IsEqualGUID(&IID_IOleCommandTarget, riid)) {
100         TRACE("(%p)->(IID_IOleCommandTarget %p)\n", This, ppv);
101         *ppv = OLECMD(This);
102     }else if(IsEqualGUID(&IID_IHlinkFrame, riid)) {
103         TRACE("(%p)->(IID_IHlinkFrame %p)\n", This, ppv);
104         *ppv = HLINKFRAME(This);
105     }else if(IsEqualGUID(&IID_IQuickActivate, riid)) {
106         TRACE("(%p)->(IID_IQuickActivate %p) returning NULL\n", This, ppv);
107         return E_NOINTERFACE;
108     }else if(IsEqualGUID(&IID_IRunnableObject, riid)) {
109         TRACE("(%p)->(IID_IRunnableObject %p) returning NULL\n", This, ppv);
110         return E_NOINTERFACE;
111     }else if(IsEqualGUID(&IID_IPerPropertyBrowsing, riid)) {
112         TRACE("(%p)->(IID_IPerPropertyBrowsing %p) returning NULL\n", This, ppv);
113         return E_NOINTERFACE;
114     }else if(IsEqualGUID(&IID_IOleCache, riid)) {
115         TRACE("(%p)->(IID_IOleCache %p) returning NULL\n", This, ppv);
116         return E_NOINTERFACE;
117     }else if(IsEqualGUID(&IID_IOleInPlaceSite, riid)) {
118         TRACE("(%p)->(IID_IOleInPlaceSite %p) returning NULL\n", This, ppv);
119         return E_NOINTERFACE;
120     }else if(IsEqualGUID(&IID_IObjectWithSite, riid)) {
121         TRACE("(%p)->(IID_IObjectWithSite %p) returning NULL\n", This, ppv);
122         return E_NOINTERFACE;
123     }else if(IsEqualGUID(&IID_IViewObjectEx, riid)) {
124         TRACE("(%p)->(IID_IViewObjectEx %p) returning NULL\n", This, ppv);
125         return E_NOINTERFACE;
126     }
127
128     if(*ppv) {
129         IUnknown_AddRef((IUnknown*)*ppv);
130         return S_OK;
131     }
132
133     FIXME("(%p)->(%s %p) interface not supported\n", This, debugstr_guid(riid), ppv);
134     return E_NOINTERFACE;
135 }
136
137 static ULONG WINAPI WebBrowser_AddRef(IWebBrowser2 *iface)
138 {
139     WebBrowser *This = WEBBROWSER_THIS(iface);
140     LONG ref = InterlockedIncrement(&This->ref);
141     TRACE("(%p) ref=%d\n", This, ref);
142     return ref;
143 }
144
145 static ULONG WINAPI WebBrowser_Release(IWebBrowser2 *iface)
146 {
147     WebBrowser *This = WEBBROWSER_THIS(iface);
148     LONG ref = InterlockedDecrement(&This->ref);
149
150     TRACE("(%p) ref=%d\n", This, ref);
151
152     if(!ref) {
153         if(This->doc_host.document)
154             IUnknown_Release(This->doc_host.document);
155
156         DocHost_Release(&This->doc_host);
157
158         WebBrowser_OleObject_Destroy(This);
159
160         heap_free(This);
161         SHDOCVW_UnlockModule();
162     }
163
164     return ref;
165 }
166
167 /* IDispatch methods */
168 static HRESULT WINAPI WebBrowser_GetTypeInfoCount(IWebBrowser2 *iface, UINT *pctinfo)
169 {
170     WebBrowser *This = WEBBROWSER_THIS(iface);
171
172     TRACE("(%p)->(%p)\n", This, pctinfo);
173
174     *pctinfo = 1;
175     return S_OK;
176 }
177
178 static HRESULT WINAPI WebBrowser_GetTypeInfo(IWebBrowser2 *iface, UINT iTInfo, LCID lcid,
179                                      LPTYPEINFO *ppTInfo)
180 {
181     WebBrowser *This = WEBBROWSER_THIS(iface);
182     ITypeInfo *typeinfo;
183     HRESULT hres;
184
185     TRACE("(%p)->(%d %d %p)\n", This, iTInfo, lcid, ppTInfo);
186
187     hres = get_typeinfo(&typeinfo);
188     if(FAILED(hres))
189         return hres;
190
191     ITypeInfo_AddRef(typeinfo);
192     *ppTInfo = typeinfo;
193     return S_OK;
194 }
195
196 static HRESULT WINAPI WebBrowser_GetIDsOfNames(IWebBrowser2 *iface, REFIID riid,
197                                        LPOLESTR *rgszNames, UINT cNames,
198                                        LCID lcid, DISPID *rgDispId)
199 {
200     WebBrowser *This = WEBBROWSER_THIS(iface);
201     ITypeInfo *typeinfo;
202     HRESULT hres;
203
204     TRACE("(%p)->(%s %p %d %d %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
205           lcid, rgDispId);
206
207     hres = get_typeinfo(&typeinfo);
208     if(FAILED(hres))
209         return hres;
210
211     return ITypeInfo_GetIDsOfNames(typeinfo, rgszNames, cNames, rgDispId);
212 }
213
214 static HRESULT WINAPI WebBrowser_Invoke(IWebBrowser2 *iface, DISPID dispIdMember,
215                                 REFIID riid, LCID lcid, WORD wFlags,
216                                 DISPPARAMS *pDispParams, VARIANT *pVarResult,
217                                 EXCEPINFO *pExepInfo, UINT *puArgErr)
218 {
219     WebBrowser *This = WEBBROWSER_THIS(iface);
220     ITypeInfo *typeinfo;
221     HRESULT hres;
222
223     TRACE("(%p)->(%d %s %d %08x %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
224             lcid, wFlags, pDispParams, pVarResult, pExepInfo, puArgErr);
225
226     hres = get_typeinfo(&typeinfo);
227     if(FAILED(hres))
228         return hres;
229
230     return ITypeInfo_Invoke(typeinfo, WEBBROWSER2(This), dispIdMember, wFlags, pDispParams,
231                             pVarResult, pExepInfo, puArgErr);
232 }
233
234 /* IWebBrowser methods */
235 static HRESULT WINAPI WebBrowser_GoBack(IWebBrowser2 *iface)
236 {
237     WebBrowser *This = WEBBROWSER_THIS(iface);
238     FIXME("(%p)\n", This);
239     return E_NOTIMPL;
240 }
241
242 static HRESULT WINAPI WebBrowser_GoForward(IWebBrowser2 *iface)
243 {
244     WebBrowser *This = WEBBROWSER_THIS(iface);
245     FIXME("(%p)\n", This);
246     return E_NOTIMPL;
247 }
248
249 static HRESULT WINAPI WebBrowser_GoHome(IWebBrowser2 *iface)
250 {
251     WebBrowser *This = WEBBROWSER_THIS(iface);
252     TRACE("(%p)\n", This);
253     return go_home(&This->doc_host);
254 }
255
256 static HRESULT WINAPI WebBrowser_GoSearch(IWebBrowser2 *iface)
257 {
258     WebBrowser *This = WEBBROWSER_THIS(iface);
259     FIXME("(%p)\n", This);
260     return E_NOTIMPL;
261 }
262
263 static HRESULT WINAPI WebBrowser_Navigate(IWebBrowser2 *iface, BSTR szUrl,
264                                   VARIANT *Flags, VARIANT *TargetFrameName,
265                                   VARIANT *PostData, VARIANT *Headers)
266 {
267     WebBrowser *This = WEBBROWSER_THIS(iface);
268
269     TRACE("(%p)->(%s %p %p %p %p)\n", This, debugstr_w(szUrl), Flags, TargetFrameName,
270           PostData, Headers);
271
272     return navigate_url(&This->doc_host, szUrl, Flags, TargetFrameName, PostData, Headers);
273 }
274
275 static HRESULT WINAPI WebBrowser_Refresh(IWebBrowser2 *iface)
276 {
277     WebBrowser *This = WEBBROWSER_THIS(iface);
278     FIXME("(%p)\n", This);
279     return E_NOTIMPL;
280 }
281
282 static HRESULT WINAPI WebBrowser_Refresh2(IWebBrowser2 *iface, VARIANT *Level)
283 {
284     WebBrowser *This = WEBBROWSER_THIS(iface);
285     FIXME("(%p)->(%p)\n", This, Level);
286     return E_NOTIMPL;
287 }
288
289 static HRESULT WINAPI WebBrowser_Stop(IWebBrowser2 *iface)
290 {
291     WebBrowser *This = WEBBROWSER_THIS(iface);
292     FIXME("(%p)\n", This);
293     return E_NOTIMPL;
294 }
295
296 static HRESULT WINAPI WebBrowser_get_Application(IWebBrowser2 *iface, IDispatch **ppDisp)
297 {
298     WebBrowser *This = WEBBROWSER_THIS(iface);
299
300     TRACE("(%p)->(%p)\n", This, ppDisp);
301
302     if(!ppDisp)
303         return E_POINTER;
304
305     *ppDisp = (IDispatch*)WEBBROWSER2(This);
306     IDispatch_AddRef(*ppDisp);
307     return S_OK;
308 }
309
310 static HRESULT WINAPI WebBrowser_get_Parent(IWebBrowser2 *iface, IDispatch **ppDisp)
311 {
312     WebBrowser *This = WEBBROWSER_THIS(iface);
313     FIXME("(%p)->(%p)\n", This, ppDisp);
314     return E_NOTIMPL;
315 }
316
317 static HRESULT WINAPI WebBrowser_get_Container(IWebBrowser2 *iface, IDispatch **ppDisp)
318 {
319     WebBrowser *This = WEBBROWSER_THIS(iface);
320     FIXME("(%p)->(%p)\n", This, ppDisp);
321     return E_NOTIMPL;
322 }
323
324 static HRESULT WINAPI WebBrowser_get_Document(IWebBrowser2 *iface, IDispatch **ppDisp)
325 {
326     WebBrowser *This = WEBBROWSER_THIS(iface);
327
328     TRACE("(%p)->(%p)\n", This, ppDisp);
329
330     *ppDisp = NULL;
331     if(This->doc_host.document)
332         IUnknown_QueryInterface(This->doc_host.document, &IID_IDispatch, (void**)ppDisp);
333
334     return S_OK;
335 }
336
337 static HRESULT WINAPI WebBrowser_get_TopLevelContainer(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
338 {
339     WebBrowser *This = WEBBROWSER_THIS(iface);
340     FIXME("(%p)->(%p)\n", This, pBool);
341     return E_NOTIMPL;
342 }
343
344 static HRESULT WINAPI WebBrowser_get_Type(IWebBrowser2 *iface, BSTR *Type)
345 {
346     WebBrowser *This = WEBBROWSER_THIS(iface);
347     FIXME("(%p)->(%p)\n", This, Type);
348     return E_NOTIMPL;
349 }
350
351 static HRESULT WINAPI WebBrowser_get_Left(IWebBrowser2 *iface, long *pl)
352 {
353     WebBrowser *This = WEBBROWSER_THIS(iface);
354
355     TRACE("(%p)->(%p)\n", This, pl);
356
357     *pl = This->pos_rect.left;
358     return S_OK;
359 }
360
361 static HRESULT WINAPI WebBrowser_put_Left(IWebBrowser2 *iface, long Left)
362 {
363     WebBrowser *This = WEBBROWSER_THIS(iface);
364     RECT rect;
365
366     TRACE("(%p)->(%ld)\n", This, Left);
367
368     if(!This->inplace)
369         return E_UNEXPECTED;
370
371     rect = This->pos_rect;
372     rect.left = Left;
373
374     /* We don't really change the window position here.
375      * We just notify the embedder that he should do so. */
376     return IOleInPlaceSite_OnPosRectChange(This->inplace, &rect);
377 }
378
379 static HRESULT WINAPI WebBrowser_get_Top(IWebBrowser2 *iface, long *pl)
380 {
381     WebBrowser *This = WEBBROWSER_THIS(iface);
382
383     TRACE("(%p)->(%p)\n", This, pl);
384
385     *pl = This->pos_rect.top;
386     return S_OK;
387 }
388
389 static HRESULT WINAPI WebBrowser_put_Top(IWebBrowser2 *iface, long Top)
390 {
391     WebBrowser *This = WEBBROWSER_THIS(iface);
392     RECT rect;
393
394     TRACE("(%p)->(%ld)\n", This, Top);
395
396     if(!This->inplace)
397         return E_UNEXPECTED;
398
399     rect = This->pos_rect;
400     rect.top = Top;
401
402     /* We don't really change the window position here.
403      * We just notify the embedder that he should do so. */
404     return IOleInPlaceSite_OnPosRectChange(This->inplace, &rect);
405 }
406
407 static HRESULT WINAPI WebBrowser_get_Width(IWebBrowser2 *iface, long *pl)
408 {
409     WebBrowser *This = WEBBROWSER_THIS(iface);
410
411     TRACE("(%p)->(%p)\n", This, pl);
412
413     *pl = This->pos_rect.right - This->pos_rect.left;
414     return S_OK;
415 }
416
417 static HRESULT WINAPI WebBrowser_put_Width(IWebBrowser2 *iface, long Width)
418 {
419     WebBrowser *This = WEBBROWSER_THIS(iface);
420     RECT rect;
421
422     TRACE("(%p)->(%ld)\n", This, Width);
423
424     if(!This->inplace)
425         return E_UNEXPECTED;
426
427     rect = This->pos_rect;
428     rect.right = rect.left+Width;
429
430     /* We don't really change the window size here.
431      * We just notify the embedder that he should do so. */
432    return IOleInPlaceSite_OnPosRectChange(This->inplace, &rect);
433 }
434
435 static HRESULT WINAPI WebBrowser_get_Height(IWebBrowser2 *iface, long *pl)
436 {
437     WebBrowser *This = WEBBROWSER_THIS(iface);
438
439     TRACE("(%p)->(%p)\n", This, pl);
440
441     *pl = This->pos_rect.bottom - This->pos_rect.top;
442     return S_OK;
443 }
444
445 static HRESULT WINAPI WebBrowser_put_Height(IWebBrowser2 *iface, long Height)
446 {
447     WebBrowser *This = WEBBROWSER_THIS(iface);
448     RECT rect;
449
450     TRACE("(%p)->(%ld)\n", This, Height);
451
452     if(!This->inplace)
453         return E_UNEXPECTED;
454
455     rect = This->pos_rect;
456     rect.bottom = rect.top+Height;
457
458     /* We don't really change the window size here.
459      * We just notify the embedder that he should do so. */
460     return IOleInPlaceSite_OnPosRectChange(This->inplace, &rect);
461 }
462
463 static HRESULT WINAPI WebBrowser_get_LocationName(IWebBrowser2 *iface, BSTR *LocationName)
464 {
465     WebBrowser *This = WEBBROWSER_THIS(iface);
466     FIXME("(%p)->(%p)\n", This, LocationName);
467     return E_NOTIMPL;
468 }
469
470 static HRESULT WINAPI WebBrowser_get_LocationURL(IWebBrowser2 *iface, BSTR *LocationURL)
471 {
472     WebBrowser *This = WEBBROWSER_THIS(iface);
473
474     FIXME("(%p)->(%p)\n", This, LocationURL);
475
476     if(!This->doc_host.url) {
477         static const WCHAR null_char = 0;
478         *LocationURL = SysAllocString(&null_char);
479         return S_FALSE;
480     }
481
482     *LocationURL = SysAllocString(This->doc_host.url);
483     return S_OK;
484 }
485
486 static HRESULT WINAPI WebBrowser_get_Busy(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
487 {
488     WebBrowser *This = WEBBROWSER_THIS(iface);
489
490     TRACE("(%p)->(%p)\n", This, pBool);
491
492     *pBool = This->doc_host.busy;
493     return S_OK;
494 }
495
496 static HRESULT WINAPI WebBrowser_Quit(IWebBrowser2 *iface)
497 {
498     WebBrowser *This = WEBBROWSER_THIS(iface);
499
500     TRACE("(%p)\n", This);
501
502     /* It's a InternetExplorer specific method, we have nothing to do here. */
503     return E_FAIL;
504 }
505
506 static HRESULT WINAPI WebBrowser_ClientToWindow(IWebBrowser2 *iface, int *pcx, int *pcy)
507 {
508     WebBrowser *This = WEBBROWSER_THIS(iface);
509     FIXME("(%p)->(%p %p)\n", This, pcx, pcy);
510     return E_NOTIMPL;
511 }
512
513 static HRESULT WINAPI WebBrowser_PutProperty(IWebBrowser2 *iface, BSTR szProperty, VARIANT vtValue)
514 {
515     WebBrowser *This = WEBBROWSER_THIS(iface);
516     FIXME("(%p)->(%s)\n", This, debugstr_w(szProperty));
517     return E_NOTIMPL;
518 }
519
520 static HRESULT WINAPI WebBrowser_GetProperty(IWebBrowser2 *iface, BSTR szProperty, VARIANT *pvtValue)
521 {
522     WebBrowser *This = WEBBROWSER_THIS(iface);
523     FIXME("(%p)->(%s %p)\n", This, debugstr_w(szProperty), pvtValue);
524     return E_NOTIMPL;
525 }
526
527 static HRESULT WINAPI WebBrowser_get_Name(IWebBrowser2 *iface, BSTR *Name)
528 {
529     WebBrowser *This = WEBBROWSER_THIS(iface);
530     FIXME("(%p)->(%p)\n", This, Name);
531     return E_NOTIMPL;
532 }
533
534 static HRESULT WINAPI WebBrowser_get_HWND(IWebBrowser2 *iface, long *pHWND)
535 {
536     WebBrowser *This = WEBBROWSER_THIS(iface);
537
538     TRACE("(%p)->(%p)\n", This, pHWND);
539
540     /* WebBrowser control never has a frame window (in opposition to InternetExplorer) */
541     *pHWND = 0;
542     return E_FAIL;
543 }
544
545 static HRESULT WINAPI WebBrowser_get_FullName(IWebBrowser2 *iface, BSTR *FullName)
546 {
547     WebBrowser *This = WEBBROWSER_THIS(iface);
548     FIXME("(%p)->(%p)\n", This, FullName);
549     return E_NOTIMPL;
550 }
551
552 static HRESULT WINAPI WebBrowser_get_Path(IWebBrowser2 *iface, BSTR *Path)
553 {
554     WebBrowser *This = WEBBROWSER_THIS(iface);
555     FIXME("(%p)->(%p)\n", This, Path);
556     return E_NOTIMPL;
557 }
558
559 static HRESULT WINAPI WebBrowser_get_Visible(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
560 {
561     WebBrowser *This = WEBBROWSER_THIS(iface);
562
563     TRACE("(%p)->(%p)\n", This, pBool);
564
565     *pBool = This->visible;
566     return S_OK;
567 }
568
569 static HRESULT WINAPI WebBrowser_put_Visible(IWebBrowser2 *iface, VARIANT_BOOL Value)
570 {
571     WebBrowser *This = WEBBROWSER_THIS(iface);
572     VARIANTARG arg;
573     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
574
575     TRACE("(%p)->(%x)\n", This, Value);
576
577     This->visible = Value;
578
579     V_VT(&arg) = VT_BOOL;
580     V_BOOL(&arg) = Value;
581     call_sink(This->doc_host.cps.wbe2, DISPID_ONVISIBLE, &dispparams);
582
583     return S_OK;
584 }
585
586 static HRESULT WINAPI WebBrowser_get_StatusBar(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
587 {
588     WebBrowser *This = WEBBROWSER_THIS(iface);
589
590     TRACE("(%p)->(%p)\n", This, pBool);
591
592     *pBool = This->status_bar;
593     return S_OK;
594 }
595
596 static HRESULT WINAPI WebBrowser_put_StatusBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
597 {
598     WebBrowser *This = WEBBROWSER_THIS(iface);
599     VARIANTARG arg;
600     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
601
602     TRACE("(%p)->(%x)\n", This, Value);
603
604     This->status_bar = Value ? VARIANT_TRUE : VARIANT_FALSE;
605
606     /* In opposition to InternetExplorer, all we should do here is
607      * inform the embedder about the status bar change. */
608
609     V_VT(&arg) = VT_BOOL;
610     V_BOOL(&arg) = Value;
611     call_sink(This->doc_host.cps.wbe2, DISPID_ONSTATUSBAR, &dispparams);
612
613     return S_OK;
614 }
615
616 static HRESULT WINAPI WebBrowser_get_StatusText(IWebBrowser2 *iface, BSTR *StatusText)
617 {
618     WebBrowser *This = WEBBROWSER_THIS(iface);
619     FIXME("(%p)->(%p)\n", This, StatusText);
620     return E_NOTIMPL;
621 }
622
623 static HRESULT WINAPI WebBrowser_put_StatusText(IWebBrowser2 *iface, BSTR StatusText)
624 {
625     WebBrowser *This = WEBBROWSER_THIS(iface);
626     FIXME("(%p)->(%s)\n", This, debugstr_w(StatusText));
627     return E_NOTIMPL;
628 }
629
630 static HRESULT WINAPI WebBrowser_get_ToolBar(IWebBrowser2 *iface, int *Value)
631 {
632     WebBrowser *This = WEBBROWSER_THIS(iface);
633
634     TRACE("(%p)->(%p)\n", This, Value);
635
636     *Value = This->tool_bar;
637     return S_OK;
638 }
639
640 static HRESULT WINAPI WebBrowser_put_ToolBar(IWebBrowser2 *iface, int Value)
641 {
642     WebBrowser *This = WEBBROWSER_THIS(iface);
643     VARIANTARG arg;
644     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
645
646     TRACE("(%p)->(%x)\n", This, Value);
647
648     This->tool_bar = Value ? VARIANT_TRUE : VARIANT_FALSE;
649
650     /* In opposition to InternetExplorer, all we should do here is
651      * inform the embedder about the tool bar change. */
652
653     V_VT(&arg) = VT_BOOL;
654     V_BOOL(&arg) = This->tool_bar;
655     call_sink(This->doc_host.cps.wbe2, DISPID_ONTOOLBAR, &dispparams);
656
657     return S_OK;
658 }
659
660 static HRESULT WINAPI WebBrowser_get_MenuBar(IWebBrowser2 *iface, VARIANT_BOOL *Value)
661 {
662     WebBrowser *This = WEBBROWSER_THIS(iface);
663
664     TRACE("(%p)->(%p)\n", This, Value);
665
666     *Value = This->menu_bar;
667     return S_OK;
668 }
669
670 static HRESULT WINAPI WebBrowser_put_MenuBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
671 {
672     WebBrowser *This = WEBBROWSER_THIS(iface);
673     VARIANTARG arg;
674     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
675
676     TRACE("(%p)->(%x)\n", This, Value);
677
678     This->menu_bar = Value ? VARIANT_TRUE : VARIANT_FALSE;
679
680     /* In opposition to InternetExplorer, all we should do here is
681      * inform the embedder about the menu bar change. */
682
683     V_VT(&arg) = VT_BOOL;
684     V_BOOL(&arg) = Value;
685     call_sink(This->doc_host.cps.wbe2, DISPID_ONMENUBAR, &dispparams);
686
687     return S_OK;
688 }
689
690 static HRESULT WINAPI WebBrowser_get_FullScreen(IWebBrowser2 *iface, VARIANT_BOOL *pbFullScreen)
691 {
692     WebBrowser *This = WEBBROWSER_THIS(iface);
693
694     TRACE("(%p)->(%p)\n", This, pbFullScreen);
695
696     *pbFullScreen = This->full_screen;
697     return S_OK;
698 }
699
700 static HRESULT WINAPI WebBrowser_put_FullScreen(IWebBrowser2 *iface, VARIANT_BOOL bFullScreen)
701 {
702     WebBrowser *This = WEBBROWSER_THIS(iface);
703     VARIANTARG arg;
704     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
705
706     /* In opposition to InternetExplorer, all we should do here is
707      * inform the embedder about the fullscreen change. */
708
709     TRACE("(%p)->(%x)\n", This, bFullScreen);
710
711     This->full_screen = bFullScreen ? VARIANT_TRUE : VARIANT_FALSE;
712
713     V_VT(&arg) = VT_BOOL;
714     V_BOOL(&arg) = bFullScreen;
715     call_sink(This->doc_host.cps.wbe2, DISPID_ONFULLSCREEN, &dispparams);
716
717     return S_OK;
718 }
719
720 static HRESULT WINAPI WebBrowser_Navigate2(IWebBrowser2 *iface, VARIANT *URL, VARIANT *Flags,
721         VARIANT *TargetFrameName, VARIANT *PostData, VARIANT *Headers)
722 {
723     WebBrowser *This = WEBBROWSER_THIS(iface);
724
725     TRACE("(%p)->(%p %p %p %p %p)\n", This, URL, Flags, TargetFrameName, PostData, Headers);
726
727     if(!This->client)
728         return E_FAIL;
729
730     if(!URL)
731         return S_OK;
732
733     if(V_VT(URL) != VT_BSTR) {
734         FIXME("Unsupported V_VT(URL) %d\n", V_VT(URL));
735         return E_INVALIDARG;
736     }
737
738     return navigate_url(&This->doc_host, V_BSTR(URL), Flags, TargetFrameName, PostData, Headers);
739 }
740
741 static HRESULT WINAPI WebBrowser_QueryStatusWB(IWebBrowser2 *iface, OLECMDID cmdID, OLECMDF *pcmdf)
742 {
743     WebBrowser *This = WEBBROWSER_THIS(iface);
744     FIXME("(%p)->(%d %p)\n", This, cmdID, pcmdf);
745     return E_NOTIMPL;
746 }
747
748 static HRESULT WINAPI WebBrowser_ExecWB(IWebBrowser2 *iface, OLECMDID cmdID,
749         OLECMDEXECOPT cmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
750 {
751     WebBrowser *This = WEBBROWSER_THIS(iface);
752     FIXME("(%p)->(%d %d %p %p)\n", This, cmdID, cmdexecopt, pvaIn, pvaOut);
753     return E_NOTIMPL;
754 }
755
756 static HRESULT WINAPI WebBrowser_ShowBrowserBar(IWebBrowser2 *iface, VARIANT *pvaClsid,
757         VARIANT *pvarShow, VARIANT *pvarSize)
758 {
759     WebBrowser *This = WEBBROWSER_THIS(iface);
760     FIXME("(%p)->(%p %p %p)\n", This, pvaClsid, pvarShow, pvarSize);
761     return E_NOTIMPL;
762 }
763
764 static HRESULT WINAPI WebBrowser_get_ReadyState(IWebBrowser2 *iface, READYSTATE *lpReadyState)
765 {
766     WebBrowser *This = WEBBROWSER_THIS(iface);
767     FIXME("(%p)->(%p)\n", This, lpReadyState);
768
769     *lpReadyState = READYSTATE_COMPLETE;
770     return S_OK;
771 }
772
773 static HRESULT WINAPI WebBrowser_get_Offline(IWebBrowser2 *iface, VARIANT_BOOL *pbOffline)
774 {
775     WebBrowser *This = WEBBROWSER_THIS(iface);
776
777     TRACE("(%p)->(%p)\n", This, pbOffline);
778
779     *pbOffline = This->doc_host.offline;
780     return S_OK;
781 }
782
783 static HRESULT WINAPI WebBrowser_put_Offline(IWebBrowser2 *iface, VARIANT_BOOL bOffline)
784 {
785     WebBrowser *This = WEBBROWSER_THIS(iface);
786
787     TRACE("(%p)->(%x)\n", This, bOffline);
788
789     This->doc_host.offline = bOffline ? VARIANT_TRUE : VARIANT_FALSE;
790     return S_OK;
791 }
792
793 static HRESULT WINAPI WebBrowser_get_Silent(IWebBrowser2 *iface, VARIANT_BOOL *pbSilent)
794 {
795     WebBrowser *This = WEBBROWSER_THIS(iface);
796
797     TRACE("(%p)->(%p)\n", This, pbSilent);
798
799     *pbSilent = This->doc_host.silent;
800     return S_OK;
801 }
802
803 static HRESULT WINAPI WebBrowser_put_Silent(IWebBrowser2 *iface, VARIANT_BOOL bSilent)
804 {
805     WebBrowser *This = WEBBROWSER_THIS(iface);
806
807     TRACE("(%p)->(%x)\n", This, bSilent);
808
809     This->doc_host.silent = bSilent ? VARIANT_TRUE : VARIANT_FALSE;
810     return S_OK;
811 }
812
813 static HRESULT WINAPI WebBrowser_get_RegisterAsBrowser(IWebBrowser2 *iface,
814         VARIANT_BOOL *pbRegister)
815 {
816     WebBrowser *This = WEBBROWSER_THIS(iface);
817
818     FIXME("(%p)->(%p)\n", This, pbRegister);
819
820     *pbRegister = This->register_browser;
821     return S_OK;
822 }
823
824 static HRESULT WINAPI WebBrowser_put_RegisterAsBrowser(IWebBrowser2 *iface,
825         VARIANT_BOOL bRegister)
826 {
827     WebBrowser *This = WEBBROWSER_THIS(iface);
828
829     FIXME("(%p)->(%x)\n", This, bRegister);
830
831     This->register_browser = bRegister ? VARIANT_TRUE : VARIANT_FALSE;
832     return S_OK;
833 }
834
835 static HRESULT WINAPI WebBrowser_get_RegisterAsDropTarget(IWebBrowser2 *iface,
836         VARIANT_BOOL *pbRegister)
837 {
838     WebBrowser *This = WEBBROWSER_THIS(iface);
839     FIXME("(%p)->(%p)\n", This, pbRegister);
840     *pbRegister=0;
841     return S_OK;
842 }
843
844 static HRESULT WINAPI WebBrowser_put_RegisterAsDropTarget(IWebBrowser2 *iface,
845         VARIANT_BOOL bRegister)
846 {
847     WebBrowser *This = WEBBROWSER_THIS(iface);
848     FIXME("(%p)->(%x)\n", This, bRegister);
849     return S_OK;
850 }
851
852 static HRESULT WINAPI WebBrowser_get_TheaterMode(IWebBrowser2 *iface, VARIANT_BOOL *pbRegister)
853 {
854     WebBrowser *This = WEBBROWSER_THIS(iface);
855
856     TRACE("(%p)->(%p)\n", This, pbRegister);
857
858     *pbRegister = This->theater_mode;
859     return S_OK;
860 }
861
862 static HRESULT WINAPI WebBrowser_put_TheaterMode(IWebBrowser2 *iface, VARIANT_BOOL bRegister)
863 {
864     WebBrowser *This = WEBBROWSER_THIS(iface);
865     VARIANTARG arg;
866     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
867
868     TRACE("(%p)->(%x)\n", This, bRegister);
869
870     This->theater_mode = bRegister ? VARIANT_TRUE : VARIANT_FALSE;
871
872     /* In opposition to InternetExplorer, all we should do here is
873      * inform the embedder about the theater mode change. */
874
875     V_VT(&arg) = VT_BOOL;
876     V_BOOL(&arg) = bRegister;
877     call_sink(This->doc_host.cps.wbe2, DISPID_ONTHEATERMODE, &dispparams);
878
879     return S_OK;
880 }
881
882 static HRESULT WINAPI WebBrowser_get_AddressBar(IWebBrowser2 *iface, VARIANT_BOOL *Value)
883 {
884     WebBrowser *This = WEBBROWSER_THIS(iface);
885
886     TRACE("(%p)->(%p)\n", This, Value);
887
888     *Value = This->address_bar;
889     return S_OK;
890 }
891
892 static HRESULT WINAPI WebBrowser_put_AddressBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
893 {
894     WebBrowser *This = WEBBROWSER_THIS(iface);
895     VARIANTARG arg;
896     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
897
898     TRACE("(%p)->(%x)\n", This, Value);
899
900     This->address_bar = Value ? VARIANT_TRUE : VARIANT_FALSE;
901
902     /* In opposition to InternetExplorer, all we should do here is
903      * inform the embedder about the address bar change. */
904
905     V_VT(&arg) = VT_BOOL;
906     V_BOOL(&arg) = Value;
907     call_sink(This->doc_host.cps.wbe2, DISPID_ONADDRESSBAR, &dispparams);
908
909     return S_OK;
910 }
911
912 static HRESULT WINAPI WebBrowser_get_Resizable(IWebBrowser2 *iface, VARIANT_BOOL *Value)
913 {
914     WebBrowser *This = WEBBROWSER_THIS(iface);
915
916     TRACE("(%p)->(%p)\n", This, Value);
917
918     /* It's InternetExplorer object's method. We have nothing to do here. */
919     return E_NOTIMPL;
920 }
921
922 static HRESULT WINAPI WebBrowser_put_Resizable(IWebBrowser2 *iface, VARIANT_BOOL Value)
923 {
924     WebBrowser *This = WEBBROWSER_THIS(iface);
925     VARIANTARG arg;
926     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
927
928     TRACE("(%p)->(%x)\n", This, Value);
929
930     /* In opposition to InternetExplorer, all we should do here is
931      * inform the embedder about the resizable change. */
932
933     V_VT(&arg) = VT_BOOL;
934     V_BOOL(&arg) = Value;
935     call_sink(This->doc_host.cps.wbe2, DISPID_WINDOWSETRESIZABLE, &dispparams);
936
937     return S_OK;
938 }
939
940 #undef WEBBROWSER_THIS
941
942 static const IWebBrowser2Vtbl WebBrowser2Vtbl =
943 {
944     WebBrowser_QueryInterface,
945     WebBrowser_AddRef,
946     WebBrowser_Release,
947     WebBrowser_GetTypeInfoCount,
948     WebBrowser_GetTypeInfo,
949     WebBrowser_GetIDsOfNames,
950     WebBrowser_Invoke,
951     WebBrowser_GoBack,
952     WebBrowser_GoForward,
953     WebBrowser_GoHome,
954     WebBrowser_GoSearch,
955     WebBrowser_Navigate,
956     WebBrowser_Refresh,
957     WebBrowser_Refresh2,
958     WebBrowser_Stop,
959     WebBrowser_get_Application,
960     WebBrowser_get_Parent,
961     WebBrowser_get_Container,
962     WebBrowser_get_Document,
963     WebBrowser_get_TopLevelContainer,
964     WebBrowser_get_Type,
965     WebBrowser_get_Left,
966     WebBrowser_put_Left,
967     WebBrowser_get_Top,
968     WebBrowser_put_Top,
969     WebBrowser_get_Width,
970     WebBrowser_put_Width,
971     WebBrowser_get_Height,
972     WebBrowser_put_Height,
973     WebBrowser_get_LocationName,
974     WebBrowser_get_LocationURL,
975     WebBrowser_get_Busy,
976     WebBrowser_Quit,
977     WebBrowser_ClientToWindow,
978     WebBrowser_PutProperty,
979     WebBrowser_GetProperty,
980     WebBrowser_get_Name,
981     WebBrowser_get_HWND,
982     WebBrowser_get_FullName,
983     WebBrowser_get_Path,
984     WebBrowser_get_Visible,
985     WebBrowser_put_Visible,
986     WebBrowser_get_StatusBar,
987     WebBrowser_put_StatusBar,
988     WebBrowser_get_StatusText,
989     WebBrowser_put_StatusText,
990     WebBrowser_get_ToolBar,
991     WebBrowser_put_ToolBar,
992     WebBrowser_get_MenuBar,
993     WebBrowser_put_MenuBar,
994     WebBrowser_get_FullScreen,
995     WebBrowser_put_FullScreen,
996     WebBrowser_Navigate2,
997     WebBrowser_QueryStatusWB,
998     WebBrowser_ExecWB,
999     WebBrowser_ShowBrowserBar,
1000     WebBrowser_get_ReadyState,
1001     WebBrowser_get_Offline,
1002     WebBrowser_put_Offline,
1003     WebBrowser_get_Silent,
1004     WebBrowser_put_Silent,
1005     WebBrowser_get_RegisterAsBrowser,
1006     WebBrowser_put_RegisterAsBrowser,
1007     WebBrowser_get_RegisterAsDropTarget,
1008     WebBrowser_put_RegisterAsDropTarget,
1009     WebBrowser_get_TheaterMode,
1010     WebBrowser_put_TheaterMode,
1011     WebBrowser_get_AddressBar,
1012     WebBrowser_put_AddressBar,
1013     WebBrowser_get_Resizable,
1014     WebBrowser_put_Resizable
1015 };
1016
1017 static HRESULT WebBrowser_Create(INT version, IUnknown *pOuter, REFIID riid, void **ppv)
1018 {
1019     WebBrowser *ret;
1020     HRESULT hres;
1021
1022     TRACE("(%p %s %p) version=%d\n", pOuter, debugstr_guid(riid), ppv, version);
1023
1024     ret = heap_alloc(sizeof(WebBrowser));
1025
1026     ret->lpWebBrowser2Vtbl = &WebBrowser2Vtbl;
1027     ret->ref = 0;
1028     ret->version = version;
1029
1030     DocHost_Init(&ret->doc_host, (IDispatch*)WEBBROWSER2(ret));
1031
1032     ret->register_browser = VARIANT_FALSE;
1033     ret->visible = VARIANT_TRUE;
1034     ret->menu_bar = VARIANT_TRUE;
1035     ret->address_bar = VARIANT_TRUE;
1036     ret->status_bar = VARIANT_TRUE;
1037     ret->tool_bar = VARIANT_TRUE;
1038     ret->full_screen = VARIANT_FALSE;
1039     ret->theater_mode = VARIANT_FALSE;
1040
1041     WebBrowser_OleObject_Init(ret);
1042     WebBrowser_ViewObject_Init(ret);
1043     WebBrowser_Persist_Init(ret);
1044     WebBrowser_ClassInfo_Init(ret);
1045     WebBrowser_HlinkFrame_Init(ret);
1046
1047     hres = IWebBrowser_QueryInterface(WEBBROWSER(ret), riid, ppv);
1048     if(SUCCEEDED(hres)) {
1049         SHDOCVW_LockModule();
1050     }else {
1051         heap_free(ret);
1052         return hres;
1053     }
1054
1055     return hres;
1056 }
1057
1058 HRESULT WebBrowserV1_Create(IUnknown *pOuter, REFIID riid, void **ppv)
1059 {
1060     return WebBrowser_Create(1, pOuter, riid, ppv);
1061 }
1062
1063 HRESULT WebBrowserV2_Create(IUnknown *pOuter, REFIID riid, void **ppv)
1064 {
1065     return WebBrowser_Create(2, pOuter, riid, ppv);
1066 }