今天用CDHtmlDialog创建了一个简单的浏览器程序,遇到了一个问题,记录一下。
问题描述:当超链接的打开方式为_blank的时候,会弹出一个服务器忙的对话框,网页内容:
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"/>
</HEAD>
<BODY ID=CAntiNetTimeoutDlg BGCOLOR=LIGHTGREY style="font-family:MS Shell Dlg;font-size:9">
<a href="http://www.baidu.com" target="_blank" >百度</a>
<TABLE WIDTH=100% HEIGHT=100%>
<TR WIDTH=100% HEIGHT=45%>
<TD ALIGN=CENTER VALIGN=BOTTOM>
TODO: Place controls here.
</TD>
</TR>
<TR WIDTH=100% HEIGHT=100%>
<TD ALIGN=RIGHT VALIGN=BOTTOM>
<BUTTON STYLE="WIDTH:100" ID="ButtonOK">确定</BUTTON> <BUTTON STYLE="WIDTH:100" ID="ButtonCancel">取消</BUTTON>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
点击百度链接,出现以下对话框:
如果网页代码中的a标签的打开方式不是_blank则能正常进行网页跳转,网页代码改为下面的方式,正常跳转:
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"/>
</HEAD>
<BODY ID=CAntiNetTimeoutDlg BGCOLOR=LIGHTGREY style="font-family:MS Shell Dlg;font-size:9">
<a href="http://www.baidu.com" target="_parent" >百度</a>
<TABLE WIDTH=100% HEIGHT=100%>
<TR WIDTH=100% HEIGHT=45%>
<TD ALIGN=CENTER VALIGN=BOTTOM>
TODO: Place controls here.
</TD>
</TR>
<TR WIDTH=100% HEIGHT=100%>
<TD ALIGN=RIGHT VALIGN=BOTTOM>
<BUTTON STYLE="WIDTH:100" ID="ButtonOK">确定</BUTTON> <BUTTON STYLE="WIDTH:100" ID="ButtonCancel">取消</BUTTON>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
跳转后页面:
百度中的新闻 贴吧等链接的打开方式也是以_blank方式,如果点击人一个链接,都会出现上面的服务忙对话框,下面给出点击贴吧的截图:
不知是何原因,难道是没有足够的页面用来打开新的网页,望有知道的高手能告知原因。
解决方案:
既然是由于a标签的打开方式引起的,那就对a标签进行一下处理吧。
思路:1、获取点击位置的标签
2、获取标签名称,查看是否为a标签
3、如果是a标签,获取打开方式,并获取href网址
4、关闭当前页面,打开href指向的页面
在PreTranslateMessage中获取鼠标按下消息,在鼠标按下消息中处理是否a标签,并对打开方式为_blank的a标签进行处理,下面给出判断页面点击位置标签的代码:
BOOL CAntiNetTimeoutDlg::IsAtag()
{
CComVariant variant(NULL);
CString strTarget,strTagName,strHref;
BSTR szTagName;
long nTop;
CPoint point;
IHTMLElement *pElement = NULL;
::ATL::CComPtr<IHTMLDocument2> spHtmlDoc;
LPDISPATCH lpDisp = NULL;
GetCursorPos(&point);
ScreenToClient(&point);
m_pBrowserApp->get_Document(&lpDisp);
HRESULT hr = lpDisp->QueryInterface(IID_IHTMLDocument2, (void**) &spHtmlDoc);
if(spHtmlDoc)
{
if(spHtmlDoc.p)
{
m_pBrowserApp->get_Top(&nTop);//获取网页窗体距对话框顶部的距离
if(spHtmlDoc.p->elementFromPoint(point.x,point.y - nTop,&pElement) == S_OK)//修正鼠标点击时y方向上的值,需要减掉距离窗体顶部的高度值
{
if (pElement != NULL)
{
hr = pElement->get_tagName(&szTagName);//获取标签名字
if(szTagName != NULL)
{
strTagName.Format(_T("%s"),szTagName);
if(strTagName.CompareNoCase(_T("a")) == 0)//判断是非a标签
{
hr = pElement->getAttribute(_T("target"),0,&variant);//获取打开方式
if (variant.vt == VT_BSTR)
{
strTarget = variant.bstrVal;
if (strTarget.CompareNoCase(_T("_blank")) == 0)//判断是非_blank
{
pElement->getAttribute(_T("href"),0,&variant);//获取连接地址
if (variant.vt == VT_BSTR)
{
strHref = variant.bstrVal;
if (PathIsURL(strHref))
{
spHtmlDoc->clear();
spHtmlDoc->close();//关闭当前页面,打开href指向的页面
Navigate(strHref);
}
}
return TRUE;
}
}
}
}
}
}
}
}
return FALSE;
}
这样,上面的问题就得到了暂时的解决(因为自己并不知道上述问题的真正原因)。