这段代码有什么问题吗？关于IHTMLLinkElement的。

skyremember

墨衍会员 · AI 创作全网分发码龄20年

关注

原创最新推荐文章于 2021-06-19 10:28:47 发布 2.2k 阅读 AI 写同款· GEO 优化 ›

AI权益加码！Claude Code、Cursor等20+工具免费用！购周边限时加赠Coding Plan Lite，畅享主流AI工具！学习进阶更高效！阅读详情

这段代码有什么问题吗？关于IHTMLLinkElement的。

楼主ttzzgg_80713（身无立锥地，常有四海心---老子有条命） 2002-09-15 22:52:34 在 VC/MFC / HTML/XML 提问

以下使用的是www.csdn.net/expert的网页.

void CLeftView::GetAllRoom(IHTMLDocument2Ptr pDoc)
{
USES_CONVERSION;
IDispatchPtr pDisp;
IHTMLElementCollectionPtr pItems;
_variant_t vIndex, vDummy;
HRESULT hr;

long p(0);

pDoc->get_all(&pItems);
pItems->get_length(&p);
vIndex.vt = VT_I4;

try
{
hr = pDoc->get_all(&pItems);
if (FAILED(hr))
return;
pItems->get_length(&p);
long i(0);
for (; i < p; ++i)
{
vIndex.lVal = i;
IDispatchPtr pDisp;

if (SUCCEEDED(pItems->item(vIndex, vDummy, &pDisp)))
{
IHTMLLinkElementPtr pLink;
_bstr_t link;
if (SUCCEEDED(pDisp->QueryInterface(&pLink)))
{
TRACE("Get a link element/n"); // 只输出一次，不会只有一个吧？？？
if (SUCCEEDED(pLink->get_href((BSTR*)&link)))
{
;
}
}
}
}
}
catch (_com_error &e)
{
CString error = W2T(e.Description());
TRACE("exception : %s/n", error);
}
catch (...)
{
TRACE("Get Exception : unknow excpetion/n");
}
//-------
// Log it
//-------
CFile file;
int _count(0);
file.Open("c://test.txt", CFile::modeCreate | CFile::modeReadWrite);

for (_count = 0; _count < m_strRoom.GetSize(); ++_count)
{
file.Write(m_strRoom[_count], m_strRoom[_count].GetLength());
file.Write("/r/n", 4);
}
file.Close();
}


问题点数：120、回复次数：15Top

frameborder="0" scrolling="no" src="http://topic.csdn.net/Include/Board.htm?Tags=" style="width: 100%; height: 100%; overflow-x: hidden; overflow-y: hidden; ">

1 楼ttzzgg_80713（身无立锥地，常有四海心---老子有条命）回复于 2002-09-15 23:09:39 得分 0

为什么我的总是没有人回答，Top

2 楼xghome（东楼）回复于 2002-09-15 23:10:37 得分 0

gzTop

3 楼ccat（智拙）回复于 2002-09-15 23:28:21 得分 30

这个是用的IE的内核吗？我对VC不懂，见笑了。Top

4 楼ttzzgg_80713（身无立锥地，常有四海心---老子有条命）回复于 2002-09-15 23:30:43 得分 0

。原来兄台是位牛兄。失敬。。。失敬。Top

5 楼papaya_stone（^_^)shentong(^_^）回复于 2002-09-15 23:50:29 得分 0

你想要得到什么？网页上的所有链接吗？Top

6 楼ttzzgg_80713（身无立锥地，常有四海心---老子有条命）回复于 2002-09-16 00:06:54 得分 0

yeah.Top

7 楼ttzzgg_80713（身无立锥地，常有四海心---老子有条命）回复于 2002-09-16 00:20:33 得分 0

我头发都　快白了。Top

8 楼onestab（）回复于 2002-09-16 00:31:39 得分 30

why don't you use IHTMLDocument2::get_anchors Method
to retrieve an interface pointer to a zero-based collection of all the A objects in an HTML document.Top

9 楼ttzzgg_80713（身无立锥地，常有四海心---老子有条命）回复于 2002-09-16 00:43:51 得分 0

let's try.Top

10 楼ttzzgg_80713（身无立锥地，常有四海心---老子有条命）回复于 2002-09-16 01:11:44 得分 0

if (SUCCEEDED(pDoc->get_anchors(&pItems)))
{
pItems->get_length(&p); // p == 0 ???
....

}Top

11 楼onestab（）回复于 2002-09-16 01:54:28 得分 0

I neglect the Notes from MSDN:
The collection returns only anchor objects that have a
***name or id attribute *** value. If duplicate names are found, a collection of those named items is returned. Collections of duplicate names must be referenced subsequently by ordinal position.

it seems you have to get all elements and examine the anchors individualy.
Top

12 楼onestab（）回复于 2002-09-16 01:55:39 得分 0

a useful link:
http://www.experts-exchange.com/Programming/Programming_Languages/MFC/Q_11654078.htmlTop

13 楼cker（〖烟波浩淼三千里、人鬼殊途五百年〗）回复于 2002-09-17 01:13:30 得分 30

if(pHTMLDocument)
{
IHTMLElementCollection *pAnchors = NULL;
if(SUCCEEDED(pHTMLDocument->get_all(&pAnchors)))
{
long ilHrefCount = 0;
if(SUCCEEDED(pAnchors->get_length(&ilHrefCount)))
{
long ilHrefIndex = 0;
for(; ilHrefIndex < ilHrefCount; ilHrefIndex++)
{
_variant_t vIndex;
vIndex.vt = VT_I4;
vIndex.lVal = ilHrefIndex;

IDispatch *pItem = NULL;
pAnchors->item(vIndex, vIndex, &pItem);
if(pItem != NULL)
{
IHTMLAnchorElement *pAnchor = NULL;
if(SUCCEEDED(pItem->QueryInterface(IID_IHTMLAnchorElement,
(LPVOID*)&pAnchor)))
{

_bstr_t bURL;
if(SUCCEEDED(pAnchor->get_href(&bURL)))
{
string s = W2A(bURL);
vector<string>::iterator it = find(vstrings.begin(),vstrings.end(),s);

if (it == vstrings.end() && s.length()>0)
vstrings.push_back(s);

}
pAnchor->Release();
}
pItem->Release();
}
}
}
pAnchors->Release();
}
}Top

14 楼congling（congling）回复于 2002-09-17 02:03:20 得分 30

一个使用JScript的方法，大可不必写VC的程序而且可以作为发布扩展和修改，虽然比较复杂，但是灵活掌握可以做到高扩展性，
文档中除了JSArrayToElementArray是从其他网站上，摘抄下来，其他都是我自己写的，其中JSObjectToAttributes花了我一天
的时间方试出来,这个函数我曾经花了200分在CSDN上询问，无奈无人知晓
我打算专门为JScript和VC的互通性写一套库


本文档仅能使用在VS7.0的版本

VC-JScript:

HRESULT ExecuteScript(IHTMLWindow2* spWin,BSTR bstrScript,VARIANT *pvarRet)
{
HRESULT hr;
VARIANT var;
VariantInit(&var);
if(FAILED(hr=spWin->execScript(CComBSTR("eval(/"/");"),CComBSTR("javascript"),&var)))
return hr;
VariantClear(&var);

DISPID dispid;
CComBSTR bstrName("eval");
if(FAILED(hr=spWin->GetIDsOfNames(IID_NULL,
&bstrName,
1,
LOCALE_SYSTEM_DEFAULT,
&dispid))) return hr;


DISPPARAMS params;
CComVariant varRet;

memset(&params,0,sizeof(params));
params.cArgs=1;
params.rgvarg=&var;

var.vt=VT_BSTR;
var.bstrVal=bstrScript;
hr=spWin->Invoke(dispid,IID_NULL,0,DISPATCH_METHOD,&params,pvarRet,NULL,NULL);
return hr;
}

HRESULT ExecuteScript(IHTMLWindow2* spWin,LPCTSTR lpszScript,VARIANT *pvarRet)
{
return ExecuteScript(IHTMLWindow2* spWin,CComBSTR(lpszScript),VARIANT *pvarRet)
}


HRESULT ExecuteScript(IHTMLDocument2* spDoc,BSTR bstrScript,VARIANT *pvarRet)
{
HRESULT hr;
CComPtr<IHTMLWindow2> spWin;
if(FAILED(hr=spDoc->get_parentWindow(&spWin)))
return hr;
return ExecuteScript(spWin,bstrScript,pvarRet);
}

HRESULT ExecuteScript(IHTMLDocument2* spDoc,LPCTSTR lpszScript,VARIANT *pvarRet)
{
return ExecuteScript(spDoc,CComBSTR(lpszScript),pvarRet);
}


typedef CSimpleMap<CComBSTR,CComVariant> MapAttr;
HRESULT JSObjectToAttributes(IDispatch* pDisp,MapAttr& map)
//这个函数可以解释动态生成的JSObject的属性
{
CComPtr<ITypeInfo> spInfo;
HRESULT hr;
hr=pDisp->GetTypeInfo(0,LOCALE_SYSTEM_DEFAULT,&spInfo);
if(hr!=S_OK)return hr;
TYPEATTR* pTypeAttr;
hr=spInfo->GetTypeAttr(&pTypeAttr);
if(hr!=S_OK) return hr;

WORD cVars=pTypeAttr->cVars;
spInfo->ReleaseTypeAttr(pTypeAttr);
for(WORD i=0;i<cVars;i++)
{
VARDESC* pVarDesc;
if(spInfo->GetVarDesc(i,&pVarDesc)==S_OK)
{
MEMBERID memid=pVarDesc->memid;
spInfo->ReleaseVarDesc(pVarDesc);
UINT count;
CComBSTR bstrName;
if(spInfo->GetNames(memid,&bstrName,1,&count)==S_OK)
{
CComVariant var;
DISPPARAMS param;
memset(&param,0,sizeof(param));
hr=pDisp->Invoke(memid,
IID_NULL,
LOCALE_SYSTEM_DEFAULT,
DISPATCH_PROPERTYGET,
&param,
&var,
NULL,
NULL);
if(SUCCEEDED(hr))
map.Add(bstrName,var);
}
}
}
return S_OK;
}


HRESULT JSArrayToArray(IDispatch* pDisp,CSimpleArray<CComVariant>& arr)
//这个函数获取JSArray元素的函数，其实也可以从JSObjectToAttributes获得
{
HRESULT hr;
DISPPARAMS dispArgs= { NULL, NULL, 0, 0 };
CComVariant var;
hr = pDisp->Invoke( DISPID_NEWENUM,
IID_NULL,
LOCALE_SYSTEM_DEFAULT,
DISPATCH_PROPERTYGET,
&dispArgs,
&var,
NULL,
NULL );
if( FAILED( hr ))
return NULL;

if (var.vt != VT_UNKNOWN && var.vt != VT_DISPATCH)
return NULL;

CComQIPtr<IEnumVARIANT> pEnum( var.punkVal );
if( !pEnum )
return NULL;

hr = S_OK;
while( hr == S_OK )
{
CComVariant elemV;
hr = pEnum->Next( 1, &elemV, NULL );
if( elemV.vt != VT_EMPTY )// correct for dispproxy bug 19307
arr.Add(elemV);
else
hr=S_FALSE;
}
return S_OK;
}


针对你的问题

Javascript文件内容：

var hrefArray=new Array();
var col=document.all.tags("A");
for(var i=0;i<col.length;i++)
hrefArray[hrefArray.length]=col[i].href;
hrefArray


VC内容：

void CLeftView::GetAllRoom(IHTMLDocument2Ptr pDoc)
{
BSTR bstrScript=GetAllRoomScript();
CComVariant varJSArray;
if(SUCCEEDED(ExecuteScript(pDoc,bstrScript,&varJSArray)) && varJSArray.vt==VT_DISPATCH)
{
CSimpleArray<CComVariant> arrHref;
if(SUCCEEDED(JSArrayToArray(varJSArray.pdispVal,arrHref)))
{
//do what ever you want
}
}
}