getlinksdlg.cpp

visual c++ 实例编程

// GetLinksDlg.cpp : 实现文件
//

#include "stdafx.h"
#include "GetLinks.h"
#include "GetLinksDlg.h"
#include <atlbase.h>
#include <Mshtml.h>


#ifdef _DEBUG
#define new DEBUG_NEW
#endif


// 用于应用程序“关于”菜单项的 CAboutDlg 对话框

class CAboutDlg : public CDialog
{
public:
	CAboutDlg();

// 对话框数据
	enum { IDD = IDD_ABOUTBOX };

	protected:
	virtual void DoDataExchange(CDataExchange* pDX);    // DDX/DDV 支持

// 实现
protected:
	DECLARE_MESSAGE_MAP()
};

CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD)
{
}

void CAboutDlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
}

BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)
END_MESSAGE_MAP()


// CGetLinksDlg 对话框



CGetLinksDlg::CGetLinksDlg(CWnd* pParent /*=NULL*/)
	: CDialog(CGetLinksDlg::IDD, pParent)
	, m_LinksNum(0)
{
	m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
	m_spSHWinds = NULL;
}

void CGetLinksDlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	DDX_Control(pDX, IDC_LINKSLIST, m_LinksList);
	DDX_Text(pDX, IDC_EDIT1, m_LinksNum);
}

BEGIN_MESSAGE_MAP(CGetLinksDlg, CDialog)
	ON_WM_SYSCOMMAND()
	ON_WM_PAINT()
	ON_WM_QUERYDRAGICON()
	//}}AFX_MSG_MAP
	ON_BN_CLICKED(IDR_GETLINKS, OnBnClickedGetlinks)
	ON_WM_CLOSE()
END_MESSAGE_MAP()


// CGetLinksDlg 消息处理程序

BOOL CGetLinksDlg::OnInitDialog()
{
	CoInitialize(NULL);
	CDialog::OnInitDialog();

	// 将\“关于...\”菜单项添加到系统菜单中。

	// IDM_ABOUTBOX 必须在系统命令范围内。
	ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);
	ASSERT(IDM_ABOUTBOX < 0xF000);

	CMenu* pSysMenu = GetSystemMenu(FALSE);
	if (pSysMenu != NULL)
	{
		CString strAboutMenu;
		strAboutMenu.LoadString(IDS_ABOUTBOX);
		if (!strAboutMenu.IsEmpty())
		{
			pSysMenu->AppendMenu(MF_SEPARATOR);
			pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);
		}
	}

	// 设置此对话框的图标。当应用程序主窗口不是对话框时，框架将自动
	//  执行此操作
	SetIcon(m_hIcon, TRUE);			// 设置大图标
	SetIcon(m_hIcon, FALSE);		// 设置小图标

	// TODO：在此添加额外的初始化代码
	if (m_spSHWinds == NULL){
		if (m_spSHWinds.CreateInstance(__uuidof(SHDocVw::ShellWindows)) != S_OK){
			MessageBox("Failed");
			CoUninitialize();
			EndDialog(1);
		}
	}
	
	m_LinksList.SetExtendedStyle(LVS_EX_CHECKBOXES|LVS_EX_FLATSB|LVS_EX_FULLROWSELECT|LVS_EX_GRIDLINES);
	m_LinksList.InsertColumn(0, "链接的完整地址", LVCFMT_LEFT, 300, -1);
	m_LinksList.InsertColumn(1, "主机名", LVCFMT_LEFT, 200, -1);
	return TRUE;  // 除非设置了控件的焦点，否则返回 TRUE
}

void CGetLinksDlg::OnSysCommand(UINT nID, LPARAM lParam)
{
	if ((nID & 0xFFF0) == IDM_ABOUTBOX)
	{
		CAboutDlg dlgAbout;
		dlgAbout.DoModal();
	}
	else
	{
		CDialog::OnSysCommand(nID, lParam);
	}
}

// 如果向对话框添加最小化按钮，则需要下面的代码
//  来绘制该图标。对于使用文档/视图模型的 MFC 应用程序，
//  这将由框架自动完成。

void CGetLinksDlg::OnPaint() 
{
	if (IsIconic())
	{
		CPaintDC dc(this); // 用于绘制的设备上下文

		SendMessage(WM_ICONERASEBKGND, reinterpret_cast<WPARAM>(dc.GetSafeHdc()), 0);

		// 使图标在工作矩形中居中
		int cxIcon = GetSystemMetrics(SM_CXICON);
		int cyIcon = GetSystemMetrics(SM_CYICON);
		CRect rect;
		GetClientRect(&rect);
		int x = (rect.Width() - cxIcon + 1) / 2;
		int y = (rect.Height() - cyIcon + 1) / 2;

		// 绘制图标
		dc.DrawIcon(x, y, m_hIcon);
	}
	else
	{
		CDialog::OnPaint();
	}
}

//当用户拖动最小化窗口时系统调用此函数取得光标显示。
HCURSOR CGetLinksDlg::OnQueryDragIcon()
{
	return static_cast<HCURSOR>(m_hIcon);
}

void CGetLinksDlg::OnBnClickedGetlinks()
{
	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++)
								{

									CComBSTR 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");
									}
								}
							}
					}

				}

			}
		}
	}
}

void CGetLinksDlg::OnClose()
{
	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();
    
	if (m_spSHWinds){
		m_spSHWinds.Release();
		m_spSHWinds = 0;
	}
	
	CoUninitialize();
	EndDialog(0);

	CDialog::OnClose();
}

//保存到文本文件
void CGetLinksDlg::Log(CString buf)
{
	FILE *fp;
	buf.Empty();
	if((fp=fopen("HostName.log","a+b"))==NULL)
	{
		return;
	}
	fwrite(buf.GetBuffer(buf.GetLength()),1,buf.GetLength(),fp);
	fclose(fp);
}