我写了一个获取网页中链接的方法,可是IHTMLArchorElementPtr接口指针总是调不成功,代码如下:
HRESULT hr;
try
{
int nCount = m_spSHWinds->GetCount();
CComPtr<IDispatch> spDisp;
for (int i = 0;i < nCount;i++)
{
_variant_t v = (long)i;
spDisp = m_spSHWinds->Item(v);
SHDocVw::IWebBrowser2Ptr spBrowser(spDisp);
if (spBrowser)
{
bsName = spBrowser->GetLocationName();
IHTMLDocument2Ptr spDoc(spBrowser->GetDocument());
if (spDoc != NULL)
{
int nPos = m_list2.InsertItem(0,bsName);
char* nm = bsName;
UpdateData(FALSE);
CString tmp = nm;
m_EditName += "\r\n";
m_EditName += nm;
UpdateData(FALSE);
TRACE(bsName);
spBrowser->AddRef();
void* pData = spBrowser;
m_list2.SetItemData(nPos,(DWORD)pData); CComPtr<IDispatch> pElemDisp ;
IHTMLElementCollectionPtr pElemColl ;
IHTMLElementPtr pElem ;
long length;
hr = spDoc->get_body(&pElem);
if (FAILED(hr))
{
AfxMessageBox("get_dody函数失败!");
}
hr = spDoc->get_all(&pElemColl);
if (FAILED(hr))
{
AfxMessageBox("获取页面元素集失败!");
}
hr = pElemColl->get_length(&length);
if (SUCCEEDED(hr))
{
for (int i = 0;i<length;i ++)
{
_variant_t index;
index.vt = VT_I4;
index.intVal = i;
hr = pElemColl->item(index,index,&pElemDisp);
if (pElemDisp == NULL)
{
AfxMessageBox("没有找到所需要的资源!");
continue;
} AfxMessageBox("找到:)");
CComQIPtr<IHTMLAnchorElement,&IID_IHTMLAnchorElement>pAnchorElement;
if (SUCCEEDED(hr))
{
pElemDisp->QueryInterface(&pAnchorElement);
BSTR bstr = NULL;
pAnchorElement->get_href(&bstr);
if (FAILED(hr))
{
AfxMessageBox("没有找到资源!");
}
else
{
_bstr_t temp = bstr;
char* show = temp;
AfxMessageBox(temp);
}
} }
}
}
}
}
}
catch (CException* e)
{
char buffer[1024];
e->GetErrorMessage(buffer,1024);
}
HRESULT hr;
try
{
int nCount = m_spSHWinds->GetCount();
CComPtr<IDispatch> spDisp;
for (int i = 0;i < nCount;i++)
{
_variant_t v = (long)i;
spDisp = m_spSHWinds->Item(v);
SHDocVw::IWebBrowser2Ptr spBrowser(spDisp);
if (spBrowser)
{
bsName = spBrowser->GetLocationName();
IHTMLDocument2Ptr spDoc(spBrowser->GetDocument());
if (spDoc != NULL)
{
int nPos = m_list2.InsertItem(0,bsName);
char* nm = bsName;
UpdateData(FALSE);
CString tmp = nm;
m_EditName += "\r\n";
m_EditName += nm;
UpdateData(FALSE);
TRACE(bsName);
spBrowser->AddRef();
void* pData = spBrowser;
m_list2.SetItemData(nPos,(DWORD)pData); CComPtr<IDispatch> pElemDisp ;
IHTMLElementCollectionPtr pElemColl ;
IHTMLElementPtr pElem ;
long length;
hr = spDoc->get_body(&pElem);
if (FAILED(hr))
{
AfxMessageBox("get_dody函数失败!");
}
hr = spDoc->get_all(&pElemColl);
if (FAILED(hr))
{
AfxMessageBox("获取页面元素集失败!");
}
hr = pElemColl->get_length(&length);
if (SUCCEEDED(hr))
{
for (int i = 0;i<length;i ++)
{
_variant_t index;
index.vt = VT_I4;
index.intVal = i;
hr = pElemColl->item(index,index,&pElemDisp);
if (pElemDisp == NULL)
{
AfxMessageBox("没有找到所需要的资源!");
continue;
} AfxMessageBox("找到:)");
CComQIPtr<IHTMLAnchorElement,&IID_IHTMLAnchorElement>pAnchorElement;
if (SUCCEEDED(hr))
{
pElemDisp->QueryInterface(&pAnchorElement);
BSTR bstr = NULL;
pAnchorElement->get_href(&bstr);
if (FAILED(hr))
{
AfxMessageBox("没有找到资源!");
}
else
{
_bstr_t temp = bstr;
char* show = temp;
AfxMessageBox(temp);
}
} }
}
}
}
}
}
catch (CException* e)
{
char buffer[1024];
e->GetErrorMessage(buffer,1024);
}
解决方案 »
- VC 界面处理。。。。。
- 问个关于#include "..\XX.h" 头文件中的相对目录的问题?
- 学习vc 要深入学习数据库吗 还有数据库应该学什么的比较好
- ■■■如何手动(纯代码)创建窗体■■■
- 手工MFC编程(不要mfc向导),你会玩吗?
- 如何在CreateProcess中給所調用EXE文件傳遞參數,急啊,請教諸位大俠!
- 用MFC向导建立了一个应用程序,最后也不知道修改了哪里,运行程序,窗口一显示又没了,用任务管理器还能看见程序在运行
- 如何显示类的帮助提示?
- CFont在不同机器上显示大小不一样,不知道为什么?
- 到那里发布软件好?
- CCheckListBox--->>>CLBN_CHKCHANGE 消息?
- CArry问题
TCHAR HostName[2*MAX_PATH];
CComPtr<IDispatch> spDispatch;
CComQIPtr<IHTMLDocument2, &IID_IHTMLDocument2> pDoc2;
CComPtr<IHTMLElementCollection> pElementCol;
CComPtr<IHTMLAnchorElement> pLoct;
// TODO: Add your control notification handler code here
int n = m_LinksList.GetItemCount();//GetCount(); for (int i = 0; i < n; i ++){
IWebBrowser2 *pBrowser = (IWebBrowser2 *)m_LinksList.GetItemData(i);
if (pBrowser){
pBrowser->Release();
}
} m_LinksList.DeleteAllItems();
m_LinksNum = 0;
Log("**************************************************************");
Log("\r\n"); if (m_spSHWinds){
int n = m_spSHWinds->GetCount();
for (int i = 0; i < n; i++){
_variant_t v = (long)i;
IDispatchPtr spDisp = m_spSHWinds->Item(v);
SHDocVw::IWebBrowser2Ptr spBrowser(spDisp); //生成一个IE窗口的智能指针
if (spBrowser){ if (SUCCEEDED(spBrowser->get_Document( &spDispatch)))
pDoc2 = spDispatch;
if(pDoc2!=NULL)
{
if (SUCCEEDED(pDoc2->get_links(&pElementCol)))
{
// AfxMessageBox("IHTMLElementCollection");
long p=0;
if(SUCCEEDED(pElementCol->get_length(&p)))
if(p!=0)
{
m_LinksNum = m_LinksNum+p;
UpdateData(FALSE); for(long i=0;i<=(p-1);i++)
{ BSTR String;
_variant_t index = i;
if(SUCCEEDED(pElementCol->item( index, index, &spDispatch)))
if(SUCCEEDED(spDispatch->QueryInterface( IID_IHTMLAnchorElement,(void **) &pLoct))) pLoct->get_href(&String);
ZeroMemory(HostName,2*MAX_PATH);
lstrcpy(HostName,_bstr_t(String));
m_LinksList.InsertItem(i,HostName);
m_LinksList.SetCheck(i,TRUE);
pLoct->get_hostname(&String);
ZeroMemory(HostName,2*MAX_PATH);
lstrcpy(HostName,_bstr_t(String));
if(lstrlen(HostName))
{
m_LinksList.SetItemText(i,1,HostName);
Log(HostName );
Log("\r\n");
}
}
}
} } }
}
}
}
...
IHTMLAnchorElementPtr spAnchor = pElemColl->item((LONG)i, vtMissing);
if (spAnchor) // 这句话一定需要,因为document->get_all获取的是所有元素,但不是所有元素都是anchor元素,只有anchor元素这个值才有效
{
_bstr_t bstr = spAnchor->href;
}
要获得网页,简单地用javascript做:
http://topic.csdn.net/t/20020919/10/1035935.html