用Socket和MSHTML对象模型创建自己的浏览器
中央财经大学管理信息系 薛 瑛
HTTP协议和WEB浏览器的诞生给我们的网络增加了更多的精彩。但在实际应用中我们可能会有不同的需要而不是单纯的使用浏览器，譬如在我们的应用程序中加入浏览互联网的功能。微软的ChtmlView类很方便的实现了网页浏览。但是它很不灵活，无法使用户动态地在网页上修改自己想要的元素。本文探讨一些方法使用Socket传输Html文档，利用微软的动态MSHTML对象模型实现一些浏览器的内部机制。
大家知道HTML文档是由标记语言构成，即俗称的Tag。微软的浏览器IE对于这些标记实现了一一对应的对象模型(objectmodel)，由MSHTML.DLL封装。IE浏览器的实现也是由MSHTML.DLL来实现的。通过MSHTML.DLL我们可以直接操作对象模型的属性，方法。MSHTML的对象模型是基于COM组件对象的，对象的接口是基于Idispatch，操作MSHTML对象模型必须通过Idispatch接口。MSHTML中封装了许多这样的接口，例如，IhtmlAnchorElement接口对应与HTML文档中的超连接标记<A>,IHtmlHRElement接口对应<HR>标记，IhtmlTable接口对应<table>标记。其中最重要的是IhtmlDocument2接口，它对应Document组件。Document组件既相当于HTML文档。使用过Javascript的人对它应比较熟悉。
下面我们举例来讲解MSHTML的应用。在举例之前我先讲述一下Socket和HTTP协议。HTTP协议通过TCP连接服务器和Client，它工作在80端口。HTTP通过Client和Server之间的请求/应答机制进行通讯。HTTP消息分为Request和Response。每一种消息由开始行，消息头和消息体组成。形式如下：
generic-message = start-line
*message-header
CRLF
[ message-body ]
start-line的形式如下：
start-line = Request-Line | Status-Line
Request-Line为Client向Server发出的请求，形式如下：
Request-Line = Method SP Request-URI SP HTTP-Version CRLF
Method 包括GET,POST等，在本例中我们只简单的使用GET向服务器发出请求。
详细的HTTP协议请参考RFC2068。
在VC++中建立新的单文档EXE工程文件，为了使用MSHTML我们的视图类继承自ChtmlView。ChtmlView类封装了MSHTML接口。给工程中加入Socket类。
class CHttpSocket : public CSocket
{
………………
protected:
CWnd * m_pParentWnd;
}
其中m_pParentWnd指向我们的视图类，用于传送消息。在视图类中定义Socket。
class CSkhttpView : public CHtmlView
{
protected: // create from serialization only
CSkhttpView();
DECLARE_DYNCREATE(CSkhttpView)
…………….
protected:
CHttpSocket m_socket;
IHTMLDocument2 * phmDoc2;
……..
}
phmDoc2为IHTMLDocument2接口。初始化Socke,连接我们欲登录的站点，假设为www.163.net。
CSkhttpView::CSkhttpView()
{
// TODO: add construction code here
BOOL bRet=m_socket.Create(0,SOCK_STREAM,NULL);
if(!bRet)
MessageBox("socket create error",NULL,MB_OK);
m_socket.SetParentWnd(this);
if(!m_socket.Connect(www.163.net,80))
MessageBox(“socket connect error”,NULL,MB_OK);
}
下面我们取得IhtmlDocument2的接口。此接口的获得一般有两种方法。一是使用CoCreateInstance，然后调用QueryInterface。另一种是使用MSHTML控件对象的get_Document，在ChtmlView类中封装了这个接口。我们使用后一种。需要注意的是，我们需要在ChtmlView生成IhtmlDocument对象后才能获得它的接口。
void CSkhttpView::OnInitialUpdate()
{
Navigate2(“about:blank”);
}
void CSkhttpView::OnDocumentComplete(LPCTSTR lpszURL)
{
LPDISPATCH lpdisp;
HRESULT hr;
l