类似IE的VC编写浏览器.doc

《类似IE的VC编写浏览器.doc》由会员分享，可在线阅读，更多相关《类似IE的VC编写浏览器.doc（22页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、.-一、实验目的及要求目的： 通过一周的课程设计，编写一个项目型的功能软件，综合应用专业所学习的多门课程知识，并把本学期所学的网络编程的知识运用到实际编程中，熟练编程规范，训练编程思维，为学生适应毕业后团队合作开发规模稍大项目打下基础。要求：利用已有的HTTP控制、HTML解释器和HTML执行器，通过MFC提供的CHtmlView类实现的一个Windows下的多功能的浏览器，其功能包括：WEB站点浏览、本地和网络的文件系统的浏览、历史记录的维护、IE收藏夹功能和设置桌面快捷方式功能等。二、实验设备（环境）及要求(1) 使用VC+平台实现该程序(2) 界面设计合理美观，不要求统一界面(3) 要求

2、用户操作时，要给出清晰、明确的提示信息(4) 所有文件、函数、变量的命名应尽量作到”见其名知其意” (5) 5或6人一小组，明确每个学生在开发小组中扮演的角色及承担的职责（包括选出组长）。可以讨论算法的实现和编程的思路和方法，但每个人必须自己动手编写程序，不得抄袭。三、实验内容与具体实现步骤（一）实现WEB站点浏览，初步完成浏览器的模块的建立以及实现工具栏的各个功能（如：前进.后退,刷新,主页,停止以及搜索等功能）。1.利用MFC AppWizard生成应用程序框架工程名为myWeb16。第一步，选择工程类型为单文档（SDI）,中文语言支持。第二步和第三步使用默认值，不需要数据库，也不提供对于

3、复合对象的支持；第四步选择Internet Explorer ReBars工具栏的风格，这样就有了用来输入网址的文本框；第五步不做任何修改；第六步选择CHtmlView类作为视图类的基类。生成工程框架包含4个类。（1） 应用程序类：CMyWeb16App，对应myWeb16.h和myWeb16.cpp文件。（2） 框架类：CMainFrame，对应MainFrm.h和MainFrm.cpp文件。（3） 文档类：CMyWeb16Doc，对应myWeb16Doc.h和myWeb16Doc.cpp文件。（4） HtmlView类：CMyWeb16View，对应myWeb16View.h和myWeb1

4、6View.cpp文件。此时编译运行，程序已经具有基本的Web浏览功能，能自动链接到微软公司的网站。2.修改菜单在工作区中选择“ResourceView”选项卡，选择Menu，双击菜单控件的名字（IDR_MAINFRAME）,右边出现程序的菜单。选择菜单中的“查看”命令，已经有了“工具栏”和“状态栏”两个条目，双击下面的空框，弹出设置菜单条目属性对话框，如图1.1所示，按照表1.2添加6个菜单条目菜单条目名称（Caption）ID号前进ID_FOWARD后退ID_BACK停止ID_STOP刷新ID_UPDATE主页ID_HOMEPAGE搜索ID_SEARCH图1.23.修改工具栏在工具栏上增加

5、新的按钮，以便快速执行所需的功能。在工作区中选择“ReaourcecView”选项卡，选择ToolBar，双击工具条控件的名字（IDR_MAINFRAME），右边出现程序的工具条。双击其中的安秀，可以看到他们的属性。其中有一个空的按钮，双击它可以添加新的安秀的属性，如图1.3所示，利用右边的图形绘制工具，可以自己设计新的按钮图样。如图1.4所示。如图添加6个按钮，他们的ID号与相应的菜单条目相同。拖动按钮，可以改变按钮之间的相对位置。4.为控件添加时间处理函数当用户单击菜单条目，或者单击相应的快捷键时，应能引起程序的反映，这就需要给这些控件添加时间处理函数。进入类向导，选择“Message M

6、aps”选项卡。在“Class Name”下拉列表框中选择CMyWeb16View类，然后按照表1.5为前述的六个控件添加事件处理函数。对象IDMessagesMember FunctionID_FORWARDCOMMANDOnFoward()ID_BACKCOMMANDOnBack()ID_STOPCOMMANDOnStop()ID_UPDATECOMMANDOnUpdate()ID_HOMEPAGECOMMANDOnHomepage()ID_SEARCHCOMMANDOnSearch()图1.55.添加事件处理函数的代码在MyWeb16View.cpp实现文件中，添加上述6个时间处理函数的

7、代码。/前进到下一个网页void CMyWeb16View:OnFoward() GoForward();/退到下一个网页void CMyWeb16View:OnBack() GoBack();/停止网页的下载void CMyWeb16View:OnStop() Stop();/刷新当前的网页void CMyWeb16View:OnUpdate() Refresh();/回到主页void CMyWeb16View:OnHomepage() GoHome();/进行搜索void CMyWeb16View:OnSearch() GoSearch();此时可以再进行编译运行。6.为应用程序添加URL

8、定位功能（1）添加网址输入栏控件。在工作区中选择“Resource View”选项卡，选择Dialog，双击对话框控件的名字（IDR_MAINFRAME）,右边出现对话框条。在上面添加一个“地址”的静态文本，再添加一个文本编辑框控件，ID号时IDC_ADDR，作为地址栏，提供给用户输入要浏览的网站地址。如图1.6所示。（2）添加控制代码。当用户输入网址后按回车时，就有一个IDOK的消息发送到主框架类，添加处理这个消息的控制函数，在该函数中，用指定的网址调用Navigate()和Navigate2()函数 ,就可以实现对该网页的浏览。在MainFrm.h文件中，添加消息处理函数的声明。publi

9、c:void OnNew();在MainFrm.cpp文件中，添加该函数的实现代码。void CMainFrame:OnNew()CString pp; /获得用户在地址栏中输入的URLm_wndDlgBar.GetDlgItem(IDC_ADDR)-GetWindowText(pp); /浏览指定的网页(CMyWeb16View*)GetActiveView()-Navigate(pp);建立事件处理函数与消息的映射在MainFrm.cpp的文件中，在消息映射（MESSAGE_MAP）段中添加自己的消息映射宏。用ON_COMMAND命令建立IDOK消息和处理函数OnNew的映射关系。BEGI

10、N_MESSAGE_MAP(CMainFrame, CFrameWnd)/AFX_MSG_MAP(CMainFrame)ON_WM_CREATE()/AFX_MSG_MAPON_COMMAND(IDOK,OnNew) /自己的消息映射宏END_MESSAGE_MAP()在myWeb16View.h文件的类定义前面添加包含语句#includemyWeb16Doc.h7.解决单击超级链接时地址栏的同步问题利用CHtmlView类的事件处理函数，当网页下载完成，会触发OnDocumentComplete（）函数，该函数的参数就是所下载网页的URL，可以利用此函数对地址栏进行设置，添加以下代码。 在M

11、ainFrm.h文件中，添加处理函数的声明。public:void SetPage(LPCTSTR lpazURL);在MainFrm.cpp文件中，添加该函数的实现代码。void CMainFrame:SetPage(LPCTSTR lpszURL)m_wndDlgBar.GetDlgItem(IDC_ADDR)-SetWindowText(lpszURL);使用类向导添加事件处理函数。用类向导为应用程序的CMyWeb16View类添加OnDocumentComplete()事件处理函数，并在myWeb16View.cpp文件中添加它的实现代码。void CMyWeb16View:OnDoc

12、umentComplete(LPCTSTR lpszURL) (CMainFrame*)GetParentFrame()-SetPage(lpszURL);添加包含语句。在MainFrm.cpp文件前面添加包含语句。 #includemyWeb16View.h在myWeb16View.cpp文件前面添加包含语句。 #includeMainFrm.h8.修改首页地址，以及主页地址和搜索页面。在myWeb16View.cpp的文件中，找到OnInitialUpdate()函数，修改首页地址。Navigate2(_T(http:/),NULL,NULL);在开始菜单的运行中输入regedit，回车。

13、在目录菜单下:HKEY_CURRENT_USER/Software/Microsoft/Internet Explorer/Main找到Start Page（主页）和Search Page(搜索页)，并修改其数值数据。Start Page（主页）： Search Page(搜索页)：.hk（二）加入删除IE相关历史记录的功能（包括删除文档历史纪录，清除cookies,清除Internet临时文件，清除地址栏中的历史任务，清除密码历史纪录和清除收藏夹）。1.添加“删除”菜单（1）修改菜单，在工作区中选择“ResourceView”选项卡，选择Menu，双击菜单控件的名字（IDR_MAINFRAM

14、E）,右边出现程序的菜单。在菜单中加入“删除”栏，分别添加“删除文档历史记录”、“清除Cookies”、“清除Internet临时文件”、“清除地址栏中的历史地址”、“清除密码历史记录”和“清除收藏夹”6个菜单条目及其属性。如图2.1、2.2、2.3示。菜单条目名称（Caption）ID号删除文档历史记录ID_DelHistory清除CookieID_DelCookies清除Internet临时文件ID_DelIntenetTempFile清除地址栏中历史地址ID_DelHistoryAddress清除密码历史记录ID_DelHistoryPassword图2.22.为控件添加事件处理函数进入

15、类向导，选择“Message Maps”选项卡。在“Class Name”下拉列表框中选择CMyWeb16View类，然后按照表2.4为上述删除的六个控件添加事件处理函数。对象IDMessagesMember FunctionID_DelHistoryCOMMANDOnDelHistory() ID_DelCookiesCOMMANDOnDelCookies()ID_DelIntenetTempFileCOMMANDOnDelIntenetTempFile()ID_DelHistoryAddressCOMMANDOnDelHistoryAddress() ID_DelHistoryPasswo

16、rdCOMMANDOnDelHistoryPassword()图2.43.添加事件处理函数的代码在myWeb16View.cpp中，添加如下代码。（1）实现文档历史记录的清除void CMyWeb16View:OnDelHistory() /清除文档历史记录TCHAR szPathMAX_PATH;if(SHGetSpecialFolderPath(NULL,szPath,CSIDL_RECENT,FALSE)EmptyDirectory(szPath);SHDeleteKey(HKEY_CURRENT_USER,_T(SoftwareMicrosoftCurrentVersionExplor

17、erRecentDocs);（2）清除Cookievoid CMyWeb16View:OnDelCookies() /清除CookiesTCHAR szPathMAX_PATH;DeleteUrlCache(Cookie); /删除URL的Cacheif (SHGetSpecialFolderPath(NULL,szPath,CSIDL_COOKIES,FALSE)EmptyDirectory(szPath);(3) 清除Internet的临时文件void CMyWeb16View:OnDelIntenetTempFile() /清空Internet临时文件TCHAR szPathMAX_PA

18、TH;DeleteUrlCache(File); /删除URL的Cacheif (SHGetSpecialFolderPath(NULL,szPath,CSIDL_INTERNET_CACHE,FALSE) /得到临时目录并清空它EmptyDirectory(szPath);（4）清除地址栏中的历史任务void CMyWeb16View:OnDelHistoryAddress() /浏览器地址栏历史记录的清除SHDeleteKey(HKEY_CURRENT_USER,_T(SoftwareMicrosoftInternet ExplorerTypedURLs);（5）清除密码历史纪录void

19、CMyWeb16View:OnDelHistoryPassword() /清除密码历史记录SHDeleteKey(HKEY_CURRENT_USER,_T(SoftwareMicrosoftInternet ExplorerIntelliForms);（6）实现目录的删除在OnDelIntenetTempFile、OnDelCookies和OnDelHistory这三个函数中都用到了函数EmptyDirectory()。删除目录是一个基本操作，因为有些历史记录是以文件形式保存在某个特定目录下的而且目录下还可能有子目录，所以可以采用递归方法删除整个目录。EmptyDirectory函数负责清空整

20、个目录。在myWeb16View.cpp文件的类定义前面添加包含语句。#include shlwapi.h在StdAfc.h文件的类定义前面添加包含语句。#include atlbase.h 在myWeb16View.h的文件中，添加处理函数的声明。public:BOOL EmptyDirectory(LPCTSTR szPath, BOOL bDeleteDesktopIni = FALSE, BOOL bWipeIndexDat = FALSE);/清空一个目录在myWeb16View.cpp的文件中，添加该函数的实现代码。BOOL CMyWeb16View:EmptyDirectory(

21、LPCTSTR szPath,BOOL bDeleteDesktopIni,BOOL bWipeIndexDat)WIN32_FIND_DATA wfd;HANDLE hFind; /文件句柄CString sFullPath;CString sFindFilter;DWORD dwAttributes = 0;sFindFilter = szPath; /路径名sFindFilter +=_T(*.*); /表示所有文件都要删除 /找到第一个文件if(hFind=FindFirstFile(sFindFilter,&wfd)=INVALID_HANDLE_VALUE)return FALSE

22、;doif(_tcscmp(wfd.cFileName,_T(.)=0|_tcscmp(wfd.cFileName,_T(.)=0|(bDeleteDesktopIni=FALSE&_tcscmp(wfd.cFileName,_T(desktop.ini)=0)continue;sFullPath=szPath;sFullPath+=_T();sFullPath+=wfd.cFileName; /文件完整的路径和名称/如果文件含有只读属性，那么应该去掉该属性再删除dwAttributes=GetFileAttributes(sFullPath); /得到文件属性if (dwAttributes

23、&FILE_ATTRIBUTE_READONLY) /判断是否只读dwAttributes&=FILE_ATTRIBUTE_READONLY; /删除只读属性SetFileAttributes(sFullPath,dwAttributes); /重新删除/判断该文件是否是一个目录，如果是目录则递归调用清空子目录if (wfd.dwFileAttributes&FILE_ATTRIBUTE_DIRECTORY)EmptyDirectory(sFullPath,bDeleteDesktopIni,bWipeIndexDat);RemoveDirectory(sFullPath); else /这是

24、一个文件DeleteFile(sFullPath); /删除该文件while(FindNextFile(hFind,&wfd); /查找下一个文件FindClose(hFind); /关闭文件句柄return TRUE;（7）关于Cache在OnDelCookies函数和OnDelIntenetTempFile()函数中都用到了函数DeleteUrlCache()。在实际的网络中，任何从网络上流入的数据都会在本地的硬盘上缓存起来，Cookies和Internet临时文件也不例外，所以还需要清除他们的Cache，而不仅仅是文件本身。 在myWeb16View.h文件的类定义前面添加包含语句#in

25、clude wininet.h #include UrlHist.h #define SWEEP_BUFFER_SIZE 10000 在myWeb16View.h中添加如下枚举类型，以及处理函数的声明。public:enum DEL_CACHE_TYPEFile, /表示Internet临时文件Cookie /表示Cookie;BOOL DeleteUrlCache(DEL_CACHE_TYPE type); 在myWeb16View.cpp的文件中添加如下代码。BOOL CMyWeb16View:DeleteUrlCache(DEL_CACHE_TYPE type)BOOL bRet=FAL

26、SE;HANDLE hEntry;LPINTERNET_CACHE_ENTRY_INFO lpCacheEntry=NULL; /Cache入口指针DWORD dwEntrySize;dwEntrySize=0;hEntry=FindFirstUrlCacheEntry(NULL,NULL,&dwEntrySize); /找到第一个URL Cache入口lpCacheEntry=(LPINTERNET_CACHE_ENTRY_INFO) new chardwEntrySize;/分配空间hEntry=FindFirstUrlCacheEntry(NULL,lpCacheEntry,&dwEnt

27、rySize);if (!hEntry)goto cleanup;do if (type=File&!(lpCacheEntry-CacheEntryType&COOKIE_CACHE_ENTRY)DeleteUrlCacheEntry(lpCacheEntry-lpszSourceUrlName); else if(type=Cookie&(lpCacheEntry-CacheEntryType&COOKIE_CACHE_ENTRY)DeleteUrlCacheEntry(lpCacheEntry-lpszSourceUrlName);dwEntrySize=0;FindNextUrlCac

28、heEntry(hEntry,NULL,&dwEntrySize);delete lpCacheEntry;lpCacheEntry=(LPINTERNET_CACHE_ENTRY_INFO) new chardwEntrySize; while (FindNextUrlCacheEntry(hEntry,lpCacheEntry,&dwEntrySize);bRet=TRUE;cleanup:if (lpCacheEntry)delete lpCacheEntry;return bRet;（三）加入IE收藏夹功能和设置桌面快捷方式功能。1. IE收藏夹功能（1）添加菜单“收藏夹功能”修改菜单

29、，在菜单中加入“收藏夹”栏，分别添加 “添加到收藏夹”和“浏览收藏夹”2个菜单条目及其属性。新建一个对话框，用于存放用户收藏的网页，当用户点击浏览收藏夹时，便弹出该对话框，如图3.1.、3.2示。菜单条目名称（Caption）ID号添加到收藏夹ID_ADD浏览收藏夹ID_LOOK对话框条目名称（Caption）ID号树状控件IDC_TREE_FAV编辑框IDC_EDIT_URL按钮“清空收藏夹”ID_DelFavoritesMenu按钮“OPEN”IDC_GOURL对象IDMessagesMember FunctionID_DelFavoritesMenuCOMMANDOnDelFavorit

30、esMenu()IDC_GOURLCOMMANDOnGourl()（2）删除收藏夹内容在CFavoritesTryDlg.cpp的文件中，添加以下代码：void CFavoritesTryDlg:OnDelFavoritesMenu() /清收藏夹中的内容TCHAR szPathMAX_PATH;if (SHGetSpecialFolderPath(NULL, szPath, CSIDL_FAVORITES, FALSE)/得到目录，并清空 EmptyDirectory(szPath); EndDialog(IDOK);（CFavoritesTryDlg.cpp文件中引用到的函数EmptyDi

31、rectory()与功能（二）中函数一样。）在CFavoritesTryDlg.h文件中，声明EmptyDirectory函数。public:BOOL EmptyDirectory(LPCTSTR szPath,BOOL bDeleteDesktopIni=false,BOOL bWipeIndexDat=false); （3）添加收藏夹void CMyWeb16View:OnAdd() #define ID_IE_ID_ADDFAV 2261 HWND oleHwnd = :FindWindowEx(m_wndBrowser.m_hWnd, NULL, _T(Shell DocObject

32、View), NULL); HWND ieHwnd=:FindWindowEx(oleHwnd, NULL, _T(Internet Explorer_Server), NULL); :SendMessage(ieHwnd , WM_COMMAND, MAKEWPARAM(LOWORD(ID_IE_ID_ADDFAV), 0x0), 0 );（4）浏览收藏夹网页1. 菜单中“浏览收藏夹”的消息响应函数：void CMainFrame:OnLook()CFavoritesTryDlg* pDlg=new CFavoritesTryDlg();pDlg-Create(IDD_FAVORITESTR

33、Y_DIALOG,this);pDlg-ShowWindow(SW_SHOW);pDlg-CenterWindow();2. 在FavoritesTryDlg.h中添加代码如下：public:CEditm_EDIT_URL;CTreeCtrlm_TREE_FAV;virtual BOOL PreTranslateMessage(MSG* pMsg);protected:HICON m_hIcon;afx_msg void OnPaint();afx_msg HCURSOR OnQueryDragIcon();afx_msg void OnSelchangingTreeFav(NMHDR* pN

34、MHDR, LRESULT* pResult);afx_msg void OnDblclkTreeFav(NMHDR* pNMHDR, LRESULT* pResult);afx_msg void OnSelchangedTreeFav(NMHDR* pNMHDR, LRESULT* pResult);afx_msg void OnDelFavoritesMenu();3. 在FavoritesTryDlg.cpp中添加代码如下：设置全局变量：LPBYTE favpath = new BYTE80;CString StrPath;CString url;CFileFind finder;BOO

35、L bWorking;DDX_Control(pDX, IDC_EDIT_URL, m_EDIT_URL);DDX_Control(pDX, IDC_TREE_FAV, m_TREE_FAV);ON_WM_PAINT()ON_WM_QUERYDRAGICON()ON_NOTIFY(TVN_SELCHANGING, IDC_TREE_FAV, OnSelchangingTreeFav)ON_NOTIFY(NM_DBLCLK, IDC_TREE_FAV, OnDblclkTreeFav)ON_NOTIFY(TVN_SELCHANGED, IDC_TREE_FAV, OnSelchangedTree

36、Fav)ON_BN_CLICKED(IDC_GOURL, OnGourl)ON_BN_CLICKED(ID_DelFavoritesMenu, OnDelFavoritesMenu) ON_WM_SYSCOMMAND()BOOL CFavoritesTryDlg:OnInitDialog() / 从注册表获取收藏夹所在位置HKEY hKEY;DWORD type=REG_SZ;LPCTSTR path=SoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders;DWORD cbData=80;:RegOpenKeyEx(HKEY_CU

37、RRENT_USER,path,0,KEY_READ,&hKEY);:RegQueryValueEx(hKEY,Favorites,NULL,&type,favpath,&cbData);:RegCloseKey(hKEY);OnLoad();return TRUE;void CFavoritesTryDlg:OnLoad() StrPath = (CString)favpath + *.*;bWorking = finder.FindFile(StrPath); while(bWorking) bWorking = finder.FindNextFile(); if (!finder.IsD

38、ots() & finder.IsDirectory() HandleDirectory();StrPath = (CString)favpath + *.url; HandleFile(StrPath);finder.Close();void CFavoritesTryDlg:HandleDirectory() HTREEITEM hTreeItem = m_TREE_FAV.InsertItem(finder.GetFileName(), 0, 1, TVI_ROOT, TVI_LAST);CString msg;msg = (CString)favpath + + finder.GetF

39、ileName() + *.url;CFileFind finder2; BOOL bWorking2 = finder2.FindFile(msg);while(bWorking2) bWorking2 = finder2.FindNextFile();m_TREE_FAV.InsertItem(finder2.GetFileName(), 0, 1, hTreeItem, TVI_LAST);void CFavoritesTryDlg:HandleFile(CString FilePath)bWorking = finder.FindFile(FilePath);while(bWorkin

40、g) bWorking = finder.FindNextFile(); m_TREE_FAV.InsertItem(finder.GetFileName(), 0, 1, TVI_ROOT, TVI_LAST);void CFavoritesTryDlg:OnDblclkTreeFav(NMHDR* pNMHDR, LRESULT* pResult) OnGourl();*pResult = 0;void CFavoritesTryDlg:OnGourl() HTREEITEM hSel=m_TREE_FAV.GetSelectedItem();if(!m_TREE_FAV.ItemHasC

41、hildren(hSel) / 没有子树HKEY hKEY;DWORD type=REG_SZ;DWORD cbData=80;LPBYTE IEpath = new BYTE80;:RegOpenKeyEx(HKEY_CLASSES_ROOT,htmlfileshellopencommand,0,KEY_READ,&hKEY);:RegQueryValueEx(hKEY,NULL,NULL,&type,IEpath,&cbData);:RegCloseKey(hKEY); char ShellChar256; strcpy(ShellChar,(char *)IEpath);strcat(S

42、hellChar,url);WinExec(ShellChar,SW_SHOW); 2. 设置桌面快捷方式功能添加按钮“创建快捷方式”修改对话框控件（IDR_MAINFRAME），添加按钮“创建快捷方式”与编辑框，如下图所示。对话框条目名称（Caption）ID号创建快捷方式IDC_SHORTCUT编辑框IDC_shortcutname对象IDMessagesMember Function IDC_SHORTCUTCOMMAND OnShortcut()添加代码如下：void CMainFrame:OnShortcut() CString pp; /获得用户在地址栏中输入的URLm_wndDl

43、gBar.GetDlgItem(IDC_ADDR)-GetWindowText(pp);CString pp1; /获得用户在地址栏中输入的URLm_wndDlgBar.GetDlgItem(IDC_shortcutname)-GetWindowText(pp1);IShellLink *MyLink;/IShellLink 接口指针IPersistFile *ppf; /另一个接口指针char DesktopLocateMAX_PATH;/存储快捷方式在桌面保存的位置/桌面的位置SHGetSpecialFolderPath(NULL,DesktopLocate,CSIDL_DESKTOP,0);/以下设定快捷方式在桌面保存位置strcat(DesktopLocate,);strcat(DesktopLocate,pp1);