BHO里弹出新窗口,如何控制新窗口的大小?

[ezdevelop]

BOOL PopupWindowEx(IWebBrowser2 *pWebBrowser, BSTR bstrUrl, int top, int left, int width, int height)
{
if (pWebBrowser == NULL) return FALSE;

VARIANT vtFlags, vtEmpty;
vtFlags.vt = VT_I4;
vtFlags.lVal = navOpenInNewWindow;
::VariantInit(&vtEmpty);

if (top >= 0) pWebBrowser->put_Top(top);
if (left >= 0) pWebBrowser->put_Left(left);
if (width >= 0) pWebBrowser->put_Width(width);
if (height >= 0) pWebBrowser->put_Height(height);

pWebBrowser->put_Visible(VARIANT_TRUE);
pWebBrowser->Navigate(bstrUrl, &vtFlags, &vtEmpty, &vtEmpty, &vtEmpty);
::VariantClear(&vtFlags);
::VariantClear(&vtEmpty);
return TRUE;
}

上面这个函数只能针对父窗口的,不能改变新窗口的大小.

而下面这个函数,如果开了MYIE,焦点会转移到MYIE,但是新窗口没有处理.
如果没开MYIE,则窗口能弹出来,但是也不能控制大小的.
BOOL PopupWindowEx(LPCTSTR lpszUrl, int top, int left, int width, int height)
{
//::CoInitialize(NULL);
IWebBrowser2 *pWebBrowser = NULL;
HRESULT hr;

hr = ::CoCreateInstance(CLSID_InternetExplorer, NULL, CLSCTX_LOCAL_SERVER, IID_IWebBrowser2, (void**)&pWebBrowser);
if(FAILED(hr) || pWebBrowser == NULL) return FALSE;

VARIANT vtUrl, vtFlags, vtTarget, vtEmpty;
vtUrl.vt = VT_BSTR;
vtUrl.bstrVal = CComBSTR(lpszUrl);
vtFlags.vt = VT_I4;
vtFlags.lVal = navOpenInNewWindow;
vtTarget.vt = VT_BSTR;
vtTarget.bstrVal = CComBSTR("_blank");
::VariantInit(&vtEmpty);

if (top >= 0) pWebBrowser->put_Top(top);
if (left >= 0) pWebBrowser->put_Left(left);
if (width >= 0) pWebBrowser->put_Width(width);
if (height >= 0) pWebBrowser->put_Height(height);

//pWebBrowser->put_Visible(VARIANT_TRUE);
hr = pWebBrowser->Navigate2(&vtUrl, &vtEmpty, &vtTarget, &vtEmpty, &vtEmpty);

::VariantClear(&vtFlags);
::VariantClear(&vtTarget);
::VariantClear(&vtEmpty);

pWebBrowser->Quit();
pWebBrowser->Release();
pWebBrowser = NULL;

//::CoUninitialize();

return SUCCEEDED(hr);
}

请问控制新窗口的大小应该怎么做呢?

[ezdevelop]

anybody could help me?

[lion_wing]

IHTMLWindow2::resizeBy
IHTMLWindow2::resizeTo

[ezdevelop]

怎么操作新窗口呢?起码应该有个句柄吧,这个句柄在哪?

麻烦再解释一下,Thanks!

[lion_wing]

HRESULT IWebBrowser2::get_Document(IDispatch **ppDisp);
HRESULT IHTMLDocument2::get_parentWindow(IHTMLWindow2 **p);
IHTMLWindow2::resizeBy
IHTMLWindow2::resizeTo
你可以试试

[ezdevelop]

这个只能针对当前窗口,并不能操作新打开的那个窗口,我要进行控制的是新打开的那个窗口

比如,A里打开了B,我要做的就是改变B的大小,而不是A的大小.

[lion_wing]

把B的IWebbrowser2传递进去不就行了？

[ezdevelop]

首先感谢您的热心回复!

问题就是偶不知道如何获取B的IWebBrowser2,如果采用如下代码方式获取IWebBrowser2,那么是获取不了IHTMLDocument2的:

BOOL PopupWindow(LPCTSTR lpszUrl, int top, int left, int width, int height)
{
//::CoInitialize(NULL);
IWebBrowser2 *pWebBrowser = NULL;
HRESULT hr;

hr = ::CoCreateInstance(CLSID_InternetExplorer, NULL, CLSCTX_LOCAL_SERVER, IID_IWebBrowser2, (void**)&pWebBrowser);
if(FAILED(hr) || pWebBrowser == NULL) return FALSE;

VARIANT vtFlags, vtEmpty;
vtFlags.vt = VT_I4;
vtFlags.lVal = navOpenInNewWindow;
::VariantInit(&vtEmpty);

if (top >= 0) pWebBrowser->put_Top(top);
if (left >= 0) pWebBrowser->put_Left(left);
if (width > 0) pWebBrowser->put_Width(width);
if (height > 0) pWebBrowser->put_Height(height);

pWebBrowser->put_Visible(VARIANT_TRUE);
hr = pWebBrowser->Navigate(CComBSTR(lpszUrl), &vtEmpty, &vtEmpty, &vtEmpty, &vtEmpty);

CComPtr<IDispatch> pDispatch;
pWebBrowser->get_Document(&pDispatch);
if (FAILED(hr)) {
return FALSE;
}
CComQIPtr<IHTMLDocument2, &IID_IHTMLDocument2> pHtml;
pHtml = pDispatch;

if (pHtml) {
CComPtr<IHTMLWindow2> pWindow;
hr = pHtml->get_parentWindow(&pWindow);
if (SUCCEEDED(hr)) {
pWindow->resizeBy(top, left);
pWindow->resizeTo(width, height);
}
}

::VariantClear(&vtFlags);
::VariantClear(&vtEmpty);

pWebBrowser->Quit();
pWebBrowser->Release();
pWebBrowser = NULL;

//::CoUninitialize();

return SUCCEEDED(hr);
}

[qinjs]

HRESULT CCEyeOnIE::CreateNewIEWindow() //创建新窗口，并导航到指定的URL
{
//IWebBrowser2 *pWebBrowser = NULL;
CComQIPtr<IWebBrowser2> m_pWebBrowser2;
HRESULT hr;
hr = m_pWebBrowser2.CoCreateInstance(CLSID_InternetExplorer);
hr = m_pWebBrowser2->put_StatusBar(VARIANT_TRUE);
hr = m_pWebBrowser2->put_ToolBar(VARIANT_TRUE);
hr = m_pWebBrowser2->put_MenuBar(VARIANT_TRUE);
hr = m_pWebBrowser2->put_Visible(VARIANT_TRUE);

char surl[] = "www.csdn.net";
CComVariant vaURL( ( LPCTSTR) surl);

m_pWebBrowser2->Navigate2( &vaURL,0 ,
NULL,
NULL,
NULL
);

return S_OK;
}
这里借用一下地方:
请问BHO的里面,我这段代码打开新窗口的时候,怎么还是是空白的,导航不到www.csdn.net ???
还需要什么吗?

[蒋晟]

char surl[] = "http://www.csdn.net";

[qinjs]

其实主要是也想问问你了

to jiangsheng(蒋晟.Net[MVP])
char surl[] = "http://www.csdn.net";

这样也不行啊

[ezdevelop]

我晕倒,借地方也不用这么借吧!

[leechiyang]

mark

[蒋晟]

www.codeproject.com/shell/AutomateShellWindow.asp

[cici2006]

你导航过去后就去得到文档。肯定没有呀。。文档没有下载下来之前IWebBrowse是没有文档对象的。
你可sleep一下。或者把连接点挂过去。响应它的文档下载完所的消息。