利用VB访问Internet

利用VB访问Internet2010-03-12当前, 有许多构造模块可以帮助用户创建名为超客户端（rich client）的Internet应用其中包括Visual Basic（以下简称VB）的ActiveX 控件集合。它们可以提供SMTP和POP邮件服务、FTP、Newsgroup和Web访问等功能。另外,利用OLE也可以实现Web访问的自动化。本文向大家介绍这两种方法。

在应用中嵌入ActiveX控件

利用Crescent的Internet Toolpak（Internet 工具包）符合HTTP 协议的控件,可以将VB应用连接到Web站点,向站点传送数据,并从站点获取HTML页面。Crescent HTTP控件不能实际显示出下载的HTML页面 ,但能使应用程序以字符串的形式使用页面数据。例如,如果服务器产生一个名叫Myresult.html的HTML文件答复来自客户端的请求,客户端应用能够通过与服务器建立的Crescent Active X连接来获取并下载这个文件。建立连接的代码段如下:

CIHTTP1.HostName="www.cnblogs.com"

CIHTTP1.URL="resul tsmyresult.html"

CHTTP.ParseIncomingData = True

CIHTTP1.Conn ectToServer

一旦ActiveX控件与服务器建立连接,它就会触发HTTPServerConnection事件。这时,应用程序发出命令CIHTTP1.GET,检索RL属性中指定的页面,然后该控件激活FileClosed事件取回指定的页面。应用程序通过ActveX的属性HTMLPageText WithTags（主页不嵌有 HTML代码时用属性HTMLPageTextWithOutTgs）读页面文本。代码如下 :

mytext= CIHTTP1. HTMLPageTextWithTags

如果不想用控件下载整个主页,可以通过控件的PacketReceived事件的Packet参数快速扫描页面数据。每当控件接受到服务器的数据后都会激活PacketReceived事件。

另外,客户端应用还可以使用HTTP控件提取来自标准浏览器的Web页面数据。例如,ActveX控件在幕后与Web建立连接并下载正在发布的页面,让传统的客户端应用不断接收最新Wb信息,更改原有内容。

为进一步简化处理,在ActiveX控件与Web页面相连之前需设置好属性。Crescent的HTT控件还可以把下载页面的URL地址、图像文件的地址和所有HTML命令文件分别添加到指定的三个列表框中。

用OLE实现Web访问的自动化

除了ActiveX控件以外,还有一种方法可以实现应用程序与Web的交互自动化,这就是OL自动化,即利用OLE Automation建立传统应用, 再通？览器的OLE Automation服务器接口进行自动Web连接。Netscape Navigator 和Microsoft Internet Explorer 3.0 以上版本都支持OLE Automation。

Netscape Navigator的OLE Automation接口是专为这一目的而设计的。例如,通过OL Automation接口让Navigator打开一个Web页面 ,它不会在自身的浏览器窗口中显示这个页面,而是下载该页面的内容 ,复制到服务器对象的数据缓冲区中,让客户端的应用程序去访问这些内容。

例如,假设需要Navigator在Excel中打开一个Web页面,首先必须使用Excel的"引用"对话框引用Navigator程序目录中的Netscape.TLB 库,然后把Navigator对象作为一个实例,并完成打开页面的功能。代码如下:

Dim Nav as Object, result as Boolean

Dim url as String

Const urlGet =0

Const urlPost=1

url=http://www.cnblogs.com/index.html

set Nav=CreatObject（"netscape.netork"）

result=Nav.Open（url,urlGet,",",0," "）

如果自动化对象的属性IsFinished设置为True,就可以通过对象缓冲区仔细处理页面中的内容.